10 replies to this topic

[Ward]

To use zLib in AutoIt, the easiest way is download the DLL, and then just use it by DllCall, or warp it by my MemoryDll UDF.

But now I convert zLib to machine code version UDF, because "just for fun", or because I can.
There is another good reason: to minimize the UDF size (because there are some functions I don't need in the DLL file).

The best thing of this library is that it can compress/decompress the gzip format.
So this is also a "GZIP UDF" in pure script.

Example:

AutoIt        expandcollapse  popup

; -----------------------------------------------------------------------------
; Zlib Compression Library (Deflate/Inflate) Machine Code UDF Example
; Purpose: Provide The Machine Code Version of Zlib Library In AutoIt
; Author: Ward
; Zlib Copyright © 1995-2010 Jean-loup Gailly and Mark Adler
; -----------------------------------------------------------------------------

#Include "ZLIB.au3"

; Test _ZLIB_Compress And _ZLIB_Uncompress
Dim $Original = BinaryFileRead(@AutoItExe)
Dim $Compressed = _ZLIB_Compress($Original, 9)
Dim $Decompressed = _ZLIB_Uncompress($Compressed)
Dim $Result = 'Original Size: ' & BinaryLen($Original) & @CRLF
$Result &= 'Compressed Size: ' & BinaryLen($Compressed) & @CRLF
$Result &= 'Decompress Succeed: ' & ($Decompressed = $Original)
MsgBox(0,'Deflate/Inflate Test', $Result)


; Test _ZLIB_GZCompress And _ZLIB_GZUncompress
Dim $Original = BinaryFileRead(@AutoItExe)
Dim $Compressed = _ZLIB_GZCompress($Original, 9)
Dim $Decompressed = _ZLIB_GZUncompress($Compressed)
Dim $Result = 'Original Size: ' & BinaryLen($Original) & @CRLF
$Result &= 'Compressed Size: ' & BinaryLen($Compressed) & @CRLF
$Result &= 'Decompress Succeed: ' & ($Decompressed = $Original)
MsgBox(0,'Gzip Test', $Result)


; Test _ZLIB_FileCompress And _ZLIB_FileUncompress
Dim $OriginalPath = @AutoItExe
Dim $CompressedPath = @TempDir & "\test.z"
Dim $DecompressedPath = @TempDir & "\test.unz"
_ZLIB_FileCompress($OriginalPath, $CompressedPath, 9)
_ZLIB_FileUncompress($CompressedPath, $DecompressedPath)
Dim $Result = 'Original Size: ' & FileGetSize($OriginalPath) & @CRLF
$Result &= 'Compressed Size: ' & FileGetSize($CompressedPath) & @CRLF
$Result &= 'Decompress Succeed: ' & (BinaryFileRead($DecompressedPath) = BinaryFileRead($OriginalPath))
FileDelete($CompressedPath)
FileDelete($DecompressedPath)
MsgBox(0,'Deflate/Inflate File Test', $Result)


; Test _ZLIB_GZFileCompress And _ZLIB_GZFileUncompress
Dim $OriginalPath = @AutoItExe
Dim $CompressedPath = @TempDir & "\test.gz"
Dim $DecompressedPath = @TempDir & "\test.ungz"
_ZLIB_GZFileCompress($OriginalPath, $CompressedPath, 9)
_ZLIB_GZFileUncompress($CompressedPath, $DecompressedPath)
Dim $Result = 'Original Size: ' & FileGetSize($OriginalPath) & @CRLF
$Result &= 'Compressed Size: ' & FileGetSize($CompressedPath) & @CRLF
$Result &= 'Decompress Succeed: ' & (BinaryFileRead($DecompressedPath) = BinaryFileRead($OriginalPath))
FileDelete($CompressedPath)
FileDelete($DecompressedPath)
MsgBox(0,'Gzip File Test', $Result)

Exit

Func BinaryFileRead($Path)
    Local $File = FileOpen($Path, 16)
    Local $Data = FileRead($File)
    FileClose($File)
    Return $Data
EndFunc

For other compression method, see my "AutoIt Machine Code Algorithm Collection"

 ZLIB.zip   58.58K   910 downloads

Edited by Ward, 24 May 2011 - 09:52 PM.

[Digisoul]

Awesome work Ward, 5 stars from me.

[Zedna]

Very nice!

[tip]

Thanks Ward. This is great...

[joakim]

Great work Ward!

I found it really interesting to be able to deflate and/or inflate in raw mode, ie without header and footer. Just put $Level = -15 (windowBits) and you're able to compress/uncompress in raw mode. Thanks once again.

Joakim

[ynbIpb]

[deleted]

Edited by ynbIpb, 05 November 2012 - 05:59 PM.

[legend]

I tried to do this, but didn't work:

#Include "ZLIB.au3"

$Path = (@scriptdir & "test.exe")

; Test _ZLIB_Compress And _ZLIB_Uncompress
Dim $Original = BinaryFileRead(@ScriptDir & "test.exe")
Dim $Compressed = _ZLIB_Compress($Original, 9)

Func BinaryFileRead($Path)
Local $File = FileOpen($Path, 16)
Local $Data = FileRead($File)
FileClose($File)
Return $Data
EndFunc

[water]

Legend,
I know nothing about this UDF. But if you want to get help from anyone you need to be more specific. "Doesn't work" isn't.
Do you get any error messages? Is @error set? Does the script crash? ...

[legend]

I don't get any errors, the script runs, but doesen't compress test.exe

[legend]

no one ?

[wraithdu]

If you're referring specifically to your test script... well, what are you doing with $Compressed? As far as I can see you're doing nothing with it. Your script and the functions don't compress any data in place, so what do you expect the end result to be?