Ситуация следующая: создал прогу на IB, потребовалось резервное копирование данных изобразить но и соответственно восстановление в случае, не дай боже улета базы в никуда
Для создания backup`а использовал компонент TIBBackupService со следующим кодом:

Код

...  With IBBackupService1 Do Begin    Database:=PathTodataBase; // Формат : C:\Program files\proga\database.gdb    BackupFile:=PathToFileBackup; // C:\Program files\proga\backup.bak    Active:=True;    ServiceRun;  // не помню как метод завется, в общем запуск сервиса    While IsServiceProgress Do  // пока не закончится (опять таки не помню дословное наименование ф-ции)      Application.ProcessMessage;    Active:=False;  End;  ...

Параметры соединения (Свойство Params) задано в DesignTime.
Для восстанволения Код почти такой же. Но он сейчас не интересен, т.к. у меня не получается зделать копию... :'(

Тестил я свою прогу, то есть из того какталога, где исходники лежат, база содержится и все такое. \
Результат на лицо - копируемся. то есть усе работает. Восстановление - так же

Но вот делаю прогу - Setup для моего творения, в процессе Setup`а (собственная прога, никакими InnoSetup`ами не пользовался) создаются новая БД (таблицы + хронимки + триггеры + ....) по указанному пути. Все Ok. Прога работает, но вот при попытке зделать резервное копирование, сервер Interbase (ibguard.exe) вылетает...
В XP стандартное окошко: "создан отчет об ошибке... Передайте Microsoft эти сведения..."

В чем дело? В исходниках все пашет, аш пыхтит, а в установенная прога вызывает каюк серваку.

Лично я не пользуюсь TIBBackupService по причине того, что он выполняется на машине ib-сервера. Соответственно может делать backup-файл только на эту-же машину. Или на машину ресурс которой расшарен и доступен с машины SQL-сервера. Это сильно затрудняет его использование.
Вместо TIBBackupService я использую утилиту GBAK входящую в дистрибутив IB/FB. Просто вызываю ее из под своей программы, передавая ей необходимые параметры и перехватывая вывод.
Еще, такой способ позволяет получать более подробную информацию об ошибках, если таковый возникнут.
Правда, разные версии IB имеют разные проги GBAK, это надо учитывать.

Совет - если не обязательно программно, делай backup/restore/ при помощи программ администрирования InterBase. Из экспертов, например - IBExpert. Или - InterBase Backup Watcher.

Цитата(Golden @ 16.2.2005, 14:33)

Совет - если не обязательно программно,

ОБЯЗАТЕЛЬНО!
Добавлено @ 16:46
Ладно, Петрович ,будем GBAK ковырять... кстати, Петрович

Цитата(SPrograMMer @ 16.2.2005, 17:45)

кстати, Петрович

Ну, ты этого сам захотел

Код

function GBakExeFile :String; begin  Result := StartDir+'gbak.exe'; end; procedure DoGBack (DoBackup :Boolean; db :TIBDatabase; aFileName :String); var  MsgFile, Src, Dst, Cmd :String;  Verbose :Boolean;  function DoCmd () :Cardinal;  const    SuspendTime = 200; // время (в милисекундах) на которое вызывающий процесс                       //    приостанавливается в цикле ожидания  var    hProcess :tHandle;    ProcessKilled :Boolean;    f :tawStream;    s :String;    procedure GetResultFile(LastCall :Boolean);    begin      if  f = nil  then begin        if  not FileExists(MsgFile)  then  Exit;        f := tawStream.CreateFile(MsgFile,fmOpenRead+fmShareDenyNone);      end;      while  not f.Eof  do        Log(lcSQL,f.GetLine);      if  LastCall  then  FreeAndNil(f);    end;  begin    try      f := nil;      // запуск процесса      hProcess := StartExecuteCommand(Cmd,StartDir,SW_HIDE);      // процесс успешно запущен, ждём завершения      ProcessKilled := False;      repeat        Application.ProcessMessages;        if  Application.Terminated  and  not ProcessKilled  then begin          TerminateProcess(hProcess,ERROR_PROCESS_ABORTED);          ProcessKilled := True;        end;        if  Verbose  then  GetResultFile(False);      until (WaitforSingleObject(hProcess,SuspendTime)<>WAIT_TIMEOUT);      if  Verbose  then  GetResultFile(True);      if  ProcessKilled  then        raise eStartExecuteCommand.Create(ERROR_PROCESS_ABORTED); // Процесс принудительно завершен.      // узнаем код завершения процесса      if  not GetExitCodeProcess(hProcess,Result)  then        // Хм, Ошибка? Что-бы это могло быть?        raise eStartExecuteCommand.Create(GetLastError());      if  Result <> 0  then begin        if  Verbose  then          s := '' // вывод GBAK уже есть в протоколе        else          try            with  tStringList.Create()  do try              LoadFromFile(MsgFile);              s := '|'+Text;            finally              Free;            end;          except            s := 'Файл сообщений GBAK отсутствует!';          end;        RaiseEx('Ошибка выполнения утилиты GBAK.EXE (%d).%s',[Result,s]);      end;    except on e :eStartExecuteCommand do begin      ExMsg('Ошибка запуска утилиты GBAK.EXE.');      raise;      end;    end;  end; begin  MsgFile := StartDir + 'gbakmsg.txt';  AwEraseFile(MsgFile,True);  Verbose := lcSQL in LogOptions.Categories;  if  DoBackup  then begin    Src := db.DatabaseName;    Dst := aFileName;    Cmd := ' -b';    end  else begin    Src := aFileName;    Dst := db.DatabaseName;    Cmd := ' -r';  end;  Cmd := Q(GBakExeFile) + Cmd;  Cmd := Cmd + ' -v';  Cmd := Cmd + ' -user ' + Q(db.Params.Values['user_name']);  Cmd := Cmd + ' -pass ' + Q(db.Params.Values['password']);  Cmd := Cmd + ' -y '    + Q(MsgFile);  Cmd := Cmd + ' ' + Q(Src);  Cmd := Cmd + ' ' + Q(Dst);  try    DoCmd;  finally    try  AwEraseFile(MsgFile,True);  except  end;  end; end;

"Выдрал" из работающего проекта, так что используется много вских моих библиотечых функций. Но, думаю как "рыба" подойдет. Если будут вопросы, задавай.

Цитата

Ну, ты этого сам захотел

УГУ, Петрович, захотел, счас посмотрю, и если чего так плюсик поймаешь!

Петрович, GBakExeFile - Функция фозвращает путь к GBak:
"C:\Program files\borland\ibs\bin\gbak.exe". ТАК?
Чего делает функция LastCall в getResultFile ?
StartExecuteCommand - нечто вроде ShellExecute ?
ProcessKilled - проверяет, "убит" ли процесс gbak.exe , так ?
Оч страшная функция AwEraseFile. Чего творит?
и есчо функция Q чото творит со строками, вот только что???
по смыслу из строки
Program files\my projects
должна сделать нечто вроде
'Program files\my projects'
Т. е. в кавычки заключает, только в двойные (ковычки) или одинарные (апострофы) - ???


Петрович, HELP ME! please.

Я же предупреждал

Цитата

Петрович, GBakExeFile - Функция фозвращает путь к GBak: "C:\Program files\borland\ibs\bin\gbak.exe". ТАК?

Не совсе. Это переменная. Ее значение, это имя (с путем) GBak.exe. Но, в зависимости от версии IB/FB сервера на котором пасемся. Определяется во время подключения к серверу. Поскольку программа расчитанна на работу с разныи серверами, то мы в составе своей программы поставляем несколько версий GBak.exe, для каждой версии IB. (GBak5.exe,GBak6.exe,GBak7.exe).

Цитата

Чего делает функция LastCall в getResultFile ?

Обозначает что это последний вызов getResultFile, соответственно требуется уничтожение потока f.

Цитата

StartExecuteCommand - нечто вроде ShellExecute ? ProcessKilled - проверяет, "убит" ли процесс gbak.exe , так ?

Угу. Только StartExecuteCommand возвращает Handle запущенного процесса, что позволяет активно дожидаться его завершения, попутно реагируя на требование оператора прервать процесс путем закрытия моего приложения (Application.Terminated). Что собственно и делается в цикле repeat until.

Цитата

Оч страшная функция AwEraseFile. Чего творит?

Да вобщем ничего страшного. Просто функция из моей библиотеки:

Код

procedure awEraseFiles(const Names : String; Force :Boolean =False);  // Удаляет файл(ы) Names.  // Names может содержать несколько имен или масок файлов, разделенных  // символом '|' (вертикальная черта). При этом, если для какого-то из  // файлов указан путь, то он используется как базовый для всех последующих.  // Возможно EInOutError.

Цитата

и есчо функция Q чото творит со строками, вот только что??? по смыслу из строки Program files\my projects должна сделать нечто вроде 'Program files\my projects' Т. е. в кавычки заключает, только в двойные (ковычки) или одинарные (апострофы) - ???

Ты почти паравильно угадал :

Код

function Q (const Str :String) : String; function Q2 (const Str :String) : String;  // Возвращают строку Str заключенную в двойные кавычки.  // Двойные кавычки внутри Str удваиваются.  // Полностью аналогичны вызову AnsiQuotedStr(Str,'"') function DeQ2 (const Str :String) : String;  // Выполняет действие обратное Q2.  // Если в начале Str нет двойной кавычки, функция возвращает пустую строку.  // Использует функцию AnsiExtractQuotedStr. function Q1 (const Str :String) : String;  // Возвращает строку Str заключенную в одинарные кавычки.  // Одинарные кавычки внутри Str удваиваются.  // Полностью аналогично вызову AnsiQuotedStr(Str,'''') function DeQ1 (const Str :String) : String;  // Выполняет действие обратное Q1.  // Если в начале Str нет одинарной кавычки, функция возвращает пустую строку.  // Использует функцию AnsiExtractQuotedStr. function Qd (const Str :String) : String;  // Возвращает строку Str в синтаксисе Delphi. Например:  //  qd('Строка ''1'''^M'Строка 2') вернет "'Строка ''1'''^M'Строка 2'" function DeQd (const Str :String) : String;  // Выполняет действие обратное Qd. Не обрабатывает символы строки заданные  // кодами (#).

Все эти функции есть в модуле awString из мокй библиотеки. Его можно поиметь здесь

Будут еще вопросы задавай.

Это сообщение отредактировал(а) Петрович - 21.2.2005, 23:29

А вообще, мне твой подход понравился. Не просто скопировать и пожаловаться что не пашет, а попытаться разобраться. Это я люблю.

Цитата

А вообще, мне твой подход понравился. Не просто скопировать и пожаловаться что не пашет, а попытаться разобраться. Это я люблю.

Спасиб Петрович, что помог, лови законный плюсик

Добавлено @ 15:29
Ах... ты ... черт, забыл что не исходники!
Говорит, что 100 постов надо мне набрать чтоб репутацию менять мог...

Ладно Петрович, как наберу, не забуду, припомню, Я ж злопамятный!!!!

Это сообщение отредактировал(а) SPrograMMer - 24.2.2005, 15:30