[mighty_man]

Привет всем!
Проблема такая. Создаю из VCL поток, выполняю в нем действия, затем в VCL уничтожаю этот поток. Ошибок никаких нет, но потом попробовал обращаться к переменной этого потока, чтение и запись происходит, хотя поток был уничтожен. Почему так?
Создаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;

Уничтожаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;

[Aristarh Dark]

Код потока бы глянуть...

[mighty_man]

Класс потока:

Код:

1 2 3 4 5 6 7 8 9 10 11

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:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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;

[Aristarh Dark]

А покажи мне то место где ты выставляешь свойство потока Terminated в истину...

[mighty_man]

Сообщение от Aristarh Dark

А покажи мне то место где ты выставляешь свойство потока Terminated в истину...

Сам не выставляю. Выполняется execute и поток завершается. Смотрел дебагером, после завершения потока terminated стоит true.

[mighty_man]

Посмотрел в дебагере вкладку ThreadStatus, поток мой исчезает после выполнения execute.

[Aristarh Dark]

Я не знаю куда и зачем ты смотрел но:
1. Свойство потока Terminated снаружи не видно. Как у тебя работает процедура таймера я не понимаю.
2. Это свойство не выставляется в истину после окончания Execute, да и с чего бы... смотри код ниже, он выдаёт false (по крайней мере в XE)

Форма

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

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.

поток

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

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.

[Zelius]

1 Для определения факта завершения потока проверяй ReadThread.Finished
2 при уничтожении потока ставь переменную в nil: FreeAndNil(ReadThread)
3 Как передается Filenames в конструкторе?
4 Переменную Progress хорошо бы защитить критической секцией

[mighty_man]

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

4 Переменную Progress хорошо бы защитить критической секцией

Зачем? Я ее только читаю.

[mighty_man]

Сообщение от Aristarh Dark

Я не знаю куда и зачем ты смотрел но:
1. Свойство потока Terminated снаружи не видно. Как у тебя работает процедура таймера я не понимаю.
2. Это свойство не выставляется в истину после окончания Execute, да и с чего бы... смотри код ниже, он выдаёт false (по крайней мере в XE)

Delphi 10.
Во время работы execute
https://psv4.vk.me/c812236/u23338277...hWJgNcTs73-fww

После завершения execute
https://psv4.vk.me/c812536/u23338277...AjoXU 8bVzYQw

[Aristarh Dark]

картинки не грузяццо

[M.A.D.M.A.N.]

забуть про потоки, используй пулы.