ZLib and the file generated

Hello,

I've tried to generate .gz files with the Zlib library given in BDS 2006 and with the Zlib Library 1.2.3 found online, and they don't generate valid .gz files (WinRAR or readgzopen() in PHP, don't want to open generated files).

Someone can help me?
KCTeamAsked:
Who is Participating?
 
2266180Connect With a Mentor Commented:
0
 
KCTeamAuthor Commented:
Someone have a solution? :D
0
 
2266180Commented:
well, I never used gzip but I found this: http://www.sph.sc.edu/comd/rorden/gz.html . they have the app with source and some links that might be helpfull.
there was also some delphi gzip library but all links are broken.
0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Hamidreza VakilianSenior iOS DeveloperCommented:
FileTools v.2.3  
By J. Rathlev, IEAP. FileTools is a collection of several objects to copy, pack files (gz, Zip and Zip64 format are supported) and unpack files (only gz format) using a separate thread. For packing and unpacking the zlib-routines from Jean-Loup Gailly and Mark Adler are used.  
 
HRV
0
 
Hamidreza VakilianSenior iOS DeveloperCommented:
0
 
KCTeamAuthor Commented:
To Programmer-X : I have to pack and unpack GZip
To ciuly : I have found this page too, dead link doesn't help me ^^
0
 
KCTeamAuthor Commented:
I have found the answer alone ^^

I have used the Abrrevia Library!

program Test;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, AbGZTyp;

var
  gzFile: TAbGzipArchive;
begin
  //Pack
  gzFile := TAbGzipArchive.Create('test.txt.gz', fmCreate);
  gzFile.load();
  gzFile.AddFiles('test.txt',0);
  gzFile.Save;
  gzFile.Destroy;

  //Unpack
  gzFile := TAbGzipArchive.Create('test.txt.gz', fmOpenRead);
  gzFile.Load();
  gzFile.ExtractAt(0, 'test.unpack.txt'));
  gzFile.Destroy;
  Readln;
end.
0
All Courses

From novice to tech pro — start learning today.