API Rest Delphi

[johnbh3]

Ola
Boa noite 
Pessoal 

Abri o rest debugger
Usei o verbo GET para esta URL - https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json

Observe que o retorno e com acentuação sem problemas com UTF-8

 

Copio os componentes 

 

Meu retorno vem com acentuação desconfigurada

 

 

Usei o seguinte codigo simples
   RESTRequest1.Execute;
   Memo1.Text:=RESTResponse1.JSONValue.ToJSON;

Ja mechi em proprietades seitei utf-8 nada funciona

O que achei foi esta função 

function DecodeUnicodeEscapes(EscapedString: String): String;
var
  FoundPos: LongInt;
  HexCode: String;
  DecodedChars: String;
begin
  Result := EscapedString;
  FoundPos := Pos('\u', Result);
  while (FoundPos <> 0) and (FoundPos < Length(Result) - 4) do begin
    HexCode :=  Copy(Result, FoundPos + 2, 4);
    DecodedChars := WideChar(StrToInt('$' + HexCode));
    Result := AnsiReplaceStr(Result, '\u' + HexCode,
                             UTF8Encode(DecodedChars));
    FoundPos := Pos('\u', Result);
  end;
end;

 

E usei ela

   RESTRequest1.Execute;
   Memo1.Text:=DecodeUnicodeEscapes(RESTResponse1.JSONValue.ToJSON);

Até funcionou, só não se isto e o correto e porque no restDebuuger veio tão simples sem fazer nada adicional

[datilas]

Em 01/08/2019 at 22:42, johnbh3 disse:

Ola
Boa noite 
Pessoal 

Abri o rest debugger
Usei o verbo GET para esta URL - https://api.cosmos.bluesoft.com.br/gtins/7891910000197.json

Observe que o retorno e com acentuação sem problemas com UTF-8

 

Copio os componentes 

 

Meu retorno vem com acentuação desconfigurada

 

 

Usei o seguinte codigo simples
   RESTRequest1.Execute;
   Memo1.Text:=RESTResponse1.JSONValue.ToJSON;

Ja mechi em proprietades seitei utf-8 nada funciona

O que achei foi esta função 

function DecodeUnicodeEscapes(EscapedString: String): String;
var
  FoundPos: LongInt;
  HexCode: String;
  DecodedChars: String;
begin
  Result := EscapedString;
  FoundPos := Pos('\u', Result);
  while (FoundPos <> 0) and (FoundPos < Length(Result) - 4) do begin
    HexCode :=  Copy(Result, FoundPos + 2, 4);
    DecodedChars := WideChar(StrToInt('$' + HexCode));
    Result := AnsiReplaceStr(Result, '\u' + HexCode,
                             UTF8Encode(DecodedChars));
    FoundPos := Pos('\u', Result);
  end;
end;

 

E usei ela

   RESTRequest1.Execute;
   Memo1.Text:=DecodeUnicodeEscapes(RESTResponse1.JSONValue.ToJSON);

Até funcionou, só não se isto e o correto e porque no restDebuuger veio tão simples sem fazer nada adicional

tente usar: Memo1.Text := RESTResponse1.JSONText;