SOAP應(yīng)用介紹

如果想瞭解SOAP到底是什麼，就要自己動手建立自己的SOAP標(biāo)準(zhǔn)對象。本文可以幫助你起步。
============================================

簡介
SOAP - 簡單對象處理協(xié)議(Simple Object Access Protocol) - 是當(dāng)前XML開髮的熱點(diǎn)。牠是微軟新一代Visual Studio的主要角色，是".NET"策略的基礎(chǔ)。如果想用VB 6編製一箇有保障的SOAP服務(wù)，可以查閲微軟的SOAP工具包(VB)。但如果想瞭解SOAP到底是什麼，就要自己動手建立自己的SOAP標(biāo)準(zhǔn)對象。本文可以幫助你起步。

本文中，我們創(chuàng)建一箇簡單的SOAP服務(wù)端和一箇客戶端。服務(wù)端用ASP編寫，名爲(wèi)soap.asp。這箇文件應(yīng)存放在箇人Web服務(wù)器的根目録下，如：/Inetpub/wwwroot。這箇服務(wù)器將接受和處理客戶端提齣的SOAP請求。客戶端是一箇簡單的VB可執(zhí)行文件，由Sub Main()啟動。

步驟
衆(zhòng)所週知，SOAP是一箇“呼叫-響應(yīng)”機(jī)製，按客戶/服務(wù)方式運(yùn)行?？蛻舳?應(yīng)用程序)曏服務(wù)端(位於互聯(lián)網(wǎng)上的某箇Web服務(wù)器)髮齣函數(shù)調(diào)用請求併傳遞蔘數(shù)；服務(wù)端則返迴響應(yīng)。呼叫與響應(yīng)的內(nèi)容和數(shù)據(jù)都是按XML文件格式進(jìn)行傳送的。因此，要建立一箇簡單的SOAP應(yīng)用繫統(tǒng)，就要建立一箇客戶端和一箇服務(wù)端，卽一箇呼叫-響應(yīng)體繫。

下麵是一箇簡單例子：
我們建立一箇服務(wù)端來計(jì)祘銷售交易的稅款。按照傳統(tǒng)的VB術(shù)語，卽建立一箇函數(shù)，定義如下：
      Public Function GetSalesTax(ByVal pSalesTotal As Double) as Double
          GetSalesTax = pSalesTotal * 0.04
      End Function

一箇粗糙的函數(shù)，但可作爲(wèi)示例(本例隻能用於稅率爲(wèi)4%的地方)。
這箇函數(shù)定義瞭一箇函數(shù)名(GetSalesTax)，一箇蔘數(shù)(pSalesTotal – 銷售金額)和一箇返迴值(函數(shù)返迴值)。按照麵曏對象原則，可以認(rèn)爲(wèi)pSalesTotal是一箇"IN"蔘數(shù)，GetSalesTax返迴值是一箇"OUT"蔘數(shù)。因此我們的SOAP服務(wù)端就要偵聽客戶髮齣的調(diào)用GetSalesTax的請求和傳遞的"IN"蔘數(shù)(銷售金額)，然後返迴帶有"OUT"蔘數(shù)的迴應(yīng)，曏客戶返迴所需稅款。

客戶端
下麵是用VB建立一箇呼叫服務(wù)的客戶端程序：
      dblSalesTax = GetSalesTax(100)
      得到返迴值$4。
     
      如果GetSalesTax函數(shù)是一箇外部對象，比如在MTS服務(wù)器上，就要調(diào)用服務(wù)器上的DLL模塊：
      Dim objTax As New CTaxCalc
      dblSalesTax = objTax.GetSalesTax(100)

在SOAP繫統(tǒng)中，遠(yuǎn)程調(diào)用的方式略有不衕，呼叫是通過XML文件傳送到服務(wù)器的。XML文件裡有調(diào)用的函數(shù)名和相應(yīng)的蔘數(shù)：
      <GetSalesTax>
          <SalesTotal>100</SalesTotal>
      <GetSalesTax>

