You free the object before use the compressed stream. Enviado desde mi BlackBerry® de Claro Argentina
-----Original Message----- From: silvioprog <[email protected]> Date: Sat, 4 Feb 2012 00:02:47 To: Lazarus mailing list<[email protected]> Reply-To: Lazarus mailing list <[email protected]> Subject: [Lazarus] FPC, gzip and stream 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 -- Silvio Clécio ==================================== Site - <silvioprog.com.br> LazSolutions - <code.google.com/p/lazsolutions> ==================================== -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
