[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;
...