从 C++ 调用 Delphi DLL显示表单时崩溃

Question

编辑：愚蠢的问题，已经解决了。 Form1 是 nil 因为我没有给它分配一个新的 TForm1，我忘记了 Delphi 不会像 C++ 那样为你做这件事。

我有一个 Delphi DLL，我想将其用于 C++ 程序的 GUI，因此对于初学者来说，我创建了一个表单，并有一个函数来显示导出的表单，以便 C++ 可以调用它。但是，程序在调用该函数时崩溃了。这是我的代码。 （我使用的是 Delphi 2010）

delphi 部分：

unit Main;

interface

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

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    TabSet1: TTabSet;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

function ShowForm(i: Integer) : Integer; export; cdecl;

exports
  ShowForm name 'ShowForm';

implementation

{$R *.dfm}

function ShowForm(i: Integer) : Integer; export; cdecl;
begin
  Form1.Show();

  Result := 3; // random value, doesn't mean anything
end;

end.

这是 C++ 代码：

HMODULE h = LoadLibrary("delphidll.dll");

if (!h) {
    printf("Failed LoadLibrary (GetLastError: %i)\n", GetLastError());

    return 0;
}

FARPROC p = GetProcAddress(h, "ShowForm");

if (p)
    printf("Found it @ %p\n", p);
else
    printf("Didn't find it\n");

((int(__cdecl *)(int))p)(34);

system("PAUSE");

return 0;

程序打印“Found it @”，然后崩溃。如果我在Delphi DLL中注释掉Form1.Show()，它不会崩溃，并且函数返回3（通过printf测试）。我是否缺少一些初始化或其他东西？谢谢。

Answer 1

它崩溃的原因是 var Form1: TForm1; 未初始化。

var Form1: TForm1; 未初始化的原因很可能是因为您将unit Main放入了DLL项目中，但它最初来自Delphi VCL项目自动创建列表中有 Form1。

自动创建列表意味着Delphi .dpr 将初始化表单。

现在您需要手动创建表单，因此您需要从 DLL 中导出这 3 个新例程，并让 C++ DLL 调用它们：

function CreateForm() : Integer; export; cdecl;
begin
  try
    Application.CreateForm(TForm1, Form1);
    Result := 0;
  except
    Result := -1;
  end;
end;

function DestroyForm() : Integer; export; cdecl;
begin
  try
    if Assigned(Form1) then
    begin
      FreeAndNil(Form1);
      Application.ProcessMessages();
    end;
    Result := 0;
  except
    Result := -1;
  end;
end;

function DestroyApplication() : Integer; export; cdecl;
begin
  try
    FreeAndNil(Application);
    Result := 0;
  except
    Result := -1;
  end;
end;

此外，您应该放置一个 try... except 块围绕 ShowForm 函数实现的实现，如 异常和其他语言相关的运行时功能不应跨越 DLL 边界。

您可能也应该执行类似的操作来释放其他可能分配的动态内存块。

——杰罗恩