Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения

end;

Label6.Caption: =IntToStr (FileSize (f3)) + ' байт';

ShowMessage ('Процедура завершена');

end;

CloseFile (f3);

CloseFile (f2);

end;

procedure TForm1.FormCreate (Sender: TObject);

begin

for i: =0 to 255 do

a [i]: =0;

e [i]: =i;

end;

end.

Рис.1. Интерфейс программы

Результаты тестирования приложения:

Работа приложения тестировалась на различных типах файлов. Использовались файлы графического, текстового, мультимедийного и других форматов. Все данные о процессах сжатия изложены в следующей таблице.

Имя\тип файла	Размер до сжатия	Имя сжатого файла	Размер после сжатия	Сжатие
8bit org.bmp	68,7 КБ	8bit org.bmp.gop	18,1 КБ	73%
24bit org.bmp	203 КБ	24bitorg.bmp.gop	54,1 КБ	73%
DOC org.doc	1516 КБ	DOC org.doc.gop	843 КБ	45%
RTF org.rtf	711 КБ	RTF org.rtf.gop	539 КБ	24%
TXT org.txt	1 619 байт	TXT org.txt.gop	1 392 байт	14%
midi org.mid	40 075 байт	midi org.mid.gop	36 551 байт	9%
Unit1 org.pas	15 721 байт	Unit1 org.pas.gop	9 068 байт	42%

Максимальный размер сжатия составляет 73-75%. В данной таблице отображены форматы файлов, которые можно было сжать. Однако некоторые форматы в связи со своей спецификой несут в себе определенные методы сжатия данных, что не позволяет приложению производить операции над ними. К таким форматам относятся: *.tiff, *.gif, *.wav, *.jpeg, *.avi, *.mp3, *.3gp, *.odt.

Процент сжатия характеризуется длиной кодовых слов и смещением. В данном случае максимальный процент сжатия будет 75%, так как минимальная длина кодового слова равна 2. Сжатие файла происходит побайтово, следовательно заменяем кодовым словом из 2 бит блоки из 8 бит.

Лучше всего подвергаются сжатию текстовые документы, менее сжимаемы и плохо сжимаемы мультимедия файлы.