Mover arquivos para uma pasta compactada

[No Limite!!! 0]

Bom dia.

 

gostaria de compactar uma pasta (como se fosse um backup)... e depois mover arquivos para esta pasta compactada.

 

É possível???

 

Obrigado.

[Rodrigo Miss 1]

Bom dia! Uma solução, seria instalar o WinRar na sua maquina e fazer isso no delphi:

 

Compactando:

var
  Arquivo, fileCompactado, Cmd: string;
begin
  Arquivo		 := 'C:\teste.txt';
  fileCompactado  := 'C:\MeuArquivoCompactado.rar';
  Cmd			 := 'C:\Arquivos de programas\WinRAR\WINRAR.EXE a "' + fileCompactado + '" "' + Arquivo + '"';
  WinExec(Pchar(Cmd), SW_HIDE);
  ShowMessage('Ok! Compactado');

Descompactando:

var
  Arquivo, ArqDesc, Cmd: string;
begin
  Arquivo := 'C:\MeuArquivoCompactado.rar';
  ArqDesc := 'C:\MeuArquivoDesc\';
  Cmd	 :=  'C:\Arquivos de programas\WinRAR\WINRAR.EXE e "' + Arquivo + '" "' + ArqDesc + '"';
  WinExec(Pchar(Cmd), SW_HIDE);
  ShowMessage('Ok! Descompactado');

[No Limite!!! 0]

Bom dia! Uma solução, seria instalar o WinRar na sua maquina e fazer isso no delphi:

 

Compactando:

var
  Arquivo, fileCompactado, Cmd: string;
begin
  Arquivo		 := 'C:\teste.txt';
  fileCompactado  := 'C:\MeuArquivoCompactado.rar';
  Cmd			 := 'C:\Arquivos de programas\WinRAR\WINRAR.EXE a "' + fileCompactado + '" "' + Arquivo + '"';
  WinExec(Pchar(Cmd), SW_HIDE);
  ShowMessage('Ok! Compactado');

Descompactando:

var
  Arquivo, ArqDesc, Cmd: string;
begin
  Arquivo := 'C:\MeuArquivoCompactado.rar';
  ArqDesc := 'C:\MeuArquivoDesc\';
  Cmd	 :=  'C:\Arquivos de programas\WinRAR\WINRAR.EXE e "' + Arquivo + '" "' + ArqDesc + '"';
  WinExec(Pchar(Cmd), SW_HIDE);
  ShowMessage('Ok! Descompactado');

Muito obrigado pela dica. Vou fazer um teste.

Oproblema é que em toda máquina que rodar o aplicativo será necessário instalar o Winrar.

 

Outra dúvida...

É possível fazer isso com o zLib

[Rodrigo Miss 1]

Sim, É possivel! de uma procurada que você vai encontrar dicas sobre isso...

[BuGFiX 0]

Procure pelos componentes Abbrevia no www.sourcefoge.net é um pack gratuito que

tem vários componentes para compressão/descompressão e vem com um Demo que demonstra a utilizaçao dos componentes

 

vlw

[marcio.theis 3]

Particularmente utilizo um componente chamado TBackupFile, ele compacta muito bem, e ainda você somente consegue descompactar usando ele...