有其它方法创建类的实例吗?(100分)

  • 主题发起人 主题发起人 first
  • 开始时间 开始时间
to beta
不会报错,只是当远程客户端创建Com对象事,Create方法不会自动执行
 
constructor MyInterface.Create(AOwner: TObject
AApplication: TApplication);
begin
Self := TMtsAutoObject.Create(AOwner);
MyDatMod := TDataModule1.Create(AApplication);//创建数据模块
end;

还不行,我就不知道了:(
 
to beta
这样是不行的
 
你要什么功能,有什么用???
 
to yeath
在上面已经说过了,你可以去看
 
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
constructor Create;reinstroduce;
end;
constructor Create;
begin
inherited;
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;

没试过
 
to huawdg
编译都通不过
 
用类方法来创建一个类,里面调用构造函数
 
写错了
constructor MyInterface.Create;
begin
inherited;
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;

 
to 张无忌
我已试过不行,这是报“不支持此接口”的错误
 
问题的根本原因在这
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1480823
 
要找出根本 原因 ,并不是Create的问题。
 
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
procedure Initialize override;
end;
procedure MyInterface.initialize
begin
inherited;
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;
 
根本的原因是在数据模块上的TDCOMConnection中,当把TDCOMConnection的Connected属性只为True时才报“不支持此接口”的错误,
我认为是在TDCOMConnection类中的DoConnect方法中产生的此错误,
只是不知该如何解决。李维的书中好象也没有提到此问题
 
那你不创建会错误???? 在数据模块中再创建数据模块会不会有问题????应该不会啊!
 
我已找到问题的原因
 
请说说,让兄弟们不犯同样的错误
 
后退
顶部