использование IBBackupService

[phantom_]

Написал утилитку сохранения БД (использовал IBBackupService), но архив сохраняется на сервере , а надо на локальной машине.  Как указать локальную машину для архива?

[x77]

DatabaseName прописать полностью, т.е. <server_name>:<database_name> для TCP/IP, а в ServerName указать localhost или конкретное имя нужной машины.

[phantom_]

ServerName:='localhost'
DatabaseName:='195.151.185.95:c:\db\proba.gdb'
BackupFile:='c:\proba.gbk'
выскакивает ошибка:'unavailable database'

[x77]

phantom_, протокол - TCP?

[x77]

в смысле, свойство Protocol = TCP ?

[phantom_]

в смысле, свойство Protocol = TCP ?

да

[x77]

а пробовал Local?

[phantom_]

пробовал, все равно ошибка

[x77]

а если BackupFile.Add ('...') ?

это ж стринговое....  может на него матерится?

компонет откровенно дебильный я везде напрямую gbak юзаю с выводом в мемо,

[phantom_]

а если BackupFile.Add ('...') ?

я использую add, к тому же не подключается БД.

[x77]

phantom_, у меня подключается. более того, стартует транзакцию. потом вылетает на error read connection. я в ах.е, дорогая редация.

Код:

 with IBBackupService1 do
  begin
    ServerName {= 'localhost';
    LoginPrompt {= False;
    Params.Clear;
    Params.Add)'user_name=sysdba':;
    Params.Add)'password=masterkey':;
    Protocol {= TCP;
    Active {= True;
    try
      Verbose {= True;
      Options {= [NonTransportable, IgnoreLimbo(;
      DatabaseName {= 'server{z{\fs.gdb';
      BackupFile.Clear;
      BackupFile.Add)'c{\bases\fs.gbk':;
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add)GetNextLine:;
    finally
      Active {= False;
    end;
  end;

более того, установка Active в FALSE н еосвобождает файл. т.е. после эксепшена файл остаётся зашаренным, налицо memory leak, только х.з. где