[DELPHI] Caracteres Especiais JSON Get com INDY

18/01/2019

Estou utilizando o Indy 10 para fazer a leitura de um JSON e armazenando ele em uma vari�vel String.
No JSON vem com uns caracteres especiais, ao tratar eles para UTF-8 alguns s�o corrigidos por�m tem outros que eu n�o consigo converter?

Algu�m tem alguma ideia de como fazer para tratar?

Segue c�digo

IdHTTP1.Create(nil);
IdHTTP1.Request.CustomHeaders.Add('Authorization: ' + Q_Parceirocctokenparce.AsString).ToString;
IdHTTP1.Request.ContentType := 'application/json';
json:= UTF8ToString(IdHTTP1.Get(Q_Linkscurllinlink.AsString));

No exemplo do C�digo ele me retorna "Código" e tratado ele fica "C�digo", por�m a cidade AVAR� me apresenta "AVAR�?".

D�verson Rando

Curtir t�pico + 0

Responder

Posts

18/01/2019

Fabricio Kawata

Ol� D�verson! Supondo que o conte�do do JSON que voc� est� lendo esteja codificado para UTF-8, ao inv�s de usar o m�todo UTF8ToString, tente usar o UTF8Decode.

Abra�o!

Responder

Gostei + 0

18/01/2019

D�verson Rando

Ol� D�verson! Supondo que o conte�do do JSON que voc� est� lendo esteja codificado para UTF-8, ao inv�s de usar o m�todo UTF8ToString, tente usar o UTF8Decode.

Abra�o!

Boa Tarde Fabricio,

Segue o mesmo problema, Estou utilizando Delphi XE7 e o banco de dados PostgresSQL.
De acordo com o fornecedor da API o charset deles j� � UTF8.

Segue trecho do c�digo e resultado.

IdHTTP1.Create(nil);
TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IdHTTP1.HandleRedirects := True;
IdHTTP1.Request.ContentType := 'text/html';
IdHTTP1.Request.CharSet := 'UTF-8';
IdHTTP1.Request.CustomHeaders.Add('Authorization: ' + token).ToString;
IdHTTP1.Request.ContentType := 'application/json';
json:= IdHTTP1.Get(url+url_comp+filtro);
Memo_Json.Text := UTF8Decode(json);

Trecho do JSON

[{"cont_id":879,"cont_tipo":2,"cont_pessoa":1,"cont_nome_fantasia":"C�digo 440 - NF. FULL"}]
[{"cont_cidade":"AVAR�?","cont_estado":"SP"}]

Responder

Gostei + 0