Question

在Delphi XE2 Win32平台运行以下代码。然而,如果以“EnumRCDataProc”的形式运行,在“EnumRCDataProc”平台上汇编的同一法典将造成出入违规:

procedure TForm2.Button1Click(Sender: TObject);
  function EnumRCDataProc(hModule: THandle; lpszType, lpszName: PChar; lParam:
      NativeInt): Boolean; stdcall;
  begin
    TStrings(lParam).Add(lpszName);
    Result := True;
  end;

var k: NativeInt;
    L: TStringList;
    H: THandle;
begin
  H := LoadPackage( resource.bpl );
  L := TStringList.Create;
  try
    EnumResourceNames(H, RT_RCDATA, @EnumRCDataProc, NativeInt(L));
    ShowMessage(L.Text);
  finally
    L.Free;
    UnloadPackage(H);
  end;
end;

在对Delphi XE2 IDE在Win64平台上的代码进行脱节时,我发现EnumRCDataProc中的ule价值与H变量相吻合。然而,我怎么说。任何想法?

Answer 1

问题是,你已制定地方程序。你们需要将其移出方法之外。

function EnumRCDataProc(hModule: HMODULE; lpszType, lpszName: PChar; lParam:
    NativeInt): BOOL; stdcall;
begin
  TStrings(lParam).Add(lpszName);
  Result := True;
end;

procedure TForm2.Button1Click(Sender: TObject);
var k: NativeInt;
    L: TStringList;
    H: HMODULE;
begin
  H := LoadPackage( resource.bpl );
  L := TStringList.Create;
  try
    EnumResourceNames(H, RT_RCDATA, @EnumRCDataProc, NativeInt(L));
    ShowMessage(L.Text);
  finally
    L.Free;
    UnloadPackage(H);
  end;
end;

第一次检查我预计,汇编者会发现你的法典有一处错误:

E2094 当地程序/职能

但它没有这样做。我更深了一点,发现<代码>的备用参数。 EnumResourceNames为Pointer。如果标题译本宣布这一为一类的背负参数,那么上述错误信息的确会发出。我认为,这方面的翻译工作做得很差。放弃此类系统的安全似乎没有什么好处。

你们的法典在32条轨道法典中发挥作用,这只是一个取决于执行细节的好巧合。页: 1 同样,如果能够建立此类检查制度,汇编者会立即告诉你错误。

其他评论:

The EnumRCDataProc has a couple of incorrect types in its declaration: hModule should be of type HMODULE and the function result should be BOOL.
LoadPackage is a rather heavyweight approach to getting a module handle. I would prefer to see LoadLibraryEx with the LOAD_LIBRARY_AS_DATAFILE_EXCLUSIVE and LOAD_LIBRARY_AS_IMAGE_RESOURCE options.

友情链接