how compress LongChar to CHAR

Posted by Paweł Korczak on 17-Aug-2017 16:40

In this code i bag .. .Where  .

FUNCTION Kompresuj RETURNS CHARACTER
( uncompressedString AS LONGCHAR ):
/*------------------------------------------------------------------------------
Purpose:
Notes:
------------------------------------------------------------------------------*/
DEF VAR compressedStream AS CLASS System.IO.MemoryStream .
DEF VAR uncompressedStream AS CLASS System.IO.MemoryStream .
DEF VAR compressorStream AS CLASS System.IO.Compression.DeflateStream .
DEFINE VARIABLE wynik AS CHARACTER NO-UNDO.
/* ----------------------- */
compressedStream = NEW System.IO.MemoryStream() .
uncompressedStream = NEW System.IO.MemoryStream(
System.Text.Encoding:UTF8:GetBytes( STRING ( uncompressedString ) ) ) NO-ERROR .
compressorStream = NEW System.IO.Compression.DeflateStream(
compressedStream, System.IO.Compression.CompressionMode:Compress, TRUE) NO-ERROR .
uncompressedStream:CopyTo(compressorStream) NO-ERROR.
wynik = System.Convert:ToBase64String( compressedStream:ToArray() ) NO-ERROR.
RETURN Wynik .
END FUNCTION.

Paweł 

All Replies

This thread is closed