Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Plug-ins

Автор: Messages 8.9.2004, 17:26

Здравствуйте,

появилась необходимость использовать плугинсы.

Панимаю что нуно в длл_ку запихнуть функцию вызова!

А как в программе это зделать, чтоб имя длл в переменной было...

Или это совсем по другому?

Автор: Illusion Dolphin 8.9.2004, 17:50

Цитата

А как в программе это зделать, чтоб имя длл в переменной было...

Нужно просканить папку, в которой должны находится plugin'ы на предмет *.dll и занести это хотя бы в tstrings:

Код



procedure RelodDllNames;
var
  Found  : integer;
  SearchRec : TSearchRec;
  dllhandle : integer;
  s, Directory : string;
  Buffer: array [0..1023] of char;
  ts : tstrings;
begin
 ts:= TStringList.Create;
 Directory:=Directory+PlugInImagesFolder;
 Found := FindFirst(Directory+'*.dll', faAnyFile, SearchRec);
 while Found = 0 do
 begin
  if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
  begin
   If fileexists(Directory+SearchRec.Name) then
    try
     dllhandle:=LoadLibrary(PChar(Directory+SearchRec.Name));
     SetString(s, Buffer, LoadString(dllhandle, 1, Buffer, sizeof(Buffer)));
     if s='MYPLUGINIDSTRING' then
     ts.Add(Directory+SearchRec.Name);
     freelibrary(dllhandle);
    except
    end;
   end;
   Found := SysUtils.FindNext(SearchRec);
  end;
  FindClose(SearchRec);

// Юзаем ts...

  ts.free;
end;

В примере (это можно и убрать) показано, как определить, что это именно dll к твоей программе, т.е. в ней должна быть строка (в ресурсах) 'MYPLUGINIDSTRING' - так можно в одной папке хранить все plugin'ы, если их много, и различать их версии...

Автор: dvamaster 9.9.2004, 10:01

Кусок моей программы:

Код

procedure ClosePlugin(Wnd: HWND);
begin
  if PluginHandle = 0 then
    Exit;
  if @DoneProc <> nil then
    if not DoneProc then
      begin
        MessageBox(Wnd, @szErrorDonePlugin, @szErrorCaption, MB_OK);
        Exit
      end;
  FreeLibrary(PluginHandle);
  @InitProc := nil;
  @SaveProc := nil;
  @DoneProc := nil;
  @OptionsProc := nil;
  PluginHandle := 0;
  szPlugin := '';
  szPluginName := '';
  if Wnd = 0 then
    Exit;
  if PluginHandle <> 0 then  SetDlgItemText(Wnd, 105, @szPluginName)
    else SetDlgItemText(Wnd, 105, @szOptLabelPluginNoName);
  SetDlgItemText(Wnd, 1010, @szPlugin)
end;

procedure LoadPlugin(Wnd: HWND; FileName: array of Char);
var
  ind: TInitData_v1;
begin
  ClosePlugin(Wnd);
  PluginHandle := LoadLibrary(FileName);
  if PluginHandle = 0 then
    Exit;
  @InitProc := GetProcAddress(PluginHandle, 'InitProc');
  if @InitProc = nil then
    begin
      ClosePlugin(Wnd);
      MessageBox(Wnd, @szErrorLoadPlugin, @szErrorCaption, MB_OK)
    end;
  @SaveProc := GetProcAddress(PluginHandle, 'SaveProc');
  if @SaveProc = nil then
    begin
      ClosePlugin(Wnd);
      MessageBox(Wnd, @szErrorLoadPlugin, @szErrorCaption, MB_OK)
    end;
  @DoneProc := GetProcAddress(PluginHandle, 'DoneProc');
  @OptionsProc := GetProcAddress(PluginHandle, 'OptionsProc');
  ind.Version := 1;
  ind.PluginName[0] := #0;
  if not InitProc(@ind) then
    begin
      ClosePlugin(Wnd);
      MessageBox(Wnd, @szErrorInitPlugin, @szErrorCaption, MB_OK)
    end;
  szPluginName[0] := #0;
  MergeStr(szPluginName, ind.PluginName);
  MergeStr(szPlugin, FileName)
end;

Автор: Messages 9.9.2004, 18:16

ПАсибки вам большое. НО
dvamaster в твоем коде, как я панимаю, много глобальных переменных, закинь плз, их объявления.

Извените, но пока не могу влиять на рейтинг!