Fórum duvidas com TIbRestoreService #330379

  with TIBRestoreService.Create(nil) do
  begin
    LoginPrompt := false;
    Protocol := tcp;
    ServerName := ´localhost´;  //localhost para fazer restore em qualquer lugar
    Params.Add(´user_name=´ + Flogin);
    Params.Add(´password=´ + Fsenha);
    try
      //colocar opcoes completas aqui
      Options := [Replace, UseAllSpace];

      PageBuffers := 3000;
      PageSize := 4096;
      BufferSize := 32000;

      databasename.Add(Forigem);      // o nome original do arquivo
      BackupFile.Add(FbackupGbkTemp);
      Name := ´ibRestoreAdvance´;
      Active := true;

      ServiceStart;
      while not Eof do
      begin
        flog.Add(GetNextLine);
      end;
      result := true;
    except