*--------------------------------------------------------------------------- declare integer uncompress in ('d:\webserv\zlib.dll') ; string @Dest, integer @DestLen, ; string @Source, integer SourceLen function FlateDecode_Decode(Encoded, UnEncoded, UnEncodedLen) *=zLib_Declare() local sts && optional parameter if( empty(m.UnEncodedLen) ) UnEncodedLen = 4*1024*1024 endif UnEncoded = repl(chr(0), m.UnEncodedLen) sts = uncompress(@m.UnEncoded, @m.UnEncodedLen, @m.Encoded, len(m.Encoded)) do case case sts >= 0 UnEncoded = left(m.UnEncoded, m.UnEncodedLen) return empty(m.sts) otherwise UnEncoded = '' assert FALSE return FALSE endcase endfunc *---------------------------------------------------------------------------