поток, который по завершению (Terminate) передает в основную форму информацию о файле

[1Andrey1]

Помогите пожалуйста разобраться что я делаю не так. В общем мне нужно вот что: запустить поток, который по завершению (Terminate) передает в основную форму информацию о файле(при запуске я передаю ему имя файла, который нужно обработать), после того как он завершился мне нужно запустить его еще несколько раз. Вот здесь у меня и проблемма. Как узнать что поток уже завершился? Дальше я приведу примерный код, скажите что я делаю не так?

//Это код самого потока

unit GetInfo;

interface
uses
  Classes, MPEGaudio, ID3v1, ID3v2, dialogs;

type

   ThreadDemo = class;

   TagRecord=record
      tagexist,valid:boolean;
      title,artist,album,year,genre,comments,bitrate,samplerate,path,name:string;
    end;

    TGetTagEvent=procedure(const info:tagrecord)of object;

  TMyhread = class(TThread)
  private
    FOnGetTag:TGetTagEvent;
    Finfo:string;
    procedure setinfo;
    { Private declarations }
  protected
    name: string;
    procedure Execute; override;
  public
    constructor create(const FileName: WideString);
    destructor Destroy;
    property info :string read FInfo write Finfo;
    property OnGetTag : TGetTagEvent read FOnGetTag write FOnGetTag;
  end;

var
  getinfohred: TMyhread;
  tagr:tagrecord;

implementation

uses Unit1, SysUtils;


constructor ThreadDemo.create(const FileName: WideString);
begin
inherited Create(true);
FreeOnTerminate := True;
name:=FileName;
resume;
end;

destructor ThreadDemo.Destroy;
begin
  inherited;
end;

procedure ThreadDemo.Execute;
begin
// Тут собственно получение информации из файла(заполняется рекорд "tagr")
synchronize(setinfo);
Terminate;
end;

procedure ThreadDemo.setinfo;
begin
if  assigned(FOnGetTag) then
begin
 FOnGetTag(tagr);
end;

end;










//А это код главной формы

var
getinfohred : TMyhread; 

//Весь код я приводить не буду, но идея в том что я запускаю поток, передав ему имя файла
//поток возвращает мне рекорд с информацией об этом файле, мне нужно подождать пока он 
//завершится и запустить следующий поток, но чтото у меня здесь не получается


for i:=0 to filelist.count-1 do
  begin 
//Вот здесь бы мне нужно подождать завершения потока, если он есть
//Что то типа
    //while assigned(getinfohred) do
    // begin
    // sleep(10);
    // end;
//Но это не работает

    getinfohred := TMyhread.Create(FileName);
    getinfohred.FreeOnTerminate:=true;
    getinfohred.OnGetTag:=OnGetTag1;
//В процедуре "OnGetTag1" главной формы идет обработка данных, которые вернул поток
  end;

[ZMeJ]

можно сделать чтобы поток при завершении посылал сообщение гл. форме программы, в которой передавал параметры завершения, нпр:
PostMessage(хэндл формы,WM_USER+2250,Integer(хэндл потока),
integer(pChar('имя файла'));

[still_alive]

В OnExecute написан бред! На кой там Terminate?? Это просто там ненужный оператор в данном случае. Для передачи в данном случае посылка сообщений не обязательно, достаточно написать обработик события OnTerminate.

[1Andrey1]

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

В OnExecute написан бред! На кой там Terminate?? Это просто там ненужный оператор в данном случае. Для передачи в данном случае посылка сообщений не обязательно, достаточно написать обработик события OnTerminate.

Я просто немного упростил свою процедуру execute, она выглядит примерно так:

if tag v1 then
begin
получаем информацию
Terminated;
end;
if tag v2 then
begin
получаем информацию
Terminated;
end;


Или логичнее там ставить "exit"?

[Ring0Sn]

Сообщение от 1Andrey1

Как узнать что поток уже завершился

В классе TThread есже евент OnTerminate =)
перед execute присвой ему свой обработчик

[1Andrey1]

спасибо, разобрался