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
