Delphi Can
Lokasyonda Bina Numarası - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Lokasyonda Bina Numarası (/showthread.php?tid=7310)

Lokasyonda Bina Numarası - TuncayDelphi - 22-05-2023

Anroid uygulamada lokayon almada mahalle sokak il ilçe bütün bilgilere ulaşmama rağmen bina numarasına bir türlü bulamadım

System.Sensors unitinde 

 
TCivicAddress = class(TPersistent)
  private
    FCoord: TLocationCoord2D;
    FAddress: String;
    FAdminArea: String;
    FCountryCode: String;
    FCountryName: String;
    FFeatureName: String;
    FLocale: String;
    FLocality: String;
    FPhone: String;
    FPostalCode: String;
    FPremises: String;
    FSubAdminArea: String;
    FSubLocality: String;
    FSubThoroughfare: String;
    FThoroughfare: String;
    FURL: String;
    FOnConvertAddress: TConvertAddressEvent;


bina bilgisi yok başka bir şekilde ulaşabileceğimiz bir yöntem varmıdır. Teşekkürler

Lokasyonda Bina Numarası - mrmarman - 22-05-2023

Kendim bir test yaptım, eklediğim Marker'a ait aşağıdaki event ile aldığım içeriği Labela'a yazdırdım, harita üzerinde sokakta tıkladığım yerin yakınındaki bina numarası hemen geliyor.


// -------------------
  FYer := MapView1.AddMarker(MyMarker);
  LLocation2D.Latitude  := FYer.Descriptor.Position.Latitude;
  LLocation2D.Longitude := FYer.Descriptor.Position.Longitude;
  // Translate location to address
  if Assigned(FGeocoder) and not FGeocoder.Geocoding then
    FGeocoder.GeocodeReverse( LLocation2D );

// ----------------


procedure TForm1.OnGeocodeReverseEvent(const Address: TCivicAddress);
begin
  Label2.Text := Format('%s %s %s %s %s %s %s %s %s %s', [
                                    Address.AdminArea,
                                    Address.CountryCode,
                                    Address.CountryName,
                                    Address.FeatureName,
                                    Address.Locality,
                                    Address.PostalCode,
                                    Address.SubAdminArea,
                                    Address.SubLocality,
                                    Address.SubThoroughfare,
                                    Address.Thoroughfare ]);
end;


Lokasyonda Bina Numarası - TuncayDelphi - 22-05-2023

Meslek körlüğü desem, mola vaktimi gelmiş desem bilemedim hakkeden geliyor ben değişkenleri gördüğüm halde koda yazmamışım.

Çok teşekkür ederim