Скачать: CL | DM;

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

← →
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;

---

← →
irishka001 ©   (2006-02-09 15:55) [5]

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

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

---

← →
umbra ©   (2006-02-09 17:12) [6]

2 irishka001 ©   (09.02.06 15:55) [5]

так винрар нужен

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c