Hi

Just further to my original email. It does not create any file at all
and returns the following error message.

gbak: ERROR: multiple sources or destinations specified
gbak: Exiting before completion due to errors

My emails are taking hours to send and receive today so my apologies if
this arrives a bit late in the scene (i.e. someone might have already
replied to this well before I send this emil)!




Rob Martin
Software Engineer

phone +64 03 377 0495
fax +64 03 377 0496
web www.chreos.com

Wild Software Ltd



Robert martin wrote:

> Hi
>
> Sorry to bother people with this again, I thought I had it working but..
>
> Just switched form SS to classic to test that our backups (using
> TIBOBackupService) were working Ok but they don't!
>
> It seems to make tiny 1k backup files and not error. My code is as
> follows...
>
>
> IBOBackupService := TIBOBackupService.Create(IBODatabase.IB_Session);
> try
> with IBOBackupService do begin
> LoginPrompt := False;
> Params.Add('user_name=' + UserName);
> Params.Add('password=' + Password);
> Verbose := True;
> Options := [IgnoreLimbo];
> Protocol := cpTCP_IP;
> DatabaseName := IBODatabase.Path;
> ServerName := IBODatabase.Server;
> try
> Active := True;
> except
> on e : exception do begin
> eMessage := 'ERROR : ' + 'Could not activate backup,
> the following error occured..' + #13#13 + Trim(e.Message);
> if (ShowMessages = True) then begin
> MessageDlg(eMessage, mtInformation, [mbOk], 0);
> end;
> Continue := False;
> end;
> end;
>
> if (Continue = True) then begin
> try
> try
> BackupFile.Clear;
> BackupFile.Add(BackupName);
>
> ServiceStart;
>
> if (DoProcessMessages = False) then begin
> //RM 08/04/2005
> while (Eof = False) do begin
> GetNextChunk;
> end;
> end
> ......
>
>
> The while loop above only goes through once? It works for SS, what am I
> doing wrong?
>
>
>
>
>
>
>
>