Вниз
Скачать: CL | DM;

Помогите с архивацией!!!!!!!!!!!!!!   Найти похожие ветки 

 
MonStar   (2003-08-16 17:17) [0]

Ситуация такая: нужно при нажатии на кнопку упаковать папку (большую) и так что бы при этом можно было и progressbar прикрутить, отображающий прогресс упаковки!!! Как это реализовать ? подскажите плиз!!!!


 
Ketmar ©   (2003-08-16 17:39) [1]

скачать и запустить WinZIP.


 
Sheng ©   (2003-08-16 18:12) [2]

1. Подсчитать кол-во файлов, ProgressBar.MaxValue=<кол-во файлов>
2. Взять ZIP, а лучше RAR, и с помощью командной строки добавлять по одному файлу.
3. При добавлении очередного файла делать ProgressBar.Progress:=ProgressBar.Progress+1
4. Вроде всё, должно работать.


 
MonStar   (2003-08-17 14:03) [3]

С прогресс баром то понятно, но как прикрутить этот самый zip или rar к проге? Скачал ziptv но пока ничего в нём не понял, очень уж там урезанный хелп!!!!! Может кто подскажет?


 
Sheng ©   (2003-08-17 17:13) [4]

После установки WinRAR"a в его каталоге есть файл Rar.exe
Запусти его - и получишь список всех его команд.
Например, добавить файл в архив: "rar.exe a <имя архива> <имя файла>"


 
sniknik ©   (2003-08-17 22:19) [5]

MonStar (17.08.03 14:03) [3]
> Скачал ziptv но пока ничего в нём не понял, очень уж там урезанный хелп!!!!!
там очень понятные примеры.


 
MonStar   (2003-08-18 00:59) [6]

примеры супер!!! согласен, нотрудновато понять!!!

То есть вы предлагаете запускать rar.exe из программы с указанием параметров? значит внутрь архиватор не впихнуть?

>2. Взять ZIP, а лучше RAR, и с помощью командной строки добавлять по одному файлу.

Но папка очень объёмная и с трудной иерархией, т.е. много подпапок внутри!!!!!

Спасибо всем, кто пытался помочь!!!


 
Некрофил - затейник__ ©   (2003-08-18 09:24) [7]

1). Вариант
Возьми RAR CreatProcess("rar.exe "+cmd,...);
Переопредили(возьми управление) StdOut,StdIn,StdErr текущий прогресс для файла ты получиш, для всех файлов не помню по мойму нет.

2). Вариант
IMHO
Есть RAR SDK там через подключаемую dll ты можеш получить управление RAR в том числе и прогресс и все что угодно

3). Вариант
IMHO
Программу архивации ZIP можно найти в инете в исходниках

ЗЫ:
Всем раздать лопаты.


 
Vint ©   (2003-08-18 10:11) [8]

>MonStar
>примеры супер!!! согласен, нотрудновато понять!!!


даа это круче квадрата на форме ;)

.ArchiveFile := "название архива";
.FileSpec.Add("добавляешь файлы с путями");
.Compress(); архивируем...

.ExtractDir := "куда разархивировать";
.Extract(); разархивируем...

для прогресса в собитии OnProgress пишешь
Gauge1.Progress := ProgressByArchive;
Application.ProcessMessages;


 
Pat ©   (2003-08-18 11:33) [9]

uses Zlib


 
MonStar   (2003-08-19 00:34) [10]

Огромное спасибо за помощь!!!!
Теперь всё понятно!!!!!



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

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



Память: 0.47 MB
Время: 0.012 c
1-10671
Man
2003-08-21 11:40
2003.09.04
как передать указатель inherited


14-10922
Guchie
2003-08-17 22:14
2003.09.04
Что с RSDN.RU ??? У меня не заходит?


3-10611
Bless
2003-08-08 14:43
2003.09.04
Формат даты в MSSQL


14-10909
ДедушкаКо
2003-08-18 11:39
2003.09.04
уже опохмелился и пойду,наверное, домой


11-10664
D.V.K
2002-12-18 09:13
2003.09.04
А есть ли в KOL hint ы




   Наверх