为什么不能在64位Delphi中使用地址到嵌套的本地功能？

Question

作为。由于关闭相关问题 - 下面添加了更多示例。

以下简单的代码（找到顶级IE窗口并枚举其孩子），可以与'32-Pit Windows'目标平台一起使用。早期版本的Delphi也没有问题：

procedure TForm1.Button1Click(Sender: TObject);

  function EnumChildren(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
  const
    Server = 'Internet Explorer_Server';
  var
    ClassName: array[0..24] of Char;
  begin
    Assert(IsWindow(hwnd));            // <- Assertion fails with 64-bit
    GetClassName(hwnd, ClassName, Length(ClassName));
    Result := ClassName <> Server;
    if not Result then
      PUINT_PTR(lParam)^ := hwnd;
  end;

var
  Wnd, WndChild: HWND;
begin
  Wnd := FindWindow('IEFrame', nil); // top level IE
  if Wnd <> 0 then begin
    WndChild := 0;
    EnumChildWindows(Wnd, @EnumChildren, UINT_PTR(@WndChild));

    if WndChild <> 0 then
      ..    

end;

我插入了一个essert以指示使用'64 -Bit Windows'目标平台失败的位置。如果i un-nest 回调，代码没有问题。

我不确定与参数传递的错误值仅仅是垃圾，还是由于某些位置位置的内存地址（调用约定？）而引起的。嵌套回调是我首先不应该做的事情吗？还是这只是我必须忍受的缺陷？

编辑：
响应David的答案，具有EnumchildWindows的相同代码用打字回调声明。与32位一起工作：

（编辑：下面没有真正测试David所说的内容，因为我仍然使用'@'oterator。我不nest the回调）

type
  TFNEnumChild = function(hwnd: HWND; lParam: LPARAM): Bool; stdcall;

function TypedEnumChildWindows(hWndParent: HWND; lpEnumFunc: TFNEnumChild;
    lParam: LPARAM): BOOL; stdcall; external user32 name 'EnumChildWindows';

procedure TForm1.Button1Click(Sender: TObject);

  function EnumChildren(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
  const
    Server = 'Internet Explorer_Server';
  var
    ClassName: array[0..24] of Char;
  begin
    Assert(IsWindow(hwnd));            // <- Assertion fails with 64-bit
    GetClassName(hwnd, ClassName, Length(ClassName));
    Result := ClassName <> Server;
    if not Result then
      PUINT_PTR(lParam)^ := hwnd;
  end;

var
  Wnd, WndChild: HWND;
begin
  Wnd := FindWindow('IEFrame', nil); // top level IE
  if Wnd <> 0 then begin
    WndChild := 0;
    TypedEnumChildWindows(Wnd, @EnumChildren, UINT_PTR(@WndChild));

    if WndChild <> 0 then
      ..

end;

---

实际上，此限制不是特定于Windows API回调的，但是当将该函数的地址输入Procedy类型<的变量< /code>并将其作为自定义比较器传递到tlist.sort。

http://docwiki.embarcadero.com/radststudio/radst.radstudio/rio/rio/rio/rio/rio/precedural/procedural-precedelal/preced

procedure TForm2.btn1Click(Sender: TObject);
var s : TStringList;

  function compare(s : TStringList; i1, i2 : integer) : integer;
  begin
    result := CompareText(s[i1], s[i2]);
  end;

begin
  s := TStringList.Create;
  try
    s.add('s1');
    s.add('s2');
    s.add('s3');
    s.CustomSort(@compare);
  finally
    s.free;
  end;
end;

在编译为32位时，它可以按预期工作，但是在访问范围内均为Win64时失败。对于函数中的64位版本，比较，s = nil和i2 =一些随机值;

即使对于Win64 Target，它也可以按预期工作，如果提取 btn1Click函数之外的功能。

Answer 1

该语言从未正式支持此技巧，由于32位编译器的实施细节，您迄今为止已经摆脱了它。 文档是清晰的：

嵌套过程和功能（在其他例程中声明的例程）不能用作程序值。

如果我没记错的话，一个额外的，隐藏的参数将传递给嵌套堆栈框架的指针。如果未提及封闭环境，则在32位代码中省略了这一点。在64位代码中，额外的参数始终传递。

当然，问题的很大一部分是Windows单元对其回调参数使用非类型的过程类型。如果使用键入程序，则编译器可以拒绝您的代码。实际上，我认为这是理由认为您使用的技巧从来都不是合法的。使用打字回调，即使在32位编译器中，也永远无法使用嵌套过程。

无论如何，最重要的是，您不能将嵌套函数作为参数传递给64位编译器中的另一个函数。