****动态链接库指针错误*** 各位兄台帮小弟一下

king8192 2005-05-21 11:12:57
小弟初学使用动态链接库,在调用程序调用运行时并没有问题,可是一关闭程序就报“指针无效”的错误,搞得我一头雾水,由于我刚开始接触,发现不了错误,请各位兄弟一定帮忙解决啊。
dll文件里的过程定义如下:

//执行sql语句 flag 的值 1 代表查询 2 代表插入 3代表修改
procedure execsql(myqy: TADOQuery; mysql: widestring; flag: real);
begin
try
if flag = 1 then
begin
with myqy do
begin
close;
sql.Clear;
sql.Add(mysql);
open;
end;
end
else if (flag = 2) or (flag = 3) then
begin
with myqy do
begin
close;
sql.Clear;
sql.Add(mysql);
execsql;
end;
end;
except
end;
end;

调用声明如下:
procedure execsql(myqy: TADOQuery; mysql: widestring; flag: real); far; external 'aa.dll';

多谢各位兄弟!!
...全文
84 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lwjghhh 2005-05-25
procedure execsql(myqy: TADOQuery; mysql: widestring; flag: real); external 'aa.dll';

正常是这样,如果不行,我想你不要直接传递一个AdoQuery试试看
回复
naughtyboy 2005-05-24
procedure execsql(myqy: TADOQuery; mysql: widestring; flag: real);stdcall;
回复
king8192 2005-05-24
我试了大家的办法,好像还是不行,谢谢各位兄台!
等待...
回复
zbk19821023 2005-05-24
关注
回复
zbb1031 2005-05-22
好像是应该External 函数名 这样吧?
回复
qizhf 2005-05-22
用动态调用的方式:
var hdl:Thandle;
execsqlfunc:procedure (myqy: TADOQuery; mysql: widestring; flag: real);
begin

....
hdl:=loadlibrary(handle,'aa.dll');
execsqlfunc:=getprocaddress(hdl,'execsql');
execsqlfunc(myqy, mysql,flag);
....
end;
回复
发帖
Windows SDK/API
创建于2007-08-02

1153

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2005-05-21 11:12
社区公告
暂无公告