Помогите реализовать плагины...

[The Best]

Точно так же как и в случае с несовпадением названия файла с названием процедуры..

[Levsha100]

Вам нужно создать свой интерфейс (API)

[W0LF]

У меня есть StringGrid1
Как загрузить в один столбик файлы dll из определенной папки (а иенно "plugins"), а в соседнюю строку с именем файла загрузить текст с файла *.ini что имеет одинаковое имя с *.dll

-----------------------------------------
sm.dll | Текст с файла sm.ini
-----------------------------------------
kill.dll | Текст с файла kill.ini
-----------------------------------------
run.dll | Текст с файла run.ini
-----------------------------------------

[The Best]

ты имеешь ввиду зугрузить нзвания файлов DLL? И содержимое ini?

[BOBAH13]

Мда.. народ, слов нет как обычно запудрили парню мозги (или он сам себе). Ну в сети как бы четко и на все вопросы статьи вы врядли найдете, хотя чудеса встречаются. А так, вот мой подход, может чего и себе возьмете

1. Создается новый модуль (.pas) в котором описываите один класс - одна .dll - один плагин, к примеру TPlugin, как нистранно, а так же класс TPlugins - на основе TList, ведет он себя по сути как TStringList только работает (Items возращает, удаляет, добовляет, ищет и т.п.) не со String, а с TPlugin.

2. TPlugin - должен иметь FileName (полный путь .dll), методы Load, Unload (для загрузки LoadLibraryW, и выгрузки FreeLibrary), и конечно же набор вспомогательных функций. Например

function pluginGetInformation(szName: PWChar; szAuthor: PWChar; szDescription: PWChar; dwVer: DWord): Boolean; stdcall;
function pluginGetType: Integer; stdcall;

3. по названиям думаю ясно, pluginGetType - для проверки при поиске ваших плагинов в определенной папке вашей программы (было сказано выше). То что будет возращано pluginGetType может к примеру, описывать предназначение плагина, и в соответствии обрабатываться в вашем приложении.

Собственно и все. В кратце, мини-статься можно сказать.

[BaronTreep]

По примеру ВОВАНА13, а то про плагины мало (см. внизу страницы) :

Так как в Delphi статическая типизация вы можете сделать общий плагин только над одним множеством функций, например функций от целого, возвращающих целое. Т.е. нет обобщенных процедурных типов... С другой стороны обычной процедуры без параметров хватает за глаза.

// Главное приложение

...

type
  Proc_Action = procedure;

type TPlugIn =  class(TObject)
  private
    hndDLL : THandle;
  public
    constructor Create(fileDLL :  string);
    destructor Destroy; override;
    function GetApplication : TApplication; virtual; stdcall;
    function LoadFunction_Action (nameFun :  string) : Proc_Action;
end;

type TMainForm =  class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    PlugIn : TPlugIn;
    MyAct  : Proc_Action;
end;

var
  MainForm: TMainForm;

[BaronTreep]

implementation

{ TPlugIn }

constructor TPlugIn.Create (  fileDLL : string );
  type TInitPlugin = procedure (PlugClass :  TPlugIn);
  var InitPlugin : TInitPlugin;
  begin
    hndDLL :=  loadLibrary(PChar(fileDLL));
    if Longint(hndDLL)  <> 0 then  begin try
      @InitPlugin :=  GetProcAddress(hndDLL,  'InitPlugin');
      if  Longint(@InitPlugin)  <> 0 then  begin try
          InitPlugin ( Self );
        except
          raise Exception.Create('Сбой  функции инициализации');
        end;
      end else raise  Exception.Create('В плагине нет функции  инициализации');
      except
        raise Exception.Create('В плагине  нет функции инициализации');
      end;
    end else raise  Exception.Create('Нет такого плагина  ' + fileDLL);
end;

destructor TPlugIn.Destroy;
begin
  freeLibrary(hndDLL);
end;

function TPlugIn.GetApplication : TApplication;
begin
  Result := Application;
end;

function TPlugIn.LoadFunction_Action  (nameFun: string) : Proc_Action;
var
  adrFun : Proc_Action;
