[isp]

есть сайт, очень часто подвисающий, авторизацию на нем я организовал следующим образом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

repeat status:=http.Get(url_log); if Pos('name="Password"',status)<>0 then begin data.Add('Login='+login); data.Add('Password='+password); auth:=http.Post(url_log,data); data.Clear; end else Sleep(5000); until Pos('logout',auth)<>0;

вроде бы все ничего, НО как только сайт "подвисает" и потом "отвисает", далее попыток авторизации не происходит вообще. все делается в потоке.
по логу сниффера, программа начинает висеть после ответа сервера об ошибке(502,504,404 и т.п.).

пробовал с tidantifreeze та же ерунда, висит и не пытается авторизоваться, вообще нет никаких действий.
пробовал организовать условие с responsetext-безрезультатно.
подскажите как мне быть в моем случае? как сделает, чтобы после "отвисания" сайта, программа далее успешно продолжала свою работу.

примного благодарен!

[NumLock]

используй таймауты на подключение и чтение. обработку исключений Post().

[isp]

Сообщение от NumLock

используй таймауты на подключение и чтение. обработку исключений Post().

спасибо за ответ, у меня стоит обработка исключений post, просто решил сократить приведенный код для удобства. решил свою проблему. почему-то когда ставил responsetext обработчик не реагировал(pos('200',status)...), поставил responsecode в условие, всё заработало.

может кому пригодиться:

Код:

1 2 3 4

status:=http.Get(url_log); Sleep(3000); if http.ResponseCode=200 then ...