Открытие файла RTF в Delphi генерирует ошибку

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;