| 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; 追根到底问题出在delphi提供的COM服务器的实现以及类厂的实现上了，这下就没法了，至少我现在还没有找到什么好办法，现在想到的就只有自己实现COM服务器dll以及自己的activex控件类工厂了（实际上也做了一个，感觉还是很简单，有些delph实现COM服务器的的方法可以直接使用）。
上一页 [1] [2] | 
