|
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]
[Delphi程序]Delphi深度探索-数据库明了的ActiveX控件 [Delphi程序]Delphi使用VB编写的ActiveX控件全攻略
[Delphi程序]Delphi使用VB6编写的ActiveX控件？？？ [Delphi程序]MediaPlayer9 ActiveX 攻略(原创)
[Delphi程序]Building ActiveX Controls with Delphi 3 [VB.NET程序]VB连接数据库时出现“ActiveX部件不能创建对象”
[Web开发]讲一讲ASP处理数据用的组件ADO (ActiveX Data Obj…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
