Koordinatları alma

[brs]

Selam;

Bulunduğumuz yerin enlem ve boylamını nasıl alabilirim; Forumda kaynak bulamadım bu konu hakkında bilgisi olan arkadaşlar yardımcı olabilir mi?

[AliZairov]

Merhaba. Cihazın GPS sensöründen kordinatları ala bilirsin.

[fesiharslan]

Selam;

Bulunduğumuz yerin enlem ve boylamını nasıl alabilirim; Forumda kaynak bulamadım bu konu hakkında bilgisi olan arkadaşlar yardımcı olabilir mi?

Merhaba
Konuma alma işlemleri LocationSensor nesnesi ile gerçekleştirilmektedir.
Diğer arkadaşlara da klavuz olması açısından bir örnekle cevap vereyim.

1- Form üzerine (Tool Palette > Sensors sekmesinden) bir LocationSensor ve 2 adet Label yerleştirin.
2- Formun OnShow olayında LocationSensor'ü aktif duruma getirin.

Kod: Tümünü seç

LocationSensor1.Active:=True;

3- LocationSensor1 nesnesinin OnLocationChanged olayına aşağıdaki kodları yazın.

Kod: Tümünü seç

procedure TForm2.LocationSensor1LocationChanged(Sender: TObject;
  const OldLocation, NewLocation: TLocationCoord2D);
begin
  Label1.Text := Format('Enlem : %2.6f', [NewLocation.Latitude]);
  Label2.Text := Format('Boylam: %2.6f', [NewLocation.Longitude]);
end;

4- Uygulamayı çalıştırarak test edelim.

Uygulamanın ekran görüntüsü



İyi çalışmalar...

[brs]

Çok teşekkür ederim, Allah yolunuzu açık etsin...