我想加载一个 DLL(从 VCL 应用程序但这应该不重要 [这不是真的,因为 VCL 和 FMX 都包含消息循环])并显示 FireMonkey 模式在该 DLL 中创建的表单。显示表单工作正常,但我在清理后遇到问题......
我只能找到 2011/2012 年有关该主题的文章,而且它们大多涉及 XE2。遗憾的是,这些解决方案不再有效。 (或者我做错了什么。)
所有示例文件都在这里:https://github.com/gabr42/GpDelphiCode/tree/master/FMX%20from%20DLL
我的 DLL 只是导出 ShowMainForm
。
library FMXDLL;
uses
System.SysUtils,
System.Classes,
FMXMain in 'FMXMain.pas' {FormMain};
{$R *.res}
exports
ShowMainForm;
begin
end.
ShowMainForm
初始化 GDI+,然后显示窗体。之后,它尝试清理但失败了。
uses
Winapi.GDIPAPI,
Winapi.GDIPOBJ;
procedure InitGDIP;
begin
// Initialize StartupInput structure
StartupInput.DebugEventCallback := nil;
StartupInput.SuppressBackgroundThread := False;
StartupInput.SuppressExternalCodecs := False;
StartupInput.GdiplusVersion := 1;
GdiplusStartup(gdiplusToken, @StartupInput, nil);
end;
procedure FreeGDIP;
begin
if Assigned(GenericSansSerifFontFamily) then
GenericSansSerifFontFamily.Free;
if Assigned(GenericSerifFontFamily) then
GenericSerifFontFamily.Free;
if Assigned(GenericMonospaceFontFamily) then
GenericMonospaceFontFamily.Free;
if Assigned(GenericTypographicStringFormatBuffer) then
GenericTypographicStringFormatBuffer.free;
if Assigned(GenericDefaultStringFormatBuffer) then
GenericDefaultStringFormatBuffer.Free;
GdiplusShutdown(gdiplusToken);
end;
procedure ShowMainForm; stdcall;
var
FormMain: TFormMain;
begin
InitGDIP;
Application.Title := 'DLL Form';
FormMain := TFormMain.Create(Application);
FormMain.ShowModal;
FormMain.Free;
Application.Terminate;
Application.ProcessMessages;
FreeGDIP;
end;
表单包含一个关闭表单的按钮。
procedure TFormMain.btnCloseClick(Sender: TObject);
begin
Close;
end;
主机应用程序在创建其主窗体时加载此 DLL
procedure TFormHost.FormCreate(Sender: TObject);
begin
FLibHandle := LoadLibrary('FMXDLL');
if FLibHandle = 0 then begin
ShowMessage('Cannot load FMXDLL.DLL');
Application.Terminate;
end
else begin
FShowMain := GetProcAddress(FLibHandle, 'ShowMainForm');
if not assigned(FShowMain) then begin
ShowMessage('Missing export: ShowMainForm');
Application.Terminate;
end;
end;
end;
它有一个显示 FireMonkey 表单的按钮。
procedure TFormHost.Button1Click(Sender: TObject);
begin
FShowMain();
end;
当表单被销毁时,DLL被卸载。
procedure TFormHost.FormDestroy(Sender: TObject);
begin
if FLibHandle <> 0 then begin
FreeLibrary(FLibHandle);
FLibHandle := 0;
end;
end;
这是观察到的行为(在 Windows 10 Creators Edition 上运行的 Delphi 10.1 Berlin):
- 我启动我的主机程序。名称为“DLL Host”的图标出现在任务栏中。 [确定]
- 当我单击该按钮时,会出现 FireMonkey 表单。 [确定]。
- 这个新表单还有一个名为“DLL Form”的任务栏按钮。 [确定]
- 当我单击 FireMonkey 表单上的“关闭”按钮时,它会关闭。 [确定]
- 但是,其任务栏按钮在屏幕上仍然可见! [绝对不行!]
- 我可以多次单击并关闭 FireMonkey 表单。它始终会正确显示,但其任务栏按钮永远不会消失。
- 当我关闭 VCL 表单时,它会从任务栏中消失。 [确定]
- 但是,FireMonkey 表单仍然可见,并且程序挂起。 [绝对不行!] 堆栈显示该代码位于
d3d11.dll
内部的某处(如果可以信任的话)。
我尝试了不同的方法来创建和销毁 FMX 表单,但似乎没有任何方法可以正常工作。
最佳答案
简短回答:使用软件包从 FMX 到 FMX 就可以了。除此之外,您的第一个问题是可以解决的,无需更改源代码,但如果确实需要 GDI+,则崩溃问题则不然。
更长的答案:您可以通过从FMX.Platform.Win
调用RegisterApplicationHWNDProc
并提供回调函数来轻松修复无关的任务栏按钮;然后,此函数应返回来自主机的 HWND。最好的方法可能是导出显式初始化函数:
var
_AppHandle: HWND;
function GetAppHandle: HWND;
begin
Result := _AppHandle;
end;
function InitializeDLL(AppHandle: HWND): HRESULT; stdcall;
begin
try
if AppHandle = 0 then Exit(E_HANDLE);
if _AppHandle <> 0 then Exit(E_FAIL);
InitGDIP; //reuse what you've taken from WinApi.GDIOBJ.pas
_AppHandle := AppHandle;
RegisterApplicationHWNDProc(GetAppHandle);
Result := S_OK;
except
Result := E_UNEXPECTED;
end;
end;
然后您将有一个 FinalizeDLL
导出或类似的东西来进行清理:
procedure FinalizeDLL; stdcall;
begin
FreeGDIP;
end;
主机首次使用时会调用InitializeDLL
;如果应用程序本身使用 FMX,那么它应该为此从 FMX.Platform.Win
传递 ApplicationHWND
。
但是,这并不能解决关闭时的崩溃问题。更准确地说:当 DLL 使用 Direct2D 后端时,只有当我强制使用 GDI+ 时,我才得到它们。问题是全局拥有的资源的存在,例如由风格经理。您可能认为可以在完成 GDI+ 之前通过执行 FMX.Forms.pas
中的私有(private) FinalizeForms
过程进行显式清理(而 FinalizeForms
本身是私有(private)的,它所调用的不是私有(private)的):
//from FMX.Forms
procedure FinalizeForms;
begin
FreeControls;
TStyleManager.UnInitialize;
TFilterManager.UnInitialize;
TBitmapCodecManager.UnInitialize;
TTextLayoutManager.UnInitialize;
TCanvasManager.UnInitialize;
TContextManager.UnInitialize;
TShaderManager.UnInitialize;
end;
procedure FinalizeDLL; stdcall;
begin
FinalizeForms;
FreeGDIP;
end;
但是,此解决方法最终仍然会失败,因为 TStyleManager.UnInitialize
使用普通的 Free
进行前两次处理(第三次得到 FreeAndNil
处理) ),当从 FMX.Forms
的终结部分调用“真实”FinalizeForms
时,这显然会导致访问冲突。
关于delphi - 如何从 DLL 显示 FireMonkey 模态表单?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47159637/