API endpointi ve Body hatalı. Gemini API ı hakkında bilgi almak için https://aistudio.google.com/ adresini inceleyebilirsin.

İyi çalışmalar dilerim.

var

  Form1: TclForm; 

  clRest: TCLRest;

  Button1: TCLButton;

  InputText: TCLEdit;  // User input for the query

  OutputLabel: TCLLabel;  // To display the response from Gemini

  RequestBody: string;  // Request body (query)

  ResponseBody: string;  // Response from Gemini API

// Function to send the request to Gemini and display the response

void GetGeminiResponse;

{

  // Get the user's query from the input field

  RequestBody = '{"query":"' + InputText.Text + '"}';

  // Set up the clRest component for the POST request

  clRest.BaseURL = 'https://gemini.api.endpoint/v1/query';  // Replace with the Gemini API endpoint

  clRest.Accept = 'application/json';  // Expect a JSON response

  clRest.Method = rmPOST;  // Use POST method to send data

  clRest.AddHeader('Authorization', 'Bearer AIzaSyDut9bAFq5jPRLpR2Mg9XEg5uwZI-ixtf4');  // Replace with your actual API key

  clRest.AddBody(RequestBody, 'application/json');  // Attach the query in the request body

  // Execute the request

  clRest.Execute;

  // Get the response and display it in the label

  ResponseBody = clRest.Response;

  OutputLabel.Caption = 'Gemini Response: ' + ResponseBody;

}

{

  // Create the form and components

  Form1 = TclForm.Create(Self);

  

  // Create a text input field for the user's query

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

  InputText.Width = 300;

  InputText.Height = 50;

  InputText.Align = alTop;

  // Create a label to display the response from Gemini

  OutputLabel = Form1.AddNewLabel(Form1, 'OutputLabel', 'The response will appear here.');

  OutputLabel.Width = 300;

  OutputLabel.Height = 100;

  OutputLabel.Align = alClient;

  // Create a button to trigger the request

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

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

  Button1.Align = alBottom;

  // Create the REST client for Gemini API interaction

  clRest = TCLRest.Create;

  // Run the form

  Form1.Run;

}

şu şekilde denedim ama gelen cevap boş çıkmakta nasıl yapabilirim

TclOpenAIEngine ile OpenAI firmasına ait GPT modellerini kullanabilirsin. Gemini modelleri için uygun değildir.

İyi çalışmalar dilerim.

var

  Form1: TclForm;

  OpenAIEngine1: TclOpenAIEngine;

  Button1: TCLButton;

  InputText: TCLEdit;  // Kullanıcının sorusunu gireceği kutu

  OutputLabel: TCLLabel;  // Yanıtı göstereceğimiz etiket

  RequestBody: string;

// Gemini API'ye istek göndermek için kullanılacak metot

void GetGeminiResponse;

{

  // Kullanıcının sorusunu al

  RequestBody = '{"query":"' + InputText.Text + '"}';

  // OpenAIEngine1'i yapılandırma

  OpenAIEngine1.SetToken('Gemini API'si); // Gemini API anahtarınızı buraya ekleyin

  // ParentForm özelliğini ayarla

  OpenAIEngine1.ParentForm = Form1;  // Form1'e bağla

  // API'ye sorguyu gönder

  OpenAIEngine1.SendAIMessage(RequestBody);

  // Yanıtı al

  OutputLabel.Caption = 'Gemini Yanıtı: ' + OpenAIEngine1.NewMessageContent;

}

{

  // Form ve bileşenleri oluştur

  Form1 = TclForm.Create(Self);

  // Kullanıcının sorusunu yazacağı metin kutusu

  InputText = Form1.AddNewEdit(Form1, 'InputText', 'Soru yazın...');

  InputText.Width = 300;

  InputText.Height = 50;

  InputText.Align = alTop;

  // Yanıtı gösterecek etiket

  OutputLabel = Form1.AddNewLabel(Form1, 'OutputLabel', 'Yanıt burada görünecek');

  OutputLabel.Width = 300;

  OutputLabel.Height = 100;

  OutputLabel.Align = alClient;

  // Buton oluştur

  Button1 = Form1.AddNewButton(Form1, 'Button1', 'Soru Gönder');

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

  Button1.Align = alBottom;

  // OpenAIEngine1'i oluştur

  OpenAIEngine1 = TclOpenAIEngine.Create(Self);

  // Formu başlat

  Form1.Run;

}

kodu bu şekilde yazdım ama şu şekilde 

bana cevap getirdi nasıl çözebilirim ilgilendiğiniz için teşekürler