Componente de compactação

[Gabriel Nilegor]

Boa tarde. Gostaria de saber a ACBR possui algum componente para compactar arquivos no formato .zip ou outra extenção. Caso não tiver, alguem poderia me indicar uma biblioteca que funcione coretamente para fazer isso, pois olhei alguns tutoriais e não consegui encontrar nenhum que funcione coretamente com o delphi xe6. Obrigado pela ajuda.

Editado 6 Dezembro, 2016 por Jonathan Nilegor

[Daniel Simoes]

Na pasta "Terceiros\ZLibExGZ" existe uma biblioteca para compactação/descompactação...

O ACBr usa ela, para descompactar o XML de algumas consultas de WebService...

 

[Heronim Antonio Marçal]

O Delhi já vem com um componente para isso desde a versào  XE2 é o TzipFile.

[fpasqueto]

Boa tarde.

Daniel tem algum exemplo de compactacao com esse componente  "Terceiros\ZLibExGZ"

encontrei alguns locais que o acbr utiliza ele para descompactar apenas.

[Daniel Simoes]

Sim, por enquanto só necessitamos da descompactação

Eu mesmo não uso ele... pois no Lazarus tem classes de Stream nativas para compactação e descompactação...

Se você abrir o arquivo "ACBrZLibExGZ.pas", poderá ler a assinatura dos métodos que iniciam com "GZCompress..."

[fpasqueto]

Muito obrigado Daniel, em Lazarus também utilizo a classe nativa  e funciona muito bem, infelizmente aqui na empresa utilizamos delphi 2007 ainda por questões de licença então este o motivo da sofrência, iriei utilizar o commadrun acho que esse o nome de uma função que vi no acbrutils e utilizar o 7z para compactar achei mais viável, muito obrigado pela sua atenção mais uma vez

[Solivan]

Eu utilizo o TZipMaster e funciona muito bem, vem com vários exemplos e é open source.

Segue o link do projeto http://www.delphizip.org/192/v192.html

[Daniel Simoes]

Devido a reforma do WebService do BlocoX, precisamos da compactação... portanto foi adicionado os métodos abaixo

Citar

-- ACBrUtil --
[+] Adicionado os métodos:
    function Zip(S: TStream): AnsiString; overload;
    function Zip(const ABinaryString: AnsiString): AnsiString; overload;
    (por: DSA)