分類: Delphi

在微軟的Microsoft Azure Marketplace有許多不錯的資料可以應用，今天就分享如果利用XE8搭配Microsoft Translator線上翻譯服務來做翻譯。
一、註冊Azure帳戶

點選 https://datamarket.azure.com/dataset/bing/microsofttranslator 上的登入，使用個人。然後依照步驗註冊就好。

二、訂閱服務
進入 https://datamarket.azure.com/dataset/bing/microsofttranslator ，點選2000000字元數/月的免費方案註冊。

 

 
三、註冊程式
程式中需要client_id跟client_secret ，所以到 https://datamarket.azure.com/developer/applications 註冊程式。

client_id就是用戶端識別碼

client_secret就是用戶端密碼

四、開始建立程式

新增一個Blank Application

接著在上面增加三個元件，TRESTClient、TRESTRequest跟TRESTResponse。重新命名為RESTClientAuthToken、RESTRequestAuthToken跟RESTResponseAuthToken.

 

RESTClientAuthToken的BaseURL設定 https://datamarket.accesscontrol.windows.net/v2

 

RESTRequestAuthToken的Method改為rmPOST、然後Resource設為OAuth2-13(參考　https://msdn.microsoft.com/en-us/library/hh454950.aspx）

 

 

然後在Params增加四個參數如下

 

 

在畫面上增加３個label、3個edit以及一個button

 

加上程式碼

[pascal]
var
token: string;
begin
RESTRequestAuthToken.Params.ParameterByName(‘client_secret’).Value := EditClient_Secret.Text;
RESTRequestAuthToken.Params.ParameterByName(‘client_id’).Value := EditClient_ID.Text;
RESTRequestAuthToken.Execute;
if RESTResponseAuthToken.GetSimpleValue(‘access_token’,token) then
begin
EditToken_value.Text := token;
end;
[/pascal]

取得Token值後我們可以開始進行翻譯，參考的文件為（https://msdn.microsoft.com/en-us/library/ff512387.aspx），一樣增加三個元件，TRESTClient、TRESTRequest跟TRESTResponse。重新命名為RESTClientTranslate、RESTRequestTranslate跟RESTResponseTranslate.。

RESTClientTranslate的BaseURL設為　http://api.microsofttranslator.com/v2/Http.svc

 

接著在RESTRequestTranslate的Resource設為Translate?text={text}&from={from}&to={to}

 

一樣在裡面增加四個Params，from跟to需要對應相關的語言代碼（參考https://msdn.microsoft.com/en-us/library/hh456380.aspx）

在畫面上增加combobox二個，以及二個memo及button。

 

開啟view→LiveBindings Designer，將RESTRequestTranslate中的Params.text指到Memo1的Text（輸入），然後RESTResponseTranslate.的Content指向Memo2的Text（輸出）。

 

最後補上翻譯的程式碼如下。

[pascal]
RESTRequestTranslate.Params.ParameterByName(‘Authorization’).Value := ‘bearer ‘+EditToken_value.Text;
RESTRequestTranslate.Params.ParameterByName(‘from’).Value := cbFrom.Selected.Text;
RESTRequestTranslate.Params.ParameterByName(‘to’).Value := cbToo.Selected.Text;
RESTRequestTranslate.Execute;
[/pascal]

番外篇：
語音的部份(參考 https://msdn.microsoft.com/en-us/library/ff512420.aspx)
增加一個RESTRequestPlay，然後設定Resource為 speak?text={text}&language={language}&to={to}&format=audio/mp3&options=MinSize 。
三個Param為 Authorization、text、language
以及增加mediaplayer。
程式如下

[pascal]
var
MS: TMemoryStream;
TempFile: string;
begin
RESTRequestPlay.Params.ParameterByName(‘Authorization’).Value := ‘bearer ‘+EditToken_value.Text;
RESTRequestPlay.Params.ParameterByName(‘language’).Value := RESTRequestTranslate.Params.ParameterByName(‘to’).Value;
RESTRequestPlay.Params.ParameterByName(‘text’).Value := RESTResponseTranslate.Content;
RESTRequestPlay.Execute;
MS := TMemoryStream.Create;
try
MS.WriteData(RESTResponsePlay.RawBytes,Length(RESTResponsePlay.RawBytes));
TempFile := TPath.ChangeExtension(TPath.GetTempFileName,’.mp3′);
MS.SaveToFile(TempFile);
MediaPlayer1.FileName := TempFile;
MediaPlayer1.Play;
finally
MS.Free;
end;
end;
[/pascal]

API參考

https://msdn.microsoft.com/en-us/library/dd576287.aspx

程式碼下載

https://drive.google.com/file/d/0BxMN7KkA7p3NZlU5clItaGxiMzQ/view?usp=sharing

原文：
http://blogs.embarcadero.com/stephenball/2015/06/30/using-azure-translator-services-with-delphi/