COM實現過程

l 類工廠的實現 
正如我前面所說的，一個類工廠必須去建立我們自定義的接口。在上面，我們定義了自定義的接口，並由類TMyCOMServer 去實現。那么，現在我們還要做的是，實現類工廠，然后由類工廠建立一個TMyCOMServer 的接口實例。類工廠接口定義如下： 
IClassFactory = interface(IUnknown) 
['{00000001-0000-0000-C000-000000000046}'] 
function CreateInstance(const UnkOuter: IUnknown; const IID: TGUID; 
out Obj): HResult; stdcall; 
function LockServer(fLock: Boolean): HResult; stdcall; 
end; 
注意，IclassFactory是系統預先定義了的，在ACTIVEX單元有，所以不需要自己再去定義一次。我們只要去實現它就是： 
TClassFactory = class(TObject, IClassFactory) 
protected 
FLock: integer; 
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; 
function _AddRef: Integer; stdcall; 
function _Release: Integer; stdcall; 
public 
Constructor Create; 
function CreateInstance(const UnkOuter: IUnknown; const IID: TGUID; 
out Obj): HResult; stdcall; 
function LockServer(fLock: Boolean): HResult; stdcall; 
end; 
我們只關注CreateInstance 方法。LockServer 用於在多客戶調用COM時，鎖定COM，以免一個客戶退出時銷毀了COM，那么其他客戶的調用將發生錯誤。但是我們在這里只實現單客戶，所以不考慮這個函數，把他置空就是。 
function TClassFactory.CreateInstance(const UnkOuter: IInterface; 
const IID: TGUID; out Obj): HResult; 
begin 

//我們的自定義接口，就是在這里被創建的。 
MC := TMyCOMServer.Create; 
Pointer(Obj) := Pointer(MC); 
end; 

function TClassFactory.LockServer(fLock: Boolean): HResult; 
begin 

end; 

同樣的，TclassFactory也必須實現引用計數，因為它也實現了Iunknown接口。 
function TClassFactory._AddRef: Integer; 
begin 
Inc(FLock); 

end; 

function TClassFactory._Release: Integer; 
begin 
Dec(FLock); 
if FLock = 0 then 
Free; 
end; 

function TClassFactory.QueryInterface(const IID: TGUID; out Obj): HResult; 
begin 

end; 
其中，QueryInterface 我把它置空，因為在這個例子中，不需要向它查詢什么接口。如果以后讀者需要向它查詢接口時，自己實現相關代碼。 
同樣，在它的構造器中，也預先對計數加1 
constructor TClassFactory.Create; 
begin 
Inc(FLock); 
end; 

到目前為止，我們已經基本實現了一個COM需要的大部分功能。現在，我們需要把它注冊到系統中，以便被其他程序調用。 
l COM的注冊和反注冊 
我們回過頭來，看看如何去實現那四個DLL的輸出函數。這四個函數的原形如下： 
function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult;stdcall; 
function DllCanUnloadNow: HResult;stdcall; 
function DllRegisterServer: HResult;stdcall; 
function DllUnregisterServer: HResult;stdcall; 

我們上面所說的類工廠的實例，就是在DllGetClassObject 中創建的。代碼如下： 
function DllGetClassObject(const CLSID, IID: TGUID; var Obj): HResult; 
begin 
CF := TClassFactory.Create; 
Pointer(obj) := Pointer(CF); 
Result := S_OK; 
end; 
同樣的，我們只有一個類工廠，所以可以不理會前面那兩個參數。否則，就要根據不同GUID，來創建不同的類工廠對象。在這里，我們直接把類工廠對象給返回了。 
函數DllCanUnloadNow 用來注銷一個COM。在正常使用中，要根據引用計數，來判斷是否允許用戶注銷。在這里我們直接返回S_OK，讓用戶直接注銷。 
function DllCanUnloadNow: HResult; 
begin 
Result := S_OK; 
end; 
函數DllRegisterServer 用來向注冊表注冊一個COM組件信息。要注冊一個COM，用戶必須知道COM在注冊表中的信息是如何組織的。結構如下： 
HKEY_CLASSES_ROOT 
---- CLSID 
---- GUID 
----- InprocServer32 標明 COM所在磁盤的路徑以及線程模型 
----- ProgID 標明COM所實現的接口 
----- TypeLib 標明 COM 的類型庫的GUID 
----- Version 標明 COM的版本號。 
當發生CreateCOMObject()調用時，輸入參數為COM的CLASS類型的GUID，系統將在注冊表中搜索到相關信息，然后就可以找到該COM的位置，就可以開始調用了。 
注意，如果您希望COM組件支持客戶端的CreateOLEObject()函數的調用，您必須還要注冊一個信息： 
HKEY_CLASSES_ROOT 
----- 接口聲明 
----- CLSID 標明 COM 接口和CLASS類型的GUID的對應關系。 
那么，當發生 CreateOLEObject 調用時，系統將會根據輸入參數（一個COM接口聲明，如a.b），去查找和接口對應的CLASS GUID，然后就可以讀到COM的相關信息了。 
全部代碼如下： 
function DllRegisterServer: HResult; 
var 
lp: pchar; 
ns: Dword; 
begin 
Result := S_FALSE; 
Reg := TRegistry.Create; 
GetMem(lp, 255); 
try 
Reg.RootKey := HKEY_CLASSES_ROOT; 
if Reg.OpenKey('\MyCOM.MyCOMTest',true) then 
begin 
Reg.CreateKey('CLSID'); 
if Reg.OpenKey('CLSID',true) then 
Reg.WriteString('',GUIDToString(Class_MyCOM)); 
end; 
if Reg.OpenKey('\CLSID\' + GUIDToString(Class_MyCOM), true) then 
begin 
if Reg.CreateKey('InprocServer32') = false or 
Reg.CreateKey('ProgID') = false or 
Reg.CreateKey('TypeLib') = false or 
Reg.CreateKey('Version') = false then 
Exit; 
Reg.WriteString('','MyCOM'); 
if Reg.OpenKey('\CLSID\' + GUIDToString(Class_MyCOM) + 
'\InprocServer32', false) then 
begin 
Windows.GetModuleFileName(HInstance,lp, 255); 
Reg.WriteString('', lp); 
Reg.WriteString('ThreadingModel', 'Single'); 
end; 
if Reg.OpenKey('\CLSID\' + GUIDToString(Class_MyCOM) + '\ProgID', false) then 
Reg.WriteString('','MyCOM.MyCOMTest'); 
if Reg.OpenKey('\CLSID\' + GUIDToString(Class_MyCOM) + '\Version', false) then 
Reg.WriteString('','1.0'); 
if Reg.OpenKey('\CLSID\' + GUIDToString(Class_MyCOM) + '\TypeLib', false) then 
Reg.WriteString('',GUIDToString(LIBID_MyCOM)); 

Reg.CloseKey; 
Result := S_OK; 
end; 
finally 
begin 
FreeMem(lp); 
Reg.Free; 
end; 
end; 
end; 

函數DllUnregisterServer 則向系統注銷一個COM的注冊信息。它比較簡單，直接把COM的相關注冊鍵給刪除就是： 
function DllUnRegisterServer: Hresult; 
begin 
Result := S_False; 
Reg := TRegistry.Create; 
try 
Reg.RootKey := HKEY_CLASSES_ROOT; 
Reg.DeleteKey('\CLSID\' + GUIDToString(Class_MyCOM)); 
Reg.CloseKey; 
Finally 
Reg.Free; 
end; 
end;