Принудительный выход из процедуры

[kardinal94]

Доброго времени суток. У меня возникла проблема, которая заключается в том, что надо проверять проверять не остановилась ли процедура, и если она ничего не делает - прерывать ее.
Проблема в следующем.
У меня есть процедура, которая выполняется в цикле. Допустим это оправка POST запроса.

procedure PostData(STlist);
begin
 try
   idhttp1.Post('http://google.ru', STLIst); //Здесь иногда происходит зависание процедуры по непонятной причине. 
   Memo1.lines.add ('Оправлено.');
 except
 memo1.lines.add('Фигушки, ошибка однако!');
 end;
end;


procedure TMainForm.StopClick(Sender: TObject);
var i:integer;
     STL:TStringList;
begin
STL:=TStringList.create;
 For i:= 1 to 10 do
    PostData(STL);
end;

Сейчас иногда возникает такая ситуация, что процедура тупа виснет на отправке запроса и ничего дальше не делается, цикл не продолжается. Исходя из этого вопрос, как сделать так, чтобы допустим после минуты бездействия программа автоматически делала exit из данной процедуры.
Бездействие процедуры могу определять по тому, выводятся ли строки в отчет. То есть если минуту в отчете ничего не пишется - процедура остановилась. Необходимо из нее выйти. Как?

[Человек_Борща]

break - выход из цикла.
continue - переход к след. интерации цикла.
exit - выход из процедуры, функции...

[kardinal94]

Это я знаю, только вопрос в том, как проверять? В таймере? Как из обработчика таймера завершить процедуру? Как из одной процедуры завершить другую?

[Человек_Борща]

Пускать ваши процедуры в потоке. И проверять жив или мёрв поток.
А вообще выставить таймаут сединения у idHTTP

[ZuBy]

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

Как из одной процедуры завершить другую?

создать глобальную переменную

var
 StopProc : boolean = false;

и в цикле вставить проверку статуса StopProc

 if StopProc then 
   exit/break/continue;

и можно завершить поток из другой процедуры

[GunSmoker]

Вы в курсе, что каждое убийство потока - это минимум 1 Мб утечки? Добавляем к этому цикл - и ваша память исчерпается ОЧЕНЬ быстро.

Таймауты операций нужно правильно ставить.

[GunSmoker]

http://www.google.ru/search?q=idhttp+timeout

[Johnson]

Вы в курсе, что каждое убийство потока - это минимум 1 Мб утечки?

Не знал. Можно подробнее про физику сего смертоубийства?

[GunSmoker]

Доки надо читать. Или Рихтера хотя-бы.

TerminateThread:

The target thread's initial stack is not freed, causing a resource leak.

Да даже если стек не утекал бы. Утечка ресурсов - это очевидно:

Buffer := AllocMem(BufSize);
try
  // что-то делаем
finally
  FreeMem(Buffer);
end;

Если уничтожить поток в середине его работы, все выделенные им ресурсы (в этом примере - Buffer) останутся висеть в программе вечно (утечка памяти).

P.S. Это, кстати, не единственная проблема. В редких случаях уничтожение потока может привести к вечной блокировке.

Вот пример (при рассмотрении мысленно замените suspend на terminate - будет то же самое).