delphi - 在 LoadLibrary 中动态加载 BPL 失败

Question

我想在 Delphi 10 Seattle(更新 1)或 Delphi 10.1 Berlin 项目(企业版)中动态加载 BPL 模块。但是LoadPackage函数失败并显示消息(在 32 位和 64 位目标平台上):

<小时/>

项目 LoadPackageTest.exe 引发异常类 EPackageError，并显示消息“无法加载包“此处的真实路径”\TestBplPackage.bpl。找不到指定的模块'。

<小时/>

我的开发平台是Windows 10 Pro 64位。

我确信传递的文件名是正确的(它包含完整路径)。到目前为止我所做的事情:

• 如果使用 Delphi 2007 Enterprise 进行编译，同一项目组可以在同一台 Win 10 PC 上正常工作(我必须从头开始重新创建它)

• 如果我加载标准 .DLL - 它会正确加载，并且我可以调用 D2007、D10 和 D10.1 中的函数(适用于 D10 和 D10.1 上的 32 位和 64 位目标)。

实际上LoadPackage调用了SafeLoadLibrary，SafeLoadLibrary又调用了LoadLibrary(所有这些过程都在System.SysUtils中。

我编译了带或不带运行时包的测试可执行文件有代码:

DLL 项目 (TestDLL.dpr)，在所有情况下都有效

library TestDLL;
uses SysUtils, Classes;
{$R *.res}
function GetMyTime: TDateTime; stdcall; 
begin 
  Result:= Now; 
end;
exports GetMyTime;
end.

BPL 项目 (TestBplPackage.dpr)

package TestBplPackage;
{ standard compiler directives - the project was created with New->Package}
requires
  rtl,
  vcl; 
contains
  TestBPLUnit in 'TestBPLUnit.pas';
end.

<小时/>

unit TestBPLUnit;
interface
function GetMyTime: TDateTime; stdcall;

implementation 
uses  classes, sysutils;  

function GetMyTime: TDateTime;
begin  
  Result:= Now;
end;
exports  GetMyTime;
end.

测试应用程序 - LoadPackageTest.dpr

Form1: TForm 包含 dOpen: TOpenDialog 和 Button1: TButton

type
  TMyDateTimeFunction = function: TDateTime; stdcall;
procedure TForm1.Button1Click(Sender: TObject);
var
  ext: string;
  h: HModule;
  func: TMyDateTimeFunction;
begin
  if dOpen.Execute then begin
    ext:= ExtractFileExt(dOpen.FileName);
    if SameText(ext, '.bpl') then begin
      h:= LoadPackage(PChar(dOpen.FileName));
      if h > 0 then begin
        func:= GetProcAddress(h, 'GetMyTime');
        if Assigned(func) then
          ShowMessage(FormatDatetime('yyyy-mm-dd hh:nn:ss', func));
        UnloadPackage(h);
      end;
    end else if SameText(ext, '.dll') then begin
      h:= LoadLibrary(PChar(dOpen.FileName));
      if h > 0 then begin
        func:= GetProcAddress(h, 'GetMyTime');
        if Assigned(func) then
          ShowMessage(FormatDatetime('yyyy-mm-dd hh:nn:ss', func));
        FreeLibrary(h);
      end;
    end;
  end; //dOpen.execute
end;

有人尝试过类似的方法吗？

避免从项目管理器树的“包含”节点中删除单元 - Delphi 10 和 10.1 都会崩溃...

<小时/>

编辑1:它在某些条件下有效

感谢大卫的回答，我取得了一些进展:
当相关内容正确时它可以正常工作
C:\Program Files (x86)\Embarcadero\Studio\18.0\Redist\
Win32 或 Win64 子文件夹位于应用程序和测试 BPL 所在的文件夹中，或者位于相关的 System32 或 SysWOW64 文件夹。

如果没有上述内容，我就无法让它工作，尽管事实上
C:\Program Files (x86)\Embarcadero\Studio\18.0\bin 和
C:\Program Files (x86)\Embarcadero\Studio\18.0\bin64位于 %PATH% 环境变量中。它没有找到RTL包。

<小时/>

如果应用程序依赖 %PATH% 变量来查找必要的 BPL，则会产生易于解释的副作用。因为我有 C:\Windows\SysWOW64;C:\WINDOWS\system32;C:\WINDOWS
在 %PATH% 变量中，如果我使用运行时包针对 Win32 平台进行编译，则会收到以下错误消息:
应用程序无法正确启动(0xc000007b)
这是因为 32 位应用程序尝试加载 64 位 BPL。

我可以轻松交换 System32 和 SysWOW64 的位置，但这是全局变量，而不是用户路径变量，并且需要重新启动才能使更改生效。
我将继续进行实验，但到目前为止，唯一 100% 有效的解决方案是将使用的“标准”BPL 保留到平台输出文件夹中。

Answer 1

异常文本表明对 LoadLibrary 的调用失败，GetLastError 返回了 ERROR_MOD_NOT_FOUND。对此有两种常见的解释:

1. DLL 搜索无法找到包文件。也许名称错误，或者包不在 DLL 搜索算法搜索到的位置。
2. 可以找到包文件，但找不到其依赖项之一。例如，可能无法找到 rtl 包。

使用 Dependency Walker 调试问题。在配置文件模式下使用它，它会告诉你找不到哪个模块。