Difference between revisions of "ZLibDecompress"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> function ZLibCompress(const Str: AnsiString): AnsiString; </source> ==Availability== SCAR Divi 3.31 > Current ==Description== ...") |
(No difference)
|
Latest revision as of 16:32, 9 February 2012
Definition
function ZLibCompress(const Str: AnsiString): AnsiString;
Availability
SCAR Divi 3.31 > Current
Description
Decompresses a given compressed string Str using the Zlib compression library. If the string is encoded with an encoding function, it has to be decoded first. If the entered string isn't a valid ZLib compressed string, the function will return an empty string. A string can be ZLib compressed with ZLibCompress.
Example
var Str, Decoded, Decompressed: AnsiString; begin Str := 'eNpVVFlu3DAM/Q+QO/AAhu9QdAEKtEWAnIAjMR4CkuxomfP3UbI9zsd4DNsi30b+WbN' + 'E0q20SH4Na6ailThKncitqYirUlsmJq+bFqdpIQlaZ/rRtFDkIKWx54lCr9QqbRKCpCrlswk' + '95K6uBbxvOTElvd2phZrVqRSSvJbJztwl+SwZrZMWRdmWUR0vIpfCM73duaBsK1TEoygQjOt' + 'M/1oIDAqeUksOl2Dd0KFUNQReF9QsGinoDQ1n+p650EMfkjOjwQJcn0am8KaSiAPOoaIsUio' + 'XfN8y39RU+EItruBeVWj1uk4kYB7YSWaghmaFuLkKQdXP9HcQ2p8IusXVE0pu1ndXnBSls28' + 'RpND/rN95BTjRilUSJwkEDpg3sEo4NEycTBZyLRcA6DJVTU59S1Yerq1J3I5v8J0OonhPVeJ' + 'mABfz/zSX0poAwKRDn7I6BerEdTUZNqCperN2tauJdx6/jTP4oQGerqbZhCPF9TRl9ZYKnIn' + 'G6XeiOzv8oDL8FhOyikUOnGOpp37G7bQnKYT6WRX3H5IjGgHcky1wBKN0mGJtKohly/UC4Ph' + '7cAhGBZ/2GEoQ/YCaQ7nRvmdjfn15ffnVAB/BqSyXDPfcz/RNknC6PN+yVMXxnuCuKGC2RQ1' + 'JTyBfvQm6YEpmem8FgkI/qMDOgT2K3gLjUd3HBUqdnheMHEDv5GFdrYqEfRFszU5H/wHFw/Z' + 'u10GWd9QGumUz5B1D9tQ0qk0XMvI1/yf4fRec3c8cj+SaB0OLI37PwPe9YyD72F6o9KF2a97' + 'gVx9OQ9BdfLti4OzaIYvlwobwhHEOELuJtjsDBAZ++HfsgpEfWyo9VFGvu8aw9n0EybsyV6H' + 'CQxPnfhRd7fS5i8ZOGal6UtrHq9mgTbRkfihGSxraAPgQnW3Mhix7NXq0sLWKeSAG67GkD9y' + 'HlcdMBEYY5QjYgRHaNAs8JDydwVBoUluUYwd1p469ZKpOF5ciXPCKu/6VxSFhOED4P24HSoQ='; WriteLn('Original length: ' + IntToStr(Length(Str))); Decoded := Base64ToStr(Str); WriteLn('Length after decoding: ' + IntToStr(Length(Decoded))); Decompressed := ZLibDecompress(Decoded); WriteLn('Length after decoding and decompressing: ' + IntToStr(Length(Decompressed))); end.
Output:
Original length: 1004 Length after decoding: 752 Length after decoding and decompressing: 1598