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

2019-11-14 09:00:00
zstmtony
原创
148

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
...
分享