Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

Динамическая загрузка DLL   Найти похожие ветки 

← →
Ega23 ©   (2005-02-03 14:50) [0]

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

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

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

---

← →
Lord Zmiy ©   (2005-02-03 14:52) [1]

...
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;

---

← →
Alx2 ©   (2005-02-03 14:54) [2]

>Ega23 ©   (03.02.05 14:50)

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

---

← →
Ega23 ©   (2005-02-03 14:54) [3]

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

---

← →
Lord Zmiy ©   (2005-02-03 14:55) [4]

:)

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c