在 Delphi 中使用微软全文翻译的小例子
2011-11-15 17:17
344 查看
刚刚从博客园看到有朋友用 C# 做了这么个东西, 我用 Delphi 尝试了一下.
需要先去申请一个 AppID: http://www.bing.com/toolbox/bingdeveloper/
使用帮助在: http://msdn.microsoft.com/en-us/library/dd576287.aspx
效果图:
使用 Indy:
需要先去申请一个 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;
相关文章推荐
- 在 Delphi 中使用微软全文翻译的小例子
- 在 Delphi 中使用微软全文翻译的小例子
- delphi DISQLite3使用例子
- Obtaining Directory Change Notifications(微软的例子,使用FindFirstChangeNotification,FindNextChangeNotification,FindCloseChangeNotification API函数)
- NeHe的OpenGL教程7(Bang翻译Delphi版)-如何使用光源
- WM_ERASEBKGND官方解释(翻译),以及Delphi里所有的使用情况(就是绘制窗口控件背景色,并阻止进一步传递消息)
- Delphi回调函数的使用-例子
- VS2013 配置使用微软开源sdk: C++ REST SDK 及运行官方的 JSON例子
- 微软使用的术语翻译表
- mojoportal学习——文章翻译之在mojoportal中使用微软Ajax技术
- Delphi回调函数的使用-例子
- 客户端delphi使用XML与中间层C#.net通信的例子,客户端用idhttp的post发送请求
- 翻译:使用tbb实现特征检测的例子
- 最近看了一个德国网站对两款U的对比评测,就不全文翻译了,大概的翻译一些重点 最近两款使用Core M的平板/变形本上市,分别是使用10的HP ENVY 15-c000ng x2 Detachabl
- 使用谷歌翻译/微软翻译迅速使你的博客支持多国语言
- WM_PAINT在微软官方定义中,wParam和lParam都没有使用,所以就被Delphi给重定义了这个消息,还增加了DC(Delphi可任意改写消息的结构,只需要保持前4个字节是消息即可,另外要携带微软定义的所有必要信息就行了)
- Delphi回调函数的使用-例子
- [Mac OS] Safari 使用扩展插件“微软翻译”一键翻译网页 (二)
- PHPRPC for delphi 在Form中使用例子
- Delphi XE7中蓝牙 Bluetooth例子的使用