function compress2(
dest: pchar;
destLen: Ulongf;
source: pchar;
sourceLen: Ulong;
level: LongInt
):LongInt;