0

对于我的上一个项目，我在我的 delphi 应用程序中使用了许多框架，所以我决定创建 dll 并将它们放入 dll 中（全部在 Delphi 中创建）

我浏览了许多网站并提出了有效的代码，但对于那个例子，我必须使用运行时包编译应用程序和 dll，这意味着我也必须分发 bpls。如果不使用运行时包检查构建错误即将到来

这是我找到的代码

在exe中

procedure TForm1.Button1Click(Sender: TObject);
type
TGetTheFrame =Function( Owner: TComponent; TheParent: TWinControl ): TFrame; stdcall ;
 var
  GetTheFrame : TGetTheFrame;
begin
try
   GetTheFrame(application,TabSheet1).Free ;
except
end;
frm := GetTheFrame(application,TabSheet1) ;
dllHandle := LoadLibrary('project1.dll') ;
   if dllHandle <> 0 then
   begin
     GetTheFrame := GetProcAddress(dllHandle, 'GetTheFrame') ;
  frm := GetTheFrame(application,TabSheet1)   //call the function
    {   ShowMessage('error function not found') ;
     FreeLibrary(dllHandle) ; }
   end
   else
   begin
     ShowMessage('xxxx.dll not found / not loaded') ;
   end

在 dll 中

Function  GetTheFrame( Owner: TComponent; TheParent: TWinControl ): TFrame; stdcall;
Begin
 Result := TFrame2.Create( Owner );

 Result.Parent := TheParent;
End;

就是这样，但我希望这段代码在没有运行时包的情况下工作

4

1 回答 1

7

太糟糕了。如果没有运行时包，该代码将无法工作。（对于运行时包，您应该使用LoadPackage而不是LoadLibrary.）

如果没有包，程序的每个模块（EXE 和每个 DLL）都有自己的所有标准类定义的副本，包括TFrame、TWinControl甚至TObject. EXE 中的TWinControl类看起来不像TWinControlDLL 中的类。

由于您在模块之间共享类，因此您需要确保它们都具有这些类的相同定义，而运行时包就是您这样做的方式。

如果您真的不使用运行时包，那么您需要更改 DLL 的接口，使其不共享任何 Delphi 对象类型。代替父窗口TWinControl，传递控件的Handle属性或任何其他HWnd值作为父窗口。DLL 代码将无法再假定父级存在 Delphi 对象，EXE 将无法假定它接收的控件是 Delphi 对象；他们将被限制使用 Windows API 来操作窗口句柄和发送消息。

于 2010-10-21T12:48:22.773 回答