VB6调用WebService、WCF
'调用webservice。需要安装SoapToolkit30.EXE,并在工程中引用Microsoft Soap Type Library v3.0
Sub CallWebService()
Dim m_spClient As New SoapClient30 'SoapClient30对象实例化
m_spClient.MSSoapInit "http://localhost/MCISWebService/vbtest.asmx?WSDL" '引用webservice
MsgBox m_spClient.HelloWorld '调用webservice方法
End Sub
'http方式调用WCF
Sub CallHTTPWCFService()
Dim mexMonikerString As String
Dim mexServiceMoniker As Object
'---------------------------------------------------------------
' MEX service moniker example
'---------------------------------------------------------------
' Create a string for the service moniker specifying the address
' to retrieve the service metadata from
mexMonikerString = "service:mexAddress='http://localhost:55242/Service1.svc/mex'"
mexMonikerString = mexMonikerString + ", address='http://localhost:55242/Service1.svc'"
mexMonikerString = mexMonikerString + ", binding=WSHttpBinding_IService1, bindingNamespace='http://tempuri.org/'"
mexMonikerString = mexMonikerString + ", contract=IService1, contractNamespace='http://tempuri.org/'"
' Create the service moniker object
Set mexServiceMoniker = GetObject(mexMonikerString)
' Call the service operations using the moniker object
MsgBox mexServiceMoniker.SayHello("China!")
Set mexServiceMoniker = Nothing
End Sub
'TCP方式调用WCF
Sub CallTCPWCFService()
Dim mexMonikerString As String
Dim mexServiceMoniker As Object
' Create a string for the service moniker specifying the address
' to retrieve the service metadata from
mexMonikerString = "service:mexAddress='http://192.168.1.110:12345/Binding/mex'"
mexMonikerString = mexMonikerString + ", address='net.tcp://192.168.1.110:54321/Binding/Hello'"
mexMonikerString = mexMonikerString + ", binding='NetTcpBinding_IHello', bindingNamespace='http://tempuri.org/'"
mexMonikerString = mexMonikerString + ", contract=IHello, contractNamespace='http://tempuri.org/'"
' Create the service moniker object
Set mexServiceMoniker = GetObject(mexMonikerString)
' Call the service operations using the moniker object
MsgBox mexServiceMoniker.SayHello("China!")
Set mexServiceMoniker = Nothing
End Sub
- 上一篇 »vb6 正则表达式
- 下一篇 »VB6.0调用SetTimer实现定时器