Delphi: infracción de uso al abrir archivo de texto

Question

Estoy tratando de abrir un archivo de texto para leer en una aplicación Delphi 7, pero estoy recibiendo error I/O 32 (violación de uso compartido) porque otra aplicación ya tiene el archivo abierto. Intenté configurar FileMode en "fmOpenRead o fmShareDenyNone", pero ahora me doy cuenta de que esto no se aplica a los archivos de texto de todos modos.

¿Hay alguna forma de leer archivos de texto abiertos por otra aplicación?

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

Answer 1

Esto resolverá su problema al instante. Cargue el archivo usando una TStringList. Simplemente llame al:

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

Descubrí que al tratar con archivos de texto, lo mejor es usar la TStringList. De lo contrario, iría por TFileStream y allí puedes especificar tu modo de apertura.

Answer 2

Depende de cómo ese otro proceso abrió el archivo ... Si abrió el archivo exclusivamente, no va a tener éxito en absoluto.

Y TextFile es viejo, creo que se abrirá en modo exclusivo para ser compatible con Old style DOS. Deberías usar TFileStream o similar.

TStringList también puede funcionar, de nuevo dependiendo de lo que esté haciendo el otro proceso. Pero si el archivo se está escribiendo (como un archivo .log), fmShareDenyWrite no funcionará.

Answer 3

Si no recuerdo mal, también hay una variable de archivo de texto que se aplica solo a los archivos de texto.

Answer 4

Tal como esto:

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

utilizan el método de TStringList LoadFromStream, en lugar de LoadFromFile. Tienes la oportunidad de controlar el bloqueo de esa manera:

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; 

Ese ejemplo es utilizar la corriente para cargar en un TStringList. Si solo quieres leer piezas, puedes hacer eso. Acabo de leer de la corriente.