Hello,

How to use gzip in stream with FPC?

Only deflate:

(...)
  var
    S: string;
    VDeflate: TCompressionStream;
  begin
    VDeflate := TCompressionStream.Create(clMax, Contents);
    try
      S := 'Hello';
      VDeflate.Write(Pointer(S)^, Length(S));
    finally
      VDeflate.Free;
    end;
  end;
(...)

But, with gzip, without sucess. :(

Exists an 'TGZCompressionStream'?

Thanks!

ps. See: http://betterexplained.com/articles/how-to-optimize-your-site-with-gzip-compression

There's a gzip example program in packages/paszlib/examples

Darius

You free the object before use the compressed stream.

Enviado desde mi BlackBerry? de Claro Argentina

2012/2/4 Darius Blaszyk :

There's a gzip example program in packages/paszlib/examples Darius

The examples explain how to use compression in files, I need to compress streams. :/

silvioprog wrote

How to use gzip in stream with FPC?

See tiOPF v2, and units dzlib.pas and tiCompressZLib.pas in the Options directory.
I use it in production code, and the tiOPF code is very well unit tested too.

tiOPF is hosted on SourceForge at:

http://sourceforge.net/projects/tiopf/

A direct link to the Options directory.

http://tiopf.svn.sourceforge.net/viewvc/tiopf/tiOPF2/Trunk/Options/

You can use the dzlib.pas unit directly, but the tiComplessZLib unit gives a much easier interface to zlib compression and decompression.

silvioprog wrote

Hello, How to use gzip in stream with FPC?

The zstream unit contains the TGZFileStream class which can be used to read or write GZIp files.

Michael.

2012/2/6 :
[...]

The zstream unit contains the TGZFileStream class which can be used to read or write GZIp files. Michael.

Hello Michael. :)

Hm, I noticed, but you can work directly with stream without necessarily having to create a file?