lz77压缩算法(Delphi源码).doc

lz77压缩算法(Delphi源码) unit lz77; interface uses Windows, Messages, SysUtils, Classes,math; const _MAX_WINDOW_SIZE = 65536; type TCompress=class private protected ///////////////////////////////////////////////////////// // CopyBitsInAByte : 在一个字节范围内复制位流 // 参数含义同 CopyBits 的参数 // 说明： // 此函数由 CopyBits 调用，不做错误检查，即 // 假定要复制的位都在一个字节范围内 procedure CopyBitsInAByte(memDest:PByte;nDestPos:integer;memSrc:PByte;nSrcPos, nBits:integer); //////////////////////////////////////////////////////// // CopyBits : 复制内存中的位流 // memDest - 目标数据区 // nDestPos - 目标数据区第一个字节中的起始位 // memSrc - 源数据区 // nSrcPos - 源数据区第一个字节的中起始位 // nBits - 要复制的位数 // 说明： // 起始位的表示约定为从字节的高位至低位（由左至右） // 依次为 0，1，... , 7 // 要复制的两块数据区不能有重合 procedure CopyBits(memDest:PChar;nDestPos:integer;memSrc:PChar;nSrcPos, nBits:integer); ////////////////////////////////////////////////////////////// // 将DWORD值从高位字节到低位字节排列 procedure InvertDWord(pDW:PDWord); ///////////////////////////////////////////////////////////// // 设置Abyte的第iBit位为aBit // iBit顺序为高位起从0记数（左起） procedure SetBit(var Abyte:Byte; iBit:integer; aBit:byte); //////////////////////////////////////////////////////////// // 得到字节Abyte第pos位的值 // pos顺序为高位起从0记数（左起） function GetBit(Abyte:byte;pos:integer):byte; //////////////////////////////////////////////////////////// // 将位指针*piByte(字节偏移), *piBit(字节内位偏移)后移num位 procedure MovePos(var piByte, piBit:integer;num:integer); ///////////////////////////////////////////////////////// // 取log2(n)的upper_bound function UpperLog2(n:integer):integer; ///////////////////////////////////////////////////////// // 取log2(n)的lower_bound function LowerLog2(n:integer):integer; public function Compress(src:PChar;srclen:integer;dest:PChar):integer;virtual; abstract; function DeCompress(src:PChar;srclen:integer;dest:PChar):boolean;virtual; abstract; end; TLZ77Compress=class(TCompress) private pWnd:PChar; // 窗口大小最大为 64k ，并且不做滑动 // 每次最多只压缩 64k 数据，这样可以方