Hola.
Hoy estuve revisando algunas de las novedades de Delphi XE2, llamando mi atención una clase nativa de nombre
TZipFile cuyo propósito es permitir la creación de archivos comprimidos ZIP, así como la extracción del contenido de ese tipo de archivos.
Después de hacer unas pruebas con esta clase, consideré que valdría la pena mostrarles el código, para quien pudiera servirle:
Código Delphi
[-]Uses
System.Zip;
Procedure TForm1.Button1Click(Sender: TObject);
Var
Zip :TZipFile;
Begin
Zip := TZipFile.Create;
Try
Zip.Open ('C:\Delphi\Ejemplos\TZipFile\Prueba.zip', zmWrite);
Zip.Add ('C:\Delphi\Ejemplos\TZipFile\Carta.txt');
Zip.Add ('C:\Delphi\Ejemplos\TZipFile\Dibujo.bmp');
Finally
Zip.Free;
End;
End;
procedure TForm1.Button2Click(Sender: TObject);
Var
I :Integer;
Zip :TZipFile;
Begin
Zip := TZipFile.Create;
Try
Zip.Open ('C:\Delphi\Ejemplos\TZipFile\Prueba.zip', zmRead);
Memo1.Clear;
For I := 0 To High (Zip.FileNames) Do
Memo1.Lines.Add (Zip.FileNames [i]);
Finally
Zip.Free;
End;
end;
procedure TForm1.Button3Click(Sender: TObject);
Var
Zip :TZipFile;
Begin
Zip := TZipFile.Create;
Try
Zip.Open ('C:\Delphi\Ejemplos\TZipFile\Prueba.zip', zmRead);
Zip.ExtractAll('C:\Delphi\Ejemplos\TZipFile');
Finally
Zip.Free;
End;
End;
Por cierto, encontré
este artículo de nuestro buen amigo Germán Estévez, en donde explica con mucho mayor detalle esta característica.
Saludos.
Al González.