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

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

Вызов функций из DLL [D5, Win2k]

nikolo ©   (2002-08-09 17:26:00) 

Проблема в динамическом вызове функций из DLL с параметрами.

В "my_lib.dll" объявлены следующие функции:

Function Func_1: Integer; stdcall;
Begin
Result := 100;
End;

Function Func_2(Prm: Integer): Integer; stdcall;
Begin
if Prm = 1 then
Result := 100
else
Result := 200;
End;

В основной программе их вызываю так:

Function TForm1.Get_Result_1: Integer;
Var
DllHandle: THandle;
DllFuncName: Function: Integer;
Begin
@DllFuncName := nil;
DllHandle := LoadLibrary("my_lib.dll");
if DllHandle >= 32 then begin
@DllFuncName := GetProcAddress(DllHandle, "Func_1");
if @DllFuncName <> nil then
Result := DllFuncName
else
Result := -1;
end
else
Result := -2;
FreeLibrary(DllHandle);
End;

Function TForm1.Get_Result_2: Integer;
Var
DllHandle: THandle;
DllFuncName: Function(Prm: Integer): Integer;
Begin
@DllFuncName := nil;
DllHandle := LoadLibrary("my_lib.dll");
if DllHandle >= 32 then begin
@DllFuncName := GetProcAddress(DllHandle, "Func_2");
if @DllFuncName <> nil then
Result := DllFuncName(1)
else
Result := -1;
end
else
Result := -2;
FreeLibrary(DllHandle);
End;

Проблема в том, что в функция Get_Result_1 отрабатывает без проблем, а вот при выполнении функции Get_Result_2 на шаге Result := DllFuncName(1)происходит Access violation.
В чем проблема, подскажите пожалуйста!?

---

nikolo   (2002-08-09 17:46:00) [1]

Ну спасибо, выручили!

---

Ученик   (2002-08-09 17:35:00) [2]

DllFuncName: Function(Prm: Integer): Integer; stdcall;

---

Skier   (2002-08-09 17:35:00) [3]

>nikolo
DllFuncName: Function(Prm: Integer): Integer; stdcall;

---

nikolo   (2002-08-09 17:34:00) [4]

Где?

---

Ученик   (2002-08-09 17:31:00) [5]

Забыл stdcall

---

Наверх