VPF::запаковка и распаковка - Форум программистов

AET

Дата 24.4.2011, 06:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 13.3.2007

Репутация: нет
Всего: нет

помагите разобратся с ZLib алгоритм inflate

Добавлено через 7 минут и 32 секунды

Код


unit UtilityPasZlib;

interface

uses zlib, Classes;

type TCompLevel = (clNone, clFastest, clDefault, clMax);

procedure CompressFile(const sFileIn : string; const sFileOut : string; const Level : TCompLevel = clDefault);
procedure UnCompressFile(const sFileIn : string; const sFileOut : string);

procedure CompressStream(inStream, outStream :TStream; const Level : TCompLevel = clDefault);
procedure ExpandStream(inStream, outStream :TStream);

implementation

procedure CompressFile(const sFileIn : string; const sFileOut : string; const Level : TCompLevel = clDefault);
var
 inStream, outStream: TMemoryStream;
begin
 inStream:=TMemoryStream.Create;
 outStream:=TMemoryStream.Create;
 try
  inStream.LoadFromFile(sFileIn);
  with TCompressionStream.Create(TCompressionLevel(Level), outStream) do
   try
    CopyFrom(inStream, inStream.Size);
   finally
    Free;
   end;
   outStream.SaveToFile(sFileOut);
  finally
   outStream.Free;
   inStream.Free;
  end;
end;

procedure UnCompressFile(const sFileIn : string; const sFileOut : string);
var
 inStream, outStream: TMemoryStream;
begin
 inStream:=TMemoryStream.Create;
 outStream:=TMemoryStream.Create;
 try
  inStream.LoadFromFile(sFileIn);
  ExpandStream(inStream, outStream);
  outStream.SaveToFile(sFileOut);
 finally
  inStream.Free;
  outStream.Free;
 end;
end;

procedure CompressStream(inStream, outStream :TStream; const Level : TCompLevel = clDefault);
begin
 with TCompressionStream.Create(TCompressionLevel(Level), outStream) do
  try
   CopyFrom(inStream, inStream.Size);
  finally
   Free;
  end;
end;

procedure ExpandStream(inStream, outStream :TStream);
const
 BufferSize = 4096;
var
 Count: integer;
 ZStream: TDecompressionStream;
 Buffer: array[0..BufferSize-1] of Byte;
begin
 ZStream:=TDecompressionStream.Create(InStream);
 try
  while true do
   begin
    Count:=ZStream.Read(Buffer, BufferSize);
    if Count<>0
    then OutStream.WriteBuffer(Buffer, Count)
    else Break;
   end;
  finally
   ZStream.Free;
  end;
end;

end.

AET

Дата 24.4.2011, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 171
Регистрация: 13.3.2007

Репутация: нет
Всего: нет

почему разспаковает по другому

ZBugz

Дата 25.4.2011, 07:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

http://pblog.ru/?p=67

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »