动态库的编写和调用 Delphi 2

uDll.pas
function Add10(ANum: integer): integer; stdcall; //Delphi 默认采用 register 调用约定，如果dll涉及跨语言调用，最好

明确指出采用 stdcall 调用约定

library MyDll;

uses

ShareMem; // 如果dll 涉及长字符串的参数或变量，需要在 uses 第一的位置引用 ShareMem 单元。

exports

Add10;

可以使用标准指令以方便和加速过程、函数的调用。即 name，index，resident
Add10 name 'NewAdd'; //如果不写 name，默认以过程或函数最初声明的名称为准

Add10 index 1; //如果不写 index，默认编译器按顺序自动分配；index指令只对 windows 系统有用如果要同时使用 name 和 index ，那么 index 必须置于 name 前面

resident 主要为了向后兼容，编译器将忽略它

注意： exports 可以导出重载(overload)函数，但书写函数时必须加上参数。例如：
Add10(ANum: integer) name 'Add10_Int';

Add10(Anum: real) name 'Add10_Real'; //可以加一个 name 分别标示名称。重载时一定不能用 index 指令

在 Widnows 32 位程序中，两个应用程序的地址空间是相互没有联系的。DLL 在内存中是一份拷贝（每个应用程序的进程空间各自拥有该 DLL 的一个副本及自身的一套全局变量），而变量是在各进程的地址空间中，因此不能借助 DLL 的全局变量来达到两个应用程序间的数据传递，除非使用内存映像文件。

调用 dll：
(1)静态调用
function Add10(ANum: integer): integer; stdcall; external 'MyDll.dll';
注意：
• 必须用 stdcall 作为调用参数。
• 大小写敏感。与 Delphi 程序不同，调用动态链接库是大小写敏感的

(2)动态调用
type
  TAdd10 = function(ANum: integer): integer; stdcall;

const
  MyDllName = 'MyDll.dll';

var
  handle:THandle ;
  FPointer: TFarProc;
  MyFunc : TAdd10 ;
begin
  handle := LoadLibrary(MyDllName); {装载 DLL 到内存}
  if handle <> 0 then begin
   try
   FPointer := GetProcAddress(handle, 'Add10’); {获得函数的入口地址}
   //@MyFunc := GetProcAddress(handle, 'Add10’);
   //if @MyFunc <> nil then //也可以采用这种编写方式
   if FPointer <> nil then begin
   MyFunc := TAdd10(FPointer) ;
   …………
   end;
   finally
   FreeLibrary(handle); {释放 dll}
   end;
  end;
end;