二、在VB6中使用bingTranslate API
1、工具下載與安裝
由于VB6不能象office中一樣引用webservice，但有另外一款利器Microsoft Soap Toolkit 3.0可以幫我們方便的實(shí)現(xiàn)，下載地址附后

安裝完成后會在C:\Program Files\Common Files\MSSoap\Binaries 出現(xiàn)

 

2.將在OFFICE VBA中自動(dòng)生成的類文件(共8個(gè))導(dǎo)出

 

3.轉(zhuǎn)到VB6，我們新建一個(gè)工程，取名bingTranslate，點(diǎn)菜單上工程》添加引用，引入Microsoft XML,v2.6或以上版本 和Microsoft Soap Type Library v3.0

 

再點(diǎn)菜單上工程》添加類模塊》現(xiàn)存，打開上面保存下來的8個(gè)類文件

 

注意，點(diǎn)開clsws_SoapService.cls，修改其中的str_WSWL字符，將其注釋掉。

 

添加一個(gè)窗體，2個(gè)文本框分別是原文本、目標(biāo)文本，2個(gè)下拉框分別是原語言代碼、目標(biāo)語言代碼，1個(gè)翻譯按鈕Commonbutton1，雙擊Commonbutton1，輸入

 

Private Const appID As String = "你的APPID"
Private Sub Command1_Click()
Dim obingTranslate As New clsws_SoapService
 
Text2.Text = obingTranslate.wsm_Translate(appID, Text1.Text, Combo1.Text, Combo2.Text, "text/plain", "general")
End Sub

按F5運(yùn)行結(jié)果，

 

 

本文地址:http://hxpgs.com.cn/news/n08/201401/12611.html,如要轉(zhuǎn)載，請注明轉(zhuǎn)載自5A農(nóng)業(yè)人才網(wǎng)

上一頁  [1] [2] [3] [4] 下一頁