Страница 1 из 1
Помогите с IBBackupService
Добавлено: 05 окт 2006, 16:20
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
Добавлено: 05 окт 2006, 17:01
Merlin
Скорей всего установкой на клиентской машине соответсвующей версии клиента вообще и файла firebird.msg в частности. Тогда пойдут реальные сообщения о неприятностях.
Добавлено: 05 окт 2006, 18:36
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
И всё файла даже вооружённым глазом не видно.
Добавлено: 05 окт 2006, 19:34
stix-s
alexber220 писал(а):gbak: readied database c:\test.fdb for backup
gbak: creating file c:\test.fdk
И всё файла даже вооружённым глазом не видно.
якого файла? лога? бэкапа?
строчку вызова gbak кинь, чтоли
Добавлено: 05 окт 2006, 19:53
kdv
кстати. обычно сначала указывают имя сервера, имя БД, имя бэкапа, и т.п., а потом вызывают ServiceStart (вместо Active:=True);
и еще - я не понял, как связаны ошибки без имени и "файла не видно".
Добавлено: 06 окт 2006, 07:44
Dimitry Sibiryakov
Наверное, аффтар пытается найти его на локальном С:...
Добавлено: 06 окт 2006, 09:09
alexber220
kdv писал(а):кстати. обычно сначала указывают имя сервера, имя БД, имя бэкапа, и т.п., а потом вызывают 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;