Como criar um compressor de arquivos...?

[Regis Santos]

Olá, gostaria de saber como eu posso criar um Compressor de arquivos, utilizando zlib, tipo um packer...

aonde eu seleciono o arquivo, e ele compacta...

Fazer com que a pessoa selecione o arquivo, veja se ele é existente, e faça um backup dele eu sei fazer, agora o problema é criar um packer trabalhando com zlib, se possível alguém me ajude... grato !

Editado Fevereiro 12, 2012 por Regis Santos

[Jhonas]

exemplos

http://scriptbrasil.com.br/forum/index.php...hlite=zipmaster

abraço

[Regis Santos]

Olá, eu já tinha conseguido,

mas obrigado do mesmo modo... !!!

[caion90]

Olá, eu já tinha conseguido,

mas obrigado do mesmo modo... !!!

usa essa função...

uses ZLIB;

function Comprimir(abrir,salvar: string):TFileStream;

var zip: TCompressionStream;

tmp: TFileStream;

begin

result := TFileStream.Create(salvar, fmcreate);

tmp := TFileStream.Create(abrir, fmOpenRead);

zip := TCompressionStream.Create(clmax, result);

zip.CopyFrom(tmp, tmp.Size);

zip.Free;

tmp.Free;

end;