consultar a API ChatGPT con REST en C++ Builder Rad Studio 12

[navbuoy]

Buenos dias a todos

me gustaria si alguien me pudiese ayudar en este asunto que me trae de cabeza ya

Estoy intentando hacer una consulta a CHATGPT mediante los componentes RESTClient RESTRequest y RESTResponse de C++ Builder Rad Studio 12
tengo esta funcion y aunque lo he intentado de multiples maneras, siempre me tira este error que lo que deduzco es que no logra autentificarse bien en el API de entrada

{"error":{"message":"You didn't provide an API key. You need to provide your API key in an Authorization header using Bearer auth (i.e. Authorization: Bearer YOUR_KEY), or as the password field (with blank username) if you're accessing the API from your browser and are prompted for a username and password. You can obtain an API key from https:\/\/platform.openai.com\/account\/api-keys.","type":"invalid_request_error","param":null,"code":null}}

y el codigo fuente en C++ Builder que estoy usando con esos componentes REST es este:
he de aclarar que el codigo compila sin errores ninguno y funciona y en la ejecucion es cuando falla al intentar la Authorization

// Set REST Client

 Memo1->Clear();

 RESTClient1->BaseURL = "https://api.openai.com/v1/chat/completions";

RESTClient1->Params->AddHeader( "content", "Content-Type: application/json");
  RESTClient1->Params->AddHeader( "Authorization",   "Authorization: Bearer AQUI_PONGO_EL_API_KEY_QUE_TENGO_CREADO");


 // Set REST Request
 RESTRequest1->Method   = TRESTRequestMethod::rmPOST;
 RESTRequest1->Response = RESTResponse1;
 RESTRequest1->Response->ContentType = "application/json";
 RESTRequest1->Response->ContentEncoding="UTF-8";

 RESTRequest1->ClearBody();
 RESTRequest1->Body->Add("{ \"prompt\": \"it was a rainy day for\",   \"max_tokens\": 150 }", Rest::Types::TRESTContentType::ctNotLeadChar);
 RESTRequest1->Execute();

 // Get REST Response
 TJSONValue *jValue = RESTResponse1->JSONValue;

 // Print REST Response
 Memo1->Lines->Add(jValue->ToString());

he probado incluso a meter los Params de RESTClient de forma manual desde el IDE y en la propiedad Kind he probado con varios tipos "pkCOOKIE, pkHTTPSHEADERS, pkGetorPost, pkQUERY etc" y no parece ir ninguna aunque creo que la correcta es pkHTTPSHEADERS

si alguien me pudiese ayudar lo agradeceria enormemente

[Neftali [Germán.Estévez]]

¿Has probado con el RESTDebugger o con PostMan/Insomnia?

[Neftali [Germán.Estévez]]

Prueba a añadir el parámetro de esta manera:

Código Delphi [-]
RESTRequest1.AddParameter('Authorization','Bearer ' + 'MY-API-KAY',TRESTRequestParameterKind.pkHTTPHEADER,[poDoNotEncode]);

[navbuoy]

pues no Neftali, no tengo esos programas, intente bajarme el REST Debugger pero estos tios de Embarcadero tienen un formulario enorme pa esa jodida descarga y la verdad que ni lo rellene

tampoco funciona el codigo ese, lo acepta y compila asi como lo he adaptado, no lo he metido como me has puesto porque el parametro PoDoNotEncode no lo acepta
lo he adaptado a C++ builder de esta manera pero me sigue dando el error de "Unauthorized" diciendo que no le estoy dando la API KEY

 
  RESTRequest1->AddParameter("Authorization","Authorization: Bearer API_KEY", pkHTTPHEADER);
  RESTRequest1->AddParameter( "Content-Type", "application/json");

he probado tambien asi:

 
  RESTRequest1->AddParameter("Authorization","Bearer API_KEY", pkHTTPHEADER);
  RESTRequest1->AddParameter( "Content-Type", "application/json");

los tios de TMS componentes tienen un componente para eso segun este codigo, se llama TMSCloudBase o algo asi pero no se donde esta, tengo los UI Pack pero no lo veo que lo tenga en la paleta

el codigo que ellos dan para lo de CHAT GPT con su componente es este:

uses  
  System.JSON, VCL.TMSFNCCloudBase;  
  
function AskChatGPT(AQuestion: string): string;  
var  
  LCb: TTMSFNCCloudBase;  
  LPostdata: string;  
  LJsonValue: TJsonValue;  
  LJsonArray: TJsonArray;  
  LJSonString: TJsonString;  
