Descompactar arquivos Gzip sem DLL´s

Delphi

21/04/2005

Ôi,
aguem conhece um componente para descompactar arquivos Gzip sem ter de recorrer a uma DLL?
Já tentei o abrevia mas não funciona, provavelmente porque o arquivo foi feito numa versão mais recente do gzip.

Agradecia a vossa ajuda.

cumps.


Decimus

Decimus

Curtidas 0

Respostas

Decimus

Decimus

21/04/2005

Esta é a solução

uses
    AbGZTyp;

// exemple: ugz(´archive.tar.gz´);
procedure ugz(sNomArchive : string);
var
    gz : TAbGZipArchive;
begin
    gz := TAbGZipArchive.Create(sArchive, fmOpenRead);
    gz.Load();
    gz.ExtractAt(0, ChangeFileExt(sArchive,´´)); // archive.tar
    gz.Destroy;
end;


Obrigado na mesma


GOSTEI 0
POSTAR