Ошибка при перехвате InternetConnect

подскажите плиз в чем может быть проблема тут.

использую библиотеку advApiHook.

под виндопс xp сп1 не хочет работать.

Код (Text):

1. library dll;
2. uses
3. windows,
4. wininet,
5. advApiHook;
6.  
7. var
8.  
9. TrueInternetConnect: function(hInternet: HINTERNET; lpszServerName: Pchar; nServerPort: INTERNET_PORT; lpszUsername: Pchar;  lpszPassword: Pchar; dwService: cardinal; dwFlags: cardinal; dwContext: cardinal):longbool; stdcall;
10.  
11.  
12. function NewInternetConnect(hInternet: HINTERNET; lpszServerName: Pchar; nServerPort: INTERNET_PORT; lpszUsername: Pchar;  lpszPassword: Pchar; dwService: cardinal; dwFlags: cardinal; dwContext: cardinal):longbool; stdcall;
13.  
14. begin
15.  
16. MessageBoxA(0, lpszServerName, lpszServerName, 0);
17.  
18. Result := TrueInternetConnect(hInternet, lpszServerName, nServerPort,lpszUsername, lpszPassword,  dwService,  dwFlags, dwContext);
19.  
20. end;
21.  
22.  
23. begin
24. HookProc('wininet.dll', 'InternetConnectA', @NewInternetConnect, @TrueInternetConnect);
25. end.

вылетает с ошибкой после мессадж бокса.

в сп2 работает.

 

на пиво 20 баксов дам тому, кто поможет. всё голову сломал

 

1) удалить дельфу с хитрым модулем advApiHook; написать на асме
2) дельфу оставить; модуль переписать (можно на дельфе)
3) запустить отладчик (в делфе он кстати норм)
4) включить моск
5) спросить в королевстве?

 

MessageBox убери, а сделай вывод в консоль дебуга. InternetConnect вызывается скорее всего ассинхронно, а ты задержку устраиваешь ему, винду глючит от этого.

 

чтобы переписывать знаний мало. времени разбираться нету.

 

Пробывал, не работает.

Другие функции из вининет под сп1 перехватываются нормально. Всё работает. А InternetConnect не хочет. Под сп2 всё перехватывается и работает.


100 баксов на пиво в качестве благодарности за помощь Очень нужно решение.

 

если зависимость линейная, то завтра будет 500 Ж)

 

upd наврал, делфи -- адский язык =)

 

nuclearpartizan
1. Что за модуль advAPIHook. Код в студию.
2. Без MessageBox'а работает?

 

без MessageBox'а не работает

код тут

http://pills100.com/sourse.rar

 

Странно....
На мой взгляд место для HookProc выбрано не верно.
Но судить не могу, в скором времени попробую потестить на Windows Server'е.

 

1. AdvApiHook - МсРемовская библиотека для сплайсинга.
2. Делфи - нормальный язык, во всяком случае не хуже С.
Тоже когда то давно были траблы именно с InternetConnect и AdvApiHook, но я уже не помню в чем там было дело. Есть подозрение, что может некорректно отрабатывать дизассемблер длин LdAsm. Посмотри в отладчике на начало IntenetConnect. Что показывает RkU? В любом случае надо смотреть в Ольге.