begin  
  Result := '';  
  
  LPostData := '{' +  
    '"model": "text-davinci-003",'+  
    '"prompt": "' + AQuestion + '",'+  
    '"max_tokens": 2048,'+  
    '"temperature": 0'+  
    '}';  
  
  // create instance of TMS FNC Cloud Base class  
  LCb := TTMSFNCCloudBase.Create;  
  
  try  
    // Use JSON for the REST API calls and set API KEY via Authorization header  
    LCb.Request.AddHeader('Authorization','Bearer ' + CHATGPT_APIKEY);  
    LCb.Request.AddHeader('Content-Type','application/json');  
  
    // Select HTTPS POST method, set POST data and specify endpoint URL  
    LCb.Request.Method := rmPOST;  
    LCb.Request.PostData := LPostData;  
    LCb.Request.Host := 'http__s://api.openai.com';  
    LCb.Request.Path := 'v1/completions';  
  
    // Execute the HTTPS POST request synchronously (last param Async = false)  
    LCb.ExecuteRequest(nil,nil,false);  
  
    // Process returned JSON when request was successful   
    if Lcb.RequestResult.Success then  
    begin  
      LJsonValue := TJSonObject.ParseJSONValue(Lcb.RequestResult.ResultString);  
      LJsonValue := LJsonValue.GetValue<TJSonValue>('choices');  
      if LJsonValue is TJSonArray then  
      begin  
        LJSonArray := LJsonValue as TJSonArray;  
        LJSonString := LJSonArray.Items[0].GetValue<TJSONString>('text');  
        Result := LJSonString.Value;  
      end  
      else  
    end  
    else  
      raise Exception.Create('HTTP response code: ' + LCb.RequestResult.ResponseCode.ToString);  
  finally  
    LCb.Free;  
  end;  
end;

[Neftali [Germán.Estévez]]

Empezado por navbuoy

pues no Neftali, no tengo esos programas, intente bajarme el REST Debugger pero estos tios de Embarcadero tienen un formulario enorme pa esa jodida descarga y la verdad que ni lo rellene

Sólo como información, el RESTDebugger viene con Delphi (en el directorio bin), al menos con la versión que yo tengo.
Revisalo, tal vez con las básicas o la community no viene, esto ya no lo puedo asegurar.

A mi, esta me funciona en RADStudio 12:

Código Delphi [-]
RESTRequest1.AddParameter('Authorization','Bearer ' + 'MY-API-KAY',TRESTRequestParameterKind.pkHTTPHEADER,[poDoNotEncode]);

Lo que pasa que en mi caso, me dice que ya he excedido la cuota, pero creo que si llega a ese punto es que ya ha pasado la autentificación.

[navbuoy]

podrias darmela en formato C++ Builder?? yo es que pascal no lo controlo muy bien, se sustituir los . por -> y las comillas simples por dobles pero no mucho mas
y creo que si le meto los 4 parametros el de DoNotEncode dice que no corresponde con la estructura de la funcion

me molesta que no funcione porque este codigo PHP lo tengo en mi hosting y funciona perfecto con mi api key y tal para consultar CHATGPT desde la pagina web
pero aunque miro que lo envio con el Method POST y como lo compone el codigo este de PHP, no se lo traga no se porque

mira, el codigo php es este y te aseguro que funciona perfecto ya luego en la app C++ Builder mirare como componer el prompt bien pero la cuestion es que no pasa el Login del Authorization

<?php
if ($_SERVER['REQUEST_METHOD'] === 'POST') {
    // Verificar si se recibió la pregunta del chat
    if (isset($_POST['mensaje'])) {
        // Obtener la pregunta del chat
        $pregunta = $_POST['mensaje'];

        $api_key = "AQUI PONGO MI API KEY SOLAMENTE sk-taltal";

        $ch = curl_init();
        curl_setopt($ch, CURLOPT_URL, 'http__s://api.openai.com/v1/chat/completions');
        curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
        curl_setopt($ch, CURLOPT_CUSTOMREQUEST, 'POST');
        curl_setopt($ch, CURLOPT_HTTPHEADER, [
            'Content-Type: application/json',
            'Authorization: Bearer ' . $api_key,
        ]);

        $data = [
            'model' => 'gpt-3.5-turbo',
            'messages' => [],
        ];

        $data['messages'][] = ['role' => 'system', 'content' => 'Actua como un experto '];
        $data['messages'][] = ['role' => 'user', 'content' => $pregunta];

        curl_setopt($ch, CURLOPT_POSTFIELDS, json_encode($data));


        $response = curl_exec($ch);
        $respuesta = '';
        $decoded_response = json_decode($response, true);

        if (isset($decoded_response['choices'][0]['message']['content'])) {
            $respuesta = $decoded_response['choices'][0]['message']['content'];
        }

        curl_close($ch);

        echo $respuesta;
    }
}

Neftali: una cosa que podria servirme es si con esa funcion solo hago un echo en PHP para mostrar la respuesta, pudiese capturar esa respuesta por ejemplo con un componente NetHTTPClient..... tu sabrias darme algo de codigo para capturar esa respuesta haciendo un GET desde NetHTTPClient?? porque eso podria valerme de modo chapucero claro