delphi - 如何正确解码 Google Translate API 答案？

Question

我正在与 Google Translate API 通信。我可以发送我的请求并得到答复。唯一的问题是一些特殊字符被编码。举个例子 ：

" The clock " (EN) 将被翻译成 " L'horloge " (FR)

API 将向我发送此文本L\u0026#39;horloge。如何将这种情况转换为 unicode 字符串？

Answer 1

它是 JSON unicode 和 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);
}

如果你喜欢，你可以在这里试试