FUNCTION String ( Source AS String ) AS String |
* Source : строка, которая будет разархивироваться. Должна быть исправной сжатой строкой.
...
Dim Cz As New Uncompress
Dim Buf As String
Cz.Type = "bzlib2"
Buf = Cz.String ( SourceString )
PRINT Buf
...