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

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

İ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" rel="nofollow - 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

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

İyi çalışmalar dilerim.