begin
  Result := nil;
  try
    @adrFun :=  getProcAddress(hndDLL,  PChar(nameFun));
    if addr(adrFun)  <> nil then
       Result := adrFun
    else raise  Exception.Create('Нет такой функции  ' + nameFun);
  except
    raise Exception.Create('Нет такой  функции ' + nameFun);
  end;
end;

{$R *.DFM}

procedure TMainForm.FormCreate(Sender:  TObject);
begin
  Plugin :=  TPlugin.Create('plugin.dll');
end;

procedure TMainForm.FormDestroy(Sender:  TObject);
begin
  Plugin.Free;
end;

procedure TMainForm.Button1Click(Sender:  TObject);
begin
  MyAct :=  Plugin.LoadFunction_Action(Edit1.Text);
  MyAct;
end;

end.

[BaronTreep]

Потом сочиняем такой плагин:

library Plugin;

uses
  SysUtils, Classes, Forms;
  
{$R *.RES}

// Сюда можно в принципе и форму засунуть (New -> Form)

type TPluginInterface = class
  public
    function GetApplication : TApplication; virtual; stdcall; abstract;
end;

var
  InterF : TPluginInterface;

// Обязательно
procedure initPlugin(PlugClass : TPluginInterface);
begin
  InterF := PlugClass;
end;

function RGB(r,  g, b: byte) :  integer;
begin
  Result := (r or (g shl  8) or (b shl  16));
end;

procedure DoRed; export; stdcall;
begin
   InterF.GetApplication.MainForm.Color := RGB(255,  0, 0);
end;

procedure DoGreen; export; stdcall;
begin
   InterF.GetApplication.MainForm.Color := RGB(0,  255, 0);
end;

procedure DoBlue; export; stdcall;
begin
   InterF.GetApplication.MainForm.Color := RGB(0,  0, 255);
end;

exports InitPlugin name 'InitPlugin';
exports DoRed name 'DoRed';
exports DoGreen name 'DoGreen';
exports DoBlue name 'DoBlue';

begin
end.

Как видете какие бы процедуры вы сюда не вставили, все они могут быть вызваны просто по имени. То, что в главном модуле имеется function GetApplication : TApplication; virtual; stdcall;, а в плагине function GetApplication : TApplication; virtual; stdcall; abstract; приводит к тому, что GetApplication вызывается фактически из главного приложения.

Потом можно устроить список - пробегать Find-ом по директории, собирать все dll и добавлять в список те которые инициализировались. Список доступных имен функций, как говорилось, можно брать из в ini файла.

[W0LF]

Вот суть, вообще, програмы... Програма управляет компьютером по icq протаколу. В ней вводиться Команда и Название функции/процедуры которая вызываеться по этой команде. Пример: "!cd,open" - "cd-open", процедура "cd-open" открывает сидюк, так же в папке Plugins есть файл cd-open.dll с данной функцией... надо что бы прога загружала список доступных функций из dll, всмысле загружала имена dll без расширения ".dll", функции будут иметь названия самих файлов и будет видно какие именно доступны для использования и при запуске подключает все dll из папки Plugins

[BaronTreep]

Вот суть, вообще, програмы...

Нада писать, однако. Вот вам есче кусок, прикрутите к тому, что я писал выше:

procedure TMainForm.FormCreate(Sender: TObject);
var
  Found, Attr  : integer;
  SearchRec    : TSearchRec;
  PluginHandle : THandle;
  PlugDir      : string;
begin
  PlugInList := TPlugInList.Create;
  PlugDir    := ExtractFilePath (Application. ExeName) + 'Plugins\';
  Attr       := faReadOnly or faHidden or faSysFile or faArchive;
  Found      := FindFirst(PlugDir + '*.dll', Attr, SearchRec);
  while Found = 0 do begin try
    Plugin := TPlugin.Create(PlugDir + SearchRec.Name);
    ListBox1.Items.Add(PlugDir + SearchRec.Name);
    // PlugInList.add(Plugin);
    except
      raise Exception.Create('AyYaAy');
    end;
  Found := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;

Теперь все dll из папки plugins, если они инициализируются, заносятся в список. Вам всего-то осталось организовать TList (делайте поинтеры) и пробежать по таблице экспорта в каждой dll.

Что касается открыть CD-ROM, то это как из пушки по воробьям, зачем плагины? Впрочем можете добавить в плагин такую функцию, и назвать её.