API işlemlerini çok daha rahat yapabilmen için TclRest kullanmanı öneririm.

https://www.docs.clomosy.com/TclRest ;

bu bağlantıdan detaylı bilgiye ulaşabilirsin.

Örnek olması adına Rest ile yapay zeka API'sı kullanılan bir uygulamayı da ekliyorum. İncelersen faydalı olacaktır. 

Umarım yardımcı olur. İyi çalışmalar :).

var

 MyForm:TCLForm;

 edtUrl : TclEdit;

 memoBody, memoResult : TclMemo;

 postBtn, getBtn: TclButton;

 MyHttp : TclHttp;

 str : TclStringList;

 

void getClick;

{

  memoResult.Text = MyHttp.GetRequest(edtUrl.text);

}

void postClick;

{

 str = Clomosy.StringListNew;

 str.Add(memoBody.Text);

 memoResult.Text = MyHttp.PostRequest(edtUrl.Text, str);

}

{

  MyForm = TCLForm.Create(Self);

  

  edtUrl = MyForm.AddNewEdit(MyForm,'edtUrl','Write Http Url');

  edtUrl.Align = alMostTop;

  edtUrl.Text = 'https://hasanadiguzel.com.tr/api/kurgetir';

  

  memoBody = MyForm.AddNewMemo(MyForm,'memoBody', '');

  memoBody.Align = alTop;

  

  memoResult = MyForm.AddNewMemo(MyForm,'memoResult','');

  memoResult.TextSettings.WordWrap = True;

  memoResult.Align = alBottom;

  memoResult.Height = 350;

  

  postBtn = MyForm.AddNewButton(MyForm,'postBtn','Post');

  postBtn.Align = AlTop;

  MyForm.AddNewEvent(postBtn,tbeOnClick,'postClick');

  

  getBtn = MyForm.AddNewButton(MyForm,'getBtn','Get');

  getBtn.Align = AlTop;

  MyForm.AddNewEvent(getBtn,tbeOnClick,'getClick');

  

  MyHttp = TclHttp.Create(Nil);

  MyForm.Run;

}

kodlarını paylaşabilir misin acaba?