ZLibCompress AS FUNCTION (BYVAL sDestination AS ANY PTR, BYREF nDestinationLen AS ULONG, BYVAL sSource AS ANY PTR, BYVAL nSourceLen AS ULONG) AS LONG
ZLIBCompressBound AS FUNCTION (BYVAL sourceLen AS ULONG) AS ULONG
' Load zLib if it provided
hZlib = LoadLibrary("zlib1.dll")
If hZlib <> 0 Then
ZLibCompress = DyLibSymbol(hZlib, "compress")
ZLibCompressBound = DyLibSymbol(hZlib, "compressBound")
If ZLibCompress = 0 ORELSE ZLibCompressBound = 0 Then
FreeLibrary hZlib
hZlib = 0
End If
End If