TCLRest Bağlanma Sorunu

   oid OnGeminiResponse;
{
  try
    metinMemo.Lines.Clear;

    if (RestObj.StatusCode == 200)
    {
      metinMemo.Lines.Add('--- PLAN OLUŞTURULDU ---');
      metinMemo.Lines.Add(RestObj.Response); 
    }
    else
    {
      metinMemo.Lines.Add('Hata Oluştu. Kod: ' + IntToStr(RestObj.ResponseHeaders.Count));
      metinMemo.Lines.Add(RestObj.Response);
    }
  except
    ShowMessage('Bir hata oluştu: ' + LastExceptionMessage);
  }
}

void PlanOlustur;
var
  Url, Prompt,CleanPrompt JsonBody: String;
{
  if ((SecilenKita <> '') && (SecilenGun <> '')) 
  {
    metinMemo.Lines.Clear;
    metinMemo.Lines.Add(SecilenKita + ' bölgesi için ' + SecilenGun + ' süreli plan hazırlanıyor...');
    metinMemo.Lines.Add('Lütfen bekleyin...');

    Prompt = 'Bana ' + SecilenKita + ' bölgesinde, ' + SecilenGun + ' sürecek, gün gün ayrılmış, detaylı ve Türkçe bir gezi rehberi oluştur. Maddeler halinde olsun.';

    RestObj.BaseURL = 'https://generativelanguage.googleapis.com/v1/models/gemini-1.5-flash:generateContent?key=' + Google_API_Key;

    RestObj.Method = rmPost;
    RestObj.ContentType = 'application/json';
    RestObj.AddBody('{"contents": [{"parts": [{"text": "' + Prompt + '"}]}]}','application/json' );

    RestObj.Execute;
  }
}

  Google_API_Key = 'apikeyBuKısımda'; 

  RestObj = TclRest.Create;
  RestObj.OnCompleted = 'OnGeminiResponse'; 

Gemini' a bağlanmak istiyorum ancak yukarıdaki kod çalışmıyor. Hata ile ilgili yardım edebilir misiniz?
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
sumeyyesoy Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 09 Şubat 2026 Konum: Konya Durum: Aktif Değil Puanlar: 53	Mesaj Seçenekleri Yanıt Yaz Alıntı sumeyyesoy Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: TCLRest Bağlanma Sorunu Gönderim Zamanı: 4 Saat 52 Dakika Önce Saat 09:35
	oid OnGeminiResponse; { try metinMemo.Lines.Clear; if (RestObj.StatusCode == 200) { metinMemo.Lines.Add('--- PLAN OLUŞTURULDU ---'); metinMemo.Lines.Add(RestObj.Response); } else { metinMemo.Lines.Add('Hata Oluştu. Kod: ' + IntToStr(RestObj.ResponseHeaders.Count)); metinMemo.Lines.Add(RestObj.Response); } except ShowMessage('Bir hata oluştu: ' + LastExceptionMessage); } } void PlanOlustur; var Url, Prompt,CleanPrompt JsonBody: String; { if ((SecilenKita <> '') && (SecilenGun <> '')) { metinMemo.Lines.Clear; metinMemo.Lines.Add(SecilenKita + ' bölgesi için ' + SecilenGun + ' süreli plan hazırlanıyor...'); metinMemo.Lines.Add('Lütfen bekleyin...'); Prompt = 'Bana ' + SecilenKita + ' bölgesinde, ' + SecilenGun + ' sürecek, gün gün ayrılmış, detaylı ve Türkçe bir gezi rehberi oluştur. Maddeler halinde olsun.'; RestObj.BaseURL = 'https://generativelanguage.googleapis.com/v1/models/gemini-1.5-flash:generateContent?key=' + Google_API_Key; RestObj.Method = rmPost; RestObj.ContentType = 'application/json'; RestObj.AddBody('{"contents": [{"parts": [{"text": "' + Prompt + '"}]}]}','application/json' ); RestObj.Execute; } } Google_API_Key = 'apikeyBuKısımda'; RestObj = TclRest.Create; RestObj.OnCompleted = 'OnGeminiResponse'; Gemini' a bağlanmak istiyorum ancak yukarıdaki kod çalışmıyor. Hata ile ilgili yardım edebilir misiniz? https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 635	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 3 Saat 58 Dakika Önce Saat 10:29
	Merhaba Sümeyye, Gelen hata nedir benimle paylaşabilir misin? AddBody kısmında JSON oluştururken, eğer Prompt değişkeni içinde enter karakteri veya tırnak işareti varsa JSON bozulur ve API hata verebilir Tam görebilmek için kodu atabilir misinhttps://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

