TCLREST

var

  Form1 : TclForm;

  InputText : TclProEdit;

  ResponseMemo : TclMemo;

  Button1 : TclButton;

  clRest : TCLRest;

  RequestBody, ResponseBody : string;

void BtnOnClick;

{

  // Kullanıcıdan alınan metni JSON formatında API'ye gönderilecek hale getiriyoruz

 /* RequestBody = '{"contents":{"parts":{"text":"' + InputText.Text + '"}}"}';*/

    RequestBody ='{"contents": { "role": "user","parts":{"text": "'+InputText.Text+'"}},"generationConfig": {"temperature": 1,"topK": 40,"topP": 0.95,"maxOutputTokens": 8192,"responseMimeType": "text/plain"

  }

}'

 

  

  // clRest bileşeni ile API bağlantısı kuruyoruz

  clRest.BaseURL = 'https://generativelanguage.googleapis.com/v1beta/models/gemini-1.5-flash-latest:generateContent?key=AIzaSyDK6otfshbW_JlE6nwTgkx6lwfWpTSej8Y'; // Gerçek API endpointini kullanın

  clRest.Accept = 'application/json';

  clRest.Method = rmPOST;

  clRest.AddHeader('Authorization', 'Bearer AIzaSyDK6otfshbW_JlE6nwTgkx6lwfWpTSej8Y'); 

  clRest.AddBody(RequestBody, 'application/json');

  

  // API isteğini gönderiyoruz

  clRest.Execute;

  

  // Yanıt kontrolü

  if (clRest.Response <> '') 

  {

    // Başarılı bir yanıt aldıysak, yanıtı ResponseMemo'ya ekliyoruz

    ResponseBody = clRest.Response;

    ResponseMemo.Lines.Add('Gemini Yanıtı: ' + ResponseBody);

  }

  else

  {

    // Yanıt alınamazsa hata mesajı veriyoruz

    ResponseMemo.Lines.Add('API isteği başarısız oldu.');

  }

}

{

  // Form ve bileşenleri oluşturuyoruz

  Form1 = TclForm.Create(Self);

  // InputText (kullanıcının metin girdiği alan) oluşturuluyor

  InputText = Form1.AddNewProEdit(Form1, 'InputText', 'Enter your query...');

  InputText.Align = alTop;

  InputText.Height = 45;

  InputText.Margins.Top = 10;

  InputText.Margins.Left = 10;

  InputText.Margins.Right = 10;

  

  // Button1 (API çağrısını tetikleyen buton) oluşturuluyor

  Button1 = Form1.AddNewButton(Form1, 'Button1', 'Send Request');

  Button1.Align = alTop;

  Button1.Margins.Top = 10;

  Form1.AddNewEvent(Button1, tbeOnClick, 'BtnOnClick');

  // ResponseMemo (yanıtı gösterecek alan) oluşturuluyor

  ResponseMemo = Form1.AddNewMemo(Form1, 'ResponseMemo', 'Response will appear here...');

  ResponseMemo.Align = alTop;

  ResponseMemo.Height = 200;

  ResponseMemo.Margins.Top = 10;

  ResponseMemo.ReadOnly = True;

  

  // clRest bileşeni (API bağlantısı için) oluşturuluyor

  clRest = TCLRest.Create;

  

  // Form çalıştırılıyor

  Form1.Run;

}

yukardaki kod da yapay zekaya soru sorup cevap alam işlemi yapmak istedim

bana 

Gemini Yanıtı: {"error":{"code":401,"message":"Request had invalid authentication credentials. Expected OAuth 2 access token, login cookie or other valid authentication credential. See https:\/\/developers.google.com\/identity\/sign-in\/web\/devconsole-project.","status":"UNAUTHENTICATED"}}

böyle bir mesaj yazdırdı nasıl düzelte bilirim 

ilgilendiğiniz için teşekür ederim