爲(wèi)確保服務(wù)器能夠識彆和解釋客戶請求，呼叫指令被包裝到一箇稱之爲(wèi)SOAP信封的大文件裡。這箇信封使用的是SOAP封裝標(biāo)準(zhǔn)的通用命名空間：
      <SOAP:Envelope xmlns:SOAP="urn:schemas-xmlsoap-org:soap.v1">
          <SOAP:Header></SOAP:Header>
          <SOAP:Body>
              <GetSalesTax>
                  <SalesTotal>100</SalesTotal>
              <GetSalesTax>
          </SOAP:Body>
      </SOAP:Envelope>

最後，加入函數(shù)調(diào)用的命名空間，起到函數(shù)聲明的作用：
      <SOAP:Envelope xmlns:SOAP="urn:schemas-xmlsoap-org:soap.v1">
          <SOAP:Header></SOAP:Header>
          <SOAP:Body>
              <m:GetSalesTax xmlns:m="urn:myserver/soap:TaxCalc">
                  <SalesTotal>100</SalesTotal>
              </m:GetSalesTax>
          </SOAP:Body>
      </SOAP:Envelope>

現(xiàn)在，已經(jīng)準(zhǔn)備好客戶請求文件，可以送往服務(wù)端瞭。髮送請求很簡單，可以跟瀏覽器錶單一樣，用HTTP  post方式。瀏覽器可以曏服務(wù)端髮送複雜的錶單，.NET可以曏服務(wù)器髮送VB代碼，但我使用XMLHTTP(IE 5以上版本纔能用)。

假設(shè)strEnvelope含有XML文件格式的請求，髮送格式如下：
      Dim objHTTP As New MSXML.XMLHTTPRequest
      Dim strEnvelope As String

      '設(shè)定髮往本地服務(wù)器
      objHTTP.open "post", "http://localhost/soap/soap.asp"

      '設(shè)定標(biāo)準(zhǔn)SOAP/ XML文件頭格式
      objHTTP.setRequestHeader "Content-Type", "text/xml"

      '設(shè)置呼叫函數(shù)請求
      objHTTP.setRequestHeader "SOAPMethodName", _
          "urn:myserver/soap:TaxCalc#GetSalesTax"

      '呼叫SOAP
      objHTTP.send strEnvelope

      '取得返迴值
      strReturn = objHTTP.responseBody

至此，客戶端完成瞭曏服務(wù)端髮送請求的過程?，F(xiàn)在迴到服務(wù)端，看看服務(wù)端如何偵聽客戶請求併作齣響應(yīng)。

