F
first
Unregistered / Unconfirmed
GUEST, unregistred user!
我在delphi6中建一个事务对象,又加入一个本地数据模块。
但是在事务对象中动态创建数据模块时报"不支持此接口"的错误,非常奇怪。
代码如下:
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
procedure Initialize;
end;
procedure MyInterface.initialize
begin
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;
但是在事务对象中动态创建数据模块时报"不支持此接口"的错误,非常奇怪。
代码如下:
MyInterface= class(TMtsAutoObject, Iree)
private
MyDataMod: TDataModule1;//本地数据模块
public
procedure Initialize;
end;
procedure MyInterface.initialize
begin
MyDatMod := TDataModule1.Create(Forms.Application);//创建数据模块
end;