LL资料（一）2008-07-08 16:49第一篇文章:关于INNO,让您更喜欢INNO, 异构数据库之间完全可以用SQL语句导数据 海量数据库的查询优化及分页算法方案 ClientDataSet的隐含功能 解决DELPHI2005调试ASP.NET程序小问题 技术资料（全） 文件读取的基本方法 编程助手计划，帮你自动生成流程图 关于Table的FindKey和Locate查找的问题 Delphi学习三步走 收藏到网摘：
首先需要一个声明
type
TDll = procedure(ID:string;AHandle:THandle;ADOConnection:TADOConnection);stdcall;
//该定义的作用相当于C++中的函数指针声明
通过某个事件来调用
procedure TForm1.Button1Click(Sender: TObject);
var
Dll:TDll;
DllName:THandle;
begin
DllName:=LoadLibrary('..\Dll\Test_Dll.dll');// Dll的路径
try
if DllName<32 then
begin
messagebox(handle,'没有找到附带DLL文件，请确认程序是否完整！','加载DLL失败',MB_OK+MB_ICONEXCLAMATION);
exit;
end;
@Dll:=GetProcAddress(DllName,'CreateTest_DLLForm');
if @dll <> nil then
try
Dll('000001',Application.Handle,form1.ADOConnection1);
except
raise Exception.Create('不存在！');
end;
finally
FreeLibrary(DllName);//注意释放
end;
end;
在被调用的Dll里面写个函数，Dll被调用的时候用（有点绕口，呵呵）
当然，首先要声明了
procedure CreateTest_DllForm(ID:string;AHandle:THandle;ADOConnection:TADOConnection);stdcall;
函数具体内容
procedure CreateTest_DllForm(ID:string;AHandle:THandle;ADOConnection:TADOConnection);
var
OldHandle:THandle;
begin
Oldhandle:=Application.Handle;
Application.Handle:=AHandle;
MainFrm:=TMainFrm.Create(nil);
conn:=ADOConnection; // conn为已定义的全局变量
Try
MainFrm.ShowModal;
finally
Application.Handle:=OldHandle;
MainFrm.Free;
MainFrm:=nil;
end;
end;
最后不要忘了在ViewSource里写上
exports CreateTest_DllForm;
以上是动态调用，很简单的。
一 Dll的制作一般步骤
二 参数传递
三 DLL的初始化和退出清理[如果需要初始化和退出清理]
四 全局变量的使用
五 调用静态载入
六 调用动态载入
七 在DLL建立一个TForM
八 在DLL中建立一个TMDIChildForM
九 示例：
十 Delphi制作的Dll与其他语言的混合编程中常遇问题：
十一 相关资料
一 Dll的制作一般分为以下几步：
1 .在一个DLL工程里写一个过程或函数
2 .写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀。
二 参数传递
1 .参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。
2 .最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼容。
3 .用stdcall声明后缀。
4 .最好大小写敏感。
5 .无须用far调用后缀，那只是为了与windows 16位程序兼容。
三 DLL的初始化和退出清理[如果需要初始化和退出清理]
1 .DLLProc[SysUtils单元的一个Pointer]是DLL的入口。在此你可用你的函数替换了它的入口。但你的函数必须符合以下要求[其实就是一个回调函数]。如下：
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
dwReason参数有四种类型：
DLL_PROCESS_ATTACH:进程进入时
DLL_PROCESS_DETACH进程退出时
DLL_THREAD_ATTACH 线程进入时
DLL_THREAD_DETACH 线程退出时
在初始化部分写:
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
2 .如Form上有TdcomConnection组件,就Uses Activex,在初始化时写一句CoInitialize (nil);
3 .在退出时一定保证DcomConnection.Connected := False,并且数据集已关闭。否则报地址错。
四 全局变量的使用
在widnows 32位程序中，两个应用程序的地址空间是相互没有联系的。虽然DLL在内存中是一份，但变量是在各进程的地址空间中，因此你不能借助dll的全局变量来达到两个应用程序间的数据传递，除非你用内存映像文件。
五 调用静态载入
1 客户端函数声名:
1)大小写敏感。
2)与DLL中的声明一样。
如： showform(form:Tform);Far;external'yproject_dll.dll';
3)调用时传过去的参数类型最好也与windows c++一样。
4)调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；windows;widows\system;windows\ssystem32;
六 调用动态载入
1 .建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：
type
mypointer=procedure(form:Tform);Far;external;
var
Hinst:Thandle;
showform:mypointer;
begin
Hinst:=loadlibrary('yproject_dll');//Load一个Dll,按文件名找。
showform:=getprocaddress(Hinst,'showform');//按函数名找，大小写敏感。如果你知道自动化对象的本质就清楚了。
showform(application.mainform);//找到函数入口指针就调用。
Freelibrary(Hinst);
end;
七 .在DLL建立一个TForM
1 把你的Form Uses到Dll中，你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点，因为你的Form或许Uses了许多特殊的单元或函数]
2 传递一个Application参数，用它建立Form.
八 .在DLL中建立一个TMDIChildForM
1 Dll中的MDIForm.FormStyle不用为fmMDIChild.
2 在CreateForm后写以下两句：
function ShowForm(mainForm:TForm):integer;stdcall
var
Form1: TForm1;
ptr:PLongInt;
begin
ptr:=@(Application.MainForm);//先把dll的MainForm句柄保存起来，也无须释放，只不过是替换一下
ptr^:=LongInt(mainForm);//用主调程序的mainForm替换DLL的MainForm。MainForm是特殊的WINDOW，它专门管理Application中的Forms资源.
//为什么不直接Application.MainForm := mainForm,因为Application.MainForm是只读属性
Form1:=TForm1.Create(mainForm);//用参数建立
end;
备注：参数是主调程序的Application.MainForm
九 .示例：
DLL源代码：
library Project2;
uses
SysUtils,
Classes,
Dialogs,
Forms,
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
var
ccc: Pchar;
procedure OpenForm(mainForm:TForm);stdcall;
var
Form1: TForm1;
ptr:PLongInt;
begin
ptr:=@(Application.MainForm);
ptr^:=LongInt(mainForm);
Form1:=TForm1.Create(mainForm);
end;
procedure InputCCC(Text: Pchar);stdcall;
begin
ccc := Text;
end;
procedure ShowCCC;stdcall;
begin
ShowMessage(String(ccc));
end;
exports
OpenForm;
InputCCC,
ShowCCC;
begin
end.
调用方源代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure OpenForm(mainForm:TForm);stdcall;External'project2.dll';
procedure ShowCCC;stdcall;External'project2.dll';
procedure InputCCC(Text: Pchar);stdcall;External'project2.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
Text: Pchar;
begin
Text := Pchar(Edit1.Text);
// OpenForm(Application.MainForm);//为了调MDICHILD
InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中，16位应用程序或许不同，没有做实验。
end;
十 Delphi制作的Dll与其他语言的混合编程中常遇问题：
1 .与PowerBuilder混合编程
在定义不定长动态数组方面在函数退出清理堆栈时老出现不可重现的地址错，原因未明，大概与PB的编译器原理有关，即使PB编译成二进制代码也如此。
来自：zhousy_2000, 时间：2005-9-14 8:20:59, ID：3204433
tiDLL参数调用约定
----------------------
令 传递顺序 参数删除
stdcall 从左到右 函数方面
cdecl 从右到左 调用方面
pascal 从左到右 函数方面
register 从左到右 函数方面
━━━━━━━━━━━━━━━━━━━━━━
退出过程编译时必须关闭stack_checking，因而需设置编译指示 {$S-} 。
━━━━━━━━━━━━━━━━━━━━━
//----------dll的创建
library mydll
{$S-}
//--------uses单元
uses
classes,stdsys, form in 'form.pas'{form};
//---------变量声明
var
love:string;
baby:integer;
SaveExit: Pointer;
//---------函数和过程
procedure myinnerproc();stdcall; //内部使用过程
begin
{添入代码}
end;
procedure myproc(var love:string);stdcall;export; //输出可以调用过程
begin
{添入代码}
end;
function myfunction(baby:integer):integer;stdcall;export;//可调用函数
begin
{添入代码}
end;
procedure LibExit; far;
begin
if ExitCode = wep_System_Exit then
begin
{ 系统关闭时的相应处理 }
end
else
begin
{ DLL卸出时的相应处理 }
end;
ExitProc := SaveExit; { 恢复原来的退出过程指针 }
end;
//----------输出说明
exports
myproc name 'myproc' index 1,
myfunction name 'myfuntion' index 2 risdent;//输出信息始终保持在内存中{risdent}
//----------初始化工作
begin
{DLL的初始化工作 }
SaveExit := ExitProc; { 保存原来的退出过程指针 }
ExitProc := @LibExit; { 安装新的退出过程 }
End.
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
表10.1 ExitCode的取值与意义 ：取 值 意 义
---------------------
WEP_System_Exit Windows关闭
WEP_Free_DLLx DLLs被卸出
━━━━━━━━━━━━━━━━━━━━━
//--------------调用dll
1。静态调用
在静态调用一个DLLs中的过程或函数时，external指示增加到过程或函数的声明语句中。
被调用的过程或函数必须采用远调用模式。这可以使用far过程指示或一个{$F +}编译指示。
Delphi全部支持传统Windows动态链接库编程中的三种调用方式，它们是：
● 通过过程/函数名
● 通过过程/函数的别名
● 通过过程/函数的顺序号
//--------------------静态调用举例
unit windows
interface
function FindWindowsEx(Parent,Child:hwnd;classname,windowsname:pchar):hwnd;stdcall;
const
user32='user32.dll'
implementation
function FindWindowEx; external user32 name 'FindWindowExA'
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
2. 动态调用
2.1 动态调用中的API函数
动态调用中使用的Windows API函数主要有三个,即：Loadlibrary，GetProcAddress和Freelibrary。
1.Loadlibrary: 把指定库模块装入内存
语法为： function Loadlibrary(LibFileName: PChar): THandle;
LibFileName指定了要装载DLLs的文件名，如果LibFileName没有包含一个路径，则Windows按下述顺序进行查找：
(1)当前目录；
(2)Windows目录(包含win.com的目录)。函数GetWindowDirectory返回这一目录的路径；
(3)Windows系统目录(包含系统文件如gdi.exe的目录)。函数GetSystemDirectory返回这一目录的路径；
(4)包含当前任务可执行文件的目录。利用函数GetModuleFileName可以返回这一目录的路径；
(5)列在PATH环境变量中的目录；
(6)网络的映象目录列表。
如果函数执行成功，则返回装载库模块的实例句柄。否则，返回一个小于HINSTANCE_ERROR的错误代码。错误代码的意义如下表：
表10.2 Loadlibrary返回错误代码的意义
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
错误代码 意 义
--------------------------------------
0 系统内存不够，可执行文件被破坏或调用非法
2 文件没有被发现
3 路径没有被发现
5 企图动态链接一个任务或者有一个共享或网络保护错
6 库需要为每个任务建立分离的数据段
8 没有足够的内存启动应用程序
10 Windows版本不正确
11 可执行文件非法。或者不是Windows应用程序，或者在.EXE映像中有错误
12 应用程序为一个不同的操作系统设计(如OS/2程序)
13 应用程序为MS DOS4.0设计
14 可执行文件的类型不知道
15 试图装载一个实模式应用程序(为早期Windows版本设计)
16 试图装载包含可写的多个数据段的可执行文件的第二个实例
19 试图装载一个压缩的可执行文件。文件必须被解压后才能被装裁
20 动态链接库文件非法
21 应用程序需要32位扩展
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
假如在应用程序用Loadlibrary调用某一模块前，其它应用程序已把该模块装入内存，则Loadlibrary并不会装载该模块的另一实例，而是使该模块的"引用计数"加1。
2.GetProcAddress：捡取给定模块中函数的地址
语法为： function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc;
Module包含被调用的函数库模块的句柄，这个值由Loadlibrary返回。如果把Module设置为nil，则表示要引用当前模块。
ProcName是指向含有函数名的以nil结尾的字符串的指针，或者也可以是函数的次序值。如果ProcName参数是次序值，则如果该次序值的函数在模块中并不存在时，GetProcAddress仍返回一个非nil的值。这将引起混乱。因此大部分情况下用函数名是一种更好的选择。如果用函数名，则函数名的拼写必须与动态链接库文件EXPORTS节中的对应拼写相一致。
如果GetProcAddress执行成功，则返回模块中函数入口处的地址，否则返回nil。
3.Freelibrary：从内存中移出库模块
语法为： procedure Freelibrary(Module : THandle);
Module为库模块的句柄。这个值由Loadlibrary返回。
由于库模块在内存中只装载一次，因而调用Freelibrary首先使库模块的引用计数减一。如果引用计数减为0，则卸出该模块。
每调用一次Loadlibrary就应调用一次FreeLibray，以保证不会有多余的库模块在应用程序结束后仍留在内存中。
//------------ 动态调用举例
在利用GetProcAddess返回的函数指针时，必须进行强制类型转换：
Order := TInstr(PFunc)(text,Key);
TInStr是一个定义好了的函数类型：
type
TInStr = function(Source: PChar;Check: Char): Integer;
//---------------------------------
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
order: Integer;
txt: PChar;
PFunc: TFarProc;
Moudle: THandle;
begin
Moudle := Loadlibrary('c:\dlls\example.dll');
if Moudle > 32 then
begin
Edit2.text := '';
Pfunc := GetProcAddress(Moudle,'Instr');
txt := StrAlloc(80);
txt := StrPCopy(txt,Edit1.text);
Order := TInstr(PFunc)(txt,Key);
if Order = -1 then
Label1.Caption := '不包含这个字符 '
end else
Label1.Caption := '位于第'+IntToStr(Order+1)+'位';
Freelibrary(Moudle);
end;
//------------ 用于实现数据传输的DLLs的编写
用于实现数据传输的DLLs与一般DLLs的编写基本相同，其中特别的地方是：
1. 定义一个全局变量句柄：
var
hMem: THandle;
2. 定义一个过程，返回该全局变量的句柄。该过程要包含在exports子句中。如：
function GetGlobalMem: THandle; export;
begin
Result := hMem;
end;
3. 在初始化代码中分配全局内存块：
程序清单如下：
begin
hMem := GlobalAlloc(gmem_MOVEABLE and gmem_DDEShare,num);
if hMem = 0 then
MessageDlg('Could not allocate memory',mtWarning,[mbOK],0);
end.
//--------------------------------
num是一个预定义的常数。
表10.3 全局内存块的分配标志 ：标 志 意 义
---------------------------------
gmem_DDEShare 分配可由应用程序共享的内存
gmem_Discardable 分配可抛弃的内存(只与gmem_Moveable连用)
gmem_Fixed 分配固定内存
gmem_Moveable 分配可移动的内存
gmem_Nocompact 该全局堆中的内存不能被压缩或抛弃
gmem_Nodiscard 该全局堆中的内存不能被抛弃
gmem_NOT_Banked 分配不能被分段的内存
gmem_Notify 通知功能。当该内存被抛弃时调用GlobalNotify函数
gmem_Zeroinit 将所分配内存块的内容初始化为零
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
有两个预定义的常用组合是：
GHND = gmem_Moveable and gmem_Zeroinit
GPTK = gmem_Fixed and gmem_Zeroinit
来自：zsy146, 时间：2005-9-14 8:22:41, ID：3204435 | 编辑
一、开使你的第一个DLL专案
1.File->Close all->File->New﹝DLL﹞
代码:
//自动产生Code如下
library Project2;
//这有段废话
uses
SysUtils,
Classes;
{$R *.RES}
begin
end.
2.加个Func进来：
代码:
library Project2;
uses
SysUtils,
Classes;
Function MyMax ( X , Y : integer ) : integer ; stdcall ;
begin
if X > Y then
Result := X
else
Result := Y ;
end ;
//切记：Library 的名字大小写没关系，可是DLL-Func的大小写就有关系了。
// 在 DLL-Func-Name写成MyMax与myMAX是不同的。如果写错了，立即
// 的结果是你叫用到此DLL的AP根本开不起来。
//参数的大小写就没关系了。甚至不必同名。如原型中是 (X,Y:integer)但引
// 用时写成(A,B:integer)，那是没关系的。
//切记：要再加个stdcall。书上讲，如果你是用Delphi写DLL，且希望不仅给
// Delphi-AP也希望BCB/VC-AP等使用的话，那你最好加个Stdcall ; 的指示
//参数型态：Delphi有很多种它自己的变量型态，这些当然不是DLL所喜欢的
// ，Windows/DLL的母语应该是C。所以如果要传进传出DLL的参数，我们
// 尽可能照规矩来用。这两者写起来，后者会麻烦不少。如果你对C不熟
// 的话，那也没关系。我们以后再讲。
{$R *.RES}
begin
end.
3.将这些可共享的Func送出DLL，让外界﹝就是你的Delphi-AP啦﹞使用：光如此，你的AP还不能用到这些，你还要加个Exports才行。
代码:
{$R *.RES}
exports
MyMax ;
begin
end.
4.好了，可以按 Ctrl-F9编译了。此时可不要按F9。DLL不是EXE┌不可单独执行的，如果你按F9，会有ErrorMsg的。这时如果DLL有Error，请修正之。再按Ctrl-F9。此时可能有Warning，不要紧，研究一下，看看就好。再按Ctrl-F9，此时就『Done , Compiled 』。同目录就会有个 *.dll 。恭喜，大功告成了。
二、进行测试：开个新application：
1.加个TButton
代码:
ShowMessage ( IntToStr(MyMax(30,50)) ) ;
2.告知Exe到那里抓个Func
代码:
//在Form,interface,var后加
Function MyMax ( X , Y : integer ) : integer ; stdcall ; external 'MyTestDLL.dll' ;
// MyTestDLL.dll为你前时写的DLL项目名字
// DLL名字大小写没关系。不过记得要加 extension的 .DLL。在Win95或NT，
// 是不必加 extension，但这两种OS，可能越来越少了吧。要加extension
可以了，简单吧。
上面的例子是不是很简单？熟悉Delphi的朋友可以看出以上代码和一般的Delphi程序的编写基本是相同的，只是在TestDll函数后多了一个stdcall参数并且用exports语句声明了TestDll函数。只要编译上面的代码，就可以玫揭桓雒 狣elphi.dll的动态链接库。现在，让我们来看看有哪些需要注意的地方：
1.在DLL中编写的函数或过程都必须加上stdcall调用参数。在Delphi 1或Delphi 2环境下该调用参数是far。从Delphi 3以后将这个参数变为了stdcall，目的是为了使用标准的Win32参数传递技术来代替优化的register参数。忘记使用stdcall参数是常见的错误，这个错误不会影响DLL的编译和生成，但当调用这个DLL时会发生很严重的错误，导致操作系统的死锁。原因是register参数是Delphi的默认参数。
2.所写的函数和过程应该用exports语句声明为外部函数。
正如大家看到的，TestDll函数被声明为一个外部函数。这样做可以使该函数在外部就能看到，具体方法是单激鼠标右键用"快速查看（Quick View）"功能查看该DLL文件。（如果没有"快速查看"选项可以从Windows CD上安装。）TestDll函数会出现在Export Table栏中。另一个很充分的理由是，如果不这样声明，我们编写的函数将不能被调用，这是大家都不愿看到的。
3.当使用了长字符串类型的参数、变量时要引用ShareMem。
Delphi中的string类型很强大，我们知道普通的字符串长度最大为256个字符，但Delphi中string类型在默认情况下长度可以达到2G。（对，您没有看错，确实是两兆。）这时，如果您坚持要使用string类型的参数、变量甚至是记录信息时，就要引用ShareMem单元，而且必须是第一个引用的。既在uses语句后是第一个引用的单元。如下例：
uses
ShareMem,
SysUtils,
Classes;
还有一点，在您的工程文件（*.dpr）中而不是单元文件（*.pas）中也要做同样的工作，这一点Delphi自带的帮助文件没有说清楚，造成了很多误会。不这样做的话，您很有可能付出死机的代价。避免使用string类型的方法是将string类型的参数、变量等声明为Pchar或ShortString（如：s:string[10]）类型。同样的问题会出现在当您使用了动态数组时，解决的方法同上所述。
在Delphi中静态调用DLL
调用一个DLL比写一个DLL要容易一些。首先给大家介绍的是静态调用方法，稍后将介绍动态调用方法，并就两种方法做一个比较。同样的，我们先举一个静态调用的例子。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//本行以下代码为我们真正动手写的代码
function TestDll(i:integer):integer;stdcall;
external 'Delphi.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(TestDll(1));
end;
end.
上面的例子中我们在窗体上放置了一个编辑框（Edit）和一个按钮（Button），并且书写了很少的代码来测试我们刚刚编写的Delphi.dll。大家可以看到我们唯一做的工作是将TestDll函数的说明部分放在了implementation中，并且用external语句指定了Delphi.dll的位置。（本例中调用程序和Delphi.dll在同一个目录中。）让人兴奋的是，我们自己编写的TestDll函数很快被Delphi认出来了。您可做这样一个实验：输入"TestDll（"，很快Delphi就会用fly-by提示条提示您应该输入的参数是什么，就像我们使用Delphi中定义的其他函数一样简单。注意事项有以下一些：
一、调用参数用stdcall
和前面提到的一样，当引用DLL中的函数和过程时也要使用stdcall参数，原因和前面提到的一样。
二、用external语句指定被调用的DLL文件的路径和名称
正如大家看到的，我们在external语句中指定了所要调用的DLL文件的名称。没有写路径是因为该DLL文件和调用它的主程序在同一目录下。如果该DLL文件在C:\，则我们可将上面的引用语句写为external 'C:\Delphi.dll'。注意文件的后缀.dll必须写上。
三、不能从DLL中调用全局变量
如果我们在DLL中声明了某种全局变量，如：var s:byte 。这样在DLL中s这个全局变量是可以正常使用的，但s不能被调用程序使用，既s不能作为全局变量传递给调用程序。不过在调用程序中声明的变量可以作为参数传递给DLL。
四、被调用的DLL必须存在
这一点很重要，使用静态调用方法时要求所调用的DLL文件以及要调用的函数或过程等等必须存在。如果不存在或指定的路径和文件名不正确的话，运行主程序时系统会提示"启动程序时出错"或"找不到*.dll文件"等运行错误。
在Delphi中动态调用DLL top
动态调用DLL相对复杂很多，但非常灵活。为了全面的说明该问题，这次我们举一个调用由C++编写的DLL的例子。首先在C++中编译下面的DLL源程序。
#include
extern "C" _declspec(dllexport)
int WINAPI TestC(int i)
{
return i;
}
编译后生成一个DLL文件，在这里我们称该文件为Cpp.dll，该DLL中只有一个返回整数类型的函数TestC。为了方便说明，我们仍然引用上面的调用程序，只是将原来的Button1Click过程中的语句用下面的代码替换掉了。
procedure TForm1.Button1Click(Sender: TObject);
type
TIntFunc=function(i:integer):integer;stdcall;
var
Th:Thandle;
Tf:TIntFunc;
Tp:TFarProc;
begin
Th:=LoadLibrary('Cpp.dll'); {装载DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar('TestC'));
if Tp<>nil
then begin
Tf:=TIntFunc(Tp);
Edit1.Text:=IntToStr(Tf(1)); {调用TestC函数}
end
else
ShowMessage('TestC函数没有找到');
finally
FreeLibrary(Th); {释放DLL}
end
else
ShowMessage('Cpp.dll没有找到');
end;
大家已经看到了，这种动态调用技术很复杂，但只要修改参数，如修改LoadLibrary('Cpp.dll')中的DLL名称为'Delphi.dll'就可动态更改所调用的DLL。
一、定义所要调用的函数或过程的类型
在上面的代码中我们定义了一个TIntFunc类型，这是对应我们将要调用的函数TestC的。在其他调用情况下也要做同样的定义工作。并且也要加上stdcall调用参数。
二、释放所调用的DLL
我们用LoadLibrary动态的调用了一个DLL，但要记住必须在使用完后手动地用FreeLibrary将该DLL释放掉，否则该DLL将一直占用内存直到您退出Windows或关机为止。
现在我们来评价一下两种调用DLL的方法的优缺点。静态方法实现简单，易于掌握并且一般来说稍微快一点，也更加安全可靠一些；但是静态方法不能灵活地在运行时装卸所需的DLL，而是在主程序开始运行时就装载指定的DLL直到程序结束时才释放该DLL，另外只有基于编译器和链接器的系统（如Delphi）才可以使用该方法。动态方法较好地解决了静态方法中存在的不足，可以方便地访问DLL中的函数和过程，甚至一些老版本DLL中新添加的函数或过程；但动态方法难以完全掌握，使用时因为不同的函数或过程要定义很多很复杂的类型和调用方法。对于初学者，笔者建议您使用静态方法，待熟练后再使用动态调用方法。
使用DLL的实用技巧
一、编写技巧
1 、为了保证DLL的正确性，可先编写成普通的应用程序的一部分，调试无误后再从主程序中分离出来，编译成DLL。
2 、为了保证DLL的通用性，应该在自己编写的DLL中杜绝出现可视化控件的名称，如：Edit1.Text中的Edit1名称；或者自定义非Windows定义的类型，如某种记录。
3 、为便于调试，每个函数和过程应该尽可能短小精悍，并配合具体详细的注释。
4 、应多利用try-finally来处理可能出现的错误和异常，注意这时要引用SysUtils单元。
5 、尽可能少引用单元以减小DLL的大小，特别是不要引用可视化单元，如Dialogs单元。例如一般情况下，我们可以不引用Classes单元，这样可使编译后的DLL减小大约16Kb。
二、调用技巧
1 、在用静态方法时，可以给被调用的函数或过程更名。在前面提到的C++编写的DLL例子中，如果去掉extern "C"语句，C++会编译出一些奇怪的函数名，原来的TestC函数会被命名为@TestC$s等等可笑的怪名字，这是由于C++采用了C++ name mangling技术。这个函数名在Delphi中是非法的，我们可以这样解决这个问题：
改写引用函数为
function TestC(i:integer):integer;stdcall;
external 'Cpp.dll';name '@TestC$s';
其中name的作用就是重命名。
2 、可把我们编写的DLL放到Windows目录下或者Windows\system目录下。这样做可以在external语句中或LoadLibrary语句中不写路径而只写DLL的名称。但这样做有些不妥，这两个目录下有大量重要的系统DLL，如果您编的DLL与它们重名的话其后果简直不堪设想，况且您的编程技术还不至于达到将自己编写的DLL放到系统目录中的地步吧！
三、调试技巧
1 、我们知道DLL在编写时是不能运行和单步调试的。有一个办法可以，那就是在Run|parameters菜单中设置一个宿主程序。在Local页的Host Application栏中添上宿主程序的名字就可进行单步调试、断点观察和运行了。
2 、添加DLL的版本信息。开场白中提到了版本信息对于DLL是很重要的，如果包含了版本信息，DLL的大小会增加2Kb。增加这么一点空间是值得的。很不幸我们如果直接使用Project|options菜单中Version选项是不行的，这一点Delphi的帮助文件中没有提到，经笔者研究发现，只要加一行代码就可以了。如下例：
library Delphi;
uses
SysUtils,
Classes;
{$R *.RES}
//注意，上面这行代码必须加在这个位置
function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;
exports
TestDll;
begin
end.
3 、为了避免与别的DLL重名，在给自己编写的DLL起名字的时候最好采用字符数字和下划线混合的方式。如：jl_try16.dll。
4 、如果您原来在Delphi 1或Delphi 2中已经编译了某些DLL的话，您原来编译的DLL是16位的。只要将源代码在新的Delphi 3或Delphi 4环境下重新编译，就可以得到32位的DLL了。
