VB与COM概念(ZZ)

详细的概念请查相关的书，这里是把一些重点以VB使用者的观点加以突显出来。

COM物件透过CLSID来判定其唯一性(就如我们的身份证号唯一决定一个人)，这CLSID是
一个128BIT的GUID，它过透过复杂的制保证它Create出来时全球唯一，而这CLSID在vb
中，是由VB自动产生，而我们引用com物件时可不是由clsid来做，而是用ProgID，如
果您有发展过VB的ActiveX .Dll/.Exe Server时，便可以知道这ProgID便是
ProjectName.ClassName，正因如此，我们大多不觉得有CLSID的存在。而VB实作COM物件
是透过ActiveX .Dll/.Exe专案来做，但于MTS中只能用Inprocess的Com，所以我们只著
重在ActiveX .Dll Server的建构。

如果说，我们用VB写一个ActiveX .DLL专案，它的名称是OffADO 而有两个Class，名称分
别是Myclass1, ErrSrv ，在Compiler成.DLL之后，便会我们开发的电脑中注册该COM物
件，而引用时，可以透过CreateObject("OffADO.MyClass1") CreateObject("Offado.ErrSrv")
之后来引用其内部的Method，注意的是，这个例子中，虽只产生一个.DLL，但是它有两
个CLSID，分别唯一决定是 OffADO.MyClass1与OffADO.ErrSrv。

在COM的文章中，常见到一个名辞 Interface，其实它是一组相关的Function/Subroutine
的集合，它定义了有哪些Func/Sub与其对应的参数与传回值的型态等等资讯，一般来说
Interface的定义里面不会有任何的程式码，程式码是在COM实作中写。以上面的
例子来说，OffADO.MyClass1这个Com object，会有一个interface叫做 _MyClass1(Class
Name前加一个 "_")，而_Myclass1中有哪些Func/Sub呢，那就是我们OffADO.MyClass1程
式中Public 的Function与Property Get/Let (注意：Interface中只有Func/Sub 而没有
Property，所以VB中透过Property Get/Let 的方式来模拟出Property的存在，您觉不觉得
Property Get/Let 的长像和 FUNCTION没什么不同)。Interface一旦决定了，就不能再
更动它(Interface内的Function不能改变名称、参数个数及型态、ReturnValue的型态
等等，但是如何Implement则可以)，如果真的想要更动时，那得使用新的一个Interface
来做，旧的要保留(才能使旧有引用它的人能继续做事)，所以COM物件在散发出去前可得
先好好考虑一番。

COM物件的每个Interface也有一个Unique的ID(也是128Bit GUID的格式)，用以囃一决定
该Interface，而COM这些Interface及其中的数型态回值等资讯是放在Type Library中，
我们用VB引用ActiveX Server时(eg. Set rs = New ADODB.Recordset)，之所以在Design
Time于物件的reference后打个"."，所有可用的Function/Property等全会Show出来，而
且Function中该传有多少参数，传回值是什么也一清二楚，便是由Type Linrary中取出
资料。而这 Type library是存于何处呢？如果您散发过ActiveX .Dll Server会知道一般
使用 Regsvr32 DllServer名称 来注册，如此一来不但该部电脑有.Dll Server可用，而
且VB引用它时，所有Method /Property都可以Show出来，是的，如果您用VB开发.Dll Server
，Type Library的资讯是存于.Dll档之中的。

在VB中，实作一个COM物件它可以有多少个Interface呢？可以有多个，它是透过Implements
指令来做，详细查on line Help，我们以MS公司的例子来说，我们在TestPrj专案中定义
有一Interface ILookUp，另以 CCustomer.cls来实作它 
'ILookup.cls (因只是定义，所以没有程式码)

Function GetByID(byval lngID as Long) as Variant
End Function

Function GetByEmail(byval strEmail as String) as Variant
End Function
 
'CCustomer.cls中有以下程式码

Implements ILookup '定义了它有ILook的Interface
'如果有其他的Interface，可以再用Implements指令再加一个进来，如下：
'Implements IAnotherInterface

Private Function GetByID(byval lngID as Long) as Variant
   '程式码在这里写出来
   'eg. GetById = lngID + 5
End Function

Private Function GetByEmail(byval strEmail as String) as Variant
 '程式码在这里写出来
 'eg. GetByEmail = strEmail & "@mail.ncku.edu.tw"
End Function

Public Function CustmFunc1() as String
 CustmFunc1 = "Test"
End Function
 

'Client中如何呼叫呢？

Dim objCustomer as TestPrj.CCustomer
Dim objLookup as TestPrj.ILookup

Set objCustomer = CreateObject("TestPrj.CCustomer")
Debug.Print objCustomer.CustFunc1
Set objLookup = objCustomer  '要求objCustomer中的ILookup Interface
Debug.Print objLookup.GetByEmail("cww5")

 

VB在产生COM物件之后，会在Registry中主要定义以下三个部份的资讯

1. /HKEY_CLASSES_ROOT/   注以本例ProgID = OffADO.MyClass1
   Subkey: ClsID     Value:"{1DFDF84D-......}"
   这里定义了ProgID与CLSID间的Mapping
2. /HKEY_CLASSES_ROOT/CLSID/    注这即上述 {1DFDF84D-......}
   底下又定义了许多Key
    key                Default value的意义
   ----------------    ------------------------------------------   
     InprocServer32    定义.Dll Server的所在(如果Under MTS则为"")
     LocalServer32     定义.exe Server的所在(如果Under MTS内有另外的值)
     ProgID            上例为offADO.Myclass1
     Programmable      没有值
     TypeLib           存TypeLibrary的LibID eg.{2BFDF84D-......}
     Version           版本
3. /HKEY_CLASSES_ROOT/TypeLib/ 就是上述的 {2BFDF84D-......}

如果是定义成RemoteServer者，又有许多不同，像 /HKEY_CLASSES_ROOT/CLSID/
下就没有那么多的Key，而在/HKEY_CLASSES_ROOT/AppID/ 下有
RemoteServerName的Key，其value便是RemoteServer在的机器。而Server端呢，若是Under
mts，则出现不同的Key( AppId、LaunchPermissio、 RunAs)
  
再来解释VB 专案属性Menu中 元件Tag 的以下设定
．无相容元件(no compatibility)
  每次compiler Type Library ID、CLSID、InterFace ID都会改
．与转案相容(Project compatibility)
  每次compiler InterFace ID 、CLSID会改，但Type Library ID都不会改。
  这用于专案开发阶段，
．与机器码相容(Binary compatibility)
  每次compiler Type Library ID、CLSID、InterFace ID都不会改，所以可以做到
  Backward compatibility。这用于专案已散发出去。试想，如果散发出后的clsid也
  改了，那么，原先引用您这activeX Server的程式，会因新版元件到来时变成不能。