N-Tiers开发方式(ASP/ASP.NET、VB6/VB.NET呼叫使用COM+组件)-CSDN博客

續接：N-Tiers開發方式(COM+元件的註冊、修改)

在元件安裝完成後，接下來的工作就是要如何呼叫使用我們寫好的元件了。我們假設我們寫好的元件的名稱如下：

Package:KDMO1000

Project：PDMOMenu

Class：

CDMOMenu1(無Transaction)

CDMOMenu2(有Transaction)

假設CDMOMenu1中有一個Function是GetNodeName，傳入參數NodeId(整數)，傳回NodeName(字串)

GetNodeName(Byval NodeId as Integer) As String

Late Binding：

我这边所提的使用方式，是使用Late Binding的呼叫方式。也就是说，不会预先将组件注册到您的ASP.NET的专案中，或者是您的VB.NET的项目中，当系统运作的时候，在动态的从Server把该对象Bind上来使用。这样做的缺点是，您无法透过obj.就弹出组件内的属性方法让您选择，使用属性方法的时候都必须自己Keyin进去。但是优点则是，当您的组件有做了变更，您不必去一个一个的项目里重新的Reference您的组件；另外就是不论您写的是ASP、ASP.NET、VB、VB.NET，您呼叫组件的方式是一致的。

呼叫组件：

呼叫组件的方式如下：

ASP:

Set obj = CreateObject ( " PDMOMenu.CDMOMenu1 " )
NodeId = 2
NodeName = obj.GetNodeName(NodeId)

VB:

Dim obj as Object
Set obj = CreateObject ( " PDMOMenu.CDMOMenu1 " )
Dim NodeId as Integer
NodeId = 2
Dim NodeName as String
NodeName = obj.GetNodeName(NodeId)

ASP.NET/VB.NET

Dim NodeId As Integer = 2
Dim obj As Object = CreateObject ( " PDMOMenu.CDMOMenu1 " )
Try
     Dim NodeName As String = obj.GetNodeName(NodeId)
Catch ex As Exception
     Me .lblErrMsg.Text = ex.Message.toString()
Finally
     ' 資源回收
    obj.Dispose()
    obj = Nothing
End Try

NET呼叫组件需自行释放组件：

从以上的这些程序代码，可以发现，呼叫组件的过程几乎相同，使用.NET撰写时，呼叫的方式更可以简洁。

当组件被呼叫执行后，可以在【组件服务】中找到该Package中的组件被呼叫而转起来。如果是用ASP,VB6呼叫组件，可以发现当组件呼叫完成后，组件的转动会停下来，呼叫中的组件数字也会归零。但次使用.NET呼叫组件，如果没有撰写【Try..Catch..Finally..End Try】并且把【obj.Dispose()】、【obj = Nothing】放在Finally里，那么【组件服务】中的组件将会转不停。这是因为ASP,VB6再程序执行完毕时，会自动的做【资源回收】的动作；但是在.NET中【资源回收】必须经由程序设计者手动的执行，否则需当系统资源不足时启动GC才能够真正的回收。