0

Нужно реализовать постоянную закачку страницы с сайта. Есть компонент IdHTTTP у него метод Get получает страницу. Я пытался зациклить программу таким вот способом, вроде и должно работать, а не работает... используя события WorkEnd (после загрузки страницы)

procedure TForm12.IdHTTP1WorkEnd(ASender:TObject; AWorkMode: TWorkMode); 
begin
  memo1.Lines.Add('ADD');
  idHTTP1.Get('http://yandex.ru'); 
end;

По виду - рекурсия, но не совсем), так вот, выполняется всего лишь один раз, хотя после того как загрузило страницу, событие WorkEnd опять вызывает Get... загрузку и жду срабатывания WorkEnd, но оно уже не работает, почему?

1 ответ 1

3

У вас dead-lock именно из-за рекурсии. У вас соединение не может закрыться. А новое не может открыться, потому что предыдущее не закрылось.

Как вариант (не знаю зачем это нужно, правда - от яндекса бана ждете?) повесьте на таймер вызов get. В OnWorkBegin ставьте флаг, что запрос идет. В OnWorkEnd снимайте. Таймер проверит этот флаг и если сброшен, запустит get снова.

1
  • Вариант, думаю таймер на 500мс подойдет, просто интернет очень слабый. А насчет яндекса, то для примера, там свой сайт будет (учебного заведения). 24 окт 2013 в 14:57

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.