Форум на Исходниках.RU

Thread Error

Domino — Thu, 05 Jul 2007 08:53:16 +0000

Domino:

Цитата Демо @ 05.07.07, 05:50

здесь основной код, который смотреть надо

В TSnThread.Execute находится причина подвисания при завершении.

А уничтожать поток нужно так:

if FSnThread <> nil then

begin

FSnThread.Terminate;

FSnThread := nil;

Button1.Caption := 'Start';

end else

Thread Error

Демо — Thu, 05 Jul 2007 05:50:06 +0000

Демо:

Цитата WiseFalcon @ 05.07.07, 04:07

try
while not Terminated do
begin
//!!! ЗДЕСЬ Я ВСЕ ЗАКОНСПЕКТИРОВАЛ!! А Ошибка осталась..
end;
finally
{Здесь тоже}
end;

Однако здесь основной код, который смотреть надо.

Thread Error

WiseFalcon — Thu, 05 Jul 2007 04:07:50 +0000

WiseFalcon: На роботу меня не взяли :P Поэтому выкладываю:

...........

type

TSnThread = class(TThread)

private

Packet: array[0..500] of Byte;

SPacket,CPacket: array[0..500] of Byte;

SPOffset,CPOffset: Integer;

protected

procedure Execute; override;

public

Htt: String;

end;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

FSnThread: TSnThread;

end;

...........

procedure TSnThread.Execute;

begin

try

while not Terminated do

begin

//!!! ЗДЕСЬ Я ВСЕ ЗАКОНСПЕКТИРОВАЛ!! А Ошибка осталась..

end;

finally

{Здесь тоже}

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if FSnThread<>nil then

begin

FSnThread.Destroy;

FSnThread:=nil;

Button1.Caption:='Start';

end else

begin

FSnThread:=TSnThread.Create(True);

FSnThread.Htt:='455';

FSnThread.SPOffset:=0;

//ЕСЛИ СТРОЧКУ НИЖЕ убрать, все норм работает, только сильно подвисает при остановке потока (секунд на 10!!)

FSnThread.FreeOnTerminate:=True;

FSnThread.Resume;

Button1.Caption:='Stop';

end;

end.

Thread Error

WiseFalcon — Thu, 05 Jul 2007 00:43:30 +0000

WiseFalcon: Нашел в чем проблема..
Проблема была в том что у меня на потоке было установлено свойство FreeOnTerminate:=true;
Получается когда переменная Terminate изменялась в true поток сам себя выгружал, а потом я его еще пытался вручную тушить.. :huh: (скорей всего я сильно ошибаюсь)

ЗЫ Только почему-то раньше это работе не мешало.. что очень подозрительно... :blink:

Добавлено 05.07.07, 00:47
Да и еще... теперь приложение нехило подвисает при остановке потока.. <_<

Код ксожелению выложить немогу т.к. там очень много всякого... выложу когда буду дома, щас некогда..

Thread Error

spider13 — Wed, 04 Jul 2007 14:18:21 +0000

spider13: А исходник можно, а то не очень понятно

Thread Error

WiseFalcon — Wed, 04 Jul 2007 13:50:05 +0000

WiseFalcon: У меня следующая проблемма: При Destryct'е Потока у меня возникает следующая ошибка "Thread Error: Неверный дескриптор (6)". Думал что может он уже где-то выгружается - поставил Free вместо Destryct, результат тотже :(
Кто сталкивался подскажите пожалуйста..

ЗЫ Вообще все работало, потом я добавил еще один поток, начала вылетать эта ошибка.. Я его удалил, а ошибка осталась..