interfacedllloader.pas

DLL导出接口演示

unit InterfaceDLLLoader;

interface

uses
  Windows, PrjInterface, DLLLoader, SysUtils;

type
  TInterfaceDLLLoader = class(TDLLLoader)
  private
  public
    constructor Create;
    destructor destroy; override;
    function GetInterface: IMyInterface;
    procedure FreeInterface;
  end;

implementation

{ TInterfaceDLLLoader }

constructor TInterfaceDLLLoader.Create;
begin
  inherited Create(GetApplicationPath + '\Dll\Dll.Dll');
end;

destructor TInterfaceDLLLoader.destroy;
begin
  //FreeInterface;
  inherited;
end;

procedure TInterfaceDLLLoader.FreeInterface;
var
  InvokeProc: procedure;
begin
  @InvokeProc := GetProcAddress(DLLHandle, pchar('FreeInterface'));
  if @InvokeProc <> nil then
    InvokeProc;
end;

function TInterfaceDLLLoader.GetInterface: IMyInterface;
var
  InvokeFunc: function: IMyInterface;
begin
  @InvokeFunc := GetProcAddress(DLLHandle, pchar('GetInterface'));
  if @InvokeFunc <> nil then
    result := InvokeFunc;
end;

end.