TIBSecurityService Problem


2003-10-27 03:08:34 AM
delphi79
Hi,
I am trying to change the InterBase password using the ModifyUser
method of TIBSecurityService and I receive the error message: "start
Parameters missing or incorrect". My code is below:
with ibssProduct do
begin
.
.
begin //Match was found so do a ModifyUser
Active := False;
Params.Clear;
Params.Add('user_name='+sUsername);
Params.Add('password='+XarEncrypt('MEDIA', sOldPassword));
Active := True;
SecurityAction := ActionModifyUser;
Password := XarEncrypt('MEDIA', sNewPassword);
ModifyUser;>>GIVES ERROR MESSAGE ON THIS LINE
end;
end;
Any help appreciated.
Jim