M-Guney Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Eylül 2025 Konum: Konya, Meram, K Durum: Aktif Puanlar: 183	Mesaj Seçenekleri Yanıt Yaz Alıntı M-Guney Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 3 Saat 54 Dakika Önce Saat 10:33
	GOOGLE AI Studio'dan alınmış API keyine atanmış modeller https://generativelanguage.googleapis.com/v1/models?key=YOUR_API_KEY kullanılarak test edilmiş ve 1.5 gemini flash modelini kapsamadığı tespit edilmiştir. ve bunun ardından https://generativelanguage.googleapis.com/v1beta/models/gemini-2.5-flash:generateContent?key=YOUR_API_KEY ile değiştirilerek problem giderilmiştir.https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 635	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 3 Saat 47 Dakika Önce Saat 10:40
	var MyForm : TCLForm; metinMemo : TclMemo; btnGonder : TclProButton; RestObj : TclRest; Google_API_Key : String; SecilenKita, SecilenGun : String; void OnGeminiResponse; { try if (RestObj.StatusCode == 200) { metinMemo.Lines.Add('--- BAŞARILI ---'); metinMemo.Lines.Add(RestObj.Response); } else { metinMemo.Lines.Add(' HATA'); metinMemo.Lines.Add('Kod: ' + IntToStr(RestObj.StatusCode)); metinMemo.Lines.Add('Cevap: ' + RestObj.Response); } except ShowMessage('Cevap işlenirken hata oluştu: ' + LastExceptionMessage); } } void PlanOlustur; var Prompt, JsonBody : String; { SecilenKita = 'Avrupa'; SecilenGun = '3 gün'; if ((SecilenKita <> '') && (SecilenGun <> '')) { metinMemo.Lines.Clear; metinMemo.Lines.Add('Gemini sunucusuna bağlanılıyor...'); Prompt = 'Bana ' + SecilenKita + ' bölgesinde, ' + SecilenGun + ' sürecek bir gezi planı yap.'; RestObj.BaseURL = 'https://generativelanguage.googleapis.com/v1beta/models/gemini-1.5-flash:generateContent?key=' + Google_API_Key; RestObj.Method = rmPost; JsonBody = '{ "contents": [{ "parts": [{"text": "' + Prompt + '"}] }] }'; RestObj.AddBody(JsonBody, 'application/json'); RestObj.Execute; } else { ShowMessage('Lütfen kıta ve gün bilgilerini kontrol edin.'); } } { MyForm = TCLForm.Create(Self); Google_API_Key = 'BURAYA_API_KEY_YAZIN'; metinMemo = MyForm.AddNewMemo(MyForm, 'metinMemo', ''); metinMemo.Align = alClient; btnGonder = MyForm.AddNewProButton(MyForm, 'btnGonder', 'PLAN OLUŞTUR'); btnGonder.Align = alTop; btnGonder.Height = 60; btnGonder.Margins.Bottom = 10; MyForm.AddNewEvent(btnGonder, tbeOnClick, 'PlanOlustur'); RestObj = TclRest.Create; RestObj.OnCompleted = 'OnGeminiResponse'; MyForm.Run; } Kodu inceleyebilir misin? Örnek olarak yazdım https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

sumeyyesoy Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 09 Şubat 2026 Konum: Konya Durum: Aktif Değil Puanlar: 53	Mesaj Seçenekleri Yanıt Yaz Alıntı sumeyyesoy Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 35 Dakika Önce Saat 11:52
	Gemini API' sini destekleyen sürümün 2.5 olduğu için kod hatası aldığımı fark ettim. "RestObj.BaseURL = 'https://generativelanguage.googleapis.com/v1beta/models/gemini-2.5-flash:generateContent?key=' + Google_API_Key;"https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous"> ekleyerek kodu çalıştırabildim. Eklediğiniz kodu da projeye ekleyerek deneyeceğim. Teşekkürler.