Ver Mensaje Individual
  #1  
Antiguo Hace 2 Semanas
Nano Ramírez Nano Ramírez is offline
Registrado
 
Registrado: mar 2025
Posts: 9
Reputación: 0
Nano Ramírez Va por buen camino
Uft-8 en TStringStream

Buen día. Tengo el siguiente código en donde recibo los datos pero no los recibo en UTF-8 como le indico, sino en Unicode. Cómo puedo hacer para recibir la codificación correcta?

Código Delphi [-]
try
    response:=TStringStream.Create('',TEncoding.UTF8);
    IdHTTP:=TIdHTTP.Create(nil);
    SSLHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);


    SSLHandler.SSLOptions.Method:=sslvSSLv23;
    SSLHandler.SSLOptions.Mode:=sslmBoth;
    IdHTTP.IOHandler:=SSLHandler;
    IdHTTP.Request.CustomHeaders.Values['Authorization']:='Bearer '+token;
    IdHttp.Request.ContentEncoding:='UTF-8';
    IdHTTP.Request.ContentType:='application/json';
    IdHTTP.Get(url,response);

    //Configurar el response
    if IdHTTP.ResponseCode=200 then begin
      res:=response.DataString;
Responder Con Cita