COM+ Web 服务：通过复选框路由到 XML Web Services （转）5事务性组件示例

2022-07-15 80酷酷网 80kuku.com

　　services|web|xml|复选框在图 3 所示的 COM+ 应用程序导出向导中，输入代理 .msi 文件的位置和名称。

在图 3 所示的 COM+ 应用程序导出向导中，输入代理 .msi 文件的位置和名称。

图 3：COM+ 应用程序导出向导
将代理 .msi 文件安装在单独的客户端计算机上，作为预先生成的 COM+ 应用程序。
安装时将对代理进行适当的配置，以便通过 SOAP 访问正确的服务器和虚拟根。对于客户端激活，可以不使用 WSDL 名字对象，而使用常规非托管的 COM+ 激活（例如，CoCreateInstance、CreateObject 等）。在服务器上创建并在单独的客户端计算机上安装上述 Visual Basic 计算器示例的应用程序代理后，以下 VBScript 将通过 SOAP 访问该服务器：
```
set c = CreateObject("VB6Soap.Calc")for i = 1 to 10 WScript.Echo i & " " & c.Add(i,i) & " " & Timenext 
```
如果代理程序没有启用 COM+ Web 服务，则上述 VBScript 代码将使用 DCOM 访问服务器应用程序。

事务性组件示例

简单的计算器远算不上工作量繁重的业务应用程序，因此我们现在考虑带有对象池的适于 COM+ 事务性组件的应用程序。
最容易管理和配置的组件是由 ServicedComponent 导出的托管代码组件，如以下 C# 示例所示：

using System;using System.Reflection;using System.Runtime.InteropServices;using System.EnterpriseServices;using System.Data;using System.Data.SqlClient;[assembly: ApplicationName("SCTrans")][assembly: ApplicationActivation(ActivationOption.Server,    SoapVRoot="SCTrans")][assembly: AssemblyKeyFile("SCTrans.snk")]namespace SCTrans{  public interface ISCTrans  {   string CountUp (string Key);  }  [ObjectPooling(MinPoolSize=0, MaxPoolSize=25)]  [JustInTimeActivation(true)]  [ClassInterface(ClassInterfaceType.AutoDual)]  [TransactionAttribute(TransactionOption.RequiresNew)]  public class SCTransSQLNC : ServicedComponent, ISCTrans  {   [AutoComplete]   public string CountUp (string Key)   {      _command = new SqlCommand("", _connection);      _command.CommandType = CommandType.Text;      _command.Connection.Open();     _command.CommandText = "UPDATE CallCount WITH (ROWLOCK) SET       CallCount = CallCount + 1 WHERE Machine='" + Key + "'";     _command.ExecuteNonQuery();      _command.Connection.Close();     _numcalls++;     return (_numcalls + " NC " + _guid);   }    protected override bool CanBePooled()   {     return true;    }   private int _numcalls = 0;   private string _guid = Guid.NewGuid().ToString();   private SqlConnection _connection =    new SqlConnection("user id=MyUser;password=My!Password;   database=SoapTest;server=MyServer");   private SqlCommand _command;      }}

图 3：COM+ 应用程序导出向导

将代理 .msi 文件安装在单独的客户端计算机上，作为预先生成的 COM+ 应用程序。
安装时将对代理进行适当的配置，以便通过 SOAP 访问正确的服务器和虚拟根。对于客户端激活，可以不使用 WSDL 名字对象，而使用常规非托管的 COM+ 激活（例如，CoCreateInstance、CreateObject 等）。在服务器上创建并在单独的客户端计算机上安装上述 Visual Basic 计算器示例的应用程序代理后，以下 VBScript 将通过 SOAP 访问该服务器：

set c = CreateObject("VB6Soap.Calc")
for i = 1 to 10
WScript.Echo i & " " & c.Add(i,i) & " " & Time
next

如果代理程序没有启用 COM+ Web 服务，则上述 VBScript 代码将使用 DCOM 访问服务器应用程序。

事务性组件示例
简单的计算器远算不上工作量繁重的业务应用程序，因此我们现在考虑带有对象池的适于 COM+ 事务性组件的应用程序。

最容易管理和配置的组件是由 ServicedComponent 导出的托管代码组件，如以下 C# 示例所示：

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

[assembly: ApplicationName("SCTrans")]
[assembly: ApplicationActivation(ActivationOption.Server,
   SoapVRoot="SCTrans")]
[assembly: AssemblyKeyFile("SCTrans.snk")]
namespace SCTrans
{
  public interface ISCTrans
  {
   string CountUp (string Key);
  }

  [ObjectPooling(MinPoolSize=0, MaxPoolSize=25)]
  [JustInTimeActivation(true)]
  [ClassInterface(ClassInterfaceType.AutoDual)]
  [TransactionAttribute(TransactionOption.RequiresNew)]
  public class SCTransSQLNC : ServicedComponent, ISCTrans
  {
   [AutoComplete]
   public string CountUp (string Key)
   {
      _command = new SqlCommand("", _connection);
      _command.CommandType = CommandType.Text;
      _command.Connection.Open();
     _command.CommandText = "UPDATE CallCount WITH (ROWLOCK) SET
      CallCount = CallCount + 1 WHERE Machine='" + Key + "'";
     _command.ExecuteNonQuery();
      _command.Connection.Close();
     _numcalls++;
     return (_numcalls + " NC " + _guid);
   }

   protected override bool CanBePooled()
   {
     return true;
   }
   private int _numcalls = 0;
   private string _guid = Guid.NewGuid().ToString();
   private SqlConnection _connection =
   new SqlConnection("user id=MyUser;password=My!Password;
   database=SoapTest;server=MyServer");
   private SqlCommand _command;

  }
}