Ver Mensaje Individual
  #1  
Antiguo 22-12-2017
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.022
Reputación: 22
keys Va por buen camino
Descomprimir con TZipFile

Hola a todos, estoy intentando descomprimir un archivo zip con la clase TZipFile del delphi XE TOKIO. Es un fichero muy grande con 479 MB. La copia se hace bien, lo abro con el winzip y veo todos los ficheros dentro con todos los datos.

Luego a la hora de restaurarlo con el TZipfile, al cargarlo con Zip.FileCount me dice que solo hay 7599 ficheros, cuando hay muchos más. Claro si voy restaurando con

For t := 0 to Zip.FileCount - 1
begin
Zip.Extract(Zip.FileNames[t], 'c:\Destino', true);
end;

no me restura todo.

Si lo restauro todo de golpe con Zip.ExtractAll('C:\destino22') me restaura exactamente lo mismo 7599 archivos. Sin embargo con el winzip veo que hay muchas mas y si lo descomprimo que salen muchos más.

¿Ha alguien le ha pasado esto? He tenido que cambiar a la clase de las jcl para poder descomprimir todo.

Un Saludo.
Responder Con Cita