Archivo de Texto

[tiel]

Estoy haciendo un programa para cargar los logs de un archivo de texto, pero el archivo siempre está abierto por una aplicación que guarda los logs y cuando ejecuto el siguiente código me aparece el error "I/O Error 32" cuando llega al punto del procedimiento Reset:

var archivo: Text;
AssignFile(archivo, archivo_text.text);
Reset(archivo);
readln( archivo, linea );

Lei la documentación de Delphi y traté poniéndole:

FileMode := 0;
var archivo: Text;
AssignFile(archivo, archivo_text.text);
Reset(archivo);
readln( archivo, linea );

Pero sigue con el mismo error. ¿Podría alguien explicarme por qué no puedo cambiar el modo de abrir el archivo a modo Sólo Lectura?

[delphi.com.ar]

No precisamente el problema tenga que ser el modo en que vos quieras abrir el archivo, sino que el problema puede ser el modo en que la otra aplicación ha lockeado el archivo, si la otra aplicación lo abrió en modo exclusivo, no podrás leerlo hasta que lo cierre.
Por otro lado, te recomiendo utilizar un TFileStream del tipo fmOpenRead para probar.

Saludos!

[JoseQ]

un pequeño truco rastrero.


copia tu archivo a otro, temporal, y lees de este. ahora, aunque no te deje abrirlo quizas te deje copiarlo. suerte

[jachguate]

Empezado por JoseQ

aunque no te deje abrirlo quizas te deje copiarlo. suerte

pues no me imagino cómo el proceso de copia lograria copiarlo sin abrirlo... Aún cuando sea un proceso del sistema.

[tiel]

Si pude copiarlo con la función API CopyFile, y lo puedo abrir y hacer lo que quería, pero yo quiero saber como abrir un archivo como el Block de Notas, abre lo que sea aunque esté siendo usado.

Gracias por sus respuestas.

[delphi.com.ar]

Empezado por tiel

necesito respuestas

¿Leiste todas las anteriores?

Empezado por tiel

...yo quiero saber como abrir un archivo como el Block de Notas, abre lo que sea aunque esté siendo usado.

Depende de como se esté usando el archivo, el block de notas no hace magia...Probaste esto:

Empezado por delphi.com.ar

Por otro lado, te recomiendo utilizar un TFileStream del tipo fmOpenRead para probar.

Saludos!