ПРограмма постоянно висит в трее,скачивает каждые 60 сек странички, если в этих страничках есть запись YES то программа качает файл и закрывается,если записей нет то снова качает эти файлы и так до бесконечности (пока не будет записи 'YES')
Все это делается в потоке .
Вопрос в следующем,как реализовать проверки ?(если файл не скачался,то скачиваем его повторно)
Знаю что после except пишем то что будет при ошибки,раньше я там юзал GOTO (с переодресацией на 5 строк вверх),но в потоке не пашет GOTo ,как лучше сделать?
| Код |
procedure BOT;
var
SELFOFF:integer;
while true do begin
mem.Clear;
//БЕСCКОНЕЧНО СКАЧИВАЕМ ФАЙЛЫ ДО ТЕХ ПОР ПОКА В ФАЙЛЕ 2.php (переменная FILE) не напишем слово 'YES'
try
OUT:=trim(http.Get('www.ya.ru/1.php'));
except ////
form1.memo2.Lines.add('НЕУДАЛОСЬ СКАЧАТЬ 1.php');
end; ////
try
FILE:=trim(http.Get('www.ya.ru/2.php'));
except ////
form1.memo2.Lines.add('НЕУДАЛОСЬ СКАЧАТЬ 2.php');
end; ////
try
TIME:=trim(http.Get('www.ya.ru/3.php'));
except ////
// bot;
form1.memo2.Lines.add('НЕУДАЛОСЬ СКАЧАТЬ 3.php');
// break;
end; ////
if FILE='yes' then begin //
SELFOFF:=1;//Если 1 то после цикла програма завершиться
break; //ПОСЛЕ ТОГО КАК СКАЧАЛ ФАЙЛ, ВЫХОДИМ Из While true do....
end; //
sleep(60000); //Ждем 1 мин,после чего снова проверяем скачиваем файлы и проверяем записи в них
end;// end 'while true '
if selfoff = 1 then begin close;
end;
procedure TMyThread.Execute;
begin
bot
end;
|
|
)