使用 Delphi 调用 C++ dll

Question

我的目标是在 Delphi (RAD Studio XE6) 中调用用 C++（带有 C 接口）编写的函数。最后，dll 将由 Visual Studio 2013 生成，但我尝试从 RAD Studio XE6 生成 Dll 开始。

所以，我在 Rad Studio 中创建了一个 Dll 项目（使用 VC++ 样式的 Dll）。文件在这里

#include <vcl.h>
#include <windows.h>

#pragma hdrstop
#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    return 1;
}

extern "C" int next(int n) {
    return n + 1;
}

它编译为 Dll。 Delphi端代码如下：

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Windows;
function next(a: Int32): Int32; cdecl;
  external 'Project3.dll';
var
  a: Int32;
begin
  try
    a := 3;
    Writeln('Hello world!', next(a));
    sleep(3000);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

项目编译但不运行。它给出了以下错误：

*** A stack buffer overrun occurred in "C:\...\Debug\Project1.exe"

在下面的装配线上失败了

mov eax,[edi]

我尝试将 cdecl 更改为 std 调用、pascal 或寄存器。但没有任何效果。

解决方案：感谢 Rudy，以下代码确实有效。首先是 C++ 方面：

#include <vcl.h>
#include <windows.h>

#pragma hdrstop
#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    return 1;
}

extern "C" __declspec(dllexport) int __stdcall next(int n) {
    return n + 1;
}

然后是 Delphi 方面。

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Windows;
function next(a: Int32): Int32; stdcall;
  external 'Project3.dll';
var
  a: Int32;
begin
  try
    a := 3;
    Writeln('Hello world!', next(a));
    sleep(3000);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Answer 1

您没有导出函数。这样做：

extern "C" 
{
    __declspec(dllexport) int next(int n)
    {
        return n + 1;
    }
}

使用extern "C"、__declspec(dllexport) 和__cdecl 的默认调用约定将倾向于导出未修饰的函数。任何其他选择都会导致装饰。

在 Delphi 方面是：

function next(a: Integer): Integer; cdecl;
  external '...';

装饰并不是一件坏事，但是如果你想使用stdcall，并且避免装饰，那么你应该使用.def文件来导出函数。