Функция распаковки:
function TForm1.LoadFromZUP(filein:string):boolean;
var
S,fileout: string[255]; //вспомогательные для хранения имени и полного пути
Count: Integer;
InFile:TStream;OutFile:TMemoryStream; //входной и выходной потоки
ZStream: TCustomZLibStream; //поток деархивации (взял абстрактный)
Buffer: array[0..cBufferSize-1] of Byte; //временной буфер
begin
try
InFile:= TFileStream.Create(filein, fmOpenRead); //открыли на чтение
InFile.Read(S,sizeof(S)); //прочитаем имя файла из заголовка архива
try
OutFile:= TMemoryStream.Create; //создадим выходной поток
try
ZStream:=TDecompressionStream.Create(InFile); //поток распаковки файла, представленного InFile
try
while True do
begin
Count:=ZStream.Read(Buffer,cBufferSize); //читаем распакованные данные в Buffer
if Count <> 0 then OutFile.WriteBuffer(Buffer, Count) //запись в выходной поток
else Break;
end;
finally ZStream.Free;
end;
finally
end;
finally
InFile.Free;
try
fileout:=ExtractFilePath(filein)+S; //полный путь к разархивированному файлу
OutFile.SaveToFile(fileout); //сохраним наш выходной поток в файл
finally
OutFile.Free;
end;
end;
except result:=false;
end;
result:=true;
end;
Работа с программой
Меню программы
Общее меню
Меню Архивации
Архивация, состоит из трёх окон и одной кнопки
Окно первое – “Фаил для архивации”
Нажав на само окно, появится окно выбора фаила...
Здесь можно выбрать фаил который вы хотите архивировать, однако архиватор не может архивировать папки или сразу несколько фаилов.
После выбора фаила, окно “выбора фаилов” исчезнет и в строчке “Результирующий файл архива” появится конечный фаил в который он архивируется (формат .ssa).
Следующее окно – “метод сжатия”, в нём 3 типа сжатия:
-Быстрый – такой метод, сжимает фаил очень плохо, зато фаил быстро архивируется.
-Обычный – Сжатие фаила идёт на небольшой процент, однако и времени для этого нужно чуть больше.
-Максимальный – Ощутимо сжимается фаил, однако для этого процеса нужно много времени.
Для действия архивации нужно нажать на уже заданную кнопку c зелёной галочной “Архивировать”:
Что бы узнать процес архивации, нужно посмотреть строку ниже (Отмеченный красным прямоугольником)
Фаил (формат архива .SSA) сохраняется туда, куда вы назначили:
Меню Распаковщика
Для распаковки, именно того формата который создаёт архиватор, есть в программе свой Распаковщик.
Что бы найти архив, нужо нажать на строку “Фаил архива”, после чего откроется окно поиска фаила:
После того как выберем архив, в окне “Фаил архива” появится фаил который мы хотим разорхивировать:
Для того, что бы начать распаковывать архив, нужно нажать на кнопку “Распаковать” (С зелёной галочкой)
Что бы узнать процес распаковки, нужно посмотреть нижнюю строку окна программы(Отмечен красным прямоугольником)
После того как закончится Распаковка, вместе с архивом, появится фаил который лежал в нём.
