Tclrest hatası


   
bu hatayı alıyorum sebebi nedir? 

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

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Selhack Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Mayıs 2024 Durum: Aktif Değil Puanlar: 3	Mesaj Seçenekleri Yanıt Yaz Alıntı Selhack Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Tclrest hatası Gönderim Zamanı: 17 Haziran 2024 Saat 23:29
	bu hatayı alıyorum sebebi nedir? //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; end; 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;

Selhack Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Mayıs 2024 Durum: Aktif Değil Puanlar: 3	Mesaj Seçenekleri Yanıt Yaz Alıntı Selhack Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 17 Haziran 2024 Saat 23:30
	-------------------------------------------------------------------- Unknown identifier or variable is not declared: 'clRest'. Source position: 119,10 Clomosy Build : 20240527.152928 --------------------------------------------------------------------

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 388	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 24 Haziran 2024 Saat 15:50
	Merhaba var clRest:TclRest; //Buranın devamına değişkenleri tanımlaman gerekiyor.