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

[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

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

Yo estoy igual que tú, pero al revés.
de todas formas la función con los 4 parámetros rtambién está en C++ Builder:
http://docwiki.embarcadero.com/Libra...t.AddParameter

Debería ser algo así:

Código Delphi [-]

RESTRequest1->AddParameter("Authorization","Bearer  " + "API_KEY", pkHTTPHEADER, [poDoNotEncode]);
// o esta, dependiendo de cual te acepte 
// OJO que al final de la palabra bearer hay un espacio, para separarlo del valor de la API_KEY
RESTRequest1->AddParameter("Authorization","Bearer  " + "API_KEY",TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);

[chenech]

Yo uso este actualmente en C++ Builder 11 y funciona bien:
https://www.clubdelphi.com/foros/sho...hlight=chatgpt