本人用VB6+MS SOAP Toolkit 3.0作的基于SOAP Client的程序,来看看!
程序运行正常,以下是代码的关键部分:(要在工程中引用MS SOAP Toolkit 3.0的SOAP Client!)
Private Sub Form_Load()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'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文件中<definitions> 元素的targetNamespace属性值,也可是由WSDL文档直接引入或是由WSDL文件间接引入 '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set soapclient = CreateObject("MSSOAP.SoapClient30")
Call soapclient.MSSoapInit2("http://www.tankebolaget.se/scripts/NumToWords.dll/wsdl/INumToWords", "", "INumToWordsservice", "INumToWordsPort", "http://tempuri.org/")
Me.Show
txtNum.SetFocus
End Sub
Private Sub cmdConvert_Click()
If (Trim(txtNum.Text) <> "") Or (Trim(txtNum.Text) <> Null) Then
Text.Text = ""
Text.Text = "你输入的整数字" & Trim(txtNum.Text) & "翻译成英文是:" & soapclient.NumToWords_English(Trim(txtNum.Text))
Else
MsgBox ("请输入一个整数!")
End If
End Sub
功能说明:
调用NumToWords_English方法,可把如1234这样的整数翻译成英语。欢迎批评!