Delphi - 创 build 计良好的插件

Question

我发现运行良好的代码片段可以轻松创建模块化 Delphi 应用程序。此代码适用于 Delphi 5 版本。

链接到片段 -> http://delphi.cjcsoft.net/viewthread.php?tid=44129

多年来，我有很大的 Delphi 5 项目构建，我开始怀疑是否可以加载使用较新版本的 Delphi(在我的情况下为 XE2)编译的插件(* .plg)。

我用 Borland 的 ShareMem 替换了 ShareMemRep.pas，因为 XE2 不能用 ShareMemRep 编译。 Delphi 5 版本的插件和客户端应用程序正在加载用 Delphi 5 编写的插件，到目前为止运行良好。

我使用了相同的代码(除了我必须将 PAnsiChar 更改为 PWideChar)并使用 Delphi XE2 编译插件和客户端应用程序。但是编译的客户端应用程序无法加载使用 Delphi XE2 编译的插件和使用 Delphi 5 编译的插件。

Delphi 5 客户端应用程序也无法加载使用 Delphi XE2 编译的插件。

Delphi XE2 客户端未加载使用 Delphi XE2 插件编译的因为(PlugInClass.GetInterface(PlugInGUID, PlugInIntf))正在返回 False .

当 Delphi XE2 或 Delphi 5 客户端应用程序加载相反版本的插件编译时，(PlugInClass.GetInterface(PlugInGUID, PlugInIntf))导致访问冲突。

我从 System.pas 中发现，在底部进行了一些更改，但我对那种“黑客位”的了解是纯粹的。

有没有人知道是否可以加载使用不同版本编译的插件(库)，而不是使用片段中的代码加载该插件的应用程序？

编辑:
我的源代码:
https://bitbucket.org/plum/delphimodularapp

插件加载(管理器)的源代码:

function TPlugInManager.LoadPlugIn(const AFileName: string;
  PlugInGUID: TGUID; out PlugInIntf; ForceCreate: Boolean = False): Boolean;
var
  FileName: string;
  DLLHandle: THandle;
  FuncPtr: TFarProc;
  PlugInProc: TPlugInProc;
  PlugInClass: TPlugInClass;
  PlugInStruct: PPlugInStruct;
begin
  { initialize variables }
  Result := False;
  FileName := AFileName;
  DLLHandle := 0;
  try
    { try to load passed dll }
    // Delphi XE
    //DLLHandle := LoadLibraryW(PWideChar(AFileName));
    // Loading *.plg plugin
    DLLHandle := LoadLibrary(PAnsiChar(AFileName));
    if DLLHandle <> 0 then
    begin
      { get function address of 'RegisterPlugIn' }
      FuncPtr := GetProcAddress(DLLHandle, 'RegisterPlugIn');
      if FuncPtr <> nil then
      begin
        { assign register method }
        @PlugInProc := FuncPtr;

        { create plugin instance }
        PlugInClass := TPlugInClass(PlugInProc(FOwner, ForceCreate));  // creates instance!
        { the only tricky-part: accessing the common interface }
        if Assigned(PlugInClass) then begin
          // On that line I'm getting AV when I'm trying to load
          // plugin compiled with Delphi XE2 by Host application compiled with Delphi5.
          if (PlugInClass.GetInterface(PlugInGUID, PlugInIntf)) then
          begin
            { save plugin properties }
            New(PlugInStruct);
            PlugInStruct.AClass := PlugInClass;
            PlugInStruct.GUID := PlugInGUID;
            PlugInStruct.Handle := DLLHandle;
            PlugInStruct.AInterface := Pointer(PlugInIntf);
            PlugInStruct.FileName := AFileName;
            FPlugIns.Add(PlugInStruct);
            Result := True;
          end;
        end;

        if Result = False then begin
          FreeLibrary(DLLHandle);
        end;
      end;
    end;    // try/finally
  except
    on e: Exception do
    begin
      FLastError := e.Message;
      if DLLHandle <> 0 then
        FreeLibrary(DLLHandle);
    end;
  end;    // try/except
end;

插件代码(库):

library libSamplePlugIn;

uses
  ShareMem,
  Windows,
  Classes,
  uPlugInIntf in 'uPlugInIntf.pas',
  uSamplePlugInIntf in 'uSamplePlugInIntf.pas',
  uSamplePlugInImpl in 'uSamplePlugInImpl.pas';

{$E plg}  //
{$R *.res}

procedure DllMain(Reason: Integer);
begin
  case Reason of
   { our 'dll' will be unloaded immediantly, so free up the shared
     datamodule, if created before! }
    DLL_PROCESS_DETACH:
     { place your code here! }
  end;
end;

function RegisterPlugIn(AOwner: TComponent;
  ForceCreate: Boolean = False): TSamplePlugIn; stdcall;
begin
  Result := TSamplePlugIn.Create(AOwner);
end;

exports RegisterPlugIn;

begin
end.

和插件类:

unit uSamplePlugInImpl;

interface

uses
  uPlugInIntf, uSamplePlugInIntf, Classes;

type
{ TSamplePlugIn }

  TSamplePlugIn = class(TPlugInClass, ICustomPlugIn, ISamplePlugIn)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function GetAuthor: string;
    function GetName: string;
    function GetVersion: string;
    function GetDescription: string;
    function Sum(a, b: Integer): Integer;
  end;

implementation

{ TSamplePlugIn }

constructor TSamplePlugIn.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

{ Rest of implementation ...}

function TSamplePlugIn.Sum(a, b: Integer): Integer;
begin
  Result := a + b;
end;

end.

Answer 1

由于致命的设计缺陷，此代码被破坏。你不能通过一个 DLL 边界传递一个 Delphi 类并让它在另一边有意义。当你通过 TComponent 时，这条规则就被打破了。到 DLL，当它返回 TSamplePlugIn .

您的主要选择:

切换到运行时包，或

使用接口(interface)而不是类。

你似乎并不遥远。停止传递 TComponent .寻找另一种管理生命周期的方法。接口(interface)已经为此提供了引用计数。并返回一个接口(interface)而不是一个类实例。那你应该上路了。

你确实只是按照那篇文章设定的线索。可悲的是，它似乎是由没有足够专业知识的人编写的。它可能在 D5 中似乎可以工作，但在那里也被破坏了。你只是以某种方式逃脱了它。

请注意 PChar是 PWideChar在 Unicode Delphi 和 PAnsiChar 中在 ANSI 德尔福。使用这一事实将允许您编写适用于两者的代码。

DLLHandle := LoadLibrary(PChar(AFileName));

DllMain是虚假的。去掉它。