Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Вниз
Сжатие Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
