如何在Delphi中使用用C#创建的DLL

Question

我使用的是Delphi 2005(是的,它是相当旧的版本,但目前我就是我必须使用的)并且我尝试使用Visual Studio 2017使用C#创建的DLL来查看我是否可以使它工作.我的想法是,由于C#比旧的Delphi更先进,我可以在DLL中调用一些方法而不是用Delphi编程(其中一些方法已经由我们公司的其他人编程).我的问题是我不太清楚如何做到这一点.

我已经知道可以从Delphi调用DLL而无需注册DLL.这实际上或多或少是游戏破坏者,如果没有注册它就没有实际的方法来使用DLL,因为它使我们的软件更复杂,现在它的工作方式.

首先,我想知道我是否正确创建了PoC DLL.我创建了一个新项目(类库)并为x86编译它,因为使用Delphi 2005创建的程序是32位程序,这里是这个非常简单的DLL的代码.

using RGiesecke.DllExport;
using System;

namespace CalcTest
{
    public class CalcTest
    {
        [DllExport]
        public int sum(int a, int b)
        {
            return a + b;
        }
    }
}

这段代码是否正确？

另一件事是我不完全确定我是否正确创建了Delphi项目.我可以没有错误地构建它,但是当我尝试运行它时,我收到一条错误消息:

应用程序无法正确启动(0xc000007b).单击"确定"关闭应用程序.

这是代码.

unit TestForm_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TTestForm = class(TForm)
    Button1: TButton;
    summa_lb: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Laske;
  public
    { Public declarations }
  end;

var
  TestForm: TTestForm;

implementation

{$R *.dfm}

function sum(a, b: integer): integer; external 'CalcTest.dll';

procedure TTestForm.Button1Click(Sender: TObject);
begin
  Laske;
end;

procedure TTestForm.Laske;
var
  x,y,z: integer;
begin
  x := 1;
  y := 2;
  //z := x + y;
  z := sum(x, y);

  summa_lb.Caption := IntToStr(z);
end;

end.

我在与Delphi创建exe文件的目录相同的目录中有CalcTest.dll.我试图在"私人声明"下面开始"功能总和(..."这一行,但这显然不是正确的事情.我也试图保留代码,只是在私人声明下添加功能声明但是没有工作.

欢迎任何帮助.

Answer 1

错误代码是NTSTATUS代码STATUS_INVALID_IMAGE_FORMAT.这通常是64位进程尝试(并且失败)加载32位DLL,反之亦然.您需要确保所有模块的位数匹配.由于您的Delphi编译器只能生成32位可执行文件,因此您的C#项目必须以x86为目标.

下一个问题是调用约定之一.您的C#导出使用stdcall,但您的Delphi导入未指定调用约定,因此您默认使用register.将Delphi更改为:

function sum(a, b: integer): integer; stdcall; external 'CalcTest.dll';

因为在编写互操作代码时匹配二进制接口非常重要,所以我倾向于不依赖于DllExport属性的默认调用约定.我更愿意明确:

[DllExport(CallingConvention = CallingConvention.StdCall)]

最后一个问题是必须声明你的C#方法static.

[DllExport(CallingConvention = CallingConvention.StdCall)]
public static int sum(int a, int b)
{
    return a + b;
}