Что нельзя делать в DoTerminate

[Shouldercannon]

Сообщение от come-on

а зачем вообще эта s и все с ней выкрутасы? ))

В теле потока в неё записываются данные, а потом в процедуре синхронизации или DoTerminate данные обрабатываются и выводятся в ListView. Надо обратно переходить на Synchronize, с DoTerminate в данном случае много проблем

[come-on]

а поток тут реально нужен? юзверь может грохнуть окно во время работы?

[Shouldercannon]

Это пример. На деле поток обращается к http для получения данных

[come-on]

ну и что, разница то какая?

[Аватар]

с DoTerminate в данном случае много проблем

В DoTerminate если уж переопределил, то в нем точно такие же проблемы, как и в OnTerminate. Единственное отличие - все обращение к vcl из него нужно синхронизировать, а в OnTerminate не нужно, поскольку к нему обращение уже синхронизировано. Не зря же генокод DoTerminate выше показал. Посмотри к чему и как из него обращение идет

[Shouldercannon]

type
  TMy_Thread = class(TThread)
  private
    { Private declarations }
    s: String;
  protected
    procedure Execute; override;
  public
    procedure MyDoTerminate(Sender: TObject);
  end;

var
  Form2: TForm2;
  My_Thread: TMy_Thread;

implementation

uses Utils;

{$R *.dfm}

procedure TForm2.PBBRefreshClick(Sender: TObject);
begin
  My_Thread := TMy_Thread.Create(True);
  My_Thread.OnTerminate := My_Thread.MyDoTerminate;
  My_Thread.FreeOnTerminate := True;
  My_Thread.Start;
end;

procedure TMy_Thread.Execute;
begin
  s := '1;2;3;4;5;';
  Terminate;
end;

procedure TMy_Thread.MyDoTerminate(Sender: TObject);
var
  Item: TListItem;
begin
  Form2.ListView1.SortType := stNone;
  Form2.ListView1.Items.BeginUpdate;
  Form2.ListView1.Items.Clear;

  while Pos(';', s) <> 0 do
  begin
    Item := Form2.ListView1.Items.Add;
    Item.Caption := Copy(s, 1, Pos(';', s) - 1);
    Delete(s, 1, Pos(';', s));
  end;

  Form2.ListView1.SortType := stBoth;
  Form2.ListView1.Items.EndUpdate;

  ShowForm(Form2);
end;

Работает. Ошибок не даёт

[Аватар]

Можно и так. Я бы так не делал, а вынес бы на форму обработчик для OnTerminate. Ладно, проехали. И Terminate в Execute как мертвому припарка. Почитай что этот метод делает и заодно о свойстве Terminated

[Shouldercannon]

Сообщение от Аватар

Можно и так. Я бы так не делал, а вынес бы на форму обработчик для OnTerminate. Ладно, проехали. И Terminate в Execute как мертвому припарка. Почитай что этот метод делает и заодно о свойстве Terminated

Убрал бы Terminate с радостью, но без него не работает проверка на состояние потока после окончания. Состояние - поток работает

procedure TFormMain.BStartClick(Sender: TObject);
begin
  MyThread := TMyThread.Create(True); // После создания поток остановлен
  MyThread.FreeOnTerminate := True; // После завершения работы поток "умрёт" сам
  MyThread.Start; // Запуск потока
end;

procedure TMyThread.Execute;
var
  I2: Integer;
begin
  for I2 := 0 to 60 do
  begin
    if I2 > 61 then Break;
    Sleep(100);
    I := I2;
    Synchronize(SyncProc);
  end;

  Terminate;
end;

procedure TMyThread.SyncProc;
begin
  FormMain.Caption := IntToStr(I);
end;

procedure TFormMain.BCheckClick(Sender: TObject);
begin
  // Проверка на существование потока
  if MyThread <> nil then
  begin
    // Если поток умирает "мирно", штатно завершив работу
    if MyThread.Terminated then ShowMessage('Поток "MyThread" не работает') else ShowMessage('Поток "MyThread" работает');
  end else ShowMessage('Поток "MyThread" не создан');
end;

[Аватар]

if MyThread <> nil then

А откуда в MyThread nil возмется? Уничтожение нити не означает, что в MyThread nil поместится по щучьему велению. Там так и останется указатель на убитый поток

[Shouldercannon]

Тогда на что проверять или как задать этот nil?