Помогите с IBBackupService

[alexber220]

При выполнении кода в Delphi

Код: Выделить всё

  with IBBackupService1 do
  begin
    ServerName:='localhost';
    Verbose := true;
    LoginPrompt:=False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active:=True;
    try
      DatabaseName:='с:\test.fdb';
      BackupFile.Clear;
      BackupFile.Add('c:\test.fdk');
      ServiceStart;
      While not Eof do
      begin
        Application.ProcessMessages;
        Memo1.Lines.Add(GetNextLine);
      end;
    finally
      Active := False;
    end;
  end;

Вылазит куча сообщений
can't format message 12:169 -- message system code -6can't format message 12:108 -- message system code -6
Подскажите как лечится.

База 21 метр. Firebird 1.5 SS

[Merlin]

Скорей всего установкой на клиентской машине соответсвующей версии клиента вообще и файла firebird.msg в частности. Тогда пойдут реальные сообщения о неприятностях.

[alexber220]

gbak: readied database c:\test.fdb for backup
gbak: creating file c:\test.fdk
gbak: starting transaction
gbak: database c:\test.fdb has a page size of 8192 bytes.
gbak: writing domains
gbak: writing domain RDB$1
gbak: writing domain RDB$2
gbak: writing domain RDB$3
gbak: writing shadow files
gbak: writing tables
gbak: writing table TEST1
gbak: writing column CONTENT
gbak: writing column ID
gbak: writing column SUBJECT
gbak: writing functions
gbak: writing types
gbak: writing filters
gbak: writing id generators
gbak: writing stored procedures
gbak: writing exceptions
gbak: writing Character Sets
gbak: writing Collations
gbak: writing data for table TEST1
gbak: 20000 records written
gbak: 40000 records written
gbak: 60000 records written
gbak: 80000 records written
gbak: 100000 records written
gbak: 120000 records written
gbak: 140000 records written
gbak: 160000 records written
gbak: 180000 records written
gbak: 200000 records written
gbak: 220000 records written
gbak: 240000 records written
gbak: 260000 records written


И всё файла даже вооружённым глазом не видно.

[stix-s]

gbak: readied database c:\test.fdb for backup
gbak: creating file c:\test.fdk

И всё файла даже вооружённым глазом не видно.

якого файла? лога? бэкапа?
строчку вызова gbak кинь, чтоли

[kdv]

кстати. обычно сначала указывают имя сервера, имя БД, имя бэкапа, и т.п., а потом вызывают ServiceStart (вместо Active:=True);

и еще - я не понял, как связаны ошибки без имени и "файла не видно".

[Dimitry Sibiryakov]

Наверное, аффтар пытается найти его на локальном С:...

[alexber220]

кстати. обычно сначала указывают имя сервера, имя БД, имя бэкапа, и т.п., а потом вызывают ServiceStart (вместо Active:=True);

и еще - я не понял, как связаны ошибки без имени и "файла не видно".

Спасибо помогло. Только attach/detach добавил ещё.

Код: Выделить всё

  with IBBackupService1 do
  begin
    ServerName:='localhost';
    Verbose := true;
    LoginPrompt:=False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    attach;
    try
      DatabaseName:='c:\test.fdb';
      BackupFile.Clear;
      BackupFile.Add('c:\test.fdk');
      ServiceStart;
      While not Eof do
      begin
        Application.ProcessMessages;
        Memo1.Lines.Add(GetNextLine);
      end;
    finally
      Detach;
    end;