| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Резервная копия [D5, Paradox]

grifon_nn ©   (2003-06-09 17:43:00) 

Подскажите, как лучше сделать резервную копию БД. Пока используется тупое сжатие с помощью WinRar.

---

KoluChi   (2003-06-11 11:44:00) [1]

Я использую такую функцию, обрабатывай ErrorCode
//------------------------------------------------------------------------------
function ProgramExecCommonErrorCode(const ExecLine: String; const WindowState: Integer; ErrorCode: PInteger = nil; ShowError: Boolean = false): Boolean;
var
PrInfo: PROCESS_INFORMATION;
StInfo: STARTUPINFO;
ExitCode: DWord;
begin
Result := false;
ZeroMemory(@StInfo, sizeof(StInfo));
with StInfo do
begin
cb := SizeOf(StInfo);
wShowWindow := WindowState;
dwFlags := STARTF_USESHOWWINDOW;
end;
if not CreateProcess(nil, PChar(ExecLine), nil, nil, False, CREATE_NEW_PROCESS_GROUP, nil, nil, StInfo, PrInfo) then Exit;
WaitForSingleObject(PrInfo.hProcess, INFINITE);
GetExitCodeProcess(PrInfo.hProcess, ExitCode);
CloseHandle(PrInfo.hProcess);
CloseHandle(PrInfo.hThread);
if Assigned(ErrorCode) then ErrorCode^ := ExitCode;
Result := true;
end;
//------------------------------------------------------------------------------

---

grifon_nn   (2003-06-11 11:32:00) [2]

>Pat
а что это даст. Можно поподробнее.

И ещё вопрос: когда я делаю резервную копию (либо создаю, либо восстанавливаю), никаких сообщений об ошибке программа не выдает. Т.е. просто запускается WinRar и сам отрабатывает. Теперь сам вопрос: как сделать, чтобы прога отлавливала завершение работы архиватора и в случае чего выдавала сообщение.

WinRar запускается следующей строкой:

env := "Winrar.exe e -c- -cfg- -o+ "+"reserve\" + filename + ".rar DataBase"
if not CreateProcess(nil,PChar(env),nil,nil,false,0,nil,nil,si,pi) then
ShowMessage("Ошибка открытия архива")
else
begin
WaitForSingleObject(pi.hProcess,INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;


При этом сообщение "Ошибка открытия архива не выдается ни при каких обстоятельствах", может я где в параметрах напутал...

---

Pat   (2003-06-09 20:11:00) [3]

Можно добавить упаковку через dbiDoRestructure

---

grifon_nn   (2003-06-09 18:34:00) [4]

Спасибо

---

Соловьев   (2003-06-09 17:55:00) [5]

для парадокса вполне нормально.

---

Наверх