delphi 调用DLL 及释放例子

在Delphi编程环境中，DLL（动态链接库）是一种非常重要的技术，它允许代码复用和模块化。DLL文件包含可由多个程序同时使用的函数和资源，这样可以减少内存占用并提高程序性能。本示例将深入讲解如何在Delphi中调用DLL以及正确释放资源。 创建DLL项目。在Delphi中，选择“新建”然后选择“动态链接库（DLL）”模板。在DLL工程中，你可以定义要导出的函数。例如，我们可以创建一个简单的计算两个数之和的函数： ```delphi unit DLLUnit1; interface uses System.SysUtils; function AddNumbers(a, b: Integer): Integer; stdcall; implementation function AddNumbers(a, b: Integer): Integer; begin Result := a + b; end; end. ``` 在`interface`部分声明函数，`stdcall`是调用约定，表示参数由被调用者清理。在`implementation`部分实现函数。 接下来，我们需要在DLL工程的` DPR` 文件（项目文件）中导出这个函数。添加以下代码： ```delphi library MyDLL; uses DLLUnit1; exports AddNumbers; begin end. ``` 编译DLL项目，生成`MyDLL.dll`文件。 现在，创建一个主程序来调用DLL中的函数。新建一个Delphi的“VCL Forms 应用程序”，然后在`uses`部分引入`Windows`单元，以便使用DLL相关功能： ```delphi uses ..., Windows; ``` 在主程序中，使用`GetProcAddress`函数获取DLL中的函数地址，`LoadLibrary`加载DLL，`FreeLibrary`在使用完毕后释放DLL。以下是一个简单的主程序示例： ```delphi procedure TForm1.Button1Click(Sender: TObject); var DLLHandle: THandle; AddNumbersFunc: function(a, b: Integer): Integer; stdcall; begin DLLHandle := LoadLibrary('MyDLL.dll'); if DLLHandle <> 0 then try @AddNumbersFunc := GetProcAddress(DLLHandle, 'AddNumbers'); if @AddNumbersFunc <> nil then begin Memo1.Lines.Add(IntToStr(AddNumbersFunc(3, 4))); // 调用DLL函数 end else ShowMessage('Function not found in DLL.'); finally FreeLibrary(DLLHandle); // 释放DLL end else ShowMessage('Failed to load DLL.'); end; ``` 在这个例子中，当用户点击按钮时，主程序会加载`MyDLL.dll`，找到`AddNumbers`函数，并调用它计算3和4的和，结果写入Memo控件。无论成功与否，都会释放DLL。 总结起来，Delphi调用DLL主要涉及以下步骤： 1. 在DLL项目中定义函数并导出。 2. 在主程序中使用`LoadLibrary`加载DLL。 3. 使用`GetProcAddress`获取DLL函数的地址。 4. 调用DLL函数执行所需操作。 5. 使用`FreeLibrary`释放DLL资源。 确保正确地管理DLL的生命周期非常重要，避免内存泄漏和程序异常。在实践中，可能还需要处理错误，比如DLL未找到、函数找不到等问题。这个例子只是一个基础的起点，实际的DLL调用可能涉及更复杂的参数传递、类型转换和错误处理。