From: "ajwreyford" <wreymed@...>

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

Not completely sure, but shouldn't this be:

('user_name='+IB_Connection1.UserName);

** notice the underscore character between "user" and "name"

HTH
Woody (TMW)