Delphi - 共有違反開封のテキストファイル

Question

私はDelphi 7アプリケーションで読み込み用のテキストファイルを開こうとしていますが、別のアプリケーションが既にファイルを開いているため、I/Oエラー32（共有違反）が発生しています。私は "fmOpenReadまたはfmShareDenyNone"にFileModeを設定しようとしましたが、今はこれがテキストファイルにはあてはまらないことに気付きました。

他のアプリケーションで開いているテキストファイルを読む方法はありますか？

var 
    f: TextFile; 
begin 
    FileMode := fmOpenRead or fmShareDenyNone; // FileMode IS NOT APPLICABLE TO TEXT FILES!! 
    AssignFile(f, FileName); 
    Reset(f); 

Answer 1

これで瞬時に問題が解決されます。 TStringListを使用してファイルをロードします。ちょうど電話：

... 
var sl: TStringList; 
begin 
    sl := TStringList.create(); 
    try 
    sl.loadFromFile(Filename); 
    ...do your stuff here... 
    finally 
    freeAndNil(sl); 
    end; 
end; 

私はテキストファイルを扱うことが判明したので、TStringListを使用することをお勧めします。さもなければ私はTFileStreamのために行くとそこにあなたの開始モードを指定することができます。

Answer 2

これは、他のプロセスがファイルを開いた方法によって異なります。ファイルを排他的に開いた場合は、まったく成功しません。

TextFileは古い帽子ですが、私はそれが旧式のDOSと互換性があるように排他モードで開くと思います。 TFileStreamなどを使用してください。

TStringListは、他の処理が何をしているかによっても動作します。しかし、ファイルが（.logファイルのように）書き込まれている場合、fmShareDenyWriteは機能しません。

Answer 3

正しく覚えていれば、テキストファイルにのみ適用されるTextfilemode変数もあります。

vFileList := TStringList.Create; 
    try 
    vFileStream := TFileStream.Create('myfile.txt', fmOpenRead or fmShareDenyNone); 
    try 
     vFileList.LoadFromStream(vFileStream); 
    finally 
     vFileStream.Free; 
    end; 
    // Use vFileList 
    finally 
    vFileList.Free; 
    end; 

Answer 4

。例では、TStringListにロードするストリームを使用していること

var 
    slFile: TStrings; 
    stream: TStream; 
begin 
    slFile := TStringList.Create; 
    try 
     stream := TFileStream.Create(filename, fmOpenRead or fmShareDenyNone); 
     try 
     slFile.LoadFromStream(stream); 
     finally 
     stream.Free; 
     end; 

     //Use the stringlist 
    finally 
     slFile.Free; 
    end; 
end; 

：あなたはロックその方法を制御するために得ます。あなたが作品を読んでみたいと思ったら、それをすることができます。ただストリームから読む。

Answer 5

むしろLoadFromFileより、TStringListにするLoadFromStreamメソッドを使用します。たぶん、このような