TclStringList : Merhaba Yaşar,{"error...

Wed, 27 Nov 2024 14:36:59 +0000

Yazar: Kemal
Konu: 969
G�nderim Zaman�: 27 Kas�m 2024 Saat 14:36

Merhaba Ya�ar,

{"error":{"code":400,"message":"API key not valid. Please pass a valid API key.","status":"INVALID_ARGUMENT","details":[{"@type":"type.googleapis.com\/google.rpc.ErrorInfo","reason":"API_KEY_INVALID","domain":"googleapis.com","metadata":{"service":"generativelanguage.googleapis.com"}},{"@type":"type.googleapis.com\/google.rpc.LocalizedMessage","locale":"en-US","message":"API key not valid. Please pass a valid API key."}]}}

Kodu �al��t�rd��mda d�nen yan�t bu oldu�u i�in �rnek olarak bunu par�alamas�n� g�sterece�im.

void BtnOnClick;

{

try

// clRest bile�eni (API ba�lant�s� i�in) olu�turuluyor

clRest = TCLRest.Create;

// 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=My API'; // Ger�ek API endpointini kullan�n

clRest.Accept = 'application/json';

clRest.Method = rmPOST;

clRest.AddHeader( 'Content-Type',' application/json');

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

JSONObject = Clomosy.ClDataSetFromJSON(clRest.Response)

ShowMessage(clRest.Response);

ShowMessage(JSONObject.FieldByName('error').AsString);

JSONObject = Clomosy.ClDataSetFromJSON(JSONObject.FieldByName('error').AsString);

ShowMessage(JSONObject.FieldByName('details').AsString);

ResponseMemo.Lines.Add('Gemini Yan�t�: ' + JSONObject.FieldByName('details').AsString);

InputText.Text = '';

}

else

{

// Yan�t al�namazsa hata mesaj� veriyoruz

ResponseMemo.Lines.Add('API iste�i ba�ar�s�z oldu.');

}

finally

clRest.Free;

}

TCLJSONQuery nesnesini kullanarak FieldbyName ile istenilen dataya ula�abilirsiniz.

TclStringList : var Form1 : TclForm; InputText...

Wed, 27 Nov 2024 11:55:46 +0000

Yazar: yasar
Konu: 969
G�nderim Zaman�: 27 Kas�m 2024 Saat 11:55

var

Form1 : TclForm;

InputText : TclProEdit;

ResponseMemo : TclMemo;

Button1 : TclButton;

clRest : TCLRest;

ResponseBody2:tstringlist;

RequestBody, ResponseBody : string;

void BtnOnClick;

{

try

// clRest bile�eni (API ba�lant�s� i�in) olu�turuluyor

clRest = TCLRest.Create;

// Kullan�c�dan al�nan metni JSON format�nda API'ye g�nderilecek hale getiriyoruz

/* RequestBody = '{"contents":{"parts":{"text":"' + InputText.Text + '"}}"}';*/

// clRest bile�eni ile API ba�lant�s� kuruyoruz

clRest.BaseURL = 'https://generativelanguage.googleapis.com/v1beta/models/gemini-1.5-flash-latest:generateContent?key=My API'; // Ger�ek API endpointini kullan�n

clRest.Accept = 'application/json';

clRest.Method = rmPOST;

clRest.AddHeader( 'Content-Type',' application/json');

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;

ResponseBody2= Clomosy.StringListNew;

ResponseBody2.Delimiter = '"';

ResponseBody2.DelimitedText = ResponseBody;

ResponseBody=Clomosy.StringListItemString(ResponseBody2,10);//0. eleman� getirir

ShowMessage(ResponseBody);

ResponseMemo.Lines.Add('Gemini Yan�t�: ' + ResponseBody);

InputText.Text = '';

}

else

{

// Yan�t al�namazsa hata mesaj� veriyoruz

ResponseMemo.Lines.Add('API iste�i ba�ar�s�z oldu.');

}

finally

clRest.Free;

}

{

// 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;

// Form �al��t�r�l�yor

Form1.Run;

}

yukardaki koda yapmak istedi�im yapay zekadan gelen de�erin par�alay�p cevap yazan yeri getirmek istedim yapay zekadan gelen de�er

Gemini Yan�t�: {"candidates":[{"content":{"parts":[{"text":"Merhaba! Nas�l yard�mc� olabilirim?\n"}],"role":"model"},"finishReason":"STOP","avgLogprobs":-0.018644950606606224}],"usageMetadata":{"promptTokenCount":3,"candidatesTokenCount":11,"totalTokenCount":14},"modelVersion":"gemini-1.5-flash-latest"}

bu �ekilde gelemkte �ift t�rna�a g�re b�lmek istedim ancak sadece nas�l yaz�s�n� yazmakta nas�l yapabilirim

Clomosy | Forum : TclStringList

TclStringList : Merhaba Yaşar,{"error...

TclStringList : var Form1 : TclForm; InputText...