Yes you are correct, but not to worry, that was a typo when I copied it to
the Email. Ignore that bit Martin... Hows it goin on the other side of the
bridge in Suit City?
-----Original Message-----
From: Martin Ease <[EMAIL PROTECTED]>
To: Multiple recipients of list database <[EMAIL PROTECTED]>
Date: Friday, 19 November 1999 11:59 AM
Subject: RE: [DUG-DB]: using OnLogin event to set username and password with
IBExpress
>Tony
>
>In your IBDBLogin procedure, when you say...
>IBDB.Params.Clear;
>
>aren't you clearing out the setting for Database name which you just have
>set in OpenDatabaseConnection?
>
>Martin.
>
>
>-----Original Message-----
>From: Tony Blomfield [SMTP:[EMAIL PROTECTED]]
>Sent: Friday, November 19, 1999 11:27 AM
>To: Multiple recipients of list database
>Subject: [DUG-DB]: using OnLogin event to set username and password
>with IBExpress
>
>Hi.
>
>This code doesn't seem to do the trick and I allways get an exception "User
>Name or password unknown....."
>The OpenDatabaseConnection proc is fine and is just here to show how I lead
>into the Logon session
>
>
>procedure TDM.OpenDatabaseConnection;
>begin
>with IBDB do begin file://IBDB = TIBDatabase
> Screen.Cursor := crHourGlass;
> try
> Close;
> DatabaseName := AppInfo.ServerName;
> LoginPrompt := True;
> Open; // This will cause the OnLogon Event handler to fire
> finally
> Screen.Cursor := crDefault;
> end;
> end;
>end;
>
>
>procedure TDM.IBDBLogin(Database: TIBDatabase; LoginParams: TStrings);
>var S: String;
>begin
> IBDB.Params.Clear;
> with LoginParams do begin
> Values['user_name'] := 'SYSDBA';
> Values['password'] := 'masterkey';
> end;
>end;
>
>Anybody done this with success ?
>
>TIA,
>
>Tony.
>
>---------------------------------------------------------------------------
> New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>---------------------------------------------------------------------------
> New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
