Al González
23-10-2012, 08:58:19
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:
Uses
System.Zip;
Procedure TForm1.Button1Click(Sender: TObject);
Var
Zip :TZipFile;
Begin
{ Creamos un archivo ZIP de nombre "Prueba.zip", comprimiendo dentro de
él los archivos Carta.txt y Dibujo.bmp }
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
{ Abrimos el archivo Prueba.zip y mostramos dentro de Memo1 el nombre de
los archivos comprimidos que contiene }
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
{ Extraemos en el directorio C:\Delphi\Ejemplos\TZipFile los archivos que
están dentro de Prueba.zip }
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 (http://neftali.clubdelphi.com/?p=1752) de nuestro buen amigo Germán Estévez, en donde explica con mucho mayor detalle esta característica.
Saludos.
Al González.
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:
Uses
System.Zip;
Procedure TForm1.Button1Click(Sender: TObject);
Var
Zip :TZipFile;
Begin
{ Creamos un archivo ZIP de nombre "Prueba.zip", comprimiendo dentro de
él los archivos Carta.txt y Dibujo.bmp }
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
{ Abrimos el archivo Prueba.zip y mostramos dentro de Memo1 el nombre de
los archivos comprimidos que contiene }
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
{ Extraemos en el directorio C:\Delphi\Ejemplos\TZipFile los archivos que
están dentro de Prueba.zip }
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 (http://neftali.clubdelphi.com/?p=1752) de nuestro buen amigo Germán Estévez, en donde explica con mucho mayor detalle esta característica.
Saludos.
Al González.