Плагины ввиде dll на основе интерфейсов

[Человек_Борща]

Интересно.

Но все-таки как реализовать обмен чем-либо мужду плагином и ядром?
Каким образом? Если сообщения не удобны.

[GunSmoker]

Ты спросил общий вопрос - я дал общий ответ.

Хочешь услышать что-то конкретное - конкретно скажи, что тебя интересует.

Повторю ещё раз в общих словах: у ядра на руках есть интерфейсы плагинов (IHLRPlugin), а у плагина на руках есть интерфейс ядра (IHLRCore). Когда кому-то из них нужно что-то от другой стороны - они вызывают метод другой стороны.

К примеру, если плагину нужно что-то от ядра - он вызывает метод, скажем, IHLRCore.GetSomeData. GetSomeData возвращает данные, которые запросил плагин.

Если ядру что-то надо от плагина, оно вызывает метод, скажем, IHLRPlugin.GetSomeOtherUsefulData.

Я не могу тебе сказать конкретный пример, потому что ты ничего не говоришь про то, какие данные ты собрался передавать. Поэтому я могу сказать только такие общие слова.

Тут главное не забывать, что мы работаем на интерфейсах. И не умудриться при этом свалить всё в кучу.

[Человек_Борща]

т.е. то общение которое я хочу уже представлено на примере, когда IHLCore запрашивает данные у плагина ввиде:

var
s:string;
begin
s:=PluginsList.plugins[i].GetVersion; ? 
end;

[GunSmoker]

Я не знаю, чего ты хочешь - ты же не сказал.

В демке: передача данных от плагина к ядру по команде ядра выглядит так:

procedure TForm1.Button2Click(Sender: TObject);
var
  Data: String;
begin
  Data := Plugins[0].Author; // мы передали строку из плагина в ядро
end;

Наоборот, передача данных от ядра плагину по указке плагина:

  IHLRCore = interface(IUnknown)
  ['{CB707CEE-3191-47CC-B5C5-D4A936F5CACA}']
    function GetSomeData: WideString; safecall; // <- добавили. + надо его реализовать в THLRPlugins
  end;

function TTestPlugin.GetPluginName: WideString; safecall;
begin
  Result := 'Hello World for ' + FCore.GetSomeData;
end;

[Человек_Борща]

Вот теперь понятнее =)
Пойду разбираться...

[Человек_Борща]

Разобрался с кодом:
IHLrCore - базовый интерфейс который реализует отдачу всяческой базовой фигни(типа версии и т.д. и т.п.)
IHLRPlugin - интерфейс реализующий плагин и его способ общения с программой.
THLRPlugin - класс хранения данных об одном обьекте(1 плагин).
THLRPlugins - контейнер обьектов THLRPlugin.

Далее по поводу меню.
Я создал такой интерфейс:

  IHLRMenu = interface(IUnknown)
  ['{BFF9ED86-3C00-4613-88CB-F33B7AC0C37A}']
    procedure AddMenuItem(aName:string);
    procedure RemoveItem(aName:String);
  end;

в HLRPluginInterf.pas

Далее где мне реализовать его дальше?
Надо ли делать в THLRPlugin такую вещь:

HLRMenu:IHLRMenu;

Если да то, что делать далее?

[GunSmoker]

IHLRMenu однозначно должна реализовывать форма, меню которой ты собрался управлять с помощью этого интерфейса:

type
  TForm1 = class(TForm, IHLRMenu)
    ...
  protected
    procedure AddMenuItem(const AName: WideString); safecall;
    procedure RemoveItem(const AName: WideString); safecall;
  end;

У THLRPlugins должно быть свойство на чтение-запись типа IHLRMenu. Ему (THLRPlugins) надо переопределить GetInterface. Там по умолчанию такой код: возвращаем себя (Self), если у нас запросили интерфейс, который мы реализуем. THLRPlugins реализует IHLrCore - вот его он и сможет вернуть. Чтобы сюда вставить IHLRMenu, меняем метод GetInterface: добавляем проверку: если запросили IHLRMenu (проверяем по GUID), то возвращаем интерфейс из свойства, о котором я в самом начале говорил.

Ну, остаётся только в FormCreate установить Self (т.е. форму) в это новое свойство менеджера плагинов.

Ну а плагин спокойно сможет использовать IHLRMenu:

var
  Menu: IHLRMenu;
begin
  if Supports(FCore, IHLRMenu, Menu) then
    Menu.AddMenuItem('Hello from plugin');

Разумеется, если ты в плагине собираешься постоянно дёргать IHLRMenu, то лучше ссылку на него сохранить в новом поле (рядом с FCore).

P.S. Не забываем про WideString и safecall. Также, рекомендую идентифицировать всё по GUID, либо вести в самой программе учёт:

    function AddMenuItem(const AName: WideString): Integer; safecall;
    procedure RemoveItem(const AID: Integer); safecall;

[Человек_Борща]

У THLRPlugins должно быть свойство на чтение-запись типа IHLRMenu.

А у THLRPlugin?

  THLRPlugin = class
  private
    //Обькст родитель(приемник)
    FContainer: THLRPlugins;
    //Точка входа dll плагина
    FDLLHandle: HMODULE;
    // интерфейс плагина
    FPlugin: IHLRPlugin;
    //интерфейс доступа к меню программы
    FMenu:IHLRMenu;
    // Интерфейс ссылка
    FPluginID: TGUID;
  public
    constructor Create(const AContainer: THLRPlugins; const AFileName: String);
    destructor Destroy; override;
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
    property Plugin: IHLRPlugin read FPlugin;
    property PluginID: TGUID read FPluginID;
    property Menu:IHLRMenu read FMenu;
  end;

 Ему (THLRPlugins) надо переопределить GetInterface. Там по умолчанию такой код: возвращаем себя (Self), если у нас запросили интерфейс, который мы реализуем. THLRPlugins реализует IHLrCore - вот его он и сможет вернуть. Чтобы сюда вставить IHLRMenu, меняем метод GetInterface: добавляем проверку: если запросили IHLRMenu (проверяем по GUID), то возвращаем интерфейс из свойства, о котором я в самом начале говорил.

 Ну, остаётся только в FormCreate установить Self (т.е. форму) в это новое свойство менеджера плагинов.

Можно эту часть более доступно описать?

[GunSmoker]

А у THLRPlugin?

А зачем он там? Ты хочешь, каждому плагину выдать по главному меню или как?

Мне казалось, ты ввводишь IHLRMenu, чтобы плагин мог добавлять и убирать пункты в меню своей программы.

Не, для определённых хитрых целей такое сделать можно. Но в общем случае - не нужно. Один общий IHLRMenu - достаточно.

Можно эту часть более доступно описать?

Т.е. написать за тебя код?

type
  // Добавили свойство, чтобы его могла установить форма
  IHLRPlugins = interface
  // private
    ...
    function GetMenu: IHLRMenu; safecall;
    procedure SetMenu(const AMenu: IHLRMenu); safecall;
  // public
    ...
    property Menu: IHLRMenu read GetMenu write SetMenu;
  end;

...

  // Само свойство в менеджере
  THLRPlugins = class(TObject, IInterface, IHLRCore, IHLRPlugins)
  private
    ...
    FMenu: IHLRMenu;
  protected
    ...
    // IHLRPlugins
    ...
    function GetMenu: IHLRMenu; safecall; // методы читают/пишут FMenu - не их писать
    procedure SetMenu(const AMenu: IHLRMenu); safecall;
  public
    ...
  end;

...

function THLRPlugins.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  // Проверка на встроенные базовые вещи (IHLRCore)
  if GetInterface(IID, Obj) then
    Result := S_OK
  else
  begin
    // Проверка на сторонние расширения
    if Assigned(FMenu) and Supports(FMenu, IID, Obj) then
      Exit;
    
    // <- сюда вставляем аналогичные проверки от других вещей в твоей программе

    Result := E_NOINTERFACE;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Plugins.Menu := Self; // указали плагинам использовать меню этой формы
  Plugins.LoadAll(ExtractFilePath(ParamStr(0)) + 'plugins\'); // и загрузили их

  // порядок важен
end;

[Человек_Борща]

Ок, можно и так. Я видимо по прежнему далёк от этой темы,что огорчает.
Похоже я не понимаю как реализовать простую иерархию в данной системе.


Set|GetMenu реализовал вот так:

function THLRPlugins.GetMenu: IHLRMenu;
begin
  Result:=FMenu;
end;

procedure THLRPlugins.SetMenu(const aMenu: IHLRMenu);
begin
  FMenu:=aMenu;
end;

При запуске программы, осыпаемся вот с таким текстом:

exception class   : EOleException
exception message : Разрушительный сбой.

main thread ($abc):
004a01b3 +087 MainApplication.exe PluginsBaseUnit 271 +16 THLRPlugin.Create
0049fe6b +013 MainApplication.exe PluginsBaseUnit 147  +2 THLRPlugins.LoadPlugin
0049fff0 +0e4 MainApplication.exe PluginsBaseUnit 200 +11 THLRPlugins.LoadAll
004a06af +06f MainApplication.exe MainFormUnit     37  +2 TForm1.FormCreate
0049625d +031 MainApplication.exe Forms                   TCustomForm.DoCreate
00495f3d +011 MainApplication.exe Forms                   TCustomForm.AfterConstruction
00403f17 +007 MainApplication.exe System                  @AfterConstruction
00495f14 +174 MainApplication.exe Forms                   TCustomForm.Create
0049d5fd +031 MainApplication.exe Forms                   TApplication.CreateForm
004a0eab +02f MainApplication.exe MainApplication  15  +2 initialization

disassembling:
[...]
004a0179 263   test    esi, esi
004a017b       jnz     loc_4a0182
004a017d 264   call    -$48cf6 ($45748c)      ; SysUtils.RaiseLastOSError
004a0182 266   push    $4a022c                ; '07D27A370CA7409F9DC16288A592CF4F'
004a0187       mov     eax, [ebx+8]
004a018a       push    eax
004a018b       call    -$98db8 ($4073d8)      ; Windows.GetProcAddress
004a0190       mov     esi, eax
004a0192 268   test    esi, esi
004a0194       jnz     loc_4a019b
004a0196 269   call    -$48d0f ($45748c)      ; SysUtils.RaiseLastOSError
004a019b 271   lea     eax, [ebp-8]
004a019e       call    -$99a23 ($406780)      ; System.@IntfClear
004a01a3       push    eax
004a01a4       test    edi, edi
004a01a6       jz      loc_4a01ab
004a01a8       sub     edi, -$c
004a01ab       push    edi
004a01ac       call    esi
004a01ae       call    -$99923 ($406890)      ; System.@CheckAutoResult
004a01b3     > mov     edx, [ebp-8]            ; <- EXCEPTION
004a01b6       lea     eax, [ebx+$c]
004a01b9       call    -$99a26 ($406798)      ; System.@IntfCopy
004a01be 273   cmp     dword ptr [ebx+$c], 0
004a01c2       jnz     loc_4a01d0
004a01c4 276   push    $1f
004a01c6       call    -$98c3b ($407590)      ; Windows.SetLastError
004a01cb 278   call    -$48d44 ($45748c)      ; SysUtils.RaiseLastOSError
004a01d0 281   lea     eax, [ebp-$18]
004a01d3       push    eax
004a01d4       mov     eax, [ebx+$c]
004a01d7       push    eax
004a01d8       mov     eax, [eax]
004a01da       call    dword ptr [eax+$c]
004a01dd       call    -$99952 ($406890)      ; System.@CheckAutoResult
004a01e2       lea     esi, [ebp-$18]
004a01e5       lea     edi, [ebx+$10]
004a01e8       movsd
004a01e9       movsd
004a01ea       movsd
004a01eb       movsd
[...]