[progress Communities] [progress Openedge Abl] Forum Post: Re: Best Way To Compress...

  • Thread starter Thread starter Peter Judge
  • Start date Start date
Status
Not open for further replies.
P

Peter Judge

Guest
Here is a rough transcription from one of the MSDN examples. The syntax is quite close: the big changes are the line terminators (. Instead of ;) and the method/function indicators (: intead of .). using System.*. using System.IO.*. using System.IO.Compression.*. def var originalFileStream as FileStream . def var compressedFileStream as FileStream. def var compressionStream as DeflateStream. file-info : file-name = 'TestURI.log' . originalFileStream = File :OpenRead( file-info : full-pathname ). message originalFileStream: length . compressedFileStream = File : Create ( session : temp-dir + "testuri.cmp" ). compressionStream = new DeflateStream(compressedFileStream, CompressionMode:Compress). originalFileStream:CopyTo(compressionStream). compressionStream:Dispose(). message 'done ' .

Continue reading...
 
Status
Not open for further replies.
Back
Top