Delphi XE3은 TFileStream의 생성자에서 "FILE_SHARE_READ 또는 FILE_SHARE_WRITE"를 지정할 때 EFOpenError를 제공합니다.

Question

다음 진술은 Delphi XE (Windows 7 x64)에서 제대로 실행되지만 Delphi XE3 (Windows 7 x64)에서는 "예외 클래스 EFOpenError with message ..."를 제공합니다. 그것은 마치 버그처럼 보입니다. 그렇다면 해결 방법이 있습니까? 대신 FILE_SHARE_READ or FILE_SHARE_WRITE의

 TFileStream.Create(
     'C:\Test.txt' 
     , fmOpenRead, 
//  FILE_SHARE_READ); 
//  FILE_SHARE_WRITE); 
     FILE_SHARE_READ or FILE_SHARE_WRITE); 

Answer 1

사용 fmShareDenyNone 상수 :

TFileStream.Create(
    'C:\Test.txt', fmOpenRead or fmShareDenyNone); 

그것은 버그가 아닙니다. 자세한 내용은 Documentation을 참조하십시오.