|
#1
|
|||
|
|||
Indy
Для получения текста html страницы использую метод get класса TIdHttp. Как сделать так, чтобы в случае, если данные не принимаются n миллисекунд, TIdHttp бросал получать данные и пытался заново установить соединение. Пытался использовать вот так:
Код:
function GetListLetter_s(url: string; http:TIdHTTP):TStringList; var s: string; begin http.ReadTimeout := 3000; repeat try s := http.Get(url); except http.Disconnect; Result := GetListLetter_s(url, http); end; sleep(1000); until pos('Аква', s) = 0; Result := StrToList(s); end; Но: 1. Исключение выдаётся даже если соединение успешно и данные качаются. 2. Почему-то после обработки except ЭТА функция выполняется дальше, а все остальные функции, с ней связанные, экстренно завершаются (в т.ч. StrToList(s). Сразу, не исполняя begin переходит к end |
#2
|
|||
|
|||
1. Анализируй класс исключения. Кстати, исключение может быть только в IDE, а в вызывающую процедуру может и не выбрасываться.
2. используй try..finally. try..except в твоем виде как раз и маскирует исключение. |
#3
|
|||
|
|||
Спасибо за отзывчивость. Бум думать.
|