mspencewasunavailable wrote:

> I need to let my users do backups and restores from the application.
> I've downloaded IBOAdmin, which seems like it ought to be able to do
> what I want, and I've managed to successfully compile and install it.
>
> Is there any documentation anywhere on how to use it? Examples of its
> use?

Here's the function I use to restore DBs with it. Backup is pretty much done
by replacing "Restore" with "Backup" and removing the APageSize param. We
only use the embedded version, so no idea if this will work on Classic.

This is adapted from the examples Helen mentioned.

function RestoreFirebirdDB(
ABackupFileName, ADBFileName, AUsername, APassword: String;
AOptions: TRestoreOptions; APageSize: Integer; ASession: TIB_Session):
Boolean;
var
RestoreSvc: TIBORestoreService;
begin
Result := False;

if not FileExists(ABackupFileName) then
begin
Exit;
end;

try
RestoreSvc := TIBORestoreService.Create(nil);
try
RestoreSvc.Session := ASession;
RestoreSvc.BackupFile.Add(ABackupFileName);
RestoreSvc.DatabaseName.Add(ADBFileName);
RestoreSvc.PageSize := APageSize;
RestoreSvc.Options := AOptions;
RestoreSvc.LoginPrompt := False;
RestoreSvc.Params.Add('user_name=' + AUsername);
RestoreSvc.Params.Add('password=' + APassword);

RestoreSvc.Active := True;
try
RestoreSvc.ServiceStart;
while RestoreSvc.IsServiceRunning do
begin
Sleep(1);
end;
finally
RestoreSvc.Active := False;
end;

Result := True;
finally
RestoreSvc.Free;
end;
except
// Trap IBO Admin exceptions and just return False. All others go through
// to the caller.
on EIBOInterBaseError do
begin
end;
on EIBOInterBaseRoleError do
begin
end;
on EIBOClientError do
begin
end;
else
raise;
end;
end;

--
Toby