VPF::Plug-ins - Форум программистов

Messages

Дата 8.9.2004, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 26.3.2004

Репутация: нет
Всего: нет

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

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

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

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

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

Illusion Dolphin

Дата 8.9.2004, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

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

Нужно просканить папку, в которой должны находится 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'ы, если их много, и различать их версии...

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

dvamaster

Дата 9.9.2004, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

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

Код

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;

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Messages

Дата 9.9.2004, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 26.3.2004

Репутация: нет
Всего: нет

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »