如何在Delphi中从可读地址中获取坐标

whhtz7ly  于 2022-09-21  发布在  其他
关注(0)|答案(1)|浏览(226)

如何从给定的地址获取坐标?我正试图在Android和iOS平台上运行这个程序。我已尝试使用TGeocode中的OnGeocode属性。但这并不是真的管用。以下是我的代码,是我做错了什么吗?我是德尔福的新手。

var sAddr := TCivicAddress.Create;
 sAddr.Address := '(My address)';
  try
    if not Assigned(FGeocoder) then begin
      if Assigned(TGeocoder.Current) then
        FGeocoder := TGeocoder.Current.Create;
      if Assigned(FGeocoder) then
        FGeocoder.OnGeocode := OnGeocodeEvent;
    end;

    if Assigned(FGeocoder) then begin
      FGeocoder.Geocode(sAddr);
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
dgtucam1

dgtucam11#

在此之前,您应该建立几个步骤。一步一步地尝试这个教程:https://docwiki.embarcadero.com/RADStudio/Sydney/en/Mobile_Tutorial:Using_Location_Sensors(iOS_and_Android)#Use_Reverse_Geocoding

它在Rad Studio11.1上运行得很好

应启用网络和GPS才能工作。

祝好运!

相关问题