butona ilk tıkladığımda konum verilerini alamıyor


   //İkinci tıkladığımda Dikey ve yatay lokasyonlarıda veriyor apide çalışıyor ama ilk //tıkladığımda bana boş değer döndürüyor


var
 form1:TCLForm;
 btn1 : TclButton;
 Latitude,Longitude : String;
 clRest:TclRest;
 qry:TCLJSONQuery;
 qryString,ulke,sokak:String;
 
 
 void ulkeAl;
{
  with qry do
     {
      ulke=FieldByName('country').AsString;
     }
    
}
void sokakAl;
{
  with qry do
     {
      sokak=FieldByName('street').AsString;
     }
}
void onBtnClick;
{
 Latitude=clGetStringTo(Clomosy.LocationValue,'|')
 Longitude=clGetStringAfter(Clomosy.LocationValue,'|')
Latitude=clGetStringReplace(Latitude,',','.');
Longitude=clGetStringReplace(Longitude,',','.');
 ShowMessage('Latitude value: '+Latitude);
 ShowMessage('Longitude value: '+Longitude);
 clRest=TCLRest.Create;
  clRest.BaseURL = 'https://api.geoapify.com/v1/geocode/reverse?'+'lat='+Latitude+'&lon='+Longitude+'&apiKey=dd4bacb2b2f845c1ad9439f8f8ae9289';
   clRest.Accept = 'application/json';
   clRest.Method = rmGET;
    clRest.Execute;
   
   qry= Clomosy.ClDataSetFromJSON(clRest.Response);
    with qry do
     {
      qryString=FieldByName('features').AsString;
     }
     qry= Clomosy.ClDataSetFromJSON(qryString);
     with qry do
     {
      qryString=FieldByName('properties').AsString;
     }
     qry= Clomosy.ClDataSetFromJSON(qryString);
     sokakAl;
     ulkeAl;
      ShowMessage(ulke + '/'+ sokak);
}

{
 form1 = TCLForm.Create(Self);
 btn1 = form1.AddNewButton(form1,'btn1','Erişim verilerini al');
 btn1.Width = 150;
 form1.AddNewEvent(btn1,tbeOnClick,'onBtnClick');
 form1.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Senol Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 01 Temmuz 2024 Durum: Aktif Değil Puanlar: 49	Mesaj Seçenekleri Yanıt Yaz Alıntı Senol Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: butona ilk tıkladığımda konum verilerini alamıyor Gönderim Zamanı: 30 Temmuz 2024 Saat 14:08
	//İkinci tıkladığımda Dikey ve yatay lokasyonlarıda veriyor apide çalışıyor ama ilk //tıkladığımda bana boş değer döndürüyor var form1:TCLForm; btn1 : TclButton; Latitude,Longitude : String; clRest:TclRest; qry:TCLJSONQuery; qryString,ulke,sokak:String; void ulkeAl; { with qry do { ulke=FieldByName('country').AsString; } } void sokakAl; { with qry do { sokak=FieldByName('street').AsString; } } void onBtnClick; { Latitude=clGetStringTo(Clomosy.LocationValue,'\|') Longitude=clGetStringAfter(Clomosy.LocationValue,'\|') Latitude=clGetStringReplace(Latitude,',','.'); Longitude=clGetStringReplace(Longitude,',','.'); ShowMessage('Latitude value: '+Latitude); ShowMessage('Longitude value: '+Longitude); clRest=TCLRest.Create; clRest.BaseURL = 'https://api.geoapify.com/v1/geocode/reverse?'+'lat='+Latitude+'&lon='+Longitude+'&apiKey=dd4bacb2b2f845c1ad9439f8f8ae9289'; clRest.Accept = 'application/json'; clRest.Method = rmGET; clRest.Execute; qry= Clomosy.ClDataSetFromJSON(clRest.Response); with qry do { qryString=FieldByName('features').AsString; } qry= Clomosy.ClDataSetFromJSON(qryString); with qry do { qryString=FieldByName('properties').AsString; } qry= Clomosy.ClDataSetFromJSON(qryString); sokakAl; ulkeAl; ShowMessage(ulke + '/'+ sokak); } { form1 = TCLForm.Create(Self); btn1 = form1.AddNewButton(form1,'btn1','Erişim verilerini al'); btn1.Width = 150; form1.AddNewEvent(btn1,tbeOnClick,'onBtnClick'); form1.Run; }

OlgunAgac Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 25 Mayıs 2024 Konum: Konya Durum: Aktif Değil Puanlar: 125	Mesaj Seçenekleri Yanıt Yaz Alıntı OlgunAgac Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 30 Temmuz 2024 Saat 14:36
	Konum verisi android 14 sürümlü telefonlarda alınamıyor.
	Dünden bugüne süren sonu olmayan yolculuk.