delphi - 在 Delphi 中打开 rtf 文件产生错误

Question

我正在使用以下代码加载 RichEdit 文件:

RichEdit1.Lines.LoadFromFile('xxx.rtf');

这很好用。但是，当我像这样使用 TOpenDialog 时:

with DlgOpen do if Execute then RichEdit1.Lines.LoadFromFile(FileName);

我遇到了一个问题。文件加载正常，但在桌面上留下以下错误消息:

我使用的是 Delphi 2010。rtf 文件是使用 Microsoft Word 2007 生成的，我运行的是 Win10。我怎样才能摆脱错误消息？

Answer 1

如果您不能阻止预览器锁定您要阅读的文件，我会通过不直接加载该文件而是加载它的副本来解决这个问题。

uses IOUtils; 
....
....
var TempFile: string;
....
if DlgOpen.Execute then
begin
  TempFile := IncludeTrailingPathDelimiter(TPath.GetTempPath) + 'Temp.rtf';
  CopyFile(PChar(DlgOpen.FileName), PChar(TempFile), False);
  RichEdit1.Lines.LoadFromFile(TempFile);
  DeleteFile(TempFile);
end;