leer metadatos en un archivo

[ecfisa]

Empezado por ebeltete

...
Con respecto a que otra aplicacion lo use no es el problema, con AssignFile lo solucione, o sea por mas que otro usuario con otra aplicacion este usando el archivo (por ejemplo en un recurso compartido de red), mi aplicacion lo lee igual.
Ahora cuando el archivo tiene la propiedad "solo lectura" no lo puedo leer dese mi aplicacion.
Con respecto de hacer una copia no lo veo viable porque puede ser un archivo demasiado grande y tardaria demasiado en hacer la copia. Gracias

Hola ebeltete.

Opino igual que Neftali, depende de los atributos con haya abierto el archivo la otra aplicación. Si lo hizo omitiendo el modo FILE_SHARE_READ no lo vas a solucionar con AssignFile, cuya función es sólo asociar un nombre externo a una variable de archivo.

De todos modos, fijate si te puede servir el contenido de este enlace: Como leer ficheros de texto que estan siendo usados por otro proceso

Saludos

[ebeltete]

Gracias por sus respuestas, logre hacerlo funcionar con "readfile" y "writefile" quedo algo asi:

Código Delphi [-]
 hFile := createfile(PChar(FFileName), GENERIC_READ or GENERIC_WRITE , FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
        SetFilePointer(hFile,GETFILESIZE(hFile,0)-SizeOf(FTagRecord)-SizeOf(FTagRielli), NIL, FILE_BEGIN);
        IF writefile(hFile, FTagRielli,SizeOf(FTagRecord)+SizeOf(FTagRielli),dwread, nil)=FALSE THEN
        SHOWMESSAGE(FLOATTOSTR(GetLastError));

No funciona bien con "TFileStream" y "AssignFile".
Ahora me encuentro con el problema de que bajo Windows XP funciona perfecto, pero en Windows Vista y seven, no graba el archivo. Lo ejecute como administrador y tampoco. Cambio algo con estas versiones de Win?

[ebeltete]

He estado leyendo algo al respecto, y encuentro algo como esto: Createfile falla con Windows 7 no logro entender bien, pero puede ser que Win7 no deja sobreescribir el archivo?

[ebeltete]

hola, vuelvo a consultar. Estoy Probando el codigo en Delphi xe6 y no funciona como Delphi 5, me parece que el problema esta en la codificacion de caracteres. Puede ser?