Delphi World - Вызвать процедуру из DLL
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Вызвать процедуру из DLL


//  Call DLL Program  (Normal Application Project) 
//  This example calls a Quick Report within a DLL. 
//  Author: Michael Casse. 
//  18-12-2001. 

unit uMain; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons; 

type 
  TForm1 = class(TForm) 
    btnClose: TBitBtn; 
    btnReport: TBitBtn; 
    procedure btnReportClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.btnReportClick(Sender: TObject); 
var 
  LibHandle: THandle; 
  fDisplaySampleReport: procedure; 
  begin 
    LibHandle := LoadLibrary('Report.dll'); 
    if LibHandle = 0 then 
      raise Exception.Create('Unable to Load DLL...') 
    else 
    begin 
      try @fDisplaySampleReport := GetProcAddress(LibHandle, 'DisplaySampleReport'); 
        if @fDisplaySampleReport <> nil then 
          fDisplaySampleReport; // Invoke the Procedure within the DLL 
      except 
        on E: Exception do 
          ShowMessage('Exception error: ' + E.Message); 
      end; 
    end; 
    FreeLibrary(LibHandle); // Free Memory Allocated for the DLL 
  end; 

  end. 

  //////////////////////////////////////////////// 
  // DLL Project 

library Report; 

uses  SysUtils, Classes, 
      uReport in 'uReport.pas' {Form1}; 

procedure DisplaySampleReport; 
begin 
  Form1 := TForm1.Create(nil); 
  try 
    Form1.QuickRep1.Preview; 
  finally 
    Form1.Free; 
  end; 
end; 

exports  DisplaySampleReport; 

end.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования