Fórum como usar TIBBackupService ??? #42895

  with IBBackupService1 do
  begin
    LoginPrompt := False;
    Params.Add(´user_name=SYSDBA´);
    Params.Add(´password=senha do sysdba´);
    Verbose := True;
    Options := [NonTransportable, IgnoreLimbo];
    ServerName := ´nome ou ip do servidor´;
    DatabaseName := ´caminho do banco de dados (gdb)´;
    BackupFile.Add(´caminho do backup (gbk)´);
    try
      Active := True;
      ServiceStart;
      while not Eof do
      begin
          Memo1.Lines.Add(GetNextLine);
          Application.ProcessMessages;
      end;
    finally
      Active := False;
    end;
  end;