Подключение DLL

← →
Mameluke © (2005-07-06 17:25) [0]

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

Буду благодарен за любую помощь в разрешении следующей проблемы:
существуют несколько разных DLL-библиотек, содержащих одинаковую функцию (вернее, каждая библиотека содержит свой вариант реализации этой функции). Насколько мне известно, подключение функции из DLL-библиотеки осуществляется, к примеру, следующим образом:

function ExtHashFunc (Str: ShortString; A,B: real; M:integer):integer;
external "ExternalHashFunc/ExtHashIn.dll";

но при таком подключении невозможно изменить имя DLL. Передо мной стоит задача сделать так, чтобы при использовании программы пользователь мог выбирать нужную DLL (через OpenDialog) с той реализацией функции, которую сочтет предпочтительной. Каким образом можно осуществить возможность такого выбора? Я слышал про динамическую загрузку и функции
LoadLibrary и GetProcAddress, но что это такое и как это использовать в моем случае?

← →
Ega23 © (2005-07-06 17:31) [1]

Использовать динаическую загрузку dll.
procedure TForm1.Button3Click(Sender: TObject); type TWork = function(List:TKedrObjList):Boolean; var hLib:THandle; Work:TWork; begin if not OpenDlg.Execute then Exit; hLib:=LoadLibrary(PChar(OpenDlg.fileName)); @Work:=GetProcAddress(hLib, PChar("WORK")); if @Work<> nil then Work(KedrObjList); FreeLibrary(hLib); end;

Большое спасибо! Разобрался, теперь все работает!

Подключение DLL Найти похожие ветки