[KOOL]

Занимаюсь внедрением плагинов, возникла необходимость в организации интерфейса между плагином и программой, наподобии интерфейса в QIP Infium. Не могу понять алгоритм инициализации плагина...Плагин должен привязываться к своему сервису плагинов в главной программе...в общем нужна помощь
Вот тут SDK QIP'а Помогите плиз...

[KOOL]

Неужели никто не знает??? Эт очень важно!!!

[Phedor]

В чем проблема?
1. Ищете в папке плагинов файлы с расширением dll
2. Вызываете процедуру (должна быть во всех плагинах) возвращающую информацию о плагине и производящую первоначальную инициализацию.
3. Добавляете полученную инфу в самой программе в список плагинов.

[s0Creator]

Если кратко:
Qip загружает dll с твоим плагином и найдя в ней функцию CreateInfiumPLUGIN, вызывает ее
при этом он передает тебе интерфейс для связи с сервером - PluginService: IQIPPluginService
а ты ему свой интерфейс - типа IQIPPlugin
для того чтобы работал твой интерфейс из двух функций предварительно создается объект класса
TQipPlugin.Create(PluginService)
сервер видит только твой интерфейс

PHP код:

IQIPPlugin = interface
  // сервер получает информацию о плагине
    function  GetPluginInfo: pPluginInfo; stdcall;
  // сервер вызывает чтобы сообщить плагину о событиях (плагин загружен, запуск плагина, останов и т.д.)
  // смотри реализацию в классе TQipPlugin там все подробно расписано на чистом англицком
    procedure OnQipMessage(var PlugMsg: TPluginMessage); stdcall;
  end; 


в своем плагине ты сам пишешь как ты будешь реагировать на событи
в общемто все кроме инициализации, описаний интерфейсов и констант можешь менять

когда ты хочешь чтото сообщить или получить от сервера то используешь его интерфейс

PHP код:

IQIPPluginService = interface
    // позволяет тебе сохранить или загрузить сохраненные опции
    function  PluginOptions(DllHandle: LongInt): pPluginSpecific; stdcall;
    // посылаешь серверу вообщение на которое он отреагирует
    procedure OnPluginMessage(var PlugMsg: TPluginMessage); stdcall;
  end; 


который ты сохранил в

PHP код:

constructor TQipPlugin.Create(const PluginService: IQIPPluginService);
begin
  FPluginSvc := PluginService;
end; 


В общем гдето так
удачи

[KOOL]

2 s0Creator:
Как делать плагины к квипу я знаю. Я не знаю как организовать подобное в своей проге.
При вызове функции CreateInfiumPLUGIN в нее передается IQIPPluginService, который изначально равен nil, поэтому вылетает ошибка access violation...К тому же возвращается значение типа IQIPPlugin...Поэтому я не знаю, как инициализировать плагин

[s0Creator]

А ты не заметил как dll передает свой интерфейс

PHP код:

function CreateInfiumPLUGIN(PluginService: IQIPPluginService): IQIPPlugin; stdcall;
begin
  Result := TQipPlugin.Create(PluginService);
end; 


интерфейс это только описание предиставляемых методов
чтоб его передать необходимо создать интерфейсный объект
я вообще делал это так:

PHP код:

if FSQLDriver = nil then FSQLDriver := TSQLDriver.Create ;
      FSQLDriver.GetInterface(ISQLDriver,Result); 


[KOOL]

Мда...учиться, учиться и учиться....Спасибо за наставление на истинный путь)))

[KOOL]

Проблемыыы.... Не получается создать класс интерфейсного объекта...По идее в нем должны быть те же процедуры, что и в интерфейсе + свои..но компилятор на этом участке ругается на недекларированную процедуру:

Код:

unit PPlugin

...
IPluginService = interface
    procedure OnPluginMessage(var PlugMsg: TPPluginMessage); stdcall;
  end;
  pIPluginService = ^IPluginService;
...
---------------------------------------------
//основная программа

...
type
    TPluginService = class(TInterfacedObject, IPluginService);//Вот тут ошибка [Error] PlaylistForm.pas(3893): Undeclared identifier: 'OnPluginMessage'
      public
        procedure OnPluginMessage(var PlugMsg: TPPluginMessage); stdcall;
    end;
    pTPluginService = ^TPluginService;

procedure TPluginService.OnPluginMessage(var PlugMsg: TPPluginMessage);
begin
//...
end;
...

[s0Creator]

Да!! подколол
минут 10 смотрел в Д7 на твою ошибку.
Найди одно отличие:

Код:

type
    TPluginService = class(TInterfacedObject, IPluginService)//Вот тут ошибка [Error] PlaylistForm.pas(3893): Undeclared identifier: 'OnPluginMessage'
      public
        procedure OnPluginMessage(var PlugMsg: TPPluginMessage); stdcall;
    end;

Кстати Делфи вроде рекомендует объявлять интерфейсы так:

Код:

IPluginService = interface
    ['{46388778-FBD2-460B-AEA4-2AC103ABB86E}']
    procedure OnPluginMessage(var PlugMsg: TPPluginMessage); stdcall;
  end;

То что в квадратных скобках генерится по Ctrl+Shift+G
Удачи

[KOOL]

Мда...вот тебе и CodeRush, да еще вечером...";" ставит где ни попадя...а я не заметил...
Без GUID какнить обойдусь. Итак заработало

[KOOL]

И последний вопрос(как я надеюсь ): как все-таки подключить плагин? Чему нужно присвоить результат функции CreatePlayerPlugin(PluginService: IPluginService) ?... вот временный код:

Код:

procedure TPLForm.LoadPlugin(Name : string);
var
  Srv: IPPlugin;                //
  PSrv : IPluginService;     //Это будут глобальные переменные
  HndDLLHandle: THandle; //
  Msg : TPPluginMessage;
  CreatePlayerPlugin : function(PluginService : IPluginService):IPPlugin;
begin
  HndDLLHandle:=LoadLibrary(PChar(ExeDir+'Plugins\'+Name));
  if HndDLLHandle<>0 then
    begin
      @CreatePlayerPlugin:=GetProcAddress(HndDLLHandle,'CreatePlayerPlugin');
      if @CreatePlayerPlugin<>nil then
        try
          PSrv := TPluginService.Create;  //вот тут я и не знаю
          Srv := CreatePlayerPlugin(PSrv);//как делать. вылезает
        except
          on EAccessViolation do;           //AccessViolation
        end
      else
        Application.MessageBox('Function not exists','Player',MB_TOPMOST+MB_ICONERROR);
    end
  else
    Application.MessageBox('DLL not found','Player',MB_TOPMOST+MB_ICONERROR);
 FreeLibrary(HndDLLHandle);
end;

[KOOL]

Помогите плиз

[s0Creator]

несмого извини не всегда много времени
чуть по позже попробую сформулировать
но былобы лечше еслиб скилет хотя бы чтоб в Д7 или Д2006 загрузить
я этой проблемой года 3 назад занимался

[s0Creator]

Держи скилет на Д7
там FPlayPluginService собирает загружаемые плагины в лист и при уничтожении освобождает
Надеюсь разберешься (я часа 2 матюкался - давно интерфейсами не баловался)
Удачи

[KOOL]

ГРОМААААААДНЕЙШЕЕ СПАСИБО!!!!!!!! буду разбираться