Quick Tips: Compactando e descompactando arquivos com ZipMaster - Parte 2
Nesta segunda parte da série, veremos como compactar arquivos usando o ZipMaster.
Para isso, adicione um DIrectoryListBox, um FileListBox, Um ListBox, um Edit e um botão no formulário, como demonstrado abaixo:
FileListBox1.Directory := DirectoryListBox1.Directory;
Isto fará com que ao mudarmos o diretório selecionado, sejam exibidos os arquivos no FileListBox ao lado.
No DblClick do FileListBox, adicione o seguinte código:
ListBox1.Items.Add(DirectoryListBox1.Directory+'/'+FileListBox1.Items[FileListBox1.ItemIndex]);
Nosso exemplo funcionará assim, o usuário vai selecionar o diretório, clicar duas vezes nos arquivos que deseja compactar e o caminho destes arquivos serão inseridos no listBox. Depois ele irá digitar o nome do arquivo zip a ser gerado e clicará em compactar para que o sistema possa compactar os arquivos selecionados. Para isso, insira o seguinte código no click do botão Compactar:
procedure TForm1.CompactarClick(Sender: TObject);
var i:Integer;
begin
ZipMaster1.ZipFileName := edtArquivoZip.Text;
for I := 0 to ListBox1.Items.Count - 1 do
ZipMaster1.FSpecArgs.Add(ListBox1.Items[i]);
ZipMaster1.Add();
end;
ZipMaster1.ZipFileName – Indica o nome do arquivo zip a ser gerado
ZipMaster1.FSpecArgs
– Armazena a lista de arquivos a serem compactados
ZipMaster1.Add – Adiciona os arquivos definidos em FSpecArgs ao arquivo zip.
É isso aí pessoal, vou ficando por aqui.
Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.
Ricardo Coelho