delphi MsXML 获取 API接口

uses MsXML, SuperObject;

//字符串到 UTF8 编码的函数, 用于 Google 地址

function ToUTF8Encode(str: string): string;

var

b: Byte;

begin

for b in BytesOf(UTF8Encode(str)) do

Result := Format('%s%s%.2x', [Result, '%', b]);

end;

//翻译函数

function Translate(str, RequestLanguage, ResultLanguage: string): string;

const

BaseUrl = 'http://fanyi.youdao.com/translate?&doctype=json&version&i=';

var

Url: string;

jo: ISuperObject;

req: IXMLHTTPRequest;

begin

Url := BaseUrl + ToUTF8Encode(str) ;

req := CoXMLHTTP.Create;

req.open('Get', Url, False, EmptyParam, EmptyParam);

req.send(EmptyParam);

// jo := SO(req.responseText);

Result := req.responseText;//jo.Format('%translateResult%');

end;

推荐分享