|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поток не уничтожается
Привет всем!
Проблема такая. Создаю из VCL поток, выполняю в нем действия, затем в VCL уничтожаю этот поток. Ошибок никаких нет, но потом попробовал обращаться к переменной этого потока, чтение и запись происходит, хотя поток был уничтожен. Почему так? Создаю так: Код:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin if (OpenDialog1.Execute) and (OpenDialog1.Files.Count > 0) then begin Data.Clear; ReadThread:=TReadThread.Create(OpenDialog1.Files, @Data); ReadThread.FreeOnTerminate:=False; ReadThread.OnTerminate:=FinishedRead; ReadThread.Resume; for i:=0 to OpenDialog1.Files.Count-1 do Memo1.Lines.Add(OpenDialog1.Files[i]); end; end; Уничтожаю так: Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin if Assigned(ReadThread) then begin if not ReadThread.Terminated then begin ProgressBar1.Max:=ReadThread.ProgressEnd; ProgressBar1.Position:=ReadThread.Progress; end else begin ReadThread.Free; ProgressBar1.Position:=0; end; end end; |
#2
|
||||
|
||||
Код потока бы глянуть...
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
Класс потока:
Код:
type TReadThread = class(TThread) private Filenames: TStrings; fData: PData; protected procedure Execute; override; public ProgressEnd: Integer; Progress: Integer; constructor Create(AFilenames: TStrings; AData: PData); end; Execute: Код:
procedure TReadThread.Execute; var f: TextFile; s: string; i: integer; sl: TItemData; begin for i:=0 to Filenames.Count-1 do begin AssignFile(f, Filenames[i]); Reset(f); sl:=TItemData.Create(Filenames[i]); fData.Items.Add(sl); ProgressEnd:=FileSize(f); Progress:=0; while not eof(f) do begin readln(f, s); fData.Items.Last.Items.Add(s); Progress:=Progress + Length(s); end; CloseFile(f); end; end; |
#4
|
||||
|
||||
А покажи мне то место где ты выставляешь свойство потока Terminated в истину...
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
|||
|
|||
Цитата:
|
#6
|
|||
|
|||
Посмотрел в дебагере вкладку ThreadStatus, поток мой исчезает после выполнения execute.
|
#7
|
||||
|
||||
Я не знаю куда и зачем ты смотрел но:
1. Свойство потока Terminated снаружи не видно. Как у тебя работает процедура таймера я не понимаю. 2. Это свойство не выставляется в истину после окончания Execute, да и с чего бы... смотри код ниже, он выдаёт false (по крайней мере в XE) Форма Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } FThread:TTestThread; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin FThread:=TTestThread.Create; FThread.WaitFor; ShowMessage(BoolToStr(FThread.Term,True)); FThread.Free; end; end. поток Код:
unit Unit2; interface uses Classes; type TTestThread = class(TThread) private function GetTerm: Boolean; { Private declarations } protected procedure Execute; override; public property Term:Boolean read GetTerm; end; implementation { TTestThread } procedure TTestThread.Execute; begin { Place thread code here } sleep(3000); end; function TTestThread.GetTerm: Boolean; begin Result:=Terminated; end; end. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#8
|
|||
|
|||
1 Для определения факта завершения потока проверяй ReadThread.Finished
2 при уничтожении потока ставь переменную в nil: FreeAndNil(ReadThread) 3 Как передается Filenames в конструкторе? 4 Переменную Progress хорошо бы защитить критической секцией |
#9
|
|||
|
|||
Цитата:
|
#10
|
|||
|
|||
Цитата:
Delphi 10. Во время работы execute https://psv4.vk.me/c812236/u23338277...hWJgNcTs73-fww После завершения execute https://psv4.vk.me/c812536/u23338277...AjoXU 8bVzYQw Последний раз редактировалось mighty_man, 22.09.2016 в 16:15. |
#11
|
||||
|
||||
картинки не грузяццо
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#12
|
||||
|
||||
забуть про потоки, используй пулы.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |