东
东张西望
Unregistered / Unconfirmed
GUEST, unregistred user!
我创建了一个Com对象，发现该对象创建时没有调用构造函数，只有调用析购函数，
如果这样，我如何初始化我的内部对象？另外，我刚学Midas，现在在试着把原来的一些
代码对象进行转换，发现在Midas下使用面向对象设计和编程非常别扭，限制很多，不知道
是不是我对Com的了解不够，翻遍论坛，没多少这方面的文章,请高手指点。
TACL = class(TTypedComObject, IACL)
protected
FList :TObjectList;
function IACL_Add(const AObject: IUnknown): HResult;
stdcall;
function isPriviledgeGranted(RequestedPriviledge_ID: Integer): WordBool;safecall;
public
destructor Destroy;override;
Constructor Create;
end;
constructor TACL.Create;
begin
FList := TObjectList.Create(True);
end;
destructor TACL.Destroy;
begin
FList.Free;
inherited;
end;
如果这样，我如何初始化我的内部对象？另外，我刚学Midas，现在在试着把原来的一些
代码对象进行转换，发现在Midas下使用面向对象设计和编程非常别扭，限制很多，不知道
是不是我对Com的了解不够，翻遍论坛，没多少这方面的文章,请高手指点。
TACL = class(TTypedComObject, IACL)
protected
FList :TObjectList;
function IACL_Add(const AObject: IUnknown): HResult;
stdcall;
function isPriviledgeGranted(RequestedPriviledge_ID: Integer): WordBool;safecall;
public
destructor Destroy;override;
Constructor Create;
end;
constructor TACL.Create;
begin
FList := TObjectList.Create(True);
end;
destructor TACL.Destroy;
begin
FList.Free;
inherited;
end;