Access 或VBA 或VB6 使用 MS SOAP Toolkit 3.0 实现 SOAP Client客户端的功能

Access 或VBA 或VB6 可以使用 MS SOAP Toolkit 3.0 实现 SOAP Client客户端的功能

这个在我们的Office Helper产品中使用得比较多，使用它来连接我们的Office中国论坛的相关文章

代码的核心部分：
1.先下载Soap Toolkit 3.0 并安装好(MS有个组件可以用来支撑VB6访问SOAP接口。)
2.首先要VB或VBA 或Access工程中引用 MS SOAP Toolkit 3.0的SOAP Client

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

其实参数说明如下                                                     '
'par_WSDLFile   ：WSDL文件的URL地址或者是包含WSDL文档的字符串，它描述了服务器提供的Web Service服务。如果该参数的第一个字符是‘<‘，则被认为是包含WSDL文档的字符串；否则被认为是WSDL文件名。'
'par_WSMLFile   ：与上者相对应的WSML文件的URL地址；该值为""则意味着不需要WSML文件。                                                                                                        '
'par_ServiceName：WSDL文件中ServiceName的值，是WSDL文件包含的专用于SOAP请求信息的操作                                                                                                      '
'par_Port       ：WSDL文件中的PortName的值，是WSDL文件包含的专用于SOAP请求信息的操作                                                                                                       '
'par_Namespace  ：WSDL文件中元素的targetNamespace属性值，也可是由WSDL文档直接引入或是由WSDL文件间接引入

'
然后在代码中这样调用

Set soapclient = CreateObject("MSSOAP.SoapClient30")
Call soapclient.MSSoapInit2("http://www.office-cn.net/wsdl/", "", "GetBbsTopic", "GetBbsTopicPort", "http://test.com/")
Me.Show
Text.Text = "前30篇论坛贴子：" & soapclient.GetBbsTopic(30)

设置soap 超时的代码（好像不起作用）

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

测试方式：
需要访问WS的IP地址改为一个错误的地址或者将WS的机器关机，这时根本不会触发Timeout而提前返回失败，一直等待大约20秒才会提示调用WS失败。

其它经验1：

请高手指教，vb中使用soapClient调用webservice，传入的中文变为??????
webservice中使用的是UTF-8编码。按照网上的说明，在vb中先将中文转为UTF-8传入，仍无效。

strSm = "将字符串转换为UTF-8编码"
strIn = AnsiToUTF8(strIn)

strSm = "调用webservice的" & strFunc & "方法"
Select Case UCase(strFunc)
Case "YZSYL001"
exec = soapClient.yzsyl001(strIn) '此处直接写服务端方法名

解决办法：安装SoapToolkit30，用SoapClient30而不是SoapClient就好了

其它经验2：(作者：lichmama from cnblogs.com）

1. 下载了个msSoapToolkit.exe安装后试了下，发现确实可以访问用C#或者VB.net写的webservice。
2.  但是如果接口是使用其他语言编写的，则会出现各种莫名错误，像什么参数类型不正确，或者初始化失败（应该是解析WSDL报文的时候造成的）。
3. 不管怎样，总归是为VB6提供了一种访问webservice的方式 。

如果你不嫌麻烦的话，可以自己构造一个HTTP对象，然后解析接口的XML报文。这样的话，基本上任何语言编写的webservice你都可以通过VB6调用。

访问天气

'使用之前请先引用"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
...