Бэкап осуществляется через компанент ibbackupservice.
БД как бы сетевая, но на локальной машине.
Проблема вот в чем: При выполнении бэкапа выдается ошибка:
Cannot attach to services manager service "Путь до ibguard.exe :service_mgr is not defined"
Входные данные:
Backupfile - выбираю из opendialog, к примеру e:\asd.db
databasename:='127.0.0.1:poliklinika'; //Пробовал и просто poliklinika...
servername:='E:\Programs\Borland\InterBase\bin\ibguard.exe';
params :
user_name=sysdba
password=masterkey
=================
Данная ошибка при коннекте...
Вот сам код:
Код: Выделить всё
try
with ibbackupservice1 do
begin
if fileexists(trim(edit1.Text)) then deletefile(trim(edit1.Text));
backupfile.Clear;
backupfile.Add(trim(edit1.Text));
try
// params.Clear;
// Params.Add('user_name='+ansiuppercase(edit4.Text));
//Params.Add('password='+edit5.Text);
databasename:=edit2.Text;
servername:=edit3.Text;
active:=true;
except messagedlg('Îøèáêà êîííåêòà ê ÁÄ!',mterror, [mbok],0); end;
screen.Cursor:=crSQLwait;
form8.Caption:=form8.Caption+' - Èäåò àðõèâàöèÿ';
servicestart;
while isServiceRunning do
application.ProcessMessages;
active:=false;
screen.Cursor:=crDefault;
form8.Caption:='Àðõèâàöèÿ ÁÄ';
messagedlg('Àðõèâàöèÿ óñïåøíî çàâåðøåíà!',mtinformation,[mbOk],0);
end;
except
screen.Cursor:=crDefault;
messagedlg('Îøèáêà àðõèâàöèè, âîìîæíî ââåäåííûå äàííûå íå âåðíû!',mterror, [mbok],0);
end;
