Clomosy | Forum : Tclrest hatası

//APİ İstek

procedure ApiCommunication;

begin

clRest:=TclRest.Create;

clRest.BaseURL := ApiUrl;

clRest.Accept := 'application/json';

clRest.Method := rmGET;

clRest.Execute;

jsonData :=clRest.Response;

ShowMessage(clRest.Response);

try

qry := TCLJSONQuery.Create(nil);

qry := Clomosy.ClDataSetFromJSON(jsonData);

//ShowMessage(qry.getJSONString);

with qry do

begin

if Found then

begin

First;

while not EOF do

begin

SehirIsmi :=FieldByName('name').AsString;

//Nem:=FieldByName('humidity').AsString;

//Ruzgarhizi:=FieldByName('speed').AsString;

//Sicaklik:=FieldByName('temp').AsString;

ShowMessage(SehirIsmi);

end;

except

ShowMessage('Bulunamadı: '+ 'Lütfen arama kutususunu doğru şekilde doldurun.');

varmi := False;

end;

if varmi then

begin

sonuc := parseJson(clRest.Response, 'main');

ruzgar := parseJson(clRest.Response, 'wind');

Ruzgarhizi :='Rüzgar hızı: ' + (parseJson(ruzgar, 'speed')) + 'km/h';

Sicaklik :='Sıcaklık: ' + (parseJson(sonuc,'temp')) ;

Nem:='Nem: '+ (parseJson(sonuc,'humidity'))+'%';

LblName.Text := SehirIsmi;

LblNem.Text := Nem;

LblSicaklik.Text := Sicaklik;

LblRuzgarHizi.Text := Ruzgarhizi;

end;

else

begin

LblName.Text := 'Bulunamadı';

LblNem.Text := 'Bulunamadı';

LblSicaklik.Text := 'Bulunamadı';

LblRuzgarHizi.Text := 'Bulunamadı';

end;

if test then

begin

SecondContent;

end;

test :=false;

end;