TZipper no Lazarus

[Marcelo Bill]

Daniel, como vai tudo bem?

andei varrendo a net em busca de um compactador para lazarus e encontrei o TZipper (super fantastico)

-------------------

Exemplo:

procedure TForm1.Button1Click(Sender : TObject); // COMPACTA
Var
FZipper : TZipper;
SL : TStringList;
begin
FZipper := TZipper.Create ;
SL := TStringList.Create;
try

SL.Add('ARQUIVO1.BIG');
SL.Add('ARQUIVO2.BIG');
SL.Add('ARQUIVO3.BIG');

FZipper.ZipFiles(Edit1.Text, SL);
finally
FZipper.free ;
SL.Free;
end;
end;

-------------------

De fato é muiiiiiiito simples usar, e o pior de tudo é que funciona direitinho.

Só tem um problema que não estou conseguindo resolver. veja como eu estou fazendo

Procedure ...

 

[Marcelo Bill]

13 minutos atrás, Marcelo Bill disse:

Daniel, como vai tudo bem?

andei varrendo a net em busca de um compactador para lazarus e encontrei o TZipper (super fantastico)

-------------------

Exemplo:

procedure TForm1.Button1Click(Sender : TObject); // COMPACTA
Var
FZipper : TZipper;
SL : TStringList;
begin
FZipper := TZipper.Create ;
SL := TStringList.Create;
try

SL.Add('ARQUIVO1.BIG');
SL.Add('ARQUIVO2.BIG');
SL.Add('ARQUIVO3.BIG');

FZipper.ZipFiles(Edit1.Text, SL);
finally
FZipper.free ;
SL.Free;
end;
end;

-------------------

De fato é muiiiiiiito simples usar, e o pior de tudo é que funciona direitinho.

Só tem um problema que não estou conseguindo resolver. veja como eu estou fazendo

Procedure ...

 

Daniel, como vai tudo bem?

andei varrendo a net em busca de um compactador para lazarus e encontrei o TZipper (super fantastico)

-------------------

Exemplo:

procedure TForm1.Button1Click(Sender : TObject); // COMPACTA
Var
FZipper : TZipper;
SL : TStringList;
begin
FZipper := TZipper.Create ;
SL := TStringList.Create;
try

SL.Add('ARQUIVO1.BIG');
SL.Add('ARQUIVO2.BIG');
SL.Add('ARQUIVO3.BIG');

FZipper.ZipFiles(Edit1.Text, SL);
finally
FZipper.free ;
SL.Free;
end;
end;

-------------------

De fato é muiiiiiiito simples usar, e o pior de tudo é que funciona direitinho.

Só tem um problema que não estou conseguindo resolver. veja como eu estou fazendo

Procedure Compactar;
Var aZip:TZipper;SL:TStringList;
Begin
  aZip:=TZipper.Create;
  SL:=TStringList.Create;
  With aZip do begin
    SL.Add('d:\Projeto\Teste\programa66.EXE');
    SL.Add('d:\Projeto\Outros\Outro.EXE');
    SaveToFile('d:\Resultado\Marcelo.rar');
  End;
End;



Está funcionando direitinho, o único problema é que o Marcelo.rar leva junto a path dos arquivos, sendo assim quando eu abro o Marcelo.rar com o Winrar, a primeira coisa que vejo é
d: (duplo ckick aqui)
.Projeto (duplo click aqui)
.Teste (duplo click aqui)
programa66.exe


eu preciso fazer dessa forma, porém que fique como no seu exemplo. Ou seja, mesmo eu apontando o caminho do arquivo, que ele tenha a opção de não armazenar as paths

Será que voce já passou por isso, tem alguma idéia de como resolver isso?


Sem mais, obrigado

[EMBarbosa]

Dá uma olhada neste artigo com alguns exemplos:

https://wiki.freepascal.org/paszlib#Zipping_a_whole_directory_tree_storing_only_a_relative_path

 

[Marcelo bil]

EmBarbosa e demais companheiros, antes de mais nada agradeço a presteza na resposta.

 

Depois de testar todas as opções que encontrei, achei o que eu precisa. Vou deixar uma imagem aqui para demonstrar como ficaram minhas procedures de Compactar e Descompactar
Só lembrando que esse modelo, faz com que o Zipado fique com os arquivos SEM a path do mesmo. ou seja, eu posso fazer uma lista de arquivos de diversos locais, ir adicionando num stringlist e por ultimo eu utilizo essa procedure.  Ficou perfeito para o que eu necessito. Muito obrigado.

Imagem.bmp