열기 RTF 파일 오류

Question

나는 다음과 같은 코드를 사용하여 RichEdit의 파일을로드하고를 생성합니다. 그러나 TOpenDialog를 다음과 같이 사용할 때 :

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

문제가 발생합니다. 파일로드 괜찮아하지만 바탕 화면에 다음과 같은 오류 메시지가 잎 : 델파이 RTF 파일이 생성 된 2010을 사용하고

2007 Microsoft Word를 사용하고 내가 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;