Как заархивировать mdb-ю базу ч/з своё приложение. Помогите пожалуйста кусочком кода .

Что подразумевается под архивацией? Имеется в виду репликация? Или создание резервной копии?

Создание резервной копии с помощью там WinRar. У меня есть один вариант, но мне не нравится что там всё ето ч\з TOpenDialog делается т.е. пользаватель сам указывает путь для сохранения базы. Но только я знаю, что у нас юзеры как намутят, как сохранят, что себе дороже выйдет... Я хочу сделать, чтоб базу сама прога сохраняла в свой ExeName + создавала папочку там какую нить например Arch и скидывала туда заархивированную базу за сегодняшную дату, а вот потом при востановлении спрашивала за какую дату вам востановить базу. Пытался переделать имеющийся у меня код, но чето мозги пахать не хотят - толи код корявый толи я. А что такое репликация ?

Идем сюды берем компонент AidAim ZipForge


в компоненте прерасный хелп, распаковка таким же образом и в приниципе все

А он не много оперативы там жрет и т.д.

Да вроде нет без проблем работает на PII с 64Мб и Win98. Если не утсраивает то делай также с использоватием WinRar только откажись от OPenDialog, а имя архива формируй по определенному принципу например "имя БД"+"дата и время архивации" да складывай все в одну папку.

Спасибо классная вещь !!! И вообще сайтик классный скорость закачки бешенная !!! Эта компонента при указывании папки с БД еще и вложенные папки проверяет хм... интересно

Это сообщение отредактировал(а) McDevil - 11.2.2006, 10:52

Честно сказать я так глубоко не разбирался в ней. Там вроде можно указать, что брать только файлы, или файлы и папки. Смотри в хелпе, если конечно ты его поставил при установке. Я ее использовал для сжатия одного файла и отправки по ftp.

А почему бы в качестве альтернативы просто RAR консольный не запускать с соотв. параметрами?

Изначально так и было, но с этим компонентом, который Vas предложил жизнь стала намного проще...
Он создает zip - архив и нет необходимости проверять установлен ли вообще rar, так что с ним мне как то больше нравится...

Vas, а можно у этого компонента как нибудь прогресс получить...

Легко вот выдержка из хелпа, ниже пример:
Occurs when archive operation with a file updates a progress indication value.
type TZFFileProgressEvent = procedure(
Sender: TObject;
FileName: String;

Progress: Double;

Operation: TZFProcessOperation;
ProgressPhase: TZFProgressPhase;
var Cancel: Boolean

) of object;
property OnFileProgress: TZFFileProgressEvent;
Description
Write an OnFileProgress event handler to display progress of the current operation or
to cancel it. OnFileProgress event is triggered by AddFiles, MoveFiles, UpdateFiles, DeleteFiles, TestFiles or ExtractFiles when current archive operation with a file updates a progress indication value.
The Sender parameter is the object whose event handler is called.
FileName indicates current file name.
Progress indicates progress for the current operation in percents.
Operation indicates current archive operation.
Cancel determines if current operation on the current file should be cancelled. Set Cancel to True if you want to cancel executing of the current operation on the file. Default value for Cancel is False.

McDevil
Всяких бесплатных паковщиков на Torry десятка 2 только под стандартные форматы.

Vas, и снова выручил...
SergeBS, спасибо за инфу...

Мда Sexton так и не повел мне что такое репликация... А так вопрос решен, отдельное спасибо vas'у