DELPHI實作activex控制項的限制

個人認為DELPHI實作activex控制項的限制存在於DELPHI的activex控制項的基類派生於TAutoObject如下：

TActiveXControl = class(TAutoObject,

IConnectionPointContainer,

IDataObject,

IObjectSafety,

IOleControl,

IOleInPlaceActiveObject,

IOleInPlaceObject,

IOleObject,

iperPRopertyBrowsing,

IPersistPropertyBag,

IPersistStorage,

IPersistStreamInit,

IQuickActivate,

ISimpleFrameSite,

ISpecifyPropertyPages,

IViewObject,

IViewObject2)

....

....

end;

用DELPHI製作過activex控件的人都知道DELPHI的activex控件嚮導中必須指明控件包含的VCL窗體控件（從TWinControl派生的VCL控件），這樣就使得它的實現必須包含一個VCL窗體控件，而為了讓這個VCL窗體控制項隨時可用DELPHI還要為該控制項提供父視窗。看下面程式碼：

procedure TActiveXControl.Initialize;

begin

inherited Initialize;

FConnectionPoints := TConnectionPoints.Create(Self);

FControlFactory := Factory as TActiveXControlFactory;

if FControlFactory.EventTypeInfo <> nil then

FConnectionPoints.CreateConnectionPoint(FControlFactory.EventIID,

ckSingle, EventConnect);

FPropertySinks := FConnectionPoints.CreateConnectionPoint(IPropertyNotifySink,

ckMulti, nil);

FControl := FControlFactory.WinControlClass.CreateParented(ParkingWindow);

if csReflector in FControl.ControlStyle then

FWinControl := TReflectorWindow.Create(ParkingWindow, FControl) else

FWinControl := FControl;

FControlWndProc := FControl.WindowProc;

FControl.WindowProc := WndProc;

InitializeControl;

end;

這就是DELPHI實現activex控件的限制，我們如何去控制這個ParkingWindow，就算能夠控制整個activex控件的體積以及膨脹了很多了，在internet上的activex控件越小越好，至少現在的DELPHI要實現類似vc輕量級控制項（只實作IPersistStreamInit， IOleControl，IOleObject，IOleInPlaceActiveObject，IViewObjectEx，IOleInPlaceObjectWindowless這些介面的COM物件）非常困難，更不要說要按需（根據activex控制項的使用範圍是IE還是Word或其他）實作介面了。一個解決方案就是不從TAutoObject派生而是直接從窗體控制項派生如下：

TMyActiveXControl=class(TMyControl,

//TMyControl是一般的類別也可以是VCL窗體控制項類別.

//下面的介面並不總是需要派生和實作。可按需派生和實現

IConnectionPointContainer,

IDataObject,

IObjectSafety,

IOleControl,

IOleInPlaceActiveObject,

IOleInPlaceObject,

IOleObject,

IPerPropertyBrowsing,

IPersistPropertyBag,

IPersistStorage,

IPersistStreamInit,

IQuickActivate,

ISimpleFrameSite,

ISpecifyPropertyPages,

IViewObject,

IViewObject2)

....

....

end;

但是如果這樣，新的問題又產生了，要如何註冊這個activex控制項呢？因為沒有合適的類廠對象，DELPHI的類廠是以下關係：

TComObjectFactory-->TTypedComObjectFactory-->TAutoObjectFactory

-->TActiveXControlFactory-->TActiveFormFactory

而TComObjectFactory是這樣實現的，

TComObject = class(TObject, IUnknown, ISupportErrorInfo)

。 。 。 。

End;

TComClass = class of TComObject;

TComObjectFactory = class(TObject, IUnknown, IClassFactory, IClassFactory2)

…..

constructor Create(ComServer: TComServerObject; ComClass: TComClass;

const ClassID: TGUID; const ClassName, Description: string;

Instancing: TClassInstancing; ThreadingModel: TThreadingModel = tmSingle);

End;

類別廠的建構子要求ComClass這個參數，而TComObject是從TObject派生的，因此如我們根本找不到合適的類別廠基類別來派生，除非有下面的delphi實作：

TMyComObject = class(TMyControl, IUnknown, ISupportErrorInfo)

。 。 。 。

End;

TMyComClass = class of TMyComObject;

TMyComObjectFactory = class(TObject, IUnknown, IClassFactory, IClassFactory2)

…..

constructor Create(ComServer: TComServerObject; MyComClass: TMyComClass;

const ClassID: TGUID; const ClassName, Description: string;

Instancing: TClassInstancing; ThreadingModel: TThreadingModel = tmSingle);

End;

可惜就算有這樣的一個類別我們也無法使用，這個限制來自於DELPHI對COM類廠的實作如下：

TComServer = class(TComServerObject)

Private

。 。 。 。

procedure FactoryFree(Factory: TComObjectFactory);

procedure FactoryRegisterClassObject(Factory: TComObjectFactory);

procedure FactoryUpdateRegistry(Factory: TComObjectFactory);

procedure LastReleased;

end;

問題就出在這幾個函數，這幾個函數要求參數是TComObjectFactory類型，也就是說要使用delphi提供的COM伺服器的實現，那麼COM物件的類別廠就必須從TComObjectFactory派生，我沒想通這兒為什麼不使用接口，例如是如下實作：

TComServer = class(TComServerObject)

Private

。 。 。 。

procedure FactoryFree(Factory: IClassFactory);

procedure FactoryRegisterClassObject(Factory: IClassFactory);

procedure FactoryUpdateRegistry(Factory: IClassFactory);

procedure LastReleased;

end;