Помогите с архивацией!!!!!!!!!!!!!!

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

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

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