bpl的数据库连接问题
数据库连接放在了主程序exe里面了,模块分了很多bpl。
因为有多个bpl,所有我做了一个comm.bpl,用来包一些公用的unit,其中包括数据接口的unit。然后每个模块的bpl都添加comm.bpl,其中接口文件如下:
unit IDataModule;
interface
uses ADODB;
type
TIDM = interface
['{CE4B0AA7-CE04-4F67-A107-409A5F9DC184}']
function GetConn : TADOConnection;
end;
var
IDM : TIDM;
implementation
end.
请问我怎么在每个bpl文件中建立数据连接呢,我直接用IDM.GetConn会报错.
上传图片失败
提示信息为:Access violation at address 0003BE2 IN MODULE 'A_XTG..PBPL'.
rEAD OF ADDRESS 00000000.
[解决办法]
是不是接口要实例化后调用,比如Fs.GetConn
[解决办法]
IDM : TIDM;
中的IDM必须实例化
可以使用
initialization
IDM := TIDM.create(nil);
finalization
IDM.Free;
end;