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

Thanks Eduardo,

I have modified my approach to use this method, and it works like a
gem.

Adam

>
> 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
>