TRESTClient ve TRestRequest işleminin Thread ile kullanılması konusunda

[mdagli2003]

merhaba dostlar,
delphi REST bileşenleri ile bir web sitesinden farklı parametler ile veri almak istiyorum, 
örneğin il il hava durumu olsun, tek değişen il ismi gibi düşünün,
programda il isimleri bir veri tabanından sıra ile alıyorum ve TRestRequest cevap içeriği gelmeden diğeri başlamıyor,
thread işlemi ile birbirinden bağımsız işlem nasıl başlatırım? çünkü siteden geri dönen JSON cevabı her işlemde farklı süreler alıyor, kodu buraya yazmadım çünkü çok karışık,
istiyorum ki, db den aldığım il isimi ile TRestRequest işlemi başlasın, her işlem kendi işi bitince kapansın,
bu konuda nasıl bir yol izlemeliyim? bunun için hangi kaynağa bakabilirim?
teşekkürler.

[barutali]

(06-11-2021, Saat: 16:04)mdagli2003 Adlı Kullanıcıdan Alıntı: merhaba dostlar,
delphi REST bileşenleri ile bir web sitesinden farklı parametler ile veri almak istiyorum, 
örneğin il il hava durumu olsun, tek değişen il ismi gibi düşünün,
programda il isimleri bir veri tabanından sıra ile alıyorum ve TRestRequest cevap içeriği gelmeden diğeri başlamıyor,
thread işlemi ile birbirinden bağımsız işlem nasıl başlatırım? çünkü siteden geri dönen JSON cevabı her işlemde farklı süreler alıyor, kodu buraya yazmadım çünkü çok karışık,
istiyorum ki, db den aldığım il isimi ile TRestRequest işlemi başlasın, her işlem kendi işi bitince kapansın,
bu konuda nasıl bir yol izlemeliyim? bunun için hangi kaynağa bakabilirim?
teşekkürler.

Execute yerine ExecuteAsync kullanabilirsiniz.

  RESTRequest.ExecuteAsync(procedure
  begin
   kodu        := DataSet.FieldByName('kod').AsInteger;
   sonuc       := DataSet.FieldByName('sonuc').AsString;
   teknikBilgi := DataSet.FieldByName('teknikbilgi').AsString;

   case RestResponse.StatusCode of
    200 :
    begin
     progressGoster();
     msjOlustur(sonuc, TEnumMesaj.Bilgi);
    end;

    400, 401 :
    begin
     msjOlustur(sonuc + sLineBreak +
                'Teknik Bilgi :' + sLineBreak + teknikBilgi,
                TEnumMesaj.Hata
                );
    end;
   end;
  end, True, True,
  procedure(AObject : TObject)
  begin
   progressGoster();
   kodu := 2;
   msjOlustur('İşleme devam ederken hata oluştu!' + sLineBreak +
              'Teknik Bilgi :' + sLineBreak +
              ERESTException(AObject).Message,
              TEnumMesaj.Hata
              );
  end
  );

[mdagli2003]

teşekkürler üstad