Lazarus LoadLibrary：DLL动态链接库的加载和使用

本文将从以下几个方面介绍Lazarus中LoadLibrary和FreeLibrary函数的使用方法：

一、简介

LoadLibrary和FreeLibrary是Windows动态链接库的核心函数，可通过调用这些函数，将DLL动态链接库加载到应用程序中，并在完成操作后卸载该文件。在Lazarus环境中，为了方便使用Windows API中的相关功能，正确的使用这些函数至关重要。

二、LoadLibrary的使用方法

LoadLibrary函数可返回指定的动态链接库的模块句柄。使用这个函数可以动态的加载DLL文件，并把DLL中导出的变量和函数加载到进程空间中。

var
  librayHandle: TLibHandle;
begin
  librayHandle := LoadLibrary('MyDLL.dll');
  if libraryHandle <> nil then
  begin
    // do something
    FreeLibrary(librayHandle)
  end
  else
  begin
    writeln('Failed to load library.');
  end;
end;

上面的代码演示了如何打开一个名为MyDLL.dll的DLL文件。如果文件被成功加载到进程中，它将返回一个非空的库句柄。否则将打印错误消息。

三、FreeLibrary的使用方法

FreeLibrary函数可释放指定的动态链接库。如果在进程空间中仍存在该动态链接库的函数或变量，则不能释放该库。如果此时释放了该库，则在进程中的任何试图访问该库中的函数或变量的代码，都将无法正常工作。

var
  librayHandle: TLibHandle;
begin
  librayHandle := LoadLibrary('MyDLL.dll');
  if libraryHandle <> nil then
  begin
    // do something
    FreeLibrary(librayHandle)
  end
  else
  begin
    writeln('Failed to load library.');
  end;
end;

上面的代码演示了如何使用FreeLibrary函数释放已经被加载的MyDLL.dll。

四、GetProcAddress的使用方法

GetProcAddress函数按名称返回某个动态链接库中导出函数的地址。也就是说，可以使用这个函数根据名称获取动态链接库中的函数指针。

var
  MyFunc: function(a, b: Integer): Integer;
  libraryHandle: TLibHandle;
begin
  libraryHandle := LoadLibrary('MyDLL.dll');
  if libraryHandle <> nil then
  begin
    @MyFunc := GetProcAddress(libraryHandle, 'MyFunc');
    if Assigned(MyFunc) then
    begin
      writeln(MyFunc(1,2));
    end
    else
    begin
      writeln('Failed to get function pointer.');
    end;
    FreeLibrary(librayHandle)
  end
  else
  begin
    writeln('Failed to load library.');
  end;
end;

上面的代码演示了如何使用GetProcAddress函数得到名为MyFunc的函数的指针，并使用该指针调用函数。

五、注意事项

在Lazarus中使用LoadLibrary和FreeLibrary函数需要注意以下几点：

1、函数返回的TLibHandle类型为指向TLibHandleRec的指针，不能使用integer或者pointer等替代。

2、库的名称不能含路径，因为路径可能会改变。

3、如果名字不完全匹配，可能无法访问某些函数，因为Windows API对大小写敏感。

4、使用 LoadLibrary， FreeLibrary和 GetProcAddress 函数时，必须在前面添加 Windows 单元。

最后，Lazarus中LoadLibrary和FreeLibrary函数的使用方法在某些时候比较复杂，但是如果坚持做好输入检查和完善的错误处理，可以在其他函数中嵌入使用它获得良好的效果。