Here is a simple demonstration of native LZO engine compression/decompression implemented into FBSL.
Enjoy!
Formatted for UNKNOWN with the GeSHI Syntax Highlighter [copy or print]
#Option Explicit #AppType Console '// **************************************************************************** '// Simple demonstration of native LZO engine compression/decompression implemented into FBSL '// Author : Gerome GUILLEMIN '// Date : 1st of October 2006 '// **************************************************************************** Dim buff, fp Print "LZO compress..." buff = Compress(FileLoad(".\18 - Wedding idea.mp3")) If buff <> "" Then fp = FileOpen(".\compressed.lzo", BINARY_NEW) If fp Then FilePut(fp, buff) FileClose(fp) End If End If Clear buff fp = NULL Pause Print "LZO decompress..." buff = Decompress(FileLoad(".\compressed.lzo")) If buff <> "" Then fp = FileOpen(".\decompressed.mp3", BINARY_NEW) If fp Then FilePut(fp, buff) FileClose(fp) End If End If Clear buff fp = NULL Pause







Logged


- carpe noctem
