vb6.0实现soap的客户端

原创 2005年10月09日 07:54:00

最近的项目中要用到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

VB调用WebService(直接Post方式)并解析返回的XML

Function TodoTaskBySOAP(postURL As String,host As String, n As Integer,FilterItem() As String,OwnerS...
  • kangkanglou
  • kangkanglou
  • 2014年09月01日 15:30
  • 6193

也谈“指定的 SOAPAction 无效”异常的解决办法 ”

之前调试Remoting程序时有碰到“指定的 SOAPAction 无效”的问题,即客户端调用远程remoting方法时,提示SOAPAction 无效,一时不知道怎么解决。在网上百度下,看到一篇文章...
  • sloder
  • sloder
  • 2013年03月20日 08:25
  • 4914

vb6.0实现soap的客户端

最近的项目中要用到web service,通过internet 发现vb就可以实现soap的客户端,要用到MSSOAPLib.SoapClient,MSSOAPLib.SoapSerializer.....
  • glling
  • glling
  • 2005年10月09日 07:54
  • 1156

用VisualC++建立SOAP客户端应用(二)

一、先决条件:必须熟悉使用COM,特别要熟悉COM中的Smart Pointers。我通过导入方法将COM接口转换成Smart Pointers。系统必须安装了Microsoft SOAP Toolk...
  • zhangting1987
  • zhangting1987
  • 2007年12月24日 17:17
  • 2735

wsdl中添加soap:header元素

转自:http://www.haogongju.net/art/1722802 我们在开发webservice的时候,经常会看到有些生成的wsdl文件中包含了节点元素,那么怎样在wsdl...
  • qq361301276
  • qq361301276
  • 2012年11月28日 11:45
  • 848

vb6.0 访问webservices

Option Explicit Private Const Method = "helloworld" Private Const SoapAction = _ "http://127.0.0.1/h...
  • aasmfox
  • aasmfox
  • 2016年08月02日 09:46
  • 508

VB访问webserver

以vb为例吧,下面这样可以调用webservice     然后写成com   dll,那么扩展存储过程可以调用com   dll         .在VB中测试       首先在vb中建立一个”标...
  • zsq7210
  • zsq7210
  • 2007年07月20日 12:03
  • 1156

C语言实现soap 客户端的提交和接收功能

对于一个C程序员来说,写webservice是件比较头痛的事。好象MS下有相应的Toolkit,在VC2003开始,编译环境已经集成了相关功能,点"Project->Add Web Reference...
  • tigershi2000
  • tigershi2000
  • 2009年10月29日 12:04
  • 2594

PHP利用SOAP进行webservice开发(客户端)

参考:http://blog.sina.com.cn/s/blog_777f9dbb01010fd1.html windows php.ini配置: extension = php_soap.dl...
  • bytxl
  • bytxl
  • 2013年07月10日 10:32
  • 1926

soap的理解(总结)

一, SOAP简单的理解,就是这样的一个开放协议SOAP=RPC+HTTP+XML:采用HTTP作为底层通讯协议;RPC作为一致性的调用途径,XML作为数据传送的格式,允许服务提供者和服务客户经过防火...
  • liweifengwf
  • liweifengwf
  • 2013年08月29日 11:12
  • 1014
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb6.0实现soap的客户端
举报原因:
原因补充:

(最多只允许输入30个字)