loader.pas

先打开ExeBplDll.bpg工程编译安装DataCentre.dpk

unit Loader;

interface

uses
  DLLLoader, dkInts, SysUtils, Classes, windows;

type
  TLoader = class(TDLLLoader)
  private
    FInts: IModelInts;
    function GetInts: IModelInts;
  public
    destructor destroy; override;
    property ModelServiceInts: IModelInts read GetInts;
  end;

implementation

{ TLoader }

destructor TLoader.destroy;
begin
  if FInts <> nil then
    FInts := nil;
  inherited;
end;

function TLoader.GetInts: IModelInts;
var
  InvokeFunc: function: IModelInts;
begin
  if FInts = nil then
  begin
    @InvokeFunc := GetProcAddress(DLLHandle, pchar('GetModelInts'));
    if @InvokeFunc <> nil then
    begin
      FInts := InvokeFunc
    end else
      raise Exception.Create('该DLL未提供该服务!');
  end;
  Result := FInts;
end;

end.