服務(wù)端
服務(wù)端要能夠接收客戶髮齣的HTTP請求，在本地服務(wù)器(http://localhost/soap.asp)接收到客戶請求時作齣迴應(yīng)。因此服務(wù)端要能夠解析客戶端髮齣的XML格式(SOAP封裝)的請求，取齣調(diào)用的函數(shù)名和蔘數(shù)。

服務(wù)端文件是soap.asp，牠接收客戶請求的做法是：
      Set objReq = Server.CreateObject("Microsoft.XMLDOM")
      objReq.Load Request

然後用XSL樣式從封裝的XML文件中取齣蔘數(shù)：
      strQuery = "SOAP:Envelope/SOAP:Body/m:GetSalesTax/SalesTotal"
      varSalesTotal = objReq.SelectSingleNode(strQuery).Text

根據(jù)蔘數(shù)計(jì)祘稅款：
      varSalesTax = varSalesTotal * 0.04

在將結(jié)果返迴給客戶之前，要按SOAP標(biāo)準(zhǔn)做格式化封裝。過程與客戶端類似，隻是把"IN"蔘數(shù)改換爲(wèi)"OUT"蔘數(shù)，併將函數(shù)標(biāo)記名標(biāo)爲(wèi)迴應(yīng)：
      <SOAP:Envelope xmlns:SOAP="urn:schemas-xmlsoap-org:soap.v1">
         <SOAP:Header></SOAP:Header>
         <SOAP:Body>
            <m:GetSalesTaxResponse xmlns:m="urn:myserver/soap:TaxCalc">
               <SalesTax>4</SalesTax>
            </m:GetSalesTaxResponse>
         </SOAP:Body>
      </SOAP:Envelope>

可以用字符串方式構(gòu)造這箇迴應(yīng)文件，也可以創(chuàng)建一箇DOM對象，增加一箇節(jié)點(diǎn)。
文件返迴給客戶後，客戶經(jīng)過解碼就能得到結(jié)果：
      Dim objReturn As New MSXML.DomDocument
      objReturn.LoadXML strReturn
      strQuery = _
        "SOAP:Envelope/SOAP:Body/m:GetSalesTaxResponse/SalesTax"
      dblTax = objReturn.SelectSingleNode(strQuery).Text

這樣就完成瞭一箇簡單的SOAP服務(wù)應(yīng)用。雖然Visual Studio 7掩蓋瞭內(nèi)在的SOAP協(xié)議，但我希望本文有助於理解SOAP的操作過程。

下麵是客戶端VB代碼：
      VB Client Code
      Sub Main()
        Dim objHTTP As New MSXML.XMLHTTPRequest
        Dim strEnvelope As String
        Dim strReturn As String
        Dim objReturn As New MSXML.DOMDocument
        Dim dblTax As Double
        Dim strQuery As String
       
        '創(chuàng)建SOAP封裝
        strEnvelope = _
          "<soap:envelope xmlns:soap=""urn:schemas-xmlsoap-org:soap.v1"">" & _
          "<soap:header></soap:header>" & _
          "<soap:body>" & _
          "<m:getsalestax xmlns:m=""urn:myserver/soap:TaxCalculator"">" & _
          "<salestotal>100</salestotal>" & _
          "</m:getsalestax>" & _
          "</soap:body>" & _
          "</soap:envelope>"
       
        '設(shè)定髮往本地服務(wù)器
        objHTTP.open "post", "http://localhost/soap.asp", False
       
        '設(shè)定標(biāo)準(zhǔn)SOAP/ XML格式
        objHTTP.setRequestHeader "Content-Type", "text/xml"
       
        '設(shè)置調(diào)用函數(shù)頭
        objHTTP.setRequestHeader "SOAPMethodName", _
          "urn:myserver/soap:TaxCalculator#GetSalesTax"
       
        'SOAP呼叫
        objHTTP.send strEnvelope
       
        '取齣返迴信封
        strReturn = objHTTP.responseText
       
        '加載到DOM
        objReturn.loadXML strReturn
       
        '查詢返迴值
        strQuery = _
          "SOAP:Envelope/SOAP:Body/m:GetSalesTaxResponse/SalesTax"
        dblTax = objReturn.selectSingleNode(strQuery).Text
       
        Debug.Print dblTax
      End Sub
    
    
     下麵是服務(wù)端ASP代碼(文件名soap.asp，存放在本地服務(wù)器根目録下)：
      <%
      Set objReq = Server.CreateObject("Microsoft.XMLDOM")

      '加載請求到XML DOM
      objReq.Load Request

      '按照輸入蔘數(shù)查詢
      strQuery = "SOAP:Envelope/SOAP:Body/m:GetSalesTax/SalesTotal"
      varSalesTotal = objReq.SelectSingleNode(strQuery).Text

      '計(jì)祘
      varSalesTax = varSalesTotal * 0.04

      '準(zhǔn)備返迴信封
      strTmp = _
      "<soap:envelope xmlns:soap=""urn:schemas-xmlsoap-org:soap.v1"">" & _
      "<soap:header></soap:header>" & _
      "<soap:body>" & _
      "<m:getsalestaxresponse xmlns:m=""urn:myserver/soap:TaxCalc"">" & _
      "<salestax>" & varSalesTax & "</salestax>" & _
      "</m:getsalestaxresponse>" & _
      "</soap:body>" & _
      "</soap:envelope>"

      '迴寫結(jié)果文件
      Response.Write strTmp
      %>