Ver Mensaje Individual
  #2  
Antiguo 31-10-2017
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Hola, Si se puede.

En la clase TZipFile tienes la función Read y puedes llamarla con un Stream

Código Delphi [-]
procedure Read(const FileName: string; out Bytes: TBytes); overload;
procedure Read(Index: Integer; out Bytes: TBytes); overload;
procedure Read(const FileName: string; out Stream: TStream; out LocalHeader: TZipHeader); overload;
procedure Read(Index: Integer; out Stream: TStream; out LocalHeader: TZipHeader); overload;

Para listar los archivos dentro, debes abrir el Zip y recorrerlo

Código Delphi [-]
Zip := TZipFile.Create;
try
  Zip.Open(ZipFileName, TZipMode.zmRead);
  For FileName in Zip.FileNames do
  begin
    //Acá validas el archivo que quieres leer y ejecutas tu rutina dependiendo del tipo de archivo. 
  end;
finally
  Zip.Close;
  FreeAndNil(Zip);
end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita