将指针从 C++ 传递给 Delphi DLL

Question

我已搜索并找不到任何可以回答我的问题的内容。如果我的问题的措辞不正确，请提出建议，我会重新措辞。我不自称是指针专家，但我正在做的事情似乎相当简单，并且在此处提供的指导范围内：

Pointers and Pointer Types (Delphi)

我有一个用 Delphi 编写的 DLL。它是从 C++ 应用程序 (sfms_trayicon.exe) 调用的。有问题的函数是指针类型，它有一个参数，一个指针。指针作为通用指针传递，然后转换为 hWnd 指针。然后将其取消引用到 hWnd 类型的变量。这是实际的功能代码：

    function sfms_ui_init(FhWnd: Pointer): Pointer;
    var
      pCallinghWnd: ^hWnd;          // hWnd pointer type

    begin
      try
        // Get the hWnd passed as a generic pointer
        pCallinghWnd := FhWnd;           // Cast the general pointer to a hWnd pointer
        CallinghWnd := pCallinghWnd^;    // De-reference the pointer (CallinghWnd is a global var of type hWnd)
      finally

      end;
    end;

传递给函数的指针是有效的。对 hWnd 指针类型的分配有效。取消引用偶尔会起作用，但大多数时候会产生访问冲突：

我的问题，我希望它足够具体，为什么取消引用指针的行偶尔会起作用，但大多数时候会引发访问冲突？ 我想后续行动会是，我需要做什么才能使其工作？

谢谢

Answer 1

Delphi 和 C++ 是强类型语言。由于您的函数需要一个指向 HWND 的指针作为输入，因此请声明它，例如：

type
  PHWND = ^HWND;

function sfms_ui_init(FhWnd: PHWND): Pointer;
begin
  CallinghWnd := FhWnd^;
  //...
end;

或者更好：

function sfms_ui_init(var FhWnd: HWND): Pointer;
begin
  CallinghWnd := FhWnd;
  //...
end;

通过指针/引用传递HWND 变量是没有意义的，除非函数需要直接修改调用者的HWND 变量。 HWND 已经是一个指针，所以在大多数情况下应该按值传递：

function sfms_ui_init(FhWnd: HWND): Pointer;
begin
  CallinghWnd := FhWnd;
  //...
end;

为什么取消引用指针的行偶尔会起作用，但大多数时候会引发访问冲突？我想后续行动会是，我需要做什么才能使其工作？

没有看到您的 C++ 代码，就无法真正回答这个问题。但是，由于您的函数需要一个 指向 HWND 的指针，但将其作为通用的无类型 Pointer 接受，因此 C++ 代码可能没有将正确的内存地址传递给该指针。例如，如果 C++ 代码这样做：

HWND hWnd = ...;
sfms_ui_init(hWnd); // passing wrong address!

什么时候应该这样做：

HWND hWnd = ...;
sfms_ui_init(&hWnd); // passing correct address!

Pointer 在 Delphi 中转换为 C++ 中的 void*，它没有类型信息。 HWND已经是一个指针，任何指针都可以传递给void*，所以编译器允许赋值，但是会导致运行时错误。

更有理由摆脱无类型指针并改用类型指针。使用正确的类型可以让 C++ 编译器验证传递给函数的指针值类型是否正确，例如：

// given: function sfms_ui_init(FhWnd: PHWND): Pointer;
// or: function sfms_ui_init(var FhWnd: HWND): Pointer;

HWND hWnd = ...;
sfms_ui_init(hWnd); // compiler error!
sfms_ui_init(&hWnd); // OK

// given: function sfms_ui_init(FhWnd: HWND): Pointer;

HWND hWnd = ...;
sfms_ui_init(hWnd); // OK
sfms_ui_init(&hWnd); // compiler error!