デルファイXE2：UTF16LE - > UTF8

Question

URL：http://www.gagalive.kr/livechat1.swf?chatroom=~~~BBQ

[1] ------------------------------ -------------------------------------

procedure TForm1.FormCreate(Sender: TObject); 

begin 

IdTCPClient.Host := '61.97.246.131'; 

    IdTCPClient.Port := 8080; 

    IdTCPClient.Connect; 

    IdTCPClient.IOHandler.Write('Ag8m' + Char(0)); 

    IdTCPClient.IOHandler.Write('LShady|###BBQ' + Char(0)); 

    IdTCPClient.IOHandler.Write('#' + 'Some Text' + Char(0)); 

    IdTCPClient.Disconnect; 

end; 

---

[2] -------------------------------------------------- -----------------

function UTF8FromUTF16_2(sUTF16: UnicodeString): UTF8String; 

begin 

    Result := sUTF16; 

end; 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

IdTCPClient.Host := '61.97.246.131'; 

    IdTCPClient.Port := 8080; 

    IdTCPClient.Connect; 

    IdTCPClient.IOHandler.Write('Ag8m' + Char(0)); 

    IdTCPClient.IOHandler.Write('LShady|###BBQ' + Char(0)); 

    IdTCPClient.IOHandler.Write(UTF8FromUTF16_2('#' + '안녕' + Char(0))); 

    IdTCPClient.Disconnect; 

end; 

---

[1]：作業

[2]：機能していない（文字列壊れ>シェイディ：??）

参照：http://www.gagalive.kr/livechat1.swf?chatroom=~~~BBQ

UTF8FromUTF16機能オリジナルVBコード：VB 6.0 -> Delphi XE2 Conversion

私を助けて.. :(

Answer 1

文字列はXE2でUTF-16でエンコードされています。 ＃2は、UnicodeStringが期待されるUTF8Stringを渡しているため動作しません。したがって、Indyがデータを表示する前にRTLがUTF-8→UTF-16変換を実行し、次にIndyがUTF-16データを送信中に独自のデフォルトエンコーディング。

あなたはUTF-8としてUnicodeStringを送信したい場合、あなたは、そのTIdTextEncodingクラスを経由して、それを行うにはインディなどを指示する必要があります：

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    IdTCPClient.Host := '61.97.246.131'; 
    IdTCPClient.Port := 8080; 
    IdTCPClient.Connect; 
    IdTCPClient.IOHandler.Write('Ag8m'#0); 
    IdTCPClient.IOHandler.Write('LShady|###BBQ'#0); 
    IdTCPClient.IOHandler.Write('#안녕'#0, TIdTextEncoding.UTF8); // <-- here 
    IdTCPClient.Disconnect; 
end; 

または：

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    IdTCPClient.Host := '61.97.246.131'; 
    IdTCPClient.Port := 8080; 
    IdTCPClient.Connect; 
    IdTCPClient.IOHandler.DefStringEncoding := TIdTextEncoding.UTF8; // <-- here 
    IdTCPClient.IOHandler.Write('Ag8m'#0); 
    IdTCPClient.IOHandler.Write('LShady|###BBQ'#0); 
    IdTCPClient.IOHandler.Write('#안녕'#0); 
    IdTCPClient.Disconnect; 
end; 

あなたの場合どのエンコーディングを使用するかをIndyに伝えないでください。Unicodeデータが壊れたり失われたりするASCIIにデフォルト設定されます。