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

[king8192]

小弟初学使用动态链接库，在调用程序调用运行时并没有问题，可是一关闭程序就报“指针无效”的错误，搞得我一头雾水，由于我刚开始接触，发现不了错误，请各位兄弟一定帮忙解决啊。
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';

多谢各位兄弟！！

[qizhf]

用动态调用的方式：
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;

[zbb1031]

好像是应该External 函数名 这样吧？

[zbk19821023]

关注

[king8192]

我试了大家的办法，好像还是不行，谢谢各位兄台！
等待...

[naughtyboy]

procedure execsql(myqy: TADOQuery; mysql: widestring; flag: real);stdcall;

[lwjghhh]

procedure execsql(myqy: TADOQuery; mysql: widestring; flag: real); external 'aa.dll';

正常是这样，如果不行，我想你不要直接传递一个AdoQuery试试看