Блог

Я хочу создать и запустить поток, все с помощью одной командной строки TClientCopyThread.Create(...) . Для этого я должен создать поток с Suspended = False помощью, чтобы он мог выполняться немедленно. Я знаю, что когда я пишу constructor новый объект, прежде всего я должен вызвать inherited Create so, чтобы экземпляр объекта был создан, а затем выполнить мои инициализации. Но здесь, если я вызову inherited поток, он запустится без инициализированных параметров. Я пытаюсь вызвать inherited last, и кажется, что это работает (я не получаю никаких нарушений доступа), но я не знаю наверняка, совпадение это или нет.

   TClientCopyThread = class(TThread)
  private
    OwnGUID: String;
    SrcPath, DestPath: String;
    Files: TFileNames;
    RemoveIt: Boolean;
  protected
    procedure Execute; override;
  public
    constructor Create(const GUID, ASrcPath, ADestPath: String;
     const FileNames: TFileNames; RemoveSrc: Boolean);
  end;

constructor TClientCopyThread.Create(const GUID, ASrcPath, ADestPath: String;
 const FileNames: TFileNames; RemoveSrc: Boolean);
var I: Integer;
begin
 SrcPath:=  Copy(ASrcPath, 1, Length(ASrcPath));
 DestPath:= Copy(ADestPath, 1, Length(ADestPath));
 SetLength(Files, Length(FileNames));
 for I:= 0 to High(Files) do
  Files[I]:= Copy(FileNames[I], 1, Length(FileNames[I]));
 RemoveIt:= RemoveSrc;
 FreeOnTerminate:= True;
 inherited Create;
end;
  

Чтобы ответить на ваш конкретный вопрос — ДА, вы можете вызвать inherited Create в любой момент во время производного конструктора. Это НЕ обязательно должен быть первый оператор (такой же, inherited Destroy как и последний оператор в деструкторе). Память для объекта класса уже полностью выделена до вызова любых конструкторов, поэтому безопасно инициализировать члены вашего производного класса перед вызовом inherited конструктора. Однако при обращении к членам базового класса из производного конструктора вы должны inherited сначала вызвать конструктор, чтобы инициализировать их, прежде чем обращаться к ним.

При этом ваше понимание того, как TThread работает конструктор, просто неверно. Начиная с Delphi 6 и далее, конструктор базового класса TThread всегда создает базовый поток ОС в приостановленном режиме, а затем возобновляет поток TThread.AfterConstruction() после того, как все конструкторы полностью завершили работу, если TThread объект создан с CreateSuspended=False помощью . Итак, ваше утверждение о том, что вызов inherited Create with CreateSuspended=False немедленно запустит поток, НЕ соответствует действительности с 2001 года, когда был выпущен Delphi 6. Базовый поток ОС НЕ начнет выполняться до тех пор, пока ваш TClientCopyThread.Create() конструктор не завершит работу. Таким образом, ваш Execute() метод никогда не будет действовать на неинициализированных членах, независимо от того, как вы установили CreateSuspended .

То, что вы описываете (поток, запущенный до инициализации членов), было ошибкой в Delphi 5 и более ранних версиях, которая была исправлена в Delphi 6.