Devart Forums

Code: Select all

   with IBCBackupService1 do
         begin
            Options := [];

            if chkConvertExtTables.checked then
               Options := options + [boConvertExtTables];
            if chkIgnoreChecksums.checked then
               Options := options + [boIgnoreChecksums];
            if chkIgnoreLimbo.checked then
               Options := options + [boIgnoreLimbo];
            if chkMetadataOnly.checked then
               Options := options + [boMetadataOnly];
            if chkNoGarbageCollection.checked then
               Options := options + [boNoGarbageCollection];
            if chkNonTransportable.checked then
               Options := options + [boNonTransportable];
            if chkOldMetadataDesc.checked then
               Options := options + [boOldMetadataDesc];

            Active := True;
            try
               Verbose := True;
               Database := txtSourceDB.Text;
               BackupFile.text := stBackup;
               ServiceStart;
               while not Eof do
                  begin
                     Msg(GetNextLine); //display in memo component
                     application.processmessages;
                  end;
            finally
               Detach;
               Active := False;
            end;

Code: Select all

program Project;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, IBCAdmin, IBC;

var
  IBCBackupService: TIBCBackupService;
  IBCRestoreService: TIBCRestoreService;
  IBCConnection: TIBCConnection;

begin
  IBCConnection := TIBCConnection.Create(nil);
  try
    IBCConnection.Server := Server;
    IBCConnection.Port := Port;
    IBCConnection.Database := NewDataBase;
    IBCConnection.ClientLibrary := ClientLibrary;
    IBCConnection.Username := 'sysdba';
    IBCConnection.Password := 'masterkey';
    IBCConnection.Params.Clear;
    IBCConnection.Params.Add('USER ''SYSDBA''');
    IBCConnection.Params.Add('PASSWORD ''masterkey''');
    IBCConnection.Params.Add('PAGE_SIZE 4096');
    IBCConnection.Params.Add('DEFAULT CHARACTER SET WIN1251');

    try
      IBCConnection.Connect;
      IBCConnection.DropDatabase;
    except
    end;

    IBCConnection.CreateDatabase;
    IBCConnection.ExecSQL('CREATE TABLE TEST(ID INTEGER, TXT VARCHAR(40))');
    IBCConnection.ExecSQL('INSERT INTO TEST VALUES(1, ''Test text'')');
    IBCConnection.Disconnect;
    WriteLn('Create Ok');

    IBCBackupService := TIBCBackupService.Create(nil);
      try
        IBCBackupService.Server := IBCConnection.Server;
        IBCBackupService.Port := IBCConnection.Port;
        IBCBackupService.Username := IBCConnection.Username;
        IBCBackupService.Password := IBCConnection.Password;
        IBCBackupService.BackupFile.Text :=  BackupFile;
        IBCBackupService.Database := IBCConnection.Database;
        IBCBackupService.Verbose := True;
        IBCBackupService.Active := True;
        IBCBackupService.ServiceStart;
        while not IBCBackupService.Eof do
          IBCBackupService.GetNextLine;
        WriteLn('Backup Ok');
      finally
        IBCBackupService.Active := False;
        IBCBackupService.Free;
      end;

    IBCRestoreService := TIBCRestoreService.Create(nil);
      try
        IBCRestoreService.Server := IBCConnection.Server;
        IBCRestoreService.Port := IBCConnection.Port;
        IBCRestoreService.Username := IBCConnection.Username;
        IBCRestoreService.Password := IBCConnection.Password;
        IBCRestoreService.BackupFile.Text :=  BackupFile;
        IBCRestoreService.Database.Text := IBCConnection.Database;
        IBCRestoreService.Options := IBCRestoreService.Options + [roReplace];
        IBCRestoreService.Verbose := True;
        IBCRestoreService.Active := True;
        IBCRestoreService.ServiceStart;
        while not IBCRestoreService.Eof do begin
          IBCRestoreService.GetNextLine;
        end;
        WriteLn('Restore Ok');
      finally
        IBCRestoreService.Active := False;
        IBCRestoreService.Free;
      end;

    ReadLn;

  finally
    IBCConnection.Free;
  end;
end.

Code: Select all

 while not Eof do
          begin
              Memo1.lines.Add(GetNextLine);
          end;

Code: Select all

 while not Eof do
          begin
              WriteToMyLogFile(GetNextLine);
          end;

Code: Select all

 while not Eof do
          begin
              Memo1.lines.Add(GetNextLine);
          end;
   WriteToMyLogFile(Memo1.lines.text);