本文整理自网络,侵删。
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;
相关阅读 >>
Delphi下idhttp配合cookiemanager获取cookie
Delphi新建服务,停止系统服务,以及获取服务状态和新建系统服务器的方法
Delphi中组件panel、splitter、groupbox、按钮组件(checkbox...)、计时器、滚动条、多选卡
Delphi xe5 中tmemo控件的应用――for android
Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码
更多相关阅读请进入《Delphi》频道 >>