VPF::как узнать завершился ли поток

1Andrey1

Дата 8.9.2007, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 8.9.2007

Репутация: 1
Всего: 4

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

Код



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

unit GetInfo;

interface
uses
  Classes;

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;

Pakshin A. S.

Дата 8.9.2007, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

1Andrey1,

Код


    getinfohred := TMyhread.Create(FileName);
    getinfohred.FreeOnTerminate:=true;
    getinfohred.OnGetTag:=OnGetTag1;
    getinfohred.Resume; // Здесь только запускаем поток

и убирай из конструктора Resume.

Попробуй, может сработает.. А так обычно используют всякие семафоры...

W4FhLF

Дата 9.9.2007, 06:34 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Хендл потока знаешь знаешь? Тогда используй:

WaitForSingleObject(hThread, INFINITE);

Когда функция выйдет из ожидания - поток уже завершит свою работу.

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

1Andrey1

Дата 9.9.2007, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 8.9.2007

Репутация: 1
Всего: 4

Pakshin A. S., Если можно про флаги конкретнее, где именно их использовать. Чтото у меня ничего не получается

W4FhLF, А как узнать хэндл потока?

Не пинайте меня сильно пожалуйста, просто с потоками никогда не связывался, а литературы очень мало.

Alexeis

Дата 9.9.2007, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Так у TThread есть событие OnTerminate. Обработчик OnTerminate - вызывается после завершения потока в контексте главного потока, так что не нуждается в синхронизации.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

1Andrey1

Дата 10.9.2007, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 8.9.2007

Репутация: 1
Всего: 4

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »