Как правильно завершить поток

[Des]

Здравствуйте!
В потоке, есть Exception, исходя из значения которого мы передаем управление завершению этого самого потока, но при этом появляется вот такая неприятность когда маркер трассировки появляется на LabelRename.Suspend; () и по нажатию на Ok непонятно почему мы снова возвращаемся в поток (F7), а маркер стоит на Form1.http1.Get(Form1.edit_guest_ad ress.Text); и только потом, поток вроде бы, завершается :confused: но опять же как он завершается, переходим на LabelRename.Suspend; и после этого сразу же бежим в Exit потока не делая ничего, или может просто Delphi 7 трассируя как иногда бывает не показывает что что то там делается :)

Поток

  try
            Form1.http1.Get(Form1.edit_guest_adress.Text);
            except
            on E : Exception do begin
            Form1.timer_upd.Enabled:=false;
            programmhalt;
            Exit;
            end;

Процедура, в которой таится завершение (приостановка) потока

LabelRename.Suspend;
Form1.timer_upd.Tag:=3;
Form1.timer_upd.Enabled:=false;
opt_file.WriteString('other','temp_adress',Form1.edit_guest_adress.Text);
if form_opt.check_reconnect.Checked = true then begin
Form1.Caption:='snm';
form_opt.time_wait_reconnect.Enabled:=true;
end
else begin
...

Еще вопрос, как остановить поток полностью.То - есть когда мы делаем suspend мы паузим поток как я понял, а вот когда resume то поток начинает работать с того места где мы его остановили? Об этом нигде ничего не нашел толкового...

[Neeter]

а вот когда resume то поток начинает работать с того места где мы его остановили?

Да.

Еще вопрос, как остановить поток полностью?

LabelRename.Terminate вроде

Может

LabelRename.Suspend;

Писать в самом конце programmhalt?

[Des]

Иногда пытаясь из самого потока, то-есть из LabelRename.Execute делать Suspend; появляется ошибка: (на память не совсем помню) Отказано в доступе ошибка 5...
Вот сейчас сижу извращаюсь, и все думаю что придется programmhalt в отдельный поток пихать и вызывать уже синхронизацией. Но если на то пойдет, то мне ооочень многое придется забивать в отдельные потоки, а это явно больше 16, кажется это максимум что можно делать в Windows XP, ну по крайней мере советуют не больше =)

[Des]

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

Может

LabelRename.Suspend;

Писать в самом конце programmhalt?

Пробовал, результата ни какого...
А паузу ставить нужно я думаю в начале, иначе поток успеет что нибудь предпринять)))

К примеру сейчас вот поставил терминате в конец programmhalt'а, и ошибка на подобие вышенаписаной появляется на строке

opt_file.WriteString('other','temp_adress',Form1.edit_guest_adress.Text);

Здесь думаю я нужна синхронизация )))
Полез читать маны которых найти не смог

[Des]

неужели это идиальный способ завершить поток ?
http://forum.codeby.net/topic3392s0....40&#entry16640

[BOBAH13]

TThread.Terminate;
TThread.WaitFor;
TThread.Free;