Fórum Não consigo fazer de um backup com o IB BackupService #49931

for i:= 0 to tsFiles.Count-1 do
    begin
      if  (StrFind(´.fdb´,tsFiles[i], 1) >0) or (StrFind(´.gdb´,tsFiles[i], 1)>0) then
    begin
      ShowMessage(´faz o backup ´+ sTmp+ ´ ´+tsFiles[i] );

    with frmNonVisual.IBBackupService1 do
    begin
      LoginPrompt := False;
      Params.Add(´user_name=sysdba´);
      Params.Add(´password=masterkey´);
      Active := True;
    try
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := tsFiles[i];
      BackupFile.Add(sTmp  + ´winback_´+ MakeSerial + ´.GBK´);
      ServiceStart;
    finally
      Active := False;
    end;
  end;
  end;