Delphi World - Как при создании объекта TThread передать ему некоторое значение
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как при создании объекта TThread передать ему некоторое значение

Антивирус для Windows - я выбираю безопасный секс!

К примеру, функция "прослушивает" каталог на предмет файлов. Если находит, то создает нить, которая будет обрабатывать файл. Потомку надо передать имя файла, а вот как?

Странный вопрос. Я бы понял, если бы требовалось передавать данные во время работы нити. А так обычно поступают следующим образом.

В объект нити, происходящий от TThread дописывают поля. Как правило, в секцию PRIVATE. Затем переопределяют конструктор CREATE, который, принимая необходимые параметры заполняет соответствующие поля. А уже в методе EXECUTE легко можно пользоваться данными, переданными ей при его создании.


TYourThread = class(TTHread)
  private
    FFileName: string;
  protected
    procedure Execute; overrided;
  public
    constructor Create(CreateSuspennded: Boolean; const AFileName: string);
end;

...

constructor TYourThread.Create(CreateSuspennded: Boolean;
            const AFileName: string);
begin
  inherited Create(CreateSuspennded);
  FFIleName := AFileName;
end;

procedure TYourThread.Execute;
begin
  try
    ...
    if FFileName = ...
    ...
  except
    ...
  end;
end;

...

TYourForm = class(TForm)

...

private
  YourThread: TYourThread;
  procedure LaunchYourThread(const AFileName: string);
  procedure YourTreadTerminate(Sender: TObject);
  ...
end;

...

procedure TYourForm.LaunchYourThread(
          const AFileName: string);
begin
  YourThread := TYourThread.Create(True, AFileName);
  YourThread.Onterminate := YourTreadTerminate;
  YourThread.Resume
end;

...

procedure TYourForm.YourTreadTerminate(Sender: TObject);
begin
  ...
end;

...

end.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования