在 Delphi 中使用微软全文翻译的小例子
16lz
2021-04-30
在 Delphi 中使用微软全文翻译的小例子
刚刚从博客园看到有朋友用 C# 做了这么个东西, 我用 Delphi 尝试了一下.
需要先去申请一个 AppID: http://www.bing.com/toolbox/bingdeveloper/
使用帮助在: http://msdn.microsoft.com/en-us/library/dd576287.aspx
uses MsXML;{函数}function Translate(AAppID: string; AText: string; InLanguage: string='en'; OutLanguage: string='zh-CHS'): string;const BaseUrl = 'http://api.microsofttranslator.com/V2/http.svc/Translate?appId=%s&text=%s&from=%s&to=%s';var Url: string; req: IXMLHTTPRequest;begin Url := Format(BaseUrl, [AAppID, AText, InLanguage, OutLanguage]); req := CoXMLHTTP.Create; req.open('Get', Url, False, EmptyParam, EmptyParam); req.send(EmptyParam); Result := req.responseText; Result := Copy(Result, 68+1, Length(Result)-68-9); //去掉前后的标签end;{调用测试}procedure TForm1.Button1Click(Sender: TObject);const myAppId = '65FCA293BDB85C98D16A567C3FECE22272B6****'; //这是我申请的 AppID, 隐藏了后四位begin Memo2.Text := Translate(myAppId, Memo1.Text);end;
效果图:
使用 Indy:
uses IdHTTP;function Translate2(AAppID: string; AText: string; InLanguage: string='en'; OutLanguage: string='zh-CHS'): string;const BaseUrl = 'http://api.microsofttranslator.com/V2/http.svc/Translate?appId=%s&text=%s&from=%s&to=%s';var Url: string; stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create; idHttpObj := TIdHTTP.Create(nil); Url := Format(BaseUrl, [AAppID, Trim(AText), InLanguage, OutLanguage]); idHttpObj.Get(Url, stream); Result := stream.DataString; Result := Copy(Result, 68+1, Length(Result)-68-9); //去掉前后的标签 idHttpObj.Free; stream.Free;end;
更多相关文章
- 手把手教你写一个spring IOC容器
- php如何使用date去掉时分秒
- 4.01模板字面量和标签函数
- 使用除按钮标签（button，submit）以外的标签实现以POST方式发送请求
- 通过实例简单演示 xpath 用法
- 超高频 RFID系统性能的影响因素有哪些？
- 18000-3 Mode3协议高频远距离读写器
- 容器调度策略：让我们重新认识OpenShift系列4
- jq的DOM操作与事件操作02的有感记录