Delphi下DLL调用以及共享数据库连接

 

（1）正确认识dll
Dll本质上一个独立的应用程序，与exe一样，有自己的地址空间。 因此，dll是一个可装载执行的程序。其他的，不多说了吧。
（2）调用DLL的方法
我用过的有三种。
第一种：用API
因为Delphi支持几乎所有的API,你可以在Delphi中直接调用API装载一个外部DLL。但是我不喜欢这样做，因为我讨厌微软的那套路。
第二种：外部函数引用
做一个单元（unit），引用外部函数。例如：
function myDllCall(var i:integer): Integer; stdcall; external 'mydll.dll' name 'mydllpro';
依赖于DLL接口输出方式，或者写成：
function myDllCall(var i:integer): Integer; stdcall; external 'mydll.dll' index my_index;
注意：stdcall，cdecl，safecall遵循从右至左的参数调用规则;register,pascal遵循从左至右的参数调用规则。但是cdecl释放参数的时机与其他几种方式还不一样。建议大家采用stdcall调用，因为无论是Delphi还是C,都可用。
第三种：推荐方式---地址引用
如果在Delphi中调用由Delphi生成的Dll,这种方式最好。
你可以把Dll名称与其输出调用接口作为参数传入，写一个通用的过程或者函数，调用所有的dll.
这是我的一个例子：
procedure tcommon_base.run_dlls_parameter(filename,modulename:string;
var parameter:tmy_object);
//dll中要使用对象parameter;并且可能对parameter作修改，必须返回修改。
var
handle:thandle;
p :procedure(var parameter:tobject);
a,b :array[0..255]of char;
begin
filename:='.\runtime\'+filename; //dll的路径和名字：自己定义。
strpcopy(a,filename); //转换为Pchar.
handle:=loadlibrary(a); //装入dll.并返回句柄。
if handle<>0 then //装入成功
begin
strpcopy(a,modulename); //转换调用接口为pchar.
@p:=getprocaddress(handle,a);//得到调用接口的进程地址。
if @p<>nil then
p(parameter) //调用Dll.含参数。
else
begin
strpcopy(b,'Method Not Defined: '+modulename+'!');
messagebox(message_parameter.mainhandle,b,
'Error...',mb_ok or mb_iconexclamation);
end;
end
else
begin
strpcopy(b,'Component Not Found: '+filename+'!');
messagebox(message_parameter.mainhandle,
b,'Error...',mb_ok or mb_iconexclamation);
end;
end;
说明：如果你有一个dll是这么写的，
library cancel_service;
uses
sharemem,
SysUtils,
Classes,
forms,
process_cancel_service,//你的dll应用模块，一个窗体。
my_global;
(******************************)
procedure run_cancel_service(var param:tmy_object);
begin
my_global.global_parameter:=param;
//把传入的参数对象地址赋给dll的同一个参数类.
//使得主程序的参数对象和dll中的参数对象指向同一个实例空间.
//这样,在process_cancel_service窗体中就可以
//通过my_global.global_parameter来访问主程序的组件了.
//因为他们指向同一个地址.
process_cancel_service_form:=tprocess_cancel_service_form.create(nil);
process_cancel_service_form.showmodal;
process_cancel_service_form.free;
end;
(******************************)
exports
run_cancel_service;
begin
end.
那么，调用方式:
run_dlls_parameter('cancel_service.dll',
'run_cancel_service',myglobal.global_parameter);
注意:global_parameter对象定义在my_global.pas中,它定义了一个公用的对象Tglobal_parameter,用来传递参数.这个unit在你的主程序和dll中都要用到.从逻辑上讲,这是两个完全独立的unit,只不过他们的结构和内容完全一样.因此只要在主程序中初始化这个实例,dll中就可以通过对象地址直接引用了.切莫在dll中再次初始化这个实例,那样就浪费空间了,会形成内存泄露.
（3）是不是看不懂呢? 继续听我讲.
调用dll很简单,问题是如何与dll传递参数?比如,我要与dll共享数据库组件,我要在主程序中打开一个表,然后在dll中操作这个表,怎么办?
其实很简单,我们可以分别在主程序和dll中定义一个相同的对象或者结构(记录类型):global_parameter,这个对象或者结构中包含了我们需要共享或者传递的参数,包括数据库连接组件等等.
但是,我们知道,exe和dll完全是两个进程,他们之间如何传递这些参数呢? 很简单,我们可以在主程序中把这个参数对象生成好了,然后把这个对象的地址作为参数传给dll, 使得他们访问同一个空间,不就可以了么?
事实上,前面的例子就是这么做的.他们之间传递了一个tmy_object类型的对象,因为对象的传递过程,本身就是对象地址的传递,而不是空间的克隆.所以,他们之间就共享了同一个对象,可以直接访问对象中的其他组件......并且在dll中对参数对象的任何修改,对于主程序都是可见的.