Принцип создания плагинов в Delphi (исходники)

function PluginType : PChar;

function PluginName : PChar;

function PluginExec(AObject: ТТип): boolean;

function PluginType : PChar; external 'myplg.dll';
 // в таком случае dll должна обязательно лежать возле exe и мы не можем передать 
 // туда конкретное имя! не делать же все плагины одного имени! это нам не подходит. 
 // Программа просто не загрузится без этого файла! Выдаст сообщение об ошибке. 
 // Этот способ может подойти для поддержки обновления вашей программы! 

var
   // объявляем процедурный тип функции из плагина 
  PluginType: function: PChar;
   //объявляем переменную типа хендл в которую мы занесём хендл плагина 
  PlugHandle: THandle;

procedure Button1Click(Sender: TObject);
begin
   //грузим плагин 
  PlugHandle := LoadLibrary('MYplg.DLL');
   //Получилось или нет? 
  if PlugHandle <> 0 then
  begin
     // ищем функцию в dll 
    @PluginType := GetProcAddress(plugHandle,'Plugintype');
    if @PluginType <> nil then
       //вызываем функцию 
      ShowMessage(PluginType);
  end;
   //освобождаем библиотеку 
  FreeLibrary(LibHandle);
end;

 //как вы поняли загружает dll и возвращает её хендл 
function LoadLibrary(lpLibFileName : Pchar):THandle;
 // пытается найти обработчик в переданной ей хендле dll, 
 // при успешном выполнении возвращает указатель обработчика. 
function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc 
 //освобождает память, занитую dll 
function FreeLibrary(LibModule: THandle);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
     //меню, которое будет содержать ссылки на плагины 
    N1231: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
     { Private declarations } 
     //лист, в котором мы будем держать имена файлов плагинов 
    PlugList : TStringList;
     //Процедура загрузки плагина 
    procedure LoadPlug(fileName : string);
     //Процедура инициализации и выполнения плагина 
    procedure PlugClick(sender : TObject);
  public
     { Public declarations } 
end;

var
Form1: TForm1;

implementation
 {$R *.DFM} 

procedure TForm1.LoadPlug(fileName: string);
var
   //Объявление функции, которая будет возвращать имя плагина 
  PlugName : function : PChar;
   //Новый пункт меню 
  item : TMenuItem;
   //Хендл dll 
  handle : THandle;
   //Объект, с помощью которого мы загрузим картинку из dll 
  res :TResourceStream;
begin
  item := TMenuItem.create(mainMenu1);  //Создаём новый пункт меню 
  handle := LoadLibrary(Pchar(FileName));  //загружаем dll 
  if handle <> 0 then  //Если удачно, то идём дальше... 
  begin
    @PlugName := GetProcAddress(handle,'PluginName');  //грузим процедуру 
    if @PlugName <> nil then
      item.caption := PlugName
       //Если всё прошло, идём дальше... 
    else
    begin
      ShowMessage('dll not identifi ');  //Иначе, выдаём сообщение об ошибке 
      Exit;  //Обрываем процедуру 
    end;
    PlugList.Add(FileName);  //Добавляем название dll 
    res:= TResourceStream.Create(handle,'bitmap',rt_rcdata);  //Загружаем ресурс из dll 
    res.saveToFile('temp.bmp'); res.free;  //Сохраняем в файл 
    item.Bitmap.LoadFromFile('Temp.bmp');  //Загружаем в пункт меню 
    FreeLibrary(handle);  //Уничтожаем dll 
    item.onClick:=PlugClick;  //Даём ссылку на обработчик 
    Mainmenu1.items[0].add(item);  //Добавляем пункт меню 
  end;
end;

procedure TForm1.PlugClick(sender: TObject);
var
   //Объявление функции, которая будет выполнять плагин 
  PlugExec : function(AObject : TObject): boolean;
   //Объявление функции, которая будет возвращать тип плагина 
  PlugType : function: PChar;
   //Имя dll 
  FileName : string;
   //Хендл dll 
  handle : Thandle;
begin
  with (sender as TmenuItem) do
    filename:= plugList.Strings[MenuIndex];
   //Получаем имя dll 
  handle := LoadLibrary(Pchar(FileName));  //Загружаем dll 
   //Если всё в порядке, то идём дальше 
  if handle <> 0 then
  begin
     //Загружаем функции 
    @plugExec := GetProcAddress(handle,'PluginExec');
    @plugType := GetProcAddress(handle,'PluginType');
     //А теперь, в зависимости от типа, передаём нужный ей параметр... 
    if PlugType = 'FORM' then
      PlugExec(Form1)
    else
     //Если плагин для формы, то передаём форму 
    if PlugType = 'CANVAS' then
      PlugExec(Canvas)
    else
     //Если плагин для канвы, то передаём канву 
    if PlugType = 'MENU' then
      PlugExec(MainMenu1)
    else
     //Если плагин для меню, то передаём меню 
    if PlugType = 'BRUSH' then
      PlugExec(Canvas.brush)
    else
     //Если плагин для заливки, то передаём заливку 
    if PlugType = 'NIL' then
      PlugExec(nil);
     //Если плагину ни чего не нужно, то ни чего не передаём 
  end;
  FreeLibrary(handle);  //Уничтожаем dll 
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  SearchRec : TSearchRec;  //Запись для поиска 
begin
  plugList:=TStringList.create;  //Создаём запись для имён dll'ок 
   //ищем первый файл 
  if FindFirst('*.dll',faAnyFile, SearchRec) = 0 then
  begin
    LoadPlug(SearchRec.name);  //Загружаем первый найденный файл 
    while FindNext(SearchRec) = 0 do
      LoadPlug(SearchRec.name);
     //Загружаем последующий 
    FindClose(SearchRec);  //Закрываем поиск 
  end;
   //Левые параметры 
  canvas.Font.pitch := fpFixed;
  canvas.Font.Size := 20;
  canvas.Font.Style:= [fsBold];
end;

end.

library plug;

uses
  SysUtils, graphics, Classes, windows;

 {$R bmp.RES} 

function PluginType : Pchar;
begin
   //Мы указали реакцию на этот тип 
  Plugintype := 'CANVAS';
end;

function PluginName:Pchar;
begin
   //Вот оно, название плагина. Эта строчка будет в менюшке 
  PluginName := 'Canvas painter';
end;

function PluginExec(Canvas:TCanvas):Boolean;
var
  X : integer;
  I : integer;
  Z : byte;
  S : string;
  color : integer;
  proz : integer;
begin
  color := 10;
  proz :=0;
  S:= 'hello всем это из плагина ля -- ля';
  for Z:=0 to 200 do
  begin
    proz:=proz+2;
    X:= 0;
    for I:=1 to length(S) do
    begin
      X:=X + 20;
      Canvas.TextOut(X,50,S[i]);
      color := color+X*2+Random(Color);
      canvas.Font.Color := color+X*2;
      canvas.font.color := 10;
      canvas.TextOut(10,100,'execute of '+inttostr(proz div 4) + '%');
      canvas.Font.Color := color+X*2;
      sleep(2);
    end;
  end;
  PluginExec:=True;
end;

exports
  PluginType, PluginName, PluginExec;

end.