Вечер добрый.
Не бейте сильно если вопрос глупый. 
Подскажите плз, где ошибка.
| Код |
var
connect_flag: boolean;
lt: TIdTcpClient;
begin
lt := TIdTcpClient.Create(nil);
try
lt.Host := 'xxx.xxx.xxx.xxx'; // Любой IP, вводим прямо сюда теста
lt.Port := 80;
lt.ReadTimeout := 3000;
lt.Connect(TimeOut);
lt.SendCmd('asdasde'); // Здесь специально ничего не значащая белиберда, будет ошибка
except
connect_flag := false;
end;
lt.Destroy;
<........>
|
На строчке lt.SendCmd('asdasde'); программа зависает, вне зависимости от значений TimeOut. То есть по следующему F8 ни на блок exception, ни на строку It.Destroy управление не передается. Чего посоветуете? Как "разморозить" или где ошибка.
PS AntiFreeze на формочке лежит.
|
