在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
转自http://www.delphigear.cn/0/7913/go.aspx
需要先去申请一个 AppID: http://www.bing.com/toolbox/bingdeveloper/ 使用帮助在: http://msdn.microsoft.com/en-us/library/dd576287.aspx
效果图: 使用 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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论