Subject | Trying to get IBOAdmin components to work .. but getting errors with IBOBackupS? |
---|---|
Author | ajwreyford |
Post date | 2006-04-12T21:41:33Z |
I'm trying the following to get a backup service running for my
application.
procedure TFormBackupRestore.SpeedButton1Click(Sender: TObject);
var
j: integer;
lBackupService: TIBOBackupService;
lOptions: TBackupOptions;
lVerboseInfo: TStringList;
begin
Screen.Cursor := crHourGlass;
lVerboseInfo := TStringList.Create;
lBackupService := TIBOBackupService.Create(nil);
try
try
lBackupService.LoginPrompt := False;
lBackupService.ServerName := IB_Connection1.Server;
lBackupService.Protocol := IB_Connection1.Protocol;
lBackupService.Params.Add
('username='+IB_Connection1.Username);
lBackupService.Params.Add
('password='+IB_Connection1.Password);
lBackupService.Attach();
except
...
end;
finally
if lBackupService.Active then
lBackupService.Detach();
lBackupService.Free();
lVerboseInfo.Free;
Screen.Cursor := crDefault;
end;
BUT I GET THE ERROR: EIBOClientError with message:'SPB Constant not
supported'. Process Stopped.
Any ideas what going on?
OK .. so I'm doing this alltogether incorectly .. I've dropped an
IBOBackupService component on a from, and added an IBConnection
Then a speedbutton, with code above .. so help me in the correct
direction please!
Thanks
Adrian
application.
procedure TFormBackupRestore.SpeedButton1Click(Sender: TObject);
var
j: integer;
lBackupService: TIBOBackupService;
lOptions: TBackupOptions;
lVerboseInfo: TStringList;
begin
Screen.Cursor := crHourGlass;
lVerboseInfo := TStringList.Create;
lBackupService := TIBOBackupService.Create(nil);
try
try
lBackupService.LoginPrompt := False;
lBackupService.ServerName := IB_Connection1.Server;
lBackupService.Protocol := IB_Connection1.Protocol;
lBackupService.Params.Add
('username='+IB_Connection1.Username);
lBackupService.Params.Add
('password='+IB_Connection1.Password);
lBackupService.Attach();
except
...
end;
finally
if lBackupService.Active then
lBackupService.Detach();
lBackupService.Free();
lVerboseInfo.Free;
Screen.Cursor := crDefault;
end;
BUT I GET THE ERROR: EIBOClientError with message:'SPB Constant not
supported'. Process Stopped.
Any ideas what going on?
OK .. so I'm doing this alltogether incorectly .. I've dropped an
IBOBackupService component on a from, and added an IBConnection
Then a speedbutton, with code above .. so help me in the correct
direction please!
Thanks
Adrian