Delphi - Condivisione violazione file di testo di apertura

Question

Sto tentando di aprire un file di testo per la lettura in un'applicazione Delphi 7, ma sto ricevendo errore I/O 32 (violazione di condivisione) perché un'altra applicazione ha già il file aperto. Ho provato a impostare FileMode su "fmOpenRead o fmShareDenyNone", ma ora mi rendo conto che non si applica comunque ai file di testo.

C'è un modo di leggere file di testo aperti da un'altra applicazione?

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

Answer 1

Questo risolverà il problema all'istante. Carica il file utilizzando una TStringList. Basta chiamare:

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

ho scoperto che si tratta di file di testo, è meglio usare il TStringList. Altrimenti andrei su TFileStream e lì puoi specificare la tua modalità di apertura.

Answer 2

Dipende da come questo altro processo ha aperto il file ... Se il file è stato aperto in modo esclusivo, non avrà alcun esito.

E TextFile è vecchio cappello, penso che si aprirà in modalità esclusiva per essere compatibile con DOS vecchio stile. Dovresti usare TFileStream o simili.

TStringList può funzionare anche in base a ciò che l'altro processo sta facendo. Ma se il file viene scritto (come un file .log), fmShareDenyWrite non funzionerà.

Answer 3

Se non ricordo male, c'è anche una variabile Textfilemode che si applica solo ai file di testo.

Answer 4

Forse in questo modo:

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 5

utilizzare il metodo di TStringList LoadFromStream, piuttosto che LoadFromFile. Si arriva a controllare il blocco in questo modo:

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; 

Questo esempio sta usando il flusso di caricare in un TStringList. Se vuoi solo leggere pezzi, puoi farlo. Basta leggere dal flusso.