[mighty_man]

Привет всем!
Проблема такая. Создаю из 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;

[Aristarh Dark]

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

[mighty_man]

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

Код:

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;

[Aristarh Dark]

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

[mighty_man]

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

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

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

[mighty_man]

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

[Aristarh Dark]

Я не знаю куда и зачем ты смотрел но:
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.

[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.]

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