Delphi. Немного относительно методов упаковки данных

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: спорт реферат, атанасян решебник
| Добавил(а) на сайт: Jentskij.

{ --- создание кода сжатия --- }

begin

InitCodeTable; { инициализация кодовой таблицы }

CounterNumberEnter; { подсчет числа вхождений байт в блок }

SortQueueByte; { cортировка по возрастанию числа вхождений }

SaveBufHeader; { сохранить заголовок архива в буфере }

SaveBufFATInfo; { сохраняется FAT информация по файлу }

SaveBufCodeArray; { сохранить массив частот вхождений в архивном файле }

CreateTree; { создание дерева частот }

CreateCompressCode; { cоздание кода сжатия }

DeleteTree; { удаление дерева частот }

end;

procedure PakOneByte;

{ --- сжатие и пересылка в выходной буфер одного байта --- }

Var Mask : word;

Tail : boolean;

begin

CRC:=CRC XOR InBuf[InCounter];

Mask:=CodeTable[InBuf[InCounter]]^.BiteChain SHR CounterBite;

OutWord:=OutWord OR Mask;

CounterBite:=CounterBite+CodeTable[InBuf[InCounter]]^.LengthBiteChain;

If CounterBite>15 then Tail:=True else Tail:=False;

While CounterBite>7 do

begin

OutBuf[OutCounter]:=Hi(OutWord);

Рекомендуем скачать другие рефераты по теме: продажа рефератов, ломоносов реферат.

Claw.ru | Рефераты по информатике, программированию | Delphi. Немного относительно методов упаковки данных