[CODE] import streams import zip/zlib
var FinName = "AAAA" var FouName = "BBBB"
let FinStream = newFilestream( FinName, fmRead ) let FouStream = newFilestream( FouName, fmWrite )
var Uncompressed = readAll( FinStream ) var Compressed = compress( Uncompressed, Uncompressed.len, Z_DEFAULT_COMPRESSION, ZLIB_STREAM ) [/CODE]