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

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

Связь c DLL

Gayrus ©   (2002-09-06 04:31:00) 

Я делаю связь между приложением и 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:00) [1]

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

---

Наверх