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
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

 
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.