工作需要,把一個程序翻譯為多語言版,很悲催的其中一個語種為土耳其語.國內開放API的翻譯均不支持.微軟的實在是麻煩.網上找到一個c#版,修修改改,湊合用.親測有效.

開發工具:VS2013

需要引用多個單元

using System.Web;
using System.Net;
using System.Text.RegularExpressions;
using System.IO;
using MSScriptControl;

需要多個引用包.

//引用-->添加引用-->com-->類型庫,註意引用該庫後程序環境必須為X86.更改項目屬性即可,影響不大   js解析包

//引用-->添加引用-->選擇最近項目-->Newtonsoft.Json.dll     json解析庫.該DLL網上可以下載

網上要保存js文件,我直接寫成全局變量

string GetTkkJS = @"
var b = function (a, b) 
{
for (var d = 0; d < b.length - 2; d += 3) 
{
var c = b.charAt(d + 2),
c = ""a"" <= c ? c.charCodeAt(0) - 87 : Number(c),
c = ""+"" == b.charAt(d + 1) ? a >>> c : a << c;
a = ""+"" == b.charAt(d) ? a + c & 4294967295 : a ^ c
}
return a
}


var tk = function (a,TKK) {
for (var e = TKK.split("".""), h = Number(e[0]) || 0, g = [], d = 0, f = 0; f < a.length; f++) 
{
var c = a.charCodeAt(f);
128 > c ? g[d++] = c : (2048 > c ? g[d++] = c >> 6 | 192 : (55296 == (c & 64512) && f + 1 < a.length 
&& 56320 == (a.charCodeAt(f + 1) & 64512) ? (c = 65536 + ((c & 1023) << 10) + (a.charCodeAt(++f) & 1023), g[d++] = c >> 18 | 240,
g[d++] = c >> 12 & 63 | 128) : g[d++] = c >> 12 | 224, g[d++] = c >> 6 & 63 | 128), g[d++] = c & 63 | 128)
}
a = h;
for (d = 0; d < g.length; d++) a += g[d], a = b(a, ""+-a^+6"");
a = b(a, ""+-3^+b+-f"");
a ^= Number(e[1]) || 0;
0 > a && (a = (a & 2147483647) + 2147483648);
a %= 1E6;
return a.toString() + ""."" + (a ^ h)
}";

　　核心執行代碼如下:

       
        /// <summary>  
        /// 谷歌翻譯  
        /// </summary>  
        /// <param name="text">待翻譯文本</param>  
        /// <param name="fromLanguage">自動檢測：auto</param>  
        /// <param name="toLanguage">中文：zh-CN，英文：en</param>  
        /// <returns>翻譯後文本</returns>  
        public string GoogleTranslate(string text, string fromLanguage, string toLanguage)
        {
            CookieContainer cc = new CookieContainer(); 
            string GoogleTransBaseUrl = "https://translate.google.cn/"; 
            var BaseResultHtml = GetResultHtml(GoogleTransBaseUrl, cc, ""); 
            Regex re = new Regex(@"(?<=TKK=)(.*?)(?=\);)"); 
             
            var TKKStr = re.Match(BaseResultHtml).ToString() + ")";//在返回的HTML中正則匹配TKK的JS代碼   
            
            var TKK = ExecuteScript(TKKStr, TKKStr);//執行TKK代碼，得到TKK值     
            var tk = ExecuteScript("tk(\"" + text + "\",\"" + TKK + "\")", GetTkkJS);
            
            string googleTransUrl = "https://translate.google.cn/translate_a/single?client=t&sl=" + fromLanguage 
                + "&tl=" + toLanguage + "&hl=en&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&ie=UTF-8&oe=UTF-8&otf=1&ssel=0&tsel=0&kc=1&tk=" 
                + tk + "&q=" + HttpUtility.UrlEncode(text);
 
            var ResultHtml = GetResultHtml(googleTransUrl, cc, "");
           
            dynamic TempResult = Newtonsoft.Json.JsonConvert.DeserializeObject(ResultHtml); //轉換為json
            
           //結果示例
           //ResultText = ‘[[["I love you","我愛你",null,null,1],[null,null,null,"Wǒ ài nǐ"]],null,"zh-CN",null,null,[["我愛你",null,[["I love you",1000,true,false]],
           //                   [[0,3]],"我愛你",0,0]],1,null,[["zh-CN"],null,[1],["zh-CN"]],null,null,null,null,null,[["我","愛","你"]]]‘
            string ResultText = Convert.ToString(TempResult[0][0][0]);                      //數組json,第一個數組裏邊的第一個數組的第一個內容.嵌套數據,
            return ResultText;
        }  
 
        public string GetResultHtml(string url, CookieContainer cookie, string referer)
        {
            var html = ""; 
            var webRequest = WebRequest.Create(url) as HttpWebRequest; 
            webRequest.Method = "GET"; 
            /*網上程序代碼,自己用chrome瀏覽器F12查看追蹤修改為下列兩行,同樣執行成功.20180427
            //webRequest.CookieContainer = cookie; 
            //webRequest.Referer = referer; 
            //webRequest.Timeout = 20000; 
            //webRequest.Headers.Add("X-Requested-With:XMLHttpRequest"); 
            //webRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8";

            webRequest.Accept = "*/*";  
            webRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.87 Safari/537.36";

            using (var webResponse = (HttpWebResponse)webRequest.GetResponse())
            {
                using (var reader = new StreamReader(webResponse.GetResponseStream(), Encoding.UTF8))
                { 
                    html = reader.ReadToEnd();
                    reader.Close();
                    webResponse.Close();
                }
            }
            return html;
        }  
     
         
        /// <summary>
        /// 執行JS
        /// </summary>
        /// <param name="sExpression">參數體</param>
        /// <param name="sCode">JavaScript代碼的字符串</param>
        /// <returns></returns>
        private string ExecuteScript(string sExpression, string sCode)
        {
            
            MSScriptControl.ScriptControl scriptControl = new MSScriptControl.ScriptControl();
            scriptControl.UseSafeSubset = true;
            scriptControl.Language = "JScript";
            scriptControl.AddCode(sCode);
            try
            {
                string str = scriptControl.Eval(sExpression).ToString();
                return str;
            }
            catch (Exception ex)
            {
                string str = ex.Message;
            }
            return null;
        } 

有了此例子,後續準備擴展為Delphi.需要的知識如下:

idhttp get :http協議,

superobject: json庫,

TPerlRegEx:正則表達式

comObje:js

HTTPApp:httpEncode,漢字轉碼,發送翻譯請求的時候使用.

使用谷歌翻譯C#版本.