cambiar contraseña de usuario Interbase,pero desde mi aplicacion

[federiconqn21]

hola Delphines:
Quisiera saber como cambiar la contraseña(password) de un usuario de una base Interbase,pero desde mi programita.
Se que existen unos componentes llamados Interbase Admin.
Pero no se cual de ellos utilizar para realizar dicho fin.alguien me podria dar una manito?.
desde ya....muchas gracias
Salu2

[[Héctor Randolph]]

El componente que te funciona es IBSecurityService, te dejo un ejemplito que puedes adaptar a tus necesidades.

Código Delphi [-]
    with IBSecurityService1 do
    begin
      //Coloca un componente IBServerPrperties con la configuración de tu servidor
      ServerName:=IBServerProperties1.ServerName;
      Protocol:=IBServerProperties1.Protocol;
      // Aqui le pasas los datos actuales del usuario que deseas modificar
      Params.Values['user_name']:='USER_1';
      Params.Values['password']:='123';
     //Aqui le pasas el nuevo password
      Password:='mi_nuevo_password';
     //Aquí le indicas que debe actualizar los datos, en este caso solamente cambiaste el Password
      SecurityAction:=ActionModifyUser;
      try
        try
          Active:=True;//Ejecutas la acción
        except
          on E:EIBInterbaseError do
           raise Exception.Create('No fue posible cambiar la contraseña'+#10#13+
                                  'Se presentó un error con el siguiente mensaje'+#10#13+
                                  E.Message);
        end;
      finally
         Active:=False;
      end;
    end;

Te recomendaria revisar el demo que trae el Delphi en la carpeta {$DELPHI}\Demos\Db\IBX\Admin (Sólo en versiones recientes)


Saludos