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:




No evento OnChange do DirectoryListBox, acrescente o seguinte código:

 

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