分享
 
 
 

vb6.0实现soap的客户端

王朝vb·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

最近的项目中要用到web service,通过internet 发现vb就可以实现soap的客户端,要用到MSSOAPLib.SoapClient,MSSOAPLib.SoapSerializer...

这些东东.

实现代码如下(老外的)

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 2475

ClientLeft = 60

ClientTop = 345

ClientWidth = 4575

LinkTopic = "Form1"

ScaleHeight = 2475

ScaleWidth = 4575

StartUpPosition = 3 'Windows Default

Begin VB.CommandButton Command1

Caption = "Command1"

Height = 615

Left = 960

TabIndex = 0

Top = 720

Width = 2295

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Public sClient As New MSSOAPLib.SoapClient

Private Const c_WSDL_URL As String = _

"http://cst48/espresentation/webservices/systemstatus.asmx?WSDL"

'You need soap Type library 3.0 and microsoft xml v2.6to run this example

Private Sub Command1_Click()

'sClient.mssoapinit c_WSL_URL

Debug.Print Time

TranslateBabel

Debug.Print Time

MsgBox "finish "

End Sub

Public Sub TranslateBabel()

' Purpose: Translates text from one language to another.

' WSDL: http://services.xmltoday.com/vx_engine/wsdl_publish.vep/translate.wsdl

' More info: http://www.xmethods.net/detail.html?id=94 http://www.56city.net

Dim objClient As MSSOAPLib.SoapClient

' To package SOAP request.

Dim objSerial As MSSOAPLib.SoapSerializer

' To read SOAP response.

Dim objRead As MSSOAPLib.SoapReader

' To connect to Web service using SOAP.

Dim objConn As MSSOAPLib.SoapConnector

' To parse the SOAP response.

Dim objResults As MSXML2.IXMLDOMNodeList

Dim objNode As MSXML2.IXMLDOMNode

' Set up the SOAP connector.

Set objConn = New MSSOAPLib.HttpConnector

' Define the endpoint URL. This is the actual running code,

' not the WSDL file path! You can find it in the WSDL's

' <soap:address> tag's location attribute.

objConn.Property("EndPointURL") = "http://cst48/espresentation/webservices/systemstatus.asmx"

' Define the SOAP action. You can find it in the WSDL's

' <soap:operation> tag's soapAction attribute for the matching

' <operation> tag.

'GetNaturalInfo is the name of the service

objConn.Property("SoapAction") = "http://tempuri.org/GetNaturalInfo"

'objConn.Property("SoapAction") = "GetNaturalInfo"

' Begin the SOAP message.

objConn.BeginMessage

Set objSerial = New MSSOAPLib.SoapSerializer

' Initialize the serializer to the connector's input stream.

objSerial.Init objConn.InputStream

' Build the SOAP message.

With objSerial

.startEnvelope ' <SOAP-ENV:Envelope>

.startBody ' <SOAP-ENV:Body>

' Use the Web method's name and schema target namespace URI.

.startElement "GetNaturalInfo"

.endElement

.endBody ' </SOAP-ENV:Body>

.endEnvelope ' </SOAP-ENV:Envelope>

End With

' Send the SOAP message.

objConn.EndMessage

Set objRead = New MSSOAPLib.SoapReader

' Initialize the SOAP reader to the connector's output stream.

objRead.Load objConn.OutputStream

Set objResults = objRead.RPCResult.childNodes

' Iterate through the returned nodes.

For Each objNode In objResults

'Debug.Print objNode.nodeValue

MsgBox objNode.nodeTypedValue

Next objNode

End Sub

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有