Связь c DLL

← →
Gayrus © (2002-09-06 04:31) [0]

Я делаю связь между приложением и DLL: передаю DLL"ке адрес процедуры, но похоже не работает :(, вот код
type TMesSend=Procedure(const Wnd:hWnd;Mess:Cardinal;wParam,LParam:Integer); PMesSend=^TMesSend; ... var toProc:PMesSend; ... procedure RunHook(SendTo:PMesSend;Mess:Cardinal);export;stdcall; ToProc:=SendTo; // параметр передаваемый в DLL - @HookForProg ... toProc^(hwnd,message,wParam,LParam);
Основная программа:
Procedure HookForProg(const Wnd:hWnd;Mess:Cardinal;wParam,LParam:Integer); begin ... end; ... RunHook(@HookForProg,WH_GETMESSAGE);
Скажите где ошибка или дайте пример со ссылкой на процеду через память.

← →
Dimk (2002-09-06 09:22) [1]

Помоему ты с указателями перемудрил.
TMesSend - процедурный тип который и так уже указатель на процедуру. Таким образом вызов ToProc^ как мне кажется конечно соответствует типу формального параметра - но на деле
@HookForProg не является PMesSend а является TMesSend.
Поэтому если я не ошибаюсь - надо сделать
toProс(hwnd,message,wParam,LParam);

Связь c DLL Найти похожие ветки