main.pas

suite component ace report

unit Main;

interface

uses
  Winprocs, WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

function MyShowMessage(Text: PChar): Integer;
function RunBiolifeReport: Integer;

implementation

{$R *.DFM}
function MyShowMessage(Text: PChar): Integer; external 'AceDll';
function RunBiolifeReport: Integer; external 'AceDll';

procedure TMainForm.Button1Click(Sender: TObject);
begin
  MyShowMessage('It works!');
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  RunBiolifeReport;
end;

type
 TMyReport = function: Integer;

procedure TMainForm.Button3Click(Sender: TObject);
var
 GetReport: TMyReport;
 Handle: THandle;
begin
 Handle := LoadLibrary('AceDll.dll');
 if Handle <> 0 then
 begin
   { if the case is not the same as its defined then the
     function will not be found.}
   @GetReport := GetProcAddress(Handle, 'RunBiolifeReport');
   if @GetReport <> nil then  GetReport;
   FreeLibrary(Handle);
 end;
end;

end.