| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сжатие [D7, XP]

Tigraman ©   (2006-02-09 14:08:00) 

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

---

umbra   (2006-02-09 17:12:00) [1]

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

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

---

irishka001   (2006-02-09 15:55:00) [2]

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

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

---

DesWind   (2006-02-09 15:32:00) [3]

Ошибся.

OutStream.Free;
CompressStream.Free;

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

CompressStream.Free;
OutStream.Free;

---

DesWind   (2006-02-09 15:25:00) [4]


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;


---

Tigraman   (2006-02-09 14:59:00) [5]

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

---

DesWind   (2006-02-09 14:19:00) [6]

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

---

Наверх