home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue72 / alfresco / TestBWT.dpr < prev   
Encoding:
Text File  |  2001-07-05  |  667 b   |  37 lines
  1. program TestBWT;
  2.  
  3. {$apptype console}
  4.  
  5. uses
  6.   SysUtils,
  7.   Classes,
  8.   AABWT in 'AABWT.pas';
  9.  
  10. var
  11.   FSIn  : TFileStream;
  12.   FSOut : TFileStream;
  13.   FSTest: TFileStream;
  14.  
  15. begin
  16.   try
  17.  
  18.   writeln('Compressing...');
  19.   FSIn := TFileStream.Create('c:\knapsack.log', fmOpenRead or fmShareDenyWrite);
  20.   FSOut := TFileStream.Create('c:\BWTCompress', fmCreate);
  21.   AABWTCompress(FSIn, FSOut);
  22.  
  23.   writeln('Uncompressing...');
  24.   FSOut.Position := 0;
  25.   FSTest := TFileStream.Create('c:\BWTUncompress', fmCreate);
  26.   AABWTUncompress(FSOut, FSTest);
  27.  
  28.   except
  29.     on E : Exception do
  30.       writeln(E.Message);
  31.   end;
  32.  
  33.   writeln('done');
  34.   readln;
  35.  
  36. end.
  37.