[navbuoy]

Me las he ingeniado para crear la funcion que formatea los saltos de linea y las comillas en la respuesta de ChatGPT

Tened en cuenta que esto afecta a cuando nos da codigo fuente de ejemplo porque podria ser que el codigo ponga algo asi como "printf("numero %d\n <---esto!!!", variable);"
y en el mensaje que nos muestra en el RichEdit haria el salto de linea (esta es una particularidad que estoy mirando como hacer para discernir cuando ChatGPT me envia codigo fuente de ejemplo y de esa manera diferenciarlo

pero bueno, os paso el codigo de como ha quedado la funcion que tengo para lo de Consulta a ChatGPT
recordad que el Memo1 es en realidad un TMSRichEdit y el "c+1" que hace con la cadena cuando empieza el bucle, es porque si empezamos por 0 en la posicion del AnsiString da "Range Error"

try
{
  TNetHeaders AuthHeader;
  AuthHeader.Length = 2;
  AuthHeader[0] = TNameValuePair("Authorization", "Bearer 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");
  AuthHeader[1] = TNameValuePair("Content-Type", "application/json");
  TMemoryStream *salida = new TMemoryStream();
  TMemoryStream *entrada = new TMemoryStream();
  TMemo *memo = new TMemo(Form6);
  memo->Parent = Form6;
  memo->Visible = false;
  memo->Lines->Clear();
  String  ASAux = EPregunta->Text;
  char dest[200];
  UnicodeToUtf8(dest, 200, EPregunta->Text.c_str(), 200);
  ASAux = dest;
  //memo->Lines->Add("{\"model\": \"gpt-3.5-turbo\", \"Messages\": \"role\": \"system\" \"content\": \"Actua como un Experto\" \"role\": \"user\" \"content\": \"" + ASAux + "\", \"temperature\": 0, \"max_tokens\": 1000}");
  TJSONObject *inputObject = new TJSONObject();
		inputObject->AddPair("model", "gpt-3.5-turbo");

   // Construir el array de mensajes
		TJSONArray *messagesArray = new TJSONArray();

  TJSONObject *messageObject = new TJSONObject();
			messageObject->AddPair("role", "system");
			messageObject->AddPair("content", "You are a helpful assistant.");
			messageObject->AddPair("role", "user");
			messageObject->AddPair("content", Utf8ToAnsi(EPregunta->Text));

  messagesArray->Add(messageObject);

  // Agregar el array de mensajes al objeto de entrada
		inputObject->AddPair("messages", messagesArray);

  memo->Lines->Add(inputObject->ToString());

  memo->Lines->SaveToStream(salida);
  salida->Position = soFromBeginning;
  NetHTTPC1->Post("https://api.openai.com/v1/chat/completions", salida, entrada, AuthHeader);
  memo->Lines->Clear();
  memo->Lines->LoadFromStream(entrada);
  delete salida;
  delete entrada;
  TJSONObject *o = (TJSONObject*) TJSONObject::ParseJSONValue(TEncoding::ANSI->GetBytes(memo->Lines->Text), 0);


 //Como soy muy ceporro y no me aclaro de como extraer el content de los Json, lo he apañado asi :D
 //////////////////////////////////////////////////////////////////////////////////////////////////
  AnsiString A,B, respuesta;
   int i, f;
   A=memo->Lines->Text;
	i=A.AnsiPos("content");
	B=A.SubString(i+10,A.Length());

	i=B.AnsiPos("}");
	respuesta = B.SubString(0, i-3);

   //////////////////////////////////////////////////////////////////////////////////////////////////////////


//////// Y aqui formateamos la respuesta para hacer que los saltos de linea salgan en el TMSRichEdit
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////

  AnsiString respuesta_formateada = " - ";

  Memo1->AddLineBreak();   Memo1->AddLineBreak();

  Memo1->AddImage("gpt_icon.png" , 40, 40);  //Esto es un iconcito de chatGPT para darle mejor aspecto a lo que imprime



///// Imprimimos la pregunta para saber a que se refiere la respuesta
/////////////////////////////////////////////////////////////////////////////////////////////////////////////

  Memo1->AddText(Utf8ToAnsi(EPregunta->Text), clGreen, clBlack);
  Memo1->AddLineBreak();   Memo1->AddLineBreak();

  for(int c=0; c < respuesta.Length(); ++c)
   {
	 if(respuesta[c+1] == '\\')
	 {
	  if(respuesta[c+2] == 'n' || respuesta[c+2] == 'r' )
	  {
		// Imprimimos el texto precedente y el salto de linea en el RichEdit
		
                Memo1->AddText(Utf8ToAnsi(respuesta_formateada));
		Memo1->AddLineBreak();
		respuesta_formateada = "";
		c = c+3;
	  }

	  if(respuesta[c+2] == '"')
	   {
		respuesta_formateada = respuesta_formateada + respuesta[c+2];
        respuesta_formateada = respuesta_formateada + " ";
		c = c+1;
	   }
	 }


	 else {
			//Seguimos almacenando la respuesta
			respuesta_formateada = respuesta_formateada + respuesta[c+1];
		   }

   }


  //Imprimimos lo restante de la respuesta
  Memo1->AddText(Utf8ToAnsi(respuesta_formateada));


  o->Free();
  memo->Free();
}
catch (...)
{
  ShowMessage("Error accediendo a los servicios IA de HFocused");
}