Delphi Berlin에서 UTF-8 문자열 뒤에 백 슬래시와 "\ 0646"이 표시됩니까?

Question

UTF-8 유니 코드 문자열을 올바르게 표시하는 올바른 방법을 알려줄 수 있습니까?

웹 서비스에서 텍스트 문자열을받는 프로 시저를 호출하고 있습니다. 이 절차는 문자열이 완벽하게 수신되면 잘 동작합니다. 문자열이 UTF-8 텍스트가 포함되어 있기 때문에, 그것은

{"displayName":"\u062a\u0637\u0628\u064a\u0640\u0640\u0640\u0642 \u062f\u0639\u0640\u0640\u0640\u0640\u0640\u0627\u0621" 

델파이 베를린 지원해야 UTF-8 ... 번호와 같은 유니 코드 문자를 표시하지만 그렇지 인코딩에 사용할 기능되는 UTF-8과 텍스트 (아랍어 텍스트)를 표시하십시오 !!

Procedure TF_Main.GnipHTTPSTransfer(Sender: TObject; Direction: Integer; BytesTransferred: Int64; PercentDone: Integer; Text: String); 
Begin 
    Inc(Transfer_Count); 
    L_Counter.Caption:=IntToStr(Transfer_Count); 
    write(GNIP_Text_File, Text); 
    M_Memo.Lines.Add(text); 
End; 

Answer 1

문자열은 UTF-8이 아닙니다. UTF-8을 사용하여 HTTP를 통해 전송 된 경우에도 Text 문자열에 더 이상 UTF-8이 아니며 대신 UTF-16 문자열입니다. 그 내용은 JSON 인코딩 된 개체이며, 이스케이프 시퀀스 표기법을 사용하여 인코딩 된 유니 코드 문자를 포함하는 displayName 필드를 포함합니다 (JSON에서 반드시 필요하지는 않지만 그럼에도 불구하고 지원됩니다). 각 \uXXXX은 UTF-16 코드 단위 값 (UTF-16 코드 단위 U+062A ARABIC LETTER TEH, \u0637은 U+0637 ARABIC LETTER TAH 등)의 이스케이프 된 텍스트 표현입니다.

델파이에는 JSON framework이 있으며, 이는 사용자를 위해 이스케이프 시퀀스를 디코딩합니다. 예 :

uses 
    ..., System.JSON; 

procedure TF_Main.GnipHTTPSTransfer(Sender: TObject; Direction: Integer; BytesTransferred: Int64; PercentDone: Integer; Text: String); 
var 
    JsonVal: TJSONValue; 
    JsonObj: TJSONObject; 
begin 
    Inc(Transfer_Count); 
    L_Counter.Caption := IntToStr(Transfer_Count); 
    write(GNIP_Text_File, Text); 
    M_Memo.Lines.Add(Text); 

    JsonVal := TJSONObject.ParseJSONValue(Text); 
    if JsonVal <> nil then 
    try 
    JsonObj := JsonVal as TJSONObject; 
    M_Memo.Lines.Add(JsonObj.Values['displayName'].Value); // تطبيـــق دعـــــاء 
    finally 
    JsonVal.Free; 
    end; 
end;