delphi - 从其他应用程序加载 Log.txt 到 Memo - Delphi7

Question

我正在尝试将其他应用程序(Proxifier)的 session 日志记录到备忘录中。我尝试过使用以下命令:

procedure TForm1.TimerTimer(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\PMASSH\Proxyfier\Profiles\Log.txt');
end;

但在某些时候我会收到错误

你能帮我解决上面的问题吗？我真的很感激所有的答案。

谢谢

Answer 1

其他程序已以共享模式打开该文件，不允许其他进程读取该文件。通常，当其他应用程序写入文件时会发生这种情况。

对此您无能为力。这是完全正常的行为，也是可以预料的。您可以尝试检测错误，等待一小段时间，然后重试。

由于您已经在计时器上运行此操作，因此重试将会发生。因此，也许您只需要抑制这些异常:

procedure TForm1.TimerTimer(Sender: TObject); 
begin
  try
    Memo1.Lines.LoadFromFile(...);
  except
    on EFOpenError do
      ; //swallow this error
  end;
end;

请注意，检测 EFOpenError 可能有点粗糙。也许还有其他故障模式会导致该错误。然而，作为第一步，上面的代码是一个不错的开始。