Hello Adam,


There is a method in TIBBackupService that allows you to check the
progress of backup: it's EOF.

I have cut a simplified excerpt from a program of mine, which I'm listing here.
There are some strange elements in it, but I think they shoud have an
obious meaning (user.text is the content of a TEdit named user, etc)


////////////////////////// begin listing //////////////////////

with IBBackupService do begin
//fill in parameters
ServerName := '';
LoginPrompt := False;
params.Clear;
Params.Add('user_name='+user.Text);
Params.Add('password='+pass.Text);
Active := True;
Verbose := false;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := dbfile.Text;
BackupFile.Clear;
BackupFile.Add(TargetFile);
//start backup
ServiceStart;
//wait for it
While not Eof do begin
temp:=GetNextLine;
if temp<>'' then
memoMessages.Lines.Add(temp);
Application.ProcessMessages;
end;
//when it gets through here, it's done!
memoMessages.Lines.Add('Finished!');
Application.ProcessMessages;
Active := False;
end;

////////////////////////// end of listing //////////////////////


--
HIH,
Eduardo Resek