在 Delphi 中使用微软全文翻译的小例子

最新推荐文章于 2024-10-17 13:06:26 发布

蝈蝈(GuoGuo)

最新推荐文章于 2024-10-17 13:06:26 发布

阅读量392

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： microsoft

本文链接：https://blog.youkuaiyun.com/delphigbg/article/details/123426369

Delphi 专栏收录该内容

114 篇文章

订阅专栏

这篇博客展示了如何利用C#和Delphi编程语言调用微软翻译API进行文本翻译。作者提供了两个不同的实现方法，一个使用MSXML库，另一个使用Indy库，详细解释了代码实现过程，并给出了申请API ID的链接和API的使用帮助文档。通过这些代码，开发者可以将翻译功能集成到自己的应用中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

刚刚从博客园看到有朋友用 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;