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

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

Динамическая загрузка DLL

Ega23 ©   (2005-02-03 14:50:00) 

Есть DLL с экспортируемой функцией
function GetNewParam(Param1, Param2 : DWord):PChar; StdCall;

Как прописать динамическую загрузку этой библиотеки?

LoadLibrary, GetProcAddress, FreeLibrary - это я знаю. А вот что присвоить GetProcAddress ?

---

Lord Zmiy   (2005-02-03 14:55:00) [1]

:)

@FunctionName := GetProcAddress(LibHandle, 'FunctionName');

:) ну извините не стал переименовывать думал имя функции все поймут :)

---

Alx2   (2005-02-03 14:54:00) [2]

> Ega23 ©   (03.02.05 14:50)

@MyFunc := GetProcAddress(Handle,'GetNewParam'); ?

---

Ega23   (2005-02-03 14:54:00) [3]

Понял, спасибо.

---

Lord Zmiy   (2005-02-03 14:52:00) [4]

...
var
  ...

procedure USE(Sender: TObject);
    type
  TNameFunction =  function(Par1: Par1Type; ...): ReturnType; stdcall;
 var
  FunctionName: TNameFunction;
     LibHandle: THandle;
   Begin
 @FunctionName := nil;
 LibHandle := LoadLibrary('DllName.dll');
 if LibHandle >= 32 then
    begin
  @FunctionName := GetProcAddress(LibHandle, 'FunctionName');
  if @FunctionName <> nil then
    begin
     UseDllFunction;
    end;
   end;
 FreeLibrary(LibHandle);
  End;

---

Наверх