//İ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;

}