Потоки TTread

← →
Helen (2005-07-15 10:00) [0]

Добрый день! Помогите, пожалуйста разобраться новичку! Только начинаю работать с потоками. Создаю поток, по клику на кнопку он должен прерваться, т.е. MyThread.Terminate. Причем должно выполниться событие OnTerminate, в котором кое-какие действия с VCL-компонентами. Почему-то событие не наступает, а поток продолжает выполняться после некоторой задержки.

← →
Чапаев © (2005-07-15 10:05) [1]

Посмтри примеры. У тебя в основном цикле должно быть что-то вроде while not Thread.Terminated do Work;

← →
Alexander Panov © (2005-07-15 10:06) [2]

Чапаев © (15.07.05 10:05) [1]
Ну ты телепат!

← →
Helen (2005-07-15 10:09) [3]

Чапаев © (15.07.05 10:05) [1]
Да нет, ничего такого у меня нет.

← →
Kolan © (2005-07-15 10:12) [4]

> Helen (15.07.05 10:00)

С VCL компонентами должен работать главный поток.
Дальше без кода говорить неочем..

← →
Digitman © (2005-07-15 10:17) [5]

> ничего такого у меня нет

поточная ф-ция должна каким-то образом быть извещена о необходимости "закругляться по хозяйству"

периодическая (как можно чаще) проверка выполнения условия Terminated=True как вариант позволяет получить такое "извещение"

метод TThread.Terminate просто устанавливает этот флаг, не более того

← →
Digitman © (2005-07-15 10:18) [6]

> Kolan © (15.07.05 10:12) [4]

по дифолту вызов обработчика OnTerminate уже синхронизирован

← →
Helen (2005-07-15 10:39) [7]

Дело в том, что по мере выполнения потока, он выдает в Memo некоторые сообщения о ходе выполнения. По событию OnTerminate в Memo добавляются несколько строк и др.

Создаю поток:
ThreadLoadManual:=TMainThread.Create(True); ThreadLoadManual.Priority:=tpLowest; ThreadLoadManual.OnTerminate:=HandleTerminateManual; ThreadLoadManual.FreeOnTerminate:=True; ThreadLoadManual.Resume;

Событие OnTerminate:
procedure TfmLoadData.HandleTerminateManual(Sender:TObject); begin CloseFile(ProgressFile); fmLoadData.Memo1.Lines.Add("..."); fmLoadData.btnStatistica.Enabled:=True; fmLoadData.Height:=495; fmLoadData.rgStatistica.Enabled:=True; end;

← →
Helen (2005-07-15 10:42) [8]

Digitman © (15.07.05 10:17) [5]
Попробовала поставить проверку выполнения условия Terminated=True, почему-то она игнорируются и поток выполняется дальше

> Helen (15.07.05 10:39) [7]

это все - вокруг да около.
самое интересное - это тело Execute() ..

← →
Helen (2005-07-15 10:58) [10]

fmLoadData.Memo1.Lines.Add(" * * *"); {$I-} AssignFile(ProgressFile, ExtractFilePath(Application.ExeName)+"ñòàòèñòèêà çàãðóçêè.txt"); if not FileExists(ExtractFilePath(Application.ExeName)+"ñòàòèñòèêà çàãðóçêè.txt") then Rewrite(ProgressFile) else Append(ProgressFile); IOResult; {$I+} Writeln(ProgressFile," "); Data.qrTemp.Open; DataFile:="St"+stD+stM+RightStr(stY,2)+".dbf"; while not Data.qrTemp.Eof and (not Terminated) do begin fmLoadData.Memo1.Lines.Add("Íà÷àëî çàãðóçêè äàííûõ ïî ñòàíöèè "+Data.qrTemp.FieldByName("Name").AsString);; NetResource.dwType:= RESOURCETYPE_DISK; NetResource.lpLocalName:= nil; NetResource.lpRemoteName:= Pchar(Data.qrTemp.FieldByName("IPStation").AsString); NetResource.lpProvider := ""; if (WNetAddConnection2(NetResource, PChar(Data.qrTemp.FieldByName("Password").AsString), PChar(Data.qrTemp.FieldByName("Login").AsString), 0) = NO_ERROR) then begin DatabaseName:= Data.qrTemp.FieldByName("IPStation").AsString; if not FileExists(DatabaseName+"\"+DataFile) then begin Writeln(ProgressFile, DateTimeToStr(Now()) + ":00:00 "+Data.qrTemp.FieldByName("Name").AsString+" Äàííûå íå çàãðóæåíû, ò.ê. íå íàéäåí ôàéë ñ äàííûìè "+DatabaseName+"\"+DataFile+"!"); WNetCancelConnection2(Pchar(Data.qrTemp.FieldByName("IPStation").AsString), 0,TRUE); Data.qrTemp.Next; Continue; end; for i:=HourB to HourE do begin запрос данных while not Data.QueryDBF.Eof and (not Terminated) do begin преобразование и запись данных в базу end; end; end;//for i:=HourB to HourE do WNetCancelConnection2(Pchar(Data.qrTemp.FieldByName("IPStation").AsString), 0,TRUE); Writeln(ProgressFile, DateTimeToStr(Now()) + ":00:00 "+Data.qrTemp.FieldByName("Name").AsString+" Äàííûå ñòàòèñòèêè çàãðóæåíû!"); fmLoadData.Memo1.Lines.Add(Data.qrTemp.FieldByName("Name").AsString+": Äàííûå ñòàòèñòèêè çàãðóæåíû!"); end else begin fmLoadData.Memo1.Lines.Add(" "+SysErrorMessage(GetLastError)+":"+Data.qrTemp.FieldByName("Name").AsString); Writeln(ProgressFile, DateTimeToStr(Now()) + ":00:00 "+Data.qrTemp.FieldByName("Name").AsString+" Äàííûå íå çàãðóæåíû, ò.ê. íå ìîãó ïîäêëþ÷èòü ñåòåâîé ðåñóðñ "+Data.qrTemp.FieldByName("IPStation").AsString+"!"); end; // åñëè ñìîãëè ïîäêëþ÷èòü ñåòåâîé ðåñóðñ Data.qrTemp.Next; end; // while not Data.qrTemp.Eof do

у тебя в теле Execute() возникает необработанное исключение

возникает оно здесь - fmLoadData.Memo1.Lines.Add() - и связано с попыткой обращения к виз.VCL-контролу в контексте неосновного потока, что недопустимо

см. метод Synchronize()

Потоки TTread Найти похожие ветки