delphi - Google Translate APIの回答を正しくデコードする方法は？

Question

GoogleTranslateAPIと通信しています。リクエストを送信して回答を得ることができます。唯一の問題は、いくつかの特殊文字がエンコードされていることです。例えば ​​：

「時計」（EN）は「L'horloge」（FR）に翻訳されます

APIからこのテキストが送信されますL\u0026#39;horloge。このような場合をUnicode文字列に変換するにはどうすればよいですか？

Answer 1

JSONユニコードとHTMLエンコーディングです。

JSONをデコードするためにスーパーオブジェクトを取得することをお勧めします： http ：//code.google.com/p/superobject/source/browse/#svn/trunk

uses msxml, HTTPapp, superobject;
var
  xml: IXMLHTTPRequest;
begin
  xml := CoXMLHTTP.Create;
  xml.open('GET', 'http://www.googleapis.com/language/translate/v2?  key=YOURAPIKEYHERE&q=The%20clock&source=en&target=fr', False, EmptyParam, EmptyParam);
  xml.send('');
  Caption := HTMLDecode(SO(xml.responseText)  ['data.translations[0].translatedText'].AsString);
end;

Answer 2

次の関数を使用して、それらをデコードできます。

function unescapeUTF8EscapeSeq($str) {
    return preg_replace_callback("/\\\u([0-9a-f]{4})/i",
        create_function('$matches',
            'return html_entity_decode(\'&#x\'.$matches[1].\';\', ENT_QUOTES, \'UTF-8\');'
        ), $str);
}

よろしければ、ここで試してみてください