如何在Delphi 程序中调用任意 C++ DLL动态链接库

迷南。 2022-09-04 02:44 530阅读 0赞

![如何在任何 Delphi 程序中使用 C++ DLL][Delphi _ C_ DLL]

互联网上有大量有用的 C++ 库。我们也在[这个博客上][Link 1]展示了[C++ 的][Link 1]许多伟大用途。C++ 通常具有极高的性能。如果我们有 C++ 库的源代码，我们就可以创建一个包，然后我们就可以在 Delphi 程序中使用 C++。尽管 C++ 库的源代码通常不可用。在商业 C++ 库中，通常只获得几个 C++ 头文件和静态库文件 (.lib)，而没有任何随附的 .cpp 源文件。因此，在这种情况下，当我们想在 Delphi 应用程序中使用那些 C++ 库时，我们可以使用代理 DLL 来实现。

## **如何创建一个代理DLL来连接C++ DLL和Delphi？** ##

要将 Delphi 连接到 DLL，DLL 应该公开一个简单的 Windows API 样式 API，而不是 C++ 的东西。我们可以使用任何 C++ 编译器来编译代理 DLL。

[Embarcadero Dev-Cpp 开源编译器][Embarcadero Dev-Cpp]

[视觉工作室][Link 2]

我们举一个简单的例子。假设我们有一个 DLL 文件和一个带有此声明的更难的文件，而没有带有实现的 .cpp 文件。您可以在此链接中参考此示例的源代码：

[https://github.com/PacktPublishing/Delphi-High-Performance/tree/master/Chapter%208/StaticLib1][https_github.com_PacktPublishing_Delphi-High-Performance_tree_master_Chapter_208_StaticLib1]

## **下面介绍如何在带有代理dll的Delphi程序中使用C++库** ##

现在我们需要创建代理DLL。

使用您喜欢的 IDE 创建一个新的 C++ DLL 项目。

![如何在任何 Delphi 程序中使用 C++ DLL = 新的代理 DLL 项目][Delphi _ C_ DLL _ _ DLL]

它会自动添加“dllmain.cpp”文件。但是我们需要另一个单元来包装静态库。添加名为“StaticLibWrapper.cpp”的新单元。

## **现在我们应该在我们的项目中包含我们想要导入的静态库的头文件。** ##

现在将静态库的头文件复制到项目文件夹中。现在我们应该在我们的项目中包含静态库。为此，将静态库文件夹添加到库目录中：

![如何在任何 Delphi 程序中使用 C++ DLL - import-static-library][Delphi _ C_ DLL - import-static-library]

或者在 Visual Studio 中转到“配置属性 *|* 链接器 *|* 一般 *|* 其他库目录设置”。

## **如何将 C++ DLL 函数标记为“已导出”** ##

现在我们定义一个宏来标记 DLL 函数被导出。

接下来，实现IndexAllocator类以缓存 C++ 对象。这个类包含一个指针数组。它具有“Allocate”、“Release”和“Get”三个函数，用于将指针存储在缓存中、释放缓存和通过索引获取指针。

然后我们需要 toInitialize和 Finalize 函数来分配和释放IndexAllocator对象。

然后我们创建一个 CppClass 类的实例，并用这个函数将它存储在缓存中。

在此语句中，我们使用“C”来确保导出相同的名称并WINAPI更改调用转换。DestroyCppClass 与此类似。接下来，看看主要的导出函数“CppClass\_setValue”和“CppClass\_getSquare”。当用户调用这些函数时，它会从缓存中获取对象并调用这些函数并取值。

第一个函数将获取对象的索引并设置变量的值。在第二个函数中，它获取对象的索引，调用对象的“ getSquare”函数，并将值存储在值变量中。

## **如何在 Delphi 应用程序中使用 C++ 代理 DLL？** ##

我们可以静态或动态链接 DLL。对于静态加载，DLL 将在应用程序启动时加载。使用动态加载，DLL 将不会加载，直到我们调用“LoadLibrary”。让我们在这个例子中使用静态加载。让我们声明在 DLL 中导出的函数。

<table style="margin-left:0px;"> 
 <tbody> 
 <tr> 
 <td style="background-color:#dfefff;vertical-align:top;"> 
 <div style="margin-left:0;text-align:left;"> 
 <div style="margin-left:0;text-align:center;"> 
 1 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 2 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 3 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 4 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 5 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 6 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 7 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 8 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 9 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 10 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 11 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 12 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 13 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 14 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 15 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 16 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 17 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 18 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 19 
 </div> 
 </div> </td> 
 <td style="vertical-align:top;"> 
 <div style="margin-left:0;text-align:left;"> 
 <div style="margin-left:0;text-align:left;"> 
 const 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 CPP_CLASS_LIB = 'DllLib1.dll'; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 function Initialize: integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;stdcall; external CPP_CLASS_LIB name 'Initialize' delayed; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 function Finalize: integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;stdcall; external CPP_CLASS_LIB name 'Finalize' delayed; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 function CreateCppClass(var index: integer): integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;stdcall; external CPP_CLASS_LIB name 'CreateCppClass' delayed; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 function DestroyCppClass(index: integer): integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;stdcall; external CPP_CLASS_LIB name 'DestroyCppClass' delayed; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 function CppClass_setValue(index: integer; value: integer): integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;stdcall; external CPP_CLASS_LIB name 'CppClass_setValue' delayed; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 function CppClass_getSquare(index: integer; var value: integer): integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;stdcall; external CPP_CLASS_LIB name 'CppClass_getSquare' delayed; 
 </div> 
 </div> </td> 
 </tr> 
 </tbody> 
</table>

我们应该在 Delphi 应用程序创建时调用“Initialize”函数，在我们的应用程序销毁时调用“Finalize”函数。然后当我们在 Delphi 代码中使用代理 DLL 时，首先我们必须调用“CreateCppClass”来创建一个对象。它将设置将来使用的类 ID。然后我们可以调用DLL的所有函数，最后我们应该调用“DestroyCppClass”函数来销毁类实例。[颈椎枕][Link 3]在我们的例子中，我们这样做：

<table style="margin-left:0px;"> 
 <tbody> 
 <tr> 
 <td style="background-color:#dfefff;vertical-align:top;"> 
 <div style="margin-left:0;text-align:left;"> 
 <div style="margin-left:0;text-align:center;"> 
 1 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 2 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 3 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 4 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 5 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 6 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 7 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 8 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 9 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 10 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 11 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 12 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 13 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 14 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 15 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 16 
 </div> 
 <div style="margin-left:0;text-align:center;"> 
 17 
 </div> 
 </div> </td> 
 <td style="vertical-align:top;"> 
 <div style="margin-left:0;text-align:left;"> 
 <div style="margin-left:0;text-align:left;"> 
 procedure TfrmCppClassDemo.btnImportLibClick(Sender: TObject); 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 var 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 idxClass: Integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 value: Integer; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 begin 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 if CreateCppClass(idxClass) &amp;lt;&amp;gt; 0 then 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;ListBox1.Items.Add('CreateCppClass failed') 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 else if CppClass_setValue(idxClass, SpinEdit1.Value) &amp;lt;&amp;gt; 0 then 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;ListBox1.Items.Add('CppClass_setValue failed') 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 else if CppClass_getSquare(idxClass, value) &amp;lt;&amp;gt; 0 then 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;ListBox1.Items.Add('CppClass_getSquare failed') 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 else begin 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;ListBox1.Items.Add(Format('square(%d) = %d', [SpinEdit1.Value, value])); 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp;if DestroyCppClass(idxClass) &amp;lt;&amp;gt; 0 then 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 &nbsp;&nbsp; ListBox1.Items.Add('DestroyCppClass failed') 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 end; 
 </div> 
 <div style="margin-left:0;text-align:left;"> 
 end; 
 </div> 
 </div> </td> 
 </tr> 
 </tbody> 
</table>

最后，Delphi 应用程序将像这样工作：

![如何在任何 Delphi 程序中使用 C++ DLL = delphi cppclass import][Delphi _ C_ DLL _ delphi cppclass import]

--------------------

**RAD Studio 允许您快速创建可在 Windows、macOS、Linux、iOS 和 Android 上运行的 Delphi 和 C++ 程序。立即[下载免费试用版，][Link 4]将您的程序创意带到客户实际使用的设备上！**

--------------------

使用 RAD Studio、Delphi 或 C++Builder 缩短开发时间并更快地进入市场。  
设计。编码。编译。部署。

[Delphi _ C_ DLL]: /images/20220829/ddadd1bb39194dc592e1a8dad2910f52.png
[Link 1]: https://blogs.embarcadero.com/?s=c%2B%2B
[Embarcadero Dev-Cpp]: https://github.com/Embarcadero/Dev-Cpp
[Link 2]: https://visualstudio.microsoft.com/vs/community/
[https_github.com_PacktPublishing_Delphi-High-Performance_tree_master_Chapter_208_StaticLib1]: https://github.com/PacktPublishing/Delphi-High-Performance/tree/master/Chapter%208/StaticLib1
[Delphi _ C_ DLL _ _ DLL]: /images/20220829/b2e2bbd6282a4271960a298ab04040d1.png
[Delphi _ C_ DLL - import-static-library]: /images/20220829/d38055ef5e744a61b4e532cddc572f22.png
[Link 3]: http://www.taishanlaofu.com
[Delphi _ C_ DLL _ delphi cppclass import]: /images/20220829/a12f84f6a8f44266b5976c1445f927b5.png
[Link 4]: https://www.embarcadero.com/products/rad-studio