AXXX

НЕхотит не в какую регистрироваться... . P.S. исходники просто офигенные, респект их автору.

Вах!!!! Я нашёл касяк!!! Дело в компоненте TUDP, он напрочь отказывается залазить в делфу... При первом запуске спрашивает об игнорировании и удалять ли его упаминание из тела кода... Если компилить сразу то всё кул, но приповторном запуске делфы - каюк... . Вывод: необходимо найти dpk пакет этого компонента... P.S: Кстати про защиту, в винде я пользуюсь только делфой - защита мне там нафик не нужна и защищяться неоткого)))) .... Slackware + Alt linux RULL!!!!!)))))))))

Вот скрины..... при компиляции ошибок нет и предупреждений тоже... (если говорить по конкретнее про траблу на втором рисунке, то при наведении курсора на sockr - вылетает помойму Inaccessable value, короче говоря по русскинправильное значение переменной..)

Вот трабла... опции один в один... Касяк не при компиляции, а при событии на подключение, там у двух переменных (sockr, phase) пишит неправилиное значение. P.S. Если интересно могу выслать, то что у меня получилось.

Народ я покапался в исходниках на 1стр. ....и ВАХ!!! Застрял на месте подключения проги к серверу. Вылетает ошибка на строке res := recvfrom(sockr, buffer, 512, 0, addr, fromLen); это в PROTO_UNIT, как я понял sockr имеет неправильное значение, а что сделать незнаю. такая же фигня с phase в теле.... if phase=1 then begin if buttonAct = CCONNECT then begin buttonAct := 0; NetSend(CONN_SYN_N); phase := 2; phaseTime := GetTickCount(); end; end; if phase=2 then begin {$WARNINGS OFF} if ((GetTickCount() - phaseTime) / 1000 > aliveTimeout) then {$WARNINGS ON} begin phase := 1; phaseTime := GetTickCount(); if Assigned(pCallBackFn) then pCallBackFn(0); if reconnect then begin Sleep(20); buttonAct := CCONNECT; end; end; ........ ........ if netAct = ERROR_N then begin phase := 1; phaseTime := GetTickCount(); if Assigned(pCallBackFn) then pCallBackFn(0); end; end;