COM+ Web 服务：通过复选框路由到 XML Web Services （转）8-xml教程
转载自：互联网 作者：cd3c.com
您正在看的xml教程是:COM+ Web 服务：通过复选框路由到 XML Web Services （转）8。
即使在通过 SOAP 调用时，CAO 激活也会保留状态，并且允许通过 SOAP 来回传递对象引用。名称和值都保留在服务器上的类实例中，并且引用可以正确工作。这两种脚本都调用相同的编译 C# 组件，只是 .NET Remoting 激活模型不同。
除了使用 CreateObject 调用 CAO 激活外，还可以使用带有 COM+ 的名字对象，它可以提供 CAO 激活来替代 WKO（类型名称和程序集名字对象）。以下脚本：
'直接创建两个对象
set c1=GetObject("soap:typename=RefPass.Child,assembly=RefPass")
set c2=GetObject("soap:typename=RefPass.Child,assembly=RefPass")
'设置第一个对象的名称，并调用数次
'以递增对象内部计数器
c1.SetName("C1")
WScript.Echo c1.CountUp()
WScript.Echo c1.CountUp()
WScript.Echo c1.Countup()
WScript.Echo c1.CountUp()
WScript.Echo c1.Countup()
'设置第二个对象的名称，并调用数次
'以递增对象内部计数器
c2.SetName("C2")
WScript.Echo c2.CountUp()
WScript.Echo c2.CountUp()
WScript.Echo c2.Countup()
WScript.Echo c2.CountUp()
WScript.Echo c2.Countup()
'创建父对象
set p=GetObject("soap:typename=RefPass.Parent,assembly=RefPass")
'将子对象传递到父对象，并从父对象调用子对象
WScript.Echo p.SetRef(c1)
WScript.Echo p.CountUp(c2)
WScript.Echo p.CountUp(c2)
WScript.Echo p.CountUp(c2)
WScript.Echo p.CountUp(c2)
'现在调用存储在父对象内部的子对象
dim c9
WScript.Echo p.CountUp(c9)
'从父对象获取该对象并直接调用
Set c3 = p.GetRef()
WScript.Echo c3.CountUp()
将显示以下输出内容：
C:\moniker>refpassca
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
C1 1
C1 2
C1 3
C1 4
C1 5
C2 1
C2 2
C2 3
C2 4
C2 5
C1 5
C2 6
C2 7
C2 8
C2 9
C1 6
C1 7
这与上面的 VBScript CreateObject(ProgID) 示例的输出内容相同。因为常规 COM+ 激活路径被 SOAP 代理应用程序截获，所以可以使用 CoCreateInstance、CreateInstance 以及其他传统的 COM+ 激活方法来调用使用 COM+ Web 服务的客户端激活的对象。
程序集和类型名称名字对象，对于从托管代码客户端远程获取预先配置的客户端激活也很有用，如下例所示：
Imports System
Imports System.Runtime.InteropServices
Module RefPassCl
Sub Main()
Dim ChildMoniker = "soap:assembly=RefPass,typename=RefPass.Child"
Dim ParentMoniker = "soap:assembly=RefPass,typename=RefPass.Parent"
Dim c1,c2,p as Object
c1 = Marshal.BindToMoniker(ChildMoniker)
Console.WriteLine(c1.SetName("C1"))
Console.WriteLine(c1.CountUp())
Console.WriteLine(c1.CountUp())
Console.WriteLine(c1.CountUp())
Console.WriteLine(c1.CountUp())
Console.WriteLine(c1.CountUp())
c2 = Marshal.BindToMoniker(ChildMoniker)
Console.WriteLine(c2.SetName("c2"))
Console.WriteLine(c2.CountUp())
Console.WriteLine(c2.CountUp())
Console.WriteLine(c2.CountUp())
Console.WriteLine(c2.CountUp())
Console.WriteLine(c2.CountUp())
p = Marshal.BindToMoniker(ParentMoniker)
Console.WriteLine(p.SetRef(c1))
Console.WriteLine(p.CountUp(c2))
Console.WriteLine(p.CountUp(c2))
Console.WriteLine(p.CountUp(c2))
Console.WriteLine(p.CountUp(c2))
Dim c9
Console.WriteLine(p.CountUp(c9))
[1] [2] 下一篇
