Question

我正在编写一个需要等到文件存在于目录中的应用程序。我尝试了多种方法，唯一有效的解决方案是使用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;

我似乎无法在等待时冻结我的主线程，但如果我能解决这个问题，这似乎是正确的方法。

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

Answer 1

我似乎无法在等待时冻结我的主线程。

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

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

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

创建一个线程并开始执行。
等待该线程完成，阻止主线程。
线程完成后继续执行。

所以，就目前而言，你的线程什么都没有。您也可以在主线程中执行其代码。你回到了起步的地方。

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

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

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

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

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

Answer 2

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

我不这么认为。实现任务的正确方法应该是使用ReadDirectoryChangesW函数等待FILE_ACTION_ADDED操作发出信号。

您可以找到的示例实现，例如在Directory Watch项目中。

Delphi线程 - 等待时冻结

2 个答案: