一个C++及Delphi做的压缩程序

{ This is interface of C++ code.
  C++ source code not included to this archive.
  Look README.TXT file for more information. }

#ifndef __CODING_H__
#define __CODING_H__

#ifndef coding_impex
#define coding_impex __declspec(dllimport)
#endif

class coding_impex avlDecode
{
   public:
     ~avlDecode();
      avlDecode();

      virtual int ReadBuf            
                  ( void     *buf,   
                    unsigned  maxLen,
                    unsigned &rdlen  
                  ) = 0;             

      int  Get(void *buf, unsigned  maxLen);
      int  Get(void *buf, unsigned  maxLen, unsigned &rdLen)
      {  return ((int)(rdLen = Get(buf, maxLen)) < 0)? rdLen :0 ;
      }

      void Reset();

   private:

   ????????? private part not included ???????????????????

};


class coding_impex avlEncode
{
   public:
     ~avlEncode();
      avlEncode();

      virtual int WriteBuf           
                  ( void     *buf,   
                    unsigned  len    
                  ) = 0;             


      int  Put(void *buf, unsigned  n);
      void Reset();

   private:
  ?????????? Private part not icluded ?????????????

};

#endif //__CODING_H__


///encode.pas
{$M 8192,120000,120000}
uses avlcodes;

const BUFSIZE=60000;

var p: pointer;
    f,f1: file;
    s: string;
    buf: pointer;
    num: word;

{$F+}

Function WriteToFile(var buf; n: integer): integer;
var num: word;
Begin
BlockWrite(f1,buf,n,num);
End;

{$F-}

Begin
if not GetMemory then
  Begin
   WriteLn(@#Not enough memory in HEAP to compress file.@#);
   halt;
  End;
s:=paramstr(1);
SetEncodeOutBuffer(@WriteToFile);
assign(f,s);
{$I-}
  if s<>@#@# then Reset(f,1);
{$I+}
if (IoResult<>0) or (s=@#@#) then
  Begin
   WriteLn;
   WriteLn(@#The author of this Turbo Pascal program and original C++ code is@#);
   WriteLn(@#Alexander Larkin   ( translated to Turbo Pascal from C++ on 27/09/1999 )@#);
   WriteLn;
   WriteLn(@#E-mail:      avlarkin@writeme.com@#);
   WriteLn(@#Inte.net:    http://www.geocities.com/SiliconValley/6235/tpdl.htm@#);
   WriteLn;
   WriteLn(@#Usage: encode.exe InFile OutFile [password]@#);
   WriteLn;
   FreeMemory;
   halt;
  End;
s:=paramstr(2);
Assign(f1,s);
{$I-}
if s<>@#@# then ReWrite(f1,1);
{$I+}
if (IoResult<>0) or (s=@#@#) then
  Begin
   Close(f);
   WriteLn(@#Cannot create find file @#+s);
   FreeMemory;
   halt;
  End;
SetPassword(ParamStr(3));
  GetMem(buf,BUFSIZE);
   repeat
    BlockRead(f,buf^,BUFSIZE,num);
    EncodePut(buf^,num);
   until num<=0;
  if num<0 then WriteLn(@#Cannot compress file. You do something wrong.@#);
EncodeReset;
Close(f);
Close(f1);
FreeMemory;
End.

///decode.pas
{$M 8192,120000,120000}
uses avlcodes;

const BUFSIZE=60000;

var p: pointer;
    f,f1: file;
    s: string;
    buf: pointer;
    num: word;

{$F+}

Function ReadFromFile(var buf; n: integer; var rdlen: integer): integer;
Begin
BlockRead(f,buf,n,rdlen);
ReadFromFile:=0;
End;

{$F-}

Begin
if not GetMemory then
  Begin
   WriteLn(@#Not enough memory in HEAP to decompress file.@#);
   halt;
  End;
s:=paramstr(1);
SetDecodeInBuffer(@ReadFromFile);
assign(f,s);
{$I-}
  if s<>@#@# then Reset(f,1);
{$I+}
if (IoResult<>0) or (s=@#@#) then
  Begin
   WriteLn;
   WriteLn(@#The author of this Turbo Pascal program and original C++ code is@#);
   WriteLn(@#Alexander Larkin   ( translated to Turbo Pascal from C++ on 27/09/1999 )@#);
   WriteLn;
   WriteLn(@#E-mail:      avlarkin@writeme.com@#);
   WriteLn(@#Internet:    http://www.geocities.com/SiliconValley/6235/tpdl.htm@#);
   WriteLn;
   WriteLn(@#Usage: decode.exe InFile OutFile [password]@#);
   WriteLn;
   FreeMemory;
   halt;
  End;
s:=paramstr(2);
Assign(f1,s);
{$I-}
if s<>@#@# then ReWrite(f1,1);
{$I+}
if (IoResult<>0) or (s=@#@#) then
  Begin
   Close(f);
   WriteLn(@#Cannot create file @#+s);
   FreeMemory;
   halt;
  End;
  GetMem(buf,BUFSIZE);
  SetPassword(ParamStr(3));
   repeat
    num:=DecodeGet(buf^,BUFSIZE);
    if num<65535 then BlockWrite(f1,buf^,num,num);
   until (num=0) or (num=65535);
if num=65535 then WriteLn(@#Error! Data corrupted. Cannot decompress file.@#);
Close(f);
Close(f1);
FreeMemory;
End.

原文转自：http://www.ltesting.net