Sayfayı Yazdır | Pencereyi Kapat

TCLREST

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=967
Tarih: 01 Ocak 2025 Saat 18:01
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: TCLREST
Mesajı Yazan: yasar
Konu: TCLREST
Mesaj Tarihi: 22 Kasım 2024 Saat 14:24
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" rel="nofollow - 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



Cevaplar:
Mesajı Yazan: BilalCndn
Mesaj Tarihi: 22 Kasım 2024 Saat 17:56
Merhaba Yaşar,

Yaşadığın problem kullanmış olduğun google api servisi ile alakalı. Google dokümanlarını inceleyerek sorununa çözüm bulabilirsin.

İyi çalışmalar dilerim.


-------------
Bilal Candan

Atiker Yazılım Veri İşlem A.Ş.
Software Developer

[email protected]



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net