TClOpenAIEngien Gemini soru sorma ve cevap alam


   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

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
yasar Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Kasım 2024 Durum: Aktif Değil Puanlar: 14	Mesaj Seçenekleri Yanıt Yaz Alıntı yasar Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: TClOpenAIEngien Gemini soru sorma ve cevap alam Gönderim Zamanı: 21 Kasım 2024 Saat 15:32
	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

yasar Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Kasım 2024 Durum: Aktif Değil Puanlar: 14	Mesaj Seçenekleri Yanıt Yaz Alıntı yasar Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 21 Kasım 2024 Saat 15:34


BilalCndn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 09 Ekim 2023 Durum: Aktif Değil Puanlar: 150	Mesaj Seçenekleri Yanıt Yaz Alıntı BilalCndn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 21 Kasım 2024 Saat 15:38
	Merhaba Yaşar, TclOpenAIEngine ile OpenAI firmasına ait GPT modellerini kullanabilirsin. Gemini modelleri için uygun değildir. İyi çalışmalar dilerim.
	Bilal Candan Atiker Yazılım Veri İşlem A.Ş. Software Developer [email protected]

yasar Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Kasım 2024 Durum: Aktif Değil Puanlar: 14	Mesaj Seçenekleri Yanıt Yaz Alıntı yasar Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 21 Kasım 2024 Saat 15:53
	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

BilalCndn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 09 Ekim 2023 Durum: Aktif Değil Puanlar: 150	Mesaj Seçenekleri Yanıt Yaz Alıntı BilalCndn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 21 Kasım 2024 Saat 17:00
	Merhaba Yaşar, API endpointi ve Body hatalı. Gemini API ı hakkında bilgi almak için https://aistudio.google.com/ adresini inceleyebilirsin. İyi çalışmalar dilerim.
	Bilal Candan Atiker Yazılım Veri İşlem A.Ş. Software Developer [email protected]