Сжатие

← →
Tigraman (2006-02-09 14:08) [0]

Здраствуйте. Подскажите, как сделать архивирование конкретной папки, любым способом.

← →
DesWind © (2006-02-09 14:19) [1]

Вопрос не совсем корректный. Можно воспользоваться внешним архиватором или компонентами, к примеру, Abbrevia. А можно в Тоталкомандер нажать Alt+F5 ))

← →
Tigraman (2006-02-09 14:59) [2]

Скажите, как используя юнит zlib можно выполнить сжатие.

← →
DesWind © (2006-02-09 15:25) [3]

var CompressStream: TCompressionStream; OutStream: TFileStream; begin OutStream:=TFileStream.Create("Sample.zip"); CompressStream:=TCompressionStream.Create(OutStream); try CompressStream.Write(Buf,bufSize);// на лету сжимает данные записаные в buf finally OutStream.Free; CompressStream.Free; end; end;

← →
DesWind © (2006-02-09 15:32) [4]

Ошибся.

OutStream.Free;
CompressStream.Free;

надо поменять местами. вот так

CompressStream.Free;
OutStream.Free;

Может, попробовать так?

param := " m -ep1 "+path +archive_name+" "+path+file_name"; rarResult:= (ShellExecute(Form1.Handle, "open", "winrar", PChar(param), nil , sw_hide));

Сжатие Найти похожие ветки