SUB Open ( Path AS String [ , Level AS Integer ] ) |
* Level : уровень сжатия, может использоваться значение от Min до значения Max . Если вы не передаете этот параметр, будет использовано значение Default .
..
Dim Cz As New Compress
Cz.Type = "bzlib2"
Cz.Open ( "/home/foo/compressed.bz2",Cz.Max )
PRINT #Cz , "Hello, this is a compressed file,"
PRINT #Cz , "using bzlib2 algorithm. Remember that"
PRINT #Cz , "highest compression level provides"
PRINT #Cz , "a little output file, but requires"
PRINT #Cz , "more CPU time"
CLOSE #Cz
...