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 call，pascal或register。但没有任何作用。

解决方案：感谢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文件来导出这个功能。

用Delphi调用C ++ dll

1 个答案: