Delphi类库(DLL)动态调用与静态调用示例讲解

Delphi类库(DLL)动态调用与静态调用示例讲解在Delphi或者其它程序中我们经常需要调用别人写好的DLL类库,下面直接上示例代码演示如何进行动态和静态的调用方法{**********************************************************}{}{DLL动态调用与静态调用的例子}{编译环境DelphiXE}{转载或编译请不要修改此文件}{**********************************************************}{**********************************************************}{DesignedbyJason2013-08-30}{**********************************************************}programLoadDll;{$APPTYPECONSOLE}usesSysUtils,windows;typeTGetCPUID=function(CPUID:PAnsiChar):integer;stdcall;//注1functionGetCPUID(CPUID:PAnsiChar):integer;stdcall;external'CPUID_Util.dll';vardllHandle:THandle;GetId:TGetCPUID;Id:Array[0..255]ofAnsichar;//注2：DELPHIXE中使用Unicode编码字符串这里使用ansicharbegintry//注3：静态调用WriteLn('先尝试静态调用');GetCPUID(Id);WriteLn(Id);if(Trim(Id)'')thenWriteLn('静态调用成功,回车尝试动态调用')elsebeginWriteLn('静态调用失败,回车后开始动态调用');end;ReadLn;//注4：动态调用dllHandle:=LoadLibrary(pchar('CPUID_Util.dll'));if(dllHandle32)thenbeginWriteLn('成功载入动态库,回车后开始调用函数');ReadLn;GetId:=GetProcAddress(dllHandle,pchar('GetCPUID'));GetId(Id);FreeLibrary(dllHandle);WriteLn(Id);ReadLn;endelsebeginWriteLn('动态库载入失败');end;exceptonE:ExceptiondoWriteLn(E.ClassName,':',E.Message);end;end.静态调用为常规方法，要点:1,掌握被调函数的参数数量和参数类型；2，准确找到被调用函数的位置动态调用不要求程序载入时同时载入动态库，调用模式为按需调用，比较灵活，但操作技巧稍高,主要时使用了三个系统API函数（LoadLibrary,GetProcAddress,FreeLibrary)LoadLibrary载入动态库并取得句柄---GetProcAddress取得函数入口点---FreeLibrary释放资源要点：1,先定义一个函数见“注1”2,注意传入参数的类型，避免调用失败3,注意资源使用的顺序载入-调用-释放