如何在 C++Builder 项目的 Delphi 单元中使用 Crtl？ （或链接到 C++Builder C 运行时库）

Question

我有一个 Delphi 单元，它使用 {$L xxx} 指令静态链接 C .obj 文件。 C 文件是用 C++Builder 的命令行编译器编译的。为了满足 C 文件的运行时库依赖项（_assert、memmove 等），我包含 Allen Bauer 提到的 crtl 单元 此处。

unit FooWrapper;

interface

implementation

uses
 Crtl; // Part of the Delphi RTL

{$L FooLib.obj}  // Compiled with "bcc32 -q -c foolib.c"

procedure Foo; cdecl; external;

end.

如果我在 Delphi 项目 (.dproj) 中编译该单元，则一切正常。

如果我在 C++Builder 项目 (.cbproj) 中编译该单元，则会失败并显示以下错误：

[ILINK32 Error] Fatal: Unable to open file 'CRTL.OBJ'

事实上，RAD Studio 安装文件夹中没有 crtl.obj 文件。有 .dcu，但没有 .pas。尝试将 crtdbg 添加到 use 子句（定义 _assert 的 C 标头）中会出现找不到 crtdbg.dcu 的错误。

如果我删除 uses 子句，它会失败，并出现找不到 __assert 和 _memmove 的错误。

那么，在 C++Builder 项目的 Delphi 单元中，如何从 C 运行时库导出函数以便它们可用于链接？

我已经知道 Rudy Velthuis 的文章。如果可能的话，我想避免手动编写 Delphi 包装器，因为我在 Delphi 中不需要它们，并且 C++Builder 必须已经包含必要的函数。

编辑

对于任何想要在家玩的人，可以在 Abbrvia 的 Subversion 存储库中找到该代码，网址为 https://tpabbrevia.svn.sourceforge.net/svnroot/tpabbrevia/trunk。我采纳了 David Heffernan 的建议，添加了一个“AbCrtl.pas”单元，在 C++Builder 中编译时模仿 crtl.dcu。这使得 PPMd 支持正常工作，但是 Lzma 和 WavPack 库都因链接错误而失败：

[ILINK32 Error] Error: Unresolved external '_beginthreadex' referenced from ABLZMA.OBJ
[ILINK32 Error] Error: Unresolved external 'sprintf' referenced from ABWAVPACK.OBJ
[ILINK32 Error] Error: Unresolved external 'strncmp' referenced from ABWAVPACK.OBJ
[ILINK32 Error] Error: Unresolved external '_ftol' referenced from ABWAVPACK.OBJ

AFAICT，所有这些库都已正确声明，并且 _beginthreadex 实际上是在 AbLzma.pas 中声明的，因此纯 Delphi 编译也使用它。

要亲自查看，只需下载主干（或仅“源”和“包”目录），禁用 AbDefine.inc 底部的 {$IFDEF BCB} 块，然后尝试编译 C++Builder “Abbrvia .cbproj”项目。

Answer 1

我对此的看法是，您只需要项目的 Delphi 版本中的 Delphi 单元。

在 C++ 构建器版本中，您只需编译并链接foolib.c，就好像它是一个 C 文件一样（确实如此！）。在该程序的 Delphi 版本中，您可以使用 bcc32 创建 .obj，按照所述使用 ctrl 等。

为什么要将它包装在 Delphi 包装器中的 C 库中以便在 C++ 中使用？

编辑 1

您已在评论中添加了说明。

另一个需要考虑的选择是避免 crtl 并实现 FooWrapper 中缺少的函数。我这样做而不是使用 crtl 因为这给了我更多的控制权并且我理解正在调用的内容。例如，我不希望对 printf() 的任何调用泄漏到我的 GUI 应用程序或 DLL 中。

如果您只缺少少数功能，这可能是一个有吸引力的选择。通常，获取它们的最巧妙方法是将它们从 msvcrt.dll 链接到其中，msvcrt.dll 是当今的标准系统组件。当然，仅仅为了获取 memset()、memcpy() 等而链接到 msvcrt.dll 似乎有点重量级。

当你编译时，有多少个缺失的函数Delphi 单元没有crtl 吗？

编辑2

我将其添加到答案中以显示一些代码。从我自己的代码库中，我提供了以下内容：

const
  __turboFloat: Longint=0;
  (* We don't actually know the type but it is 4 bytes long and initialised to zero.  This can be determined
     using tdump initcvt.obj.  It doesn't actually matter how we define this since it is ultimately not
     referred to and is stripped from the executable by the linker. *)

对于 ftol，我链接到 ftol.obj，我认为它是从我使用的 BCC55 编译器中的 lib 文件之一中提取的。

我认为 strncmp 应该是用普通 Pascal 实现的非常常规的方法。

sprintf 总体来说更困难，但您可能会发现它仅用于一些琐碎的事情，例如整数到字符串。在这种情况下，您可以伪造 C 代码来调用专用于此目的的例程并简单地实现它。

老实说，我认为“msvcrt.dll”看起来很有吸引力！

编辑 3

我很快就通话了吗？您可以从几乎所有进程都已加载的 user32.dll 中提取一个完全可用的 sprintf。确保选择 wsprintfA 如果您需要的是 ANSI 版本。

编辑4

我注意到_beginthreadex。你说这是在不同的 Delphi 单元中定义的。为了让编译器看到它，您需要在 AbCtrl.pas 中重新声明它，并从那里调用 AbLzma.pas 中的真实版本。

当您在 Delphi .pas 文件中包含 .obj 时，编译器必须能够从链接到 .obj 的 Delphi 单元内解析 .obj 文件中的所有引用。整个游戏是由编译器而不是链接器处理的。

有时，您会因包含 .obj 文件的顺序而陷入困境，解决方案是使用前向声明，但那是另一个故事了。

Answer 2

在这种情况下，假设您感兴趣的函数可以直接从 C RTL 中获得，因此使用虚拟（空）obj 文件伪造链接器应该可以工作，因为它将满足链接器寻找 Delphi 告诉它的 obj 文件的要求你需要，但仍然可以在 RTL 中找到这些函数。

Answer 3

晚了，但更完整：
crtl.dcu 从 D2005 一直到 XE2 都可以正常工作。

对于 D6 和 D7，存在对 midaslib.dcu 的依赖性。
嗯，不是真的，dcu 是用一个脏的使用条款来分发的。

对于 D6 和 D7，您应该创建一个空的 midaslib.pas 代理，例如：

unit midaslib;
interface
implementation
end.

现在您可以使用 crtl.dcu 而不会出现内部错误！