unit DMPluginIntf;

//описание см. в readme.txt

interface

type
 { IDMInterface }
 IDMInterface = interface(IUnknown)
 ['{B412B405-0578-4B99-BB06-368CDA0B2F8C}']
   function DoAction(action: WideString; parameters: WideString): WideString; stdcall;//выполнить какие-либо действия в ДМ
 end;

 { IDMPlugIn }
 IDMPlugIn = interface(IUnknown)
 ['{959CD0D3-83FD-40F7-A75A-E5C6500B58DF}']
   function getID: WideString; stdcall;
   //-----info
   function GetName: WideString; stdcall;//получаем инфу о плагине
   function GetVersion: WideString; stdcall;//получаем инфу о плагине
   function GetDescription(language: WideString): WideString; stdcall;//получаем инфу о плагине
   function GetEmail: WideString; stdcall;//получаем инфу о плагине
   function GetHomepage: WideString; stdcall;//получаем инфу о плагине
   function GetCopyright: WideString; stdcall;//получаем инфу о плагине
   function GetMinAppVersion: WideString; stdcall;//получаем минимальную версию ДМ-а с которой может работать плагин

   //------
   procedure PluginInit(_IDmInterface: IDmInterface); stdcall;//инициализация плагина и передача интерфейса для доступа к ДМ
   procedure PluginConfigure(params: WideString); stdcall;//вызов окна конфигурации плагина
   procedure BeforeUnload; stdcall;

   function EventRaised(eventType: WideString; eventData: WideString): WideString; stdcall;//вызывается из ДМ-ма при возникновении какого либо события
   { идентификатор плагина }
   property ID: WideString read getID;
 end;

implementation

end.

interface

uses DMPluginIntf, Classes, Dialogs;
const
 //укажите здесь информацию о своем плагине
 myPluginID = '{45145BBE-DCAE-4187-B981-FE9410F6DA5D}';//обязательно укажите свой уникальный номер плагина (используйте Ctrl+Shift+G для генерации)
 myPluginName = 'Download Master Test Plug-in';//название плагина на английском языке
 myPluginVersion = '0.1.1.1';
 myPluginEmail = 'slava@westbyte.com';
 myPluginHomePage = 'http://www.westbyte.com/dm/';
 myPluginCopyRight = chr(169)+'2006 WestByte';
 myMinNeedAppVersion = '5.0.2';//версия указывается без билда
 //описание плагина. Должно быть представлено на русском и английском языках. Может содержать подробную инструкцию по пользованию плагином.
 myPluginDescription = 'Test Plug-in for show how create plugins for DM';
 myPluginDescriptionRussian = 'Тестовый плагин для демонстрации как создавать плагины для DM. Является одновременно шаблоном для создания плагинов. Язык реализации Delphi 7.';
 
type
TDMTestPlugIn = class(TInterfacedObject, IDMPlugIn)
 private
   myIDmInterface: IDmInterface;
 protected

 public
   function getID: WideString; stdcall;
   //-----info
   function GetName: WideString; stdcall;//получаем инфу о плагине
   function GetVersion: WideString; stdcall;//получаем инфу о плагине
   function GetDescription(language: WideString): WideString; stdcall;//получаем инфу о плагине
   function GetEmail: WideString; stdcall;//получаем инфу о плагине
   function GetHomepage: WideString; stdcall;//получаем инфу о плагине
   function GetCopyright: WideString; stdcall;//получаем инфу о плагине
   function GetMinAppVersion: WideString; stdcall;//получаем минимальную версию ДМ-а с которой может работать плагин

   //------
   procedure PluginInit(_IDmInterface: IDmInterface); stdcall;//инициализация плагина и передача интерфейса для доступа к ДМ
   procedure PluginConfigure(params: WideString); stdcall;//вызов окна конфигурации плагина (окно конфигурации реализуется вами самостоятельно)
   procedure BeforeUnload; stdcall;//вызывается перед удалением плагина

   function EventRaised(eventType: WideString; eventData: WideString): WideString; stdcall;//вызывается из ДМ-ма при возникновении какого либо события
   { идентификатор плагина }
   property ID: WideString read getID;

 published

end;

implementation

Дальше реализация функций

var
handle : thandle;
PlugIn : function : IDMPlugin;
plug : IDMPlugin;
intf : IDMInterface;
label ex;
begin
handle:=loadlibrary(pchar(extractfilepath(paramstr(0))+'Dll\dmtest_plugin.dll'));
PlugIn:=getprocaddress(handle,'RegisterPlugIn');
plug:=plugin;
plug.GetName;
//plugin.PluginInit(intf);
ex:
freelibrary(handle);
end;

IDMThunkInterface = interface(IDMInterface)
end;

TDMThunkInterface = class(TInterfacedObject, IDMThunkInterface)
 function DoAction(action: WideString; parameters: WideString): WideString; stdcall;
 constructor Create(_IDMInterface: IDMInterface; Plugins: PPlgInstances; ConfigForm: PThunkSetupForm);
 procedure Free; stdcall;
private
 thunkIDMInterface: IDMInterface;
 AllPlugins: PPlgInstances;
 AForm: PThunkSetupForm;
 ...
end;

type

TRegisterPlugIn = function: IDMPlugIn; stdcall;

TPlgInstance = Record
Handle: THandle;
PlgRegister: TRegisterPlugIn;
PlgIntf: IDMPlugIn;
PlgID: WideString;
FileName: String;
end;

TPlgInstances = array of TPlgInstance;
PPlgInstances = ^TPlgInstances;

procedure TDMTestPlugIn.PluginInit(_IDmInterface: IDmInterface);//инициализация плагина и передача интерфейса для доступа к ДМ
begin
 myIDmInterface := _IDmInterface;
 ...
 SetLength(Plugins, 0);
 ...
 myThunk:=nil;
 myThunk:=TDMThunkInterface.Create(_IDmInterface, Addr(Plugins), Addr(CF));
 //
 FindPlugins;
end;

function TDMTestPlugIn.ConnPlg(Idx: Integer): Integer;
begin
if (Idx>=Low(Plugins)) and (Idx<=High(Plugins)) then
 begin
  Result:=cnxOK;
  if FileExists(Plugins[Idx].FileName) then
   begin
    Plugins[Idx].Handle:=LoadLibrary(PChar(Plugins[Idx].FileName));
    if Plugins[Idx].Handle = 0 then
      Result:=cnxLoadFailed
    else
     begin
      Plugins[Idx].PlgRegister:=nil;
      @Plugins[Idx].PlgRegister := GetProcAddress(Plugins[Idx].Handle, 'RegisterPlugIn');
      if Assigned(Plugins[Idx].PlgRegister) then
       begin
        Plugins[Idx].PlgIntf:=Plugins[Idx].PlgRegister();
        Plugins[Idx].PlgID:=Plugins[Idx].PlgIntf.ID;
        Plugins[Idx].PlgIntf.PluginInit(myThunk); //отдаю СВОЙ интерфейс
       end
      else
        Result:=cnxNoInit;
     end;
   end
  else
    Result:=cnxNotFound;
 end
else
  Result:=-1;
end;
//------------------------------------------------------------------------------
procedure TDMTestPlugIn.RemPlg(Idx: Integer);
begin
if (Idx>=Low(Plugins)) and (Idx<=High(Plugins)) then
 begin
  if Plugins[Idx].Handle<>0 then
   begin
    Plugins[Idx].PlgIntf.BeforeUnload; //"чищу" сам плагин
    Plugins[Idx].PlgID:='';
    Plugins[Idx].PlgIntf:=nil; //закрываю его интерфейс
    Plugins[Idx].PlgRegister:=nil; //очищаю указатель на фукнцию регистрации
    FreeLibrary(Plugins[Idx].Handle);
    Plugins[Idx].Handle:=0;
   end;
 end;
end;