Delphi Can

Orjinalini görmek için tıklayınız: Lokasyonda Bina Numarası
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
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
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;


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