2009年下半年全国计算机等级考试时间是2009年9月19日至23日。一般在考试前两个月开始报名！更多优质资料尽在考试大论坛 考试大在线题库
　　Windows 的执行文件可以划分为两种形式程序和动态连接库 （DLLs）。一般程序运行是用.EXE文件，但应用程序有时也可以调用存储在DLL的函数。
　　当我们调用Windows 中的API 函数的时候，实际上就是调用 存储在DLL 中的函数。
　　在如下几种情况下，调用DLL 是合理的：
　　1） 不同的程序使用相同的DLL ，这样只需要将DLL 在内存中装载一次，节省了内存的开销。
　　2） 当某些内容需要升级的时候，如果使用DLL 只需要改变DLL 就可以了，而不需要把整个程序都进行变动。
　　3） 由于DLL 是独立于语言的，所以，当不同语言习惯的人
　　共同开发一个大型项目的时候，使用DLL 便于程序系统的交流，当然，Delphi开发的DLL 也可以在诸如Visual BASIC，C++ 等系统中使用。
　　下面通过几个例子，说明Delphi开发动态连接库的方法和规范。
　　第一节 动态连接库的构建和调用方法
　　一、动态连接库构建 File---New---Other---DLL Wizard
　　这就创建了一个动态连接库的基本模块
　　library Project2; uses
　　SysUtils,
　　Classes;
　　{$R *.res}
　　begin
　　end.
　　把工程名改为Mydll，并写入必要的函数
　　library mydll;
　　uses
　　SysUtils,Classes,Dialogs,windows;
　　function Triple(N:Integer):integer;stdcall;
　　begin
　　result:=N+3;
　　end;
　　function Double(N:Integer):integer;stdcall;
　　begin
　　result:=N+2;
　　end;
　　function Triple1(N:Integer):integer;stdcall;
　　begin
　　showmessage(’计算N+3’);
　　result:=N+3;
　　end;
　　function Double1(N:Integer):integer;stdcall;
　　begin
　　messagebox(0,’计算N+2’,’计算N+2’,mb_ok);
　　result:=N+2;
　　end;
　　exports
　　Triple name ’Tr’,
　　Double name ’Do’,
　　Triple1 name ’TrM’,
　　Double1 name ’DoM’;
　　Triple,Double,Triple1,Double1;
　　{$R *.RES}
　　begin
　　end.
　　其中函数：Triple：把传入值加三
　　Double：把传入值加二
　　Triple1：把传入值加三并显示提示
　　Double1：把传入值加二并显示提示
　　从这个例子中可以看出DLL 程序的几个规则：
　　1） 在DLL 程序中，输出函数必须被声明为stdcall，以使用标准的Win32 参数传递技术来代替优化的Register。
　　（说明：在Delphi中Register方式是缺省的调用约定，这个约定尽量采用寄存器来传递参数，传递次序从左到右，最多可用到3个CPU 的寄存器，如果参数多于3 个，剩下的就通过栈来传送，使用寄存器传送可保证参数传递的速度最快。
　　而stdcall 方式是通过Windows 的标准调用来传递参数，传递秩序从左到右，这种方式适合调用Windows 的API ，在DLL 中，当然要使用这种方式）。
　　2）所有的输出函数都必须列在exports子句下面，这使的子例程在DLL外部就可以看到。
　　exports
　　Triple name ’Tr’,
　　Double name ’Do’,
　　Triple1 name ’TrM’,
　　Double1 name ’DoM’;
　　列出了用户使用这个函数的接口名字。虽然别名不是必须的，但最好给个别名，以便用户程序更容易找到这个函数，同时还要指出Delphi 6.0取消了Delphi 5.0中允许使用的index ，如果还用Index指明接口名字，Delphi 6.0中将提示错误。
　　实例中给出了两种提示方法，主要想说明一个问题：
　　showmessage(’’)，是VCL 提供的函数，由于多次编译VCL，做出的程序会比较大。
　　而messagebox(0,’’,’’,mb_ok) 是Windows提供的API 函数，做出的程序会比较小。
　　这就是说，编写DLL 程序的时候，要尽量避免多次编译VCL 。作为一个实例，这里把两种方法都列出来了。
　　保存
　　编译：Projrct---Build Mydll
　　这就完成了一个简单的动态连接库的编写。
　　二、动态连接库的调用
　　首先在implementation下做调用声明
　　const
　　gdi32=’mydll.dll’;
　　function triple(n:integer):integer;stdcall;external gdi32 name ’Tr’;
　　function Double(N:Integer):integer;stdcall;external gdi32 name ’Do’;
　　function triple1(n:integer):integer;stdcall;external gdi32 name ’TrM’;
　　function Double1(N:Integer):integer;stdcall;external gdi32 name ’DoM’;
　　以后程序中就可以作为普通的函数使用了，例如：
　　procedure TForm1.Button1Click(Sender: TObject);
　　var N:integer;
　　begin
　　N:=updown1.position;
　　edit1.text:=inttostr(triple(N));
　　end;

上一页12下一页