SOAP应用简介

使用高层API发送和接收SOAP消息
    在这个简单的例子中，服务器提供简单的算术服务：加法，减法，显示字符串（仅仅把输入的字符串回显出来）。为了创建这个应用程序，你需要在服务器和客户端创建不同的组件。在服务器这一端，你需要：
       创建一个ActiveX DLL
    创建一个WSDL文件列出服务以及服务中的操作
    创建一个WSML文件，把WSDL中描述的服务的操作对应到COM对象的方法
    创建一个ASP文件，处理SOAP请求
    在客户端，你需要：
  
    写一个VBScript调用服务器提供的操作
    在客户端和服务器端，这个简单的应用使用了高层API，例如 SoapClient 和 SoapServer 来发送和接受消息。
    在服务器端做以下工作
    创建一个ActiveX DLL
    打开VB，创建一个ActiveX DLL工程（注意，这个服务器上要安装IIS）
  
  把工程名改为DocSample1，类名改为Sample1
    在Sample1类中，添加以下代码：
    Public Function EchoString(ByVal testString As String) _
   As String
   EchoString = testString
  End Function
     Public Function AddNumbers(ByVal NumberOne As Double, _
   ByVal NumberTwo As Double) _
   As Double
   AddNumbers = NumberOne + NumberTwo
  End Function
     Public Function SubtractNumbers(ByVal NumberOne As Double, _
   ByVal NumberTwo As Double) _
   As Double
   SubtractNumbers = NumberOne - NumberTwo
  End Function
    选择菜单项 Make DocSample1.dll创建DLL文件
    创建虚拟路径
    在IIS环境下，创建一个Web虚拟路径，叫DocSample1
    创建WSDL文件
    在运行IIS的服务器上，把下面的文件DocSample1.wsdl复制到刚才建立的DocSample1路径下
    DocSample1.wsdl文件:
    ?xml version=’1.0’ encoding=’UTF-16’ ?
  definitions name =’DocSample1’ targetNamespace = ’http://localhost/DocSample1/DocSample1.wsdl’
   xmlns:tns=’http://localhost/DocSample1/DocSample1.wsdl’
   xmlns:xsd1=’http://localhost/DocSample1/DocSample1.xsd’
   xmlns:soap=’http://schemas.xmlsoap.org/wsdl/soap/’
   xmlns=’http://schemas.xmlsoap.org/wsdl/’
   types
   schema
   targetNamespace=
   ’http://localhost/DocSample1/DocSample1.xsd’
   xmlns=’http://www.w3.org/1999/XMLSchema’
   /schema
   /types
   message name=’EchoString’
   part name=’testString’ type=’string’/
   /message
   message name=’EchoStringResponse’
   part name=’Result’ type=’string’/
   /message
   message name=’AddNumbers’
   part name=’NumberOne’ type=’double’/
   part name=’NumberTwo’ type=’double’/
   /message
   message name=’AddNumbersResponse’
   part name=’Result’ type=’double’/
   /message
   message name=’SubtractNumbers’
   part name=’NumberOne’ type=’double’/
   part name=’NumberTwo’ type=’double’/
   /message
   message name=’SubtractNumbersResponse’
   part name=’Result’ type=’double’/
   /message
   portType name=’DocSample1PortType’
   operation name=’EchoString’ parameterOrder=’EchoStringInput1’
   input message=’tns:EchoString’ /
   output message=’tns:EchoStringResponse’ /
   /operation
   operation name=’AddNumbers’
   parameterOrder=’AddNumbersInput1 AddNumbersInput2’
   input message=’tns:AddNumbers’ /
   output message=’tns:AddNumbersResponse’ /
   /operation
   operation name=’SubtractNumbers’
   parameterOrder=’SubtractNumbersInput1 SubtractNumbersInput2’
   input message=’tns:SubtractNumbers’ /
   output message=’tns:SubtractNumbersResponse’ /
   /operation
   /portType
   binding name=’DocSample1Binding’ type=’tns:DocSample1PortType’
   soap:binding style=’rpc’
   transport=’http://schemas.xmlsoap.org/soap/http’ /
   operation name=’EchoString’
   soap:operation
   soapAction=’http://localhost/DocSample1/DocSample1.asp’ /
   input
   soap:body use=’encoded’
   namespace=’http://localhost/DocSample1/DocSample1.xsd’
   encodingStyle=’http://schemas.xmlsoap.org/soap/encoding/’ /
   /input
   output
   soap:body use=’encoded’
   namespace=’http://localhost/DocSample1/DocSample1.xsd’
   encodingStyle=’http://schemas.xmlsoap.org/soap/encoding/’ /
   /output
   /operation
   operation name=’AddNumbers’
   soap:operation
   soapAction=’http://localhost/DocSample1/DocSample1.asp’ /
   input
   soap:body use=’encoded’
   namespace=’http://localhost/DocSample1/DocSample1.xsd’
   encodingStyle=’http://schemas.xmlsoap.org/soap/encoding/’ /
   /input
   output
   soap:body use=’encoded’
   namespace=’http://localhost/DocSample1/DocSample1.xsd’
   encodingStyle=’http://schemas.xmlsoap.org/soap/encoding/’ /
   /output
   /operation
   operation name=’SubtractNumbers’
   soap:operation
   soapAction=’http://localhost/DocSample1/DocSample1.asp’ /
   input
   soap:body use=’encoded’
   namespace=’http://localhost/DocSample1/DocSample1.xsd’
   encodingStyle=’http://schemas.xmlsoap.org/soap/encoding/’ /
   /input
   output
   soap:body use=’encoded’
   namespace=’http://localhost/DocSample1/DocSample1.xsd’
   encodingStyle=’http://schemas.xmlsoap.org/soap/encoding/’ /
   /output
   /operation
   /binding
   service name=’DocSample1’
   port name=’DocSample1PortType’ binding=’tns:DocSample1Binding’
   soap:address
   location=’http://localhost/DocSample1/DocSample1.asp’ /
   /port
   /service
  /definitions
    

     创建WSML文件
    在运行IIS的服务器上，把下面的文件DocSample1.wsml复制到刚才建立的DocSample1路径下
    DocSample1.wsml文件:
    ?xml version=’1.0’ encoding=’UTF-16’ ?
   !-- Generated 12/14/00 by Microsoft SOAP SDK WSDL File Generator, Version 1.0 --
  servicemapping name=’DocSample1’
   service name=’DocSample1’
   using PROGID=’DocSample1.Sample1’
   cachable=’0’
   ID=’DocSample1Object’ /
   port name=’DocSample1PortType’
   operation name=’EchoString’
   execute uses=’DocSample1Object’
   method=’EchoString’dispID=’1610809344’
   parameter callIndex=’1’ name=’testString’
   elementName=’testString’ /
   parameter callIndex=’-1’ name=’retval’
   elementName=’Result’ /
   /execute
   /operation
   operation name=’AddNumbers’
   execute uses=’DocSample1Object’
   method=’AddNumbers’ dispID=’1610809345’
   parameter callIndex=’1’ name=’NumberOne’
   elementName=’NumberOne’ /
   parameter callIndex=’2’ name=’NumberTwo’
   elementName=’NumberTwo’ /
   parameter callIndex=’-1’ name=’retval’ elementName=’Result’ /
   /execute
   /operation
   operation name=’SubtractNumbers’
   execute uses=’DocSample1Object’
   method=’SubtractNumbers’ dispID=’1610809346’
   parameter callIndex=’1’ name=’NumberOne’
   elementName=’NumberOne’ /
   parameter callIndex=’2’ name=’NumberTwo’
   elementName=’NumberTwo’ /
   parameter callIndex=’-1’ name=’retval’ elementName=’Result’ /
   /execute
   /operation
  /port
   /service
  /servicemapping
    把文件中ProgID改为你刚才创建的ActiveX DLL的ProgID（如果严格按步骤做，这个例子是不用改的）
    创建ASP应用
    在运行IIS的服务器上，把下面的文件DocSample1.asp复制到刚才建立的DocSample1路径下
    %@ LANGUAGE = VBScript %
  % Response.ContentType = "text/xml" %
  %
   set soapserver = CreateObject("MSSOAP.SoapServer")
   wsdl = Server.MapPath("DocSample1.wsdl")
   wsml = Server.MapPath("DocSample1.wsml")
   call soapserver.init(wsdl, wsml)
   call soapserver.SoapInvoke(request, response)
  %
    在客户端做以下工作
    创建一个VBScript应用
    在客户端，创建一个文件，包含以下代码
    set soapclient = CreateObject("MSSOAP.SoapClient")
  Call soapclient.mssoapinit("http://localhost/DocSample1/DocSample1.wsdl", "DocSample1", "DocSample1PortType")
  wscript.echo soapclient.EchoString("Bob")
  wscript.echo soapclient.AddNumbers(2,3)
  wscript.echo soapclient.SubtractNumbers(3,2)
  
  On Error Resume Next
  wscript.echo soapclient.faultcode
  wscript.echo soapclient.faultstring
  wscript.echo soapclient.faultactor
  wscript.echo soapclient.detail
    保存文件为clientDocSample1.vbs.
    测试
    打开命令行窗口，输入cscript clientDocSample1.vbs
    注：
    1.cscript是一个在命令行方式下运行script文件的东东，一般格式如下:
    cscript [//host option] scriptfile
    host option以"//"开头，设置一些参数 如
    cscript //noLogo XXX.vbs或者cscript //Logo XXX.vbs,后面一个多了一行“版权所有”之类的话
    2.报读WSDL文件错误时，试试将?xml version=’1.0’ encoding=’UTF-16’ ?改为?xml
     version=’1.0’ encoding=’gb2312’ ?
    3.在Advanced Server下面，要注意DLL的执行权限
    理解服务器端的开发
    在这个简单的应用中，你首先在服务器端创建创建DocSample1.dll。这个DLL实现简单的算术操作(EchoString,
    AddNumbers,和SubtractNumbers)。注意，如果没有在运行IIS的服务器上创建这个DLL，必须将之复制到服务器上，并注册。
    DocSample1.wsdl：这个WSDL文件描述了服务以及服务中包含的操作: EchoString, AddNumber,和
     SubtractNumbers. 它定义了客户发送SOAP消息时必须遵从的格式。
    DocSample1.wsml：这个WSML文件是Microsoft SOAP实现中特定的文件。
    DocSample1.asp: 这个ASP文件处理SOAP请求。