Hello,
Here is a simple demonstration of native LZO engine compression/decompression implemented into FBSL.
Enjoy!
Here is a simple demonstration of native LZO engine compression/decompression implemented into FBSL.
Enjoy!
Code: (fbsl)
#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



- carpe noctem