Архивация файла БД

← →
boxer (2005-08-22 12:37) [0]

Помогите!!! Хочу заархивировать ФАЙЛ БД из делфи, чтобы имя архива было текущая дата. Как лучше сделать?

← →
sniknik © (2005-08-22 12:40) [1]

при архивации указать имя - текущую дату в строковом выражении. что значит лучше? это единственно возможный вариант. (не считая изврашений с последующей переименовкий... и т.д.)

← →
syte_ser78 © (2005-08-22 12:42) [2]

komanda:="winrar a -ag+MM-DD-YYYY" + имя_файла_который_пакуем+ """ ;
winexec(Pchar(komanda), SW_SHOW);

← →
boxer (2005-08-22 12:42) [3]

а пример можно?

← →
syte_ser78 © (2005-08-22 12:44) [4]

тоесть
komanda:="winrar a MM-DD-YYYY" + имя_файла_который_пакуем+ """ ;
winexec(Pchar(komanda), SW_SHOW);

← →
boxer (2005-08-22 12:47) [5]

пасиба всем, вечером попробую

← →
boxer (2005-08-22 16:30) [6]

делаю так:
var
komanda:string;
begin
komanda:="winrar a -ag+MM-DD-YYYY" + arhiv.mdb+ """" ;
winexec(Pchar(komanda), SW_SHOW);
end;
Ошибка:[Error] Unit1.pas(30): Undeclared identifier: "arhiv"
ГДЕ КАСЯК?

← →
syte_ser78 © (2005-08-22 16:57) [7]

boxer (22.08.05 16:30) [6]
ты указал имя файла как имя переменной. А нужно как значение типа стринг. Возьми имя файла в одинарные кавычки

← →
sniknik © (2005-08-22 18:18) [8]

и на место MM-DD-YYYY желательно цифры из текущей даты вставить... ;)

← →
syte_ser78 © (2005-08-23 08:45) [9]

> sniknik © (22.08.05 18:18) [8]
> и на место MM-DD-YYYY желательно цифры из текущей даты вставить...
> ;)

Зачем?
"winrar a -ag+MM-DD-YYYY" + arhiv.mdb даст в итоге
23-08-20050archiv.rar

← →
sniknik © (2005-08-23 10:32) [10]

syte_ser78 © (23.08.05 08:45) [9]
rar сам подставляет? не знал.

← →
syte_ser78 © (2005-08-23 12:14) [11]

sniknik © (23.08.05 10:32) [10]
У меня по такому принципу создаются суточные архивы рабочих папок пользователей.

WinExec - ацтой! 8)
Случай как раз для CreateProcess, т.к. неплохо было бы знать, когда закончится упаковка.

← →
alex_*** (2005-08-23 12:33) [13]

[9]
"winrar a -ag+MM-DD-YYYY" + arhiv.mdb даст в итоге

ничего кроме

Ошибка:[Error] Unit1.pas(30): Undeclared identifier: "arhiv"

не даст

← →
boxer (2005-08-24 13:59) [14]

Делаю так:
procedure TForm1.Button2Click(Sender: TObject);
var
komanda:string;
begin
komanda:="C:\Program Files\WinRAR\winrar a -ag+MM-DD-YYYY
c:\copy\opy\PY o:\arhbaz\arhiv.mdb";
winexec(Pchar(komanda), SW_SHOW);
end;
ошибка: arhiv.mdb занят другим процессом
Как отключиться от БД сохранить, а потом подключиться? (соединение через adoconnect)

boxer (24.08.05 13:59) [14]
Почитай хелп по ключам рара. Можно запаковать используемый другим приложением файл. Правда если в момент паковки содержимое файла изменится то никто не гарантирует корректное содержимое архива.

ADOConnection1.Connected := false;

Архивация файла БД Найти похожие ветки