COM+ Web 服務：通過複選框路由到 XML Web Services （轉）3

services|web|xml|複選框 現在，應用程式發行為 XML Web Services，並且可以使用 SOAP 啟用。使用 Internet Explorer 瀏覽到 http://localhost/VB6Soap/default.aspx，您會在該 aspx 頁上發現一個超連結，通過它可以連結到您的組件所產生的 WSDL。以下 VBScript 將啟用您的組件：

set c = GetObject
   ("soap:wsdl=http://localhost/VB6Soap/VB6Soap.Calc.soap?WSDL")
for i = 1 to 10
WScript.Echo i & " " & c.Add(i,i) & " " & Time
next

如果用您的伺服器名稱替換上面指令碼中的 localhost，它也可以在遠程用戶端電腦上正常工作。引用的頁面（在此樣本中為 VB6Soap.Calc.soap）是以 .soap 尾碼結尾的組件 ProgID。

要通過 SOAP Toolkit（與 Windows XP Professional 一起提供，並且不使用 .NET Remoting）訪問同一端點，請運行以下 VBScript：

set c = CreateObject("MSSOAP.SOAPClient")
c.mssoapinit("http://localhost/VB6Soap/VB6Soap.Calc.soap?WSDL")
for i = 1 to 10
WScript.Echo i & " " & c.Add(i,i) & " " & Time
next

要簡化在伺服器上發布 SOAP 的過程，您可以使用 Microsoft C#™ 或 Visual Basic .NET，並從 ServicedComponent 繼承。下面是簡單託管組件的Managed 程式碼樣本：

using System;
using System.Reflection;
using System.Runtime.InteropServices;
using System.EnterpriseServices;

[assembly: ApplicationName("CSSoap")]
[assembly: ApplicationActivation(ActivationOption.Server,
   SoapVRoot="CSSoap")]
[assembly: AssemblyKeyFile("CSSoap.snk")]
namespace CSSoap
{
  public interface ICalc
  {
   double Add (double Value1, double Value2);
  }

  [ClassInterface(ClassInterfaceType.AutoDual)]
  [TransactionAttribute(TransactionOption.None)]
  public class Calc : ServicedComponent, ICalc
  {
   public double Add (double Value1, double Value2);
   {
      return (Value1 + Value2);
   }
  }
}

上述樣本中值得注意的是 ApplicationActivation 屬性：

[assembly: ApplicationActivation(ActivationOption.Server,
   SoapVRoot="CSSoap")]

建立 C# 組件，將它安裝在全域組件快取中，然後運行 regsvcs.exe 將它註冊為 COM+ 應用程式。這樣，該組件就被發布為 IIS 虛擬根和 SOAP 端點。要成功地遠程使用 ServicedComponent，還需要使用 gacutil.exe 或 .NET 架構使用者介面，將這個編譯後的程式集放入全域組件快取 (GAC) 中。要通過 WSDL 訪問此 SOAP 端點，請使用以下 VBScript：

set c = GetObject
   ("soap:wsdl=http://localhost/CSSoap/CSSoap.Calc.soap?WSDL")
for i = 1 to 10
WScript.Echo i & " " & c.Add(i,i) & " " & Time
next

作為 SOAP 互動操作性的簡單樣本，SOAP Toolkit 與 Windows XP Professional 一起提供，並且即使運行 Windows XP 的用戶端電腦上沒有安裝 .NET 架構，使用以下 VBScript 也可以訪問 COM+ SOAP 端點：

set c = CreateObject("MSSOAP.SOAPClient")
c.mssoapinit("http://localhost/CSSoap/CSSoap.Calc.soap?WSDL?
for i = 1 to 10
WScript.Echo i & " " & c.Add(i,i) & " " & Time
next