Delphi线程-等待时冻结

我正在编写一个需要等到文件存在于目录中的应用程序.我尝试了多种方法,唯一有效的解决方案是使用Sleep/Application.ProcessMessages.

这是我尝试过的:

使用Sleep/Application.ProcessMessages:

Result := False;
for i := 0 to iTimeout do
begin
  if FileExists(fileName) do
  begin
    updateStatus('Conversion Completed');
    Result := True;
    Break;
  end;
  updateStatus(Format('Checking for file: %d Seconds', [i]));
  Application.ProcessMessages;
  Sleep(1000);
end;

此方法有效,但我无法在等待时关闭应用程序.此外,使用Sleep/Application.ProcessMessages还有很好的文档记录问题,我宁愿避免.

使用TThread/TEvent:

type
  TMyThread = class(TThread)
  private
    FEventDone: TEvent;
  public
    constructor Create(CreateSuspended: boolean);
    destructor Destroy;
    procedure Execute; override;
    property EventDone: TEvent read FEventDone;
  end;

  TformThreading = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    waitThread: TMyThread;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formThreading: TformThreading;

implementation

{$R *.dfm}

{ TformThreading }

procedure TformThreading.Button1Click(Sender: TObject);
var
  res: TWaitResult;
begin
  try
    waitThread.Start;
    res := waitThread.EventDone.WaitFor(INFINITE);
    case res of
      wrSignaled: ShowMessage('wrSignaled');
      wrTimeout: ShowMessage('wrTimeout');
      wrAbandoned: ShowMessage('wrAbandoned');
      wrError: ShowMessage('wrError');
      wrIOCompletion: ShowMessage('wrIOCompletion');
    end;
  except
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
  end;
end;

procedure TformThreading.FormCreate(Sender: TObject);
begin
  waitThread := TMyThread.Create(true);
end;

procedure TformThreading.FormDestroy(Sender: TObject);
begin
  waitThread.Free;
end;

{ TMyThread }

constructor TMyThread.Create(CreateSuspended: boolean);
begin
  inherited Create(CreateSuspended);
  FEventDone := TEvent.Create;
end;

destructor TMyThread.Destroy;
begin
  FEventDone.Free;
end;

procedure TMyThread.Execute;
begin
  for i := 0 to iTimeout do
  begin
    if FileExists(fileName) do
    begin
      FEventDone.SetEvent;
      Break;
    end;
    Application.ProcessMessages;
    Sleep(1000);
  end;
end;

我似乎无法让它在等待时不冻结我的主线程,但这似乎是正确的方法,如果我可以解决冻结问题.

解决问题的最佳方法是什么？

我似乎无法让它在等待时不冻结我的主线程.

等待对象时,该线程会阻塞,直到对象发出信号.因此,当您的主要威胁等待事件时,它将被阻止.您观察到的行为完全符合预期.

查看线程的代码,它会循环,直到满足条件,发出事件信号,然后终止.换句话说,该事件没有任何意义.你可以删除它,而不是等待线程.

现在,如果您这样做,您的代码将执行此操作:

创建一个线程并开始执行.

等待该线程完成,阻塞主线程.

线程完成后继续执行.

所以,就目前而言,你的线程没有任何成就.您也可以在主线程中执行其代码.你回到了起步的地方.

你需要一种不同的心态.GUI程序在其UI中是异步的.你需要遵循这种模式.不要在主线程中等待.相反,一定要使用单独的线程,但在完成后让该线程向主线程发出信号.

这里最简单的方法是OnTerminate为线程实现一个事件处理程序.当线程完成其工作时,它将触发.事件处理程序将在主线程中执行.

更一般地说,您可以使用Synchronize或Queue向主线程发送事件信号,但在您处理终止事件的情况下,您可以满足您的需求.

现在到线程的主体.你的方法是基于轮询和睡眠.这样可行,但并不是非常漂亮.该ReadDirectoryChangesW功能是系统提供的机制,您可以接收文件系统中的更改通知.那将是一种更优雅的方法.

我的建议是首先使用您当前的轮询方法来解决阻塞问题.一旦明确重新使用即可ReadDirectoryChangesW.