Access 或VBA 或VB6 使用 MS SOAP Toolkit 3.0 實(shí)現(xiàn) SOAP Client客戶端的功能

Access 或VBA 或VB6 可以使用 MS SOAP Toolkit 3.0 實(shí)現(xiàn) SOAP Client客戶端的功能

這個(gè)在我們的Office Helper產(chǎn)品中使用得比較多，使用它來連接我們的Office中國論壇的相關(guān)文章

代碼的核心部分：
1.先下載Soap Toolkit 3.0 并安裝好(MS有個(gè)組件可以用來支撐VB6訪問SOAP接口。)
2.首先要VB或VBA 或Access工程中引用 MS SOAP Toolkit 3.0的SOAP Client

'MSSOAP.SoapClient30對(duì)象的MSSoapInit2方法使用說明：                                                                                                                                        '
'方法原型說明 ：MSSoapInit2(par_WSDLFile,par_WSMLFile,par_ServiceName As String,par_Port As String,par_Namespace As String)

其實(shí)參數(shù)說明如下                                                     '
'par_WSDLFile   ：WSDL文件的URL地址或者是包含WSDL文檔的字符串，它描述了服務(wù)器提供的Web Service服務(wù)。如果該參數(shù)的第一個(gè)字符是‘<‘，則被認(rèn)為是包含WSDL文檔的字符串；否則被認(rèn)為是WSDL文件名。'
'par_WSMLFile   ：與上者相對(duì)應(yīng)的WSML文件的URL地址；該值為""則意味著不需要WSML文件。                                                                                                        '
'par_ServiceName：WSDL文件中ServiceName的值，是WSDL文件包含的專用于SOAP請(qǐng)求信息的操作                                                                                                      '
'par_Port       ：WSDL文件中的PortName的值，是WSDL文件包含的專用于SOAP請(qǐng)求信息的操作                                                                                                       '
'par_Namespace  ：WSDL文件中元素的targetNamespace屬性值，也可是由WSDL文檔直接引入或是由WSDL文件間接引入

'
然后在代碼中這樣調(diào)用

Set soapclient = CreateObject("MSSOAP.SoapClient30")
Call soapclient.MSSoapInit2("http://m.mzhfr.cn/wsdl/", "", "GetBbsTopic", "GetBbsTopicPort", "http://test.com/")
Me.Show
Text.Text = "前30篇論壇貼子：" & soapclient.GetBbsTopic(30)

設(shè)置soap 超時(shí)的代碼（好像不起作用）

Dim soapClient As New SoapClient30
soapClient.MSSoapInit strWsName
soapClient.ClientProperty("ServerHTTPRequest") = True
soapClient.ConnectorProperty("Timeout") = 6000
strRetVal = soapClient.GetResult("test")

測試方式：
需要訪問WS的IP地址改為一個(gè)錯(cuò)誤的地址或者將WS的機(jī)器關(guān)機(jī)，這時(shí)根本不會(huì)觸發(fā)Timeout而提前返回失敗，一直等待大約20秒才會(huì)提示調(diào)用WS失敗。

其它經(jīng)驗(yàn)1：

請(qǐng)高手指教，vb中使用soapClient調(diào)用webservice，傳入的中文變?yōu)??????
webservice中使用的是UTF-8編碼。按照網(wǎng)上的說明，在vb中先將中文轉(zhuǎn)為UTF-8傳入，仍無效。

strSm = "將字符串轉(zhuǎn)換為UTF-8編碼"
strIn = AnsiToUTF8(strIn)

strSm = "調(diào)用webservice的" & strFunc & "方法"
Select Case UCase(strFunc)
Case "YZSYL001"
exec = soapClient.yzsyl001(strIn) '此處直接寫服務(wù)端方法名

解決辦法：安裝SoapToolkit30，用SoapClient30而不是SoapClient就好了

其它經(jīng)驗(yàn)2：(作者：lichmama from cnblogs.com）

1. 下載了個(gè)msSoapToolkit.exe安裝后試了下，發(fā)現(xiàn)確實(shí)可以訪問用C#或者VB.net寫的webservice。
2.  但是如果接口是使用其他語言編寫的，則會(huì)出現(xiàn)各種莫名錯(cuò)誤，像什么參數(shù)類型不正確，或者初始化失?。☉?yīng)該是解析WSDL報(bào)文的時(shí)候造成的）。
3. 不管怎樣，總歸是為VB6提供了一種訪問webservice的方式 。

如果你不嫌麻煩的話，可以自己構(gòu)造一個(gè)HTTP對(duì)象，然后解析接口的XML報(bào)文。這樣的話，基本上任何語言編寫的webservice你都可以通過VB6調(diào)用。

訪問天氣

'使用之前請(qǐng)先引用"Microsoft Soap Type Library (v3.0)"
'code by lichmama from cnblogs.com
Private Sub Form_Load()
    Dim objSC As New SoapClient30
    Dim ret As Variant
    
    'initialize soap
    Call objSC.MSSoapInit("http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx?wsdl")
    
    'using the method of webservice
    ret = objSC.getRegionCountry()
    
    Debug.Print "ReturnType: " & TypeName(ret)
    For Each r In ret
        Debug.Print r
    Next
    
    Set objSC = Nothing
End Sub

ReturnType: String()
阿爾及利亞,3320
阿根廷,3522
阿曼,3170
阿塞拜疆,3176
埃及,3317
埃塞俄比亞,3314
愛爾蘭,3246
...