[progress Communities] [progress Openedge Abl] Forum Post: How Compress Longchar To Char

[Paweł Korczak]

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ł

Continue reading...