我想在Delphi 10 Seattle(Update 1)或Delphi 10.1 Berlin项目(Enterprise版本)中动态加载BPL模块 . 但LoadPackage函数失败并显示消息(在32位和64位目标平台上):
Project LoadPackageTest.exe raised exception class EPackageError with message 'Can't load package "real path here"\TestBplPackage.bpl. The specified module could not be found'.
我的开发平台是Windows 10 Pro 64位 .
我确信传递的文件名是正确的(它包含完整路径) . 我到目前为止做了什么:
如果使用Delphi 2007 Enterprise进行编译,同一个项目组可以毫无问题地工作(我必须从头开始重新创建) - 在同一台Win 10 PC上
如果我加载标准.DLL - 它正确加载,我可以在D2007,D10和D10.1中调用函数(适用于D10和D10.1上的32位和64位目标) .
实际上,LoadPackage调用SafeLoadLibrary,它调用LoadLibrary(所有这些过程都在System.SysUtils中 .
我使用和不使用Run Time包编译了测试可执行文件 . 代码如下:
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平台,我收到以下错误消息:
The application was unable to start correctly (0xc000007b)
这是因为32位应用程序试图加载64位BPL .
我可以轻松地交换System32和SysWOW64的位置,但这是全局的,而不是用户路径变量,需要重新启动才能使更改生效 .
我将继续进行实验,但到目前为止,唯一100%可行的解决方案是将使用过的“标准”BPL保存到平台输出文件夹中 .