Ayuda compresion.

[Bluefox]

Buenos días.
Estoy usando el componente de las Jedi para la compresión de unos ficheros y/o directorios. (7z)
También probé la librería incluida en el XE5, system.Zip. (zip)

El problema que me esta dando, es al comprimir un fichero que esta en uso, ya que da una excepción.
Sabéis si hay algun forma de incluirlo, en el fichero comprimido?

Gracias.

[movorack]

o puedes verificar si el archivo está en uso (https://stackoverflow.com/questions/141302/checking-file-is-open-in-delphi) para tomar acciones antes de realizar la copia.

[Bluefox]

Si eso lo puedo hacer, y entonces hacer una copia del fichero y añadir ese que no se usa... pero me parece que es bastante costoso.
Creo que existe algun parametro, al menos en 7z para añadir el fichero aunque este en uso.

[movorack]

Bueno, no se si la dll 7z de esa opción. Sería mejor indagar en el foro de ese producto (https://sourceforge.net/p/sevenzip/discussion/45797/)

[Bluefox]

Se me olvido comentar. Ya esta solucionado. Tocando un poco el modulo de las Jedi.
Gracias.

[ecfisa]

Se me olvido comentar. Ya esta solucionado. Tocando un poco el modulo de las Jedi.
Gracias.
¡ Buenísimo !, ahora sí entendí como resolverlo.

Saludos :)

[Casimiro Notevi]

Bien, bien, tocamos un módulo y se soluciona ;)

[newtron]

¡Estupendo! a mi me encanta tocar cosas. :D:D

[Bluefox]

Teneis toda la razon.
En la funcion ItemAccess del modulo JclCompression modificas esto.

function TJclCompressionArchive.ItemAccess: TJclStreamAccess;
begin
Result := saReadOnlyDenyNone;
end;

Asi ya comprime ficheros abiertos.
Sorry :