| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как написать плагин к своей программе? [D5, D6, D7, NT4, Win2k, WinXP]

Lefan ©   (2004-08-28 14:08:00) 

Приветсвую всех!!!
(незнаю в какую ветку с этим вопросом)

Вот написал софтину, докачка по ФТП... простенькая очень, просто качает, докачивает...
Хочется реализовать у нее поддержку плагинов.
Т.е. например плагин, который обраватывает заявки и сам ставит в закачку файл, другой например формирует список файлов...

Ды как сделать поддержку?
Хотелось бы увидеть исходники софтины, которая поддержует плагины, и исходник ее плагина...

Заранее благодареню.
С уважением Алексей

---

Семен Сорокин   (2004-09-01 18:18:00) [1]

http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/mastering/plugins.htm

---

OSokin   (2004-09-01 17:47:00) [2]

Вот, немного переделал ту процедурку. Вот юнит:
unit PluginDLL;

interface

uses
 Windows;

type
 Tdllprocptr=function(wnd:hwnd;params:string):boolean;

var
 dllprocptr:Tdllprocptr=nil;
 LibInstance : HMODULE=0;

procedure PlugIn(wnd:hwnd;params,mainfuncname,filename:string);

implementation

procedure PlugIn(wnd:hwnd;params,mainfuncname,filename:string);
begin
// Проверим, загружена ли DLL

if LibInstance=0 then Begin

 // Не загружена, попробуем загрузить

 LibInstance := LoadLibrary(pchar(filename));

 // Проверим, успешна ли загрузка (LibInstance=0 - неуспешно)

 If LibInstance=0 then Begin

  MessageBox(0,pchar('Ошибка загрузки библиотеки '+filename),pchar('Ошибка'),MB_ICONERROR and MB_OK);

  exit;

 end;

 // Ищем функцию по ее имени (имя должно точно совпадать)

 DllProcPtr := TDllProcPtr(GetProcAddress(LibInstance,pchar(mainfuncname)));

 // Проверим, нашли ли (если нашли, то Assigned вернет true)

 if not Assigned(DllProcPtr) then Begin

  // Не нашли - выгружаем DLL из памяти

  FreeLibrary(LibInstance);

  LibInstance:=0;

  //ShowMessage('Ошибка: функция '+mainprocname+' не найдена');
  MessageBox(0,pchar('Ошибка: функция '+mainfuncname+' не найдена'),pchar('Ошибка'),MB_ICONERROR and MB_OK);

  exit;

 end;

 // Непосредственно вызов функции

 DllProcPtr(wnd,params);

 // Выгрузка библиотеки

 FreeLibrary(LibInstance);

 LibInstance:=0;

end;
end;

end.


---

SammIk   (2004-08-28 14:53:00) [3]

Тут где-то есть про это статья, или в факе, что- то видел.
Да в нете много про это написано.
Исчите сударь, исчите

---

Наверх