从 SphinxC 调用 Delphi 函数——

Question

我有一个这样声明的 Delphi 函数

function strcspn(s1, s2: PAnsiChar): Cardinal;  cdecl;

我想从 SphinxC-- 中调用它，问题是 SphinxC-- 需要 strcspn 的名称而无需任何修饰。

那么如何强制 Delphi 在 obj 文件中设置？

我会问的更详细的。

我使用的是 SphinxC-- 语言，你可以认为它是 Masm 汇编器和 c 语言的混合体。它可以产生OMF文件格式。

我通过链接使用 SphinxC 编译的代码和使用 bcc32（c++Builder 编译器）编译的代码，成功地将它与 C++Builder 混合。通过在 c++ 代码中使用 extern "C" 术语来告诉 bcc32 未修改函数名，也使用 -u- (bcc32 命令行 otpion) 来告诉 bcc32 在没有前缀下划线的情况下预测函数名。

现在我有一些 delphi 代码，我想将它与我的 SphinXC- 代码混合， 就像我对 c++Builder 所做的一样。

所以我的问题是如何强制 delphi 编译器 dcc32 预测未修改的函数名称？

再次编辑：

这是我对 bcc32、dcc32、ilink32 的推荐行

适用于 dc32

dcc32.exe -DMSWINDOWS -JPHNE -I"mypath/include" -U"mypath\lib" -U"mypath\units"  mfiley.pas

为密件抄送32

bcc32.exe -u- -DDEBUG;NO_STRICT -D_RTLDLL;USEPACKAGES  -k  -c -tWM -v- -Vw  -W- -Par -M -Hc -P myfile.cpp

ilink32

ilink32 -v -Gn -G8 ........ etc

Answer 1

我的问题是如何强制 Delphi 编译器 dcc32 生成未损坏的函数名称？

这是不可能的。如果您希望获得未损坏的函数名称，则需要使用 objconv 之类的工具在编译后修改名称。

一个更大的问题是，任何严肃的真实世界的 Delphi 代码都需要 Delphi RTL，我认为您能够将其静态链接到您的 C++ 项目的希望很小。实际上，在同一个模块中混合 C++ 和 Delphi 代码需要一个对两种语言都有深入了解的工具，而该工具就是 C++-Builder。

Answer 2

已经有了 C++Builder ，所以在 C++ 中使用 Delphi 单元非常容易。我会尝试使用 objconv。我的最后一个解决方案是从 C++Builder 辅助函数中调用 delphi 的东西。

类似的东西

德尔福端 函数 DelhpFunc(s1, s2: PAnsiChar): 整数； cdecl; ...... ......

C++Builder端

包括<..hpp> Delphi 制作的头文件

外部“C” { __declspec(naked) int helperFunc()
{ 汇编{ jmp DelhpFunc } } };

SphinxC-- side extern int cdecl helperFunc(char* s1,char* s2); main() { helperFunc("hello","there"); }