Comprobar contraseña

[The Cid James]

Tengo el siguiente codigo, la idea como el soft solo maneja una sola contraseña para la configuracion es solamente comprobar la contraseña para ello hice esto

Código Delphi [-]
procedure Tflogin.BloginClick(Sender: TObject);
var
contraseña2: string;
begin
  fmodulo.qcontraseña.Active:= true;
  if trim(ELcont.Text) = ''
   then
    ShowMessage('Por favor intruzca la contraseña de administracion')
   else
    contraseña2 := CalcHash2 (ELcont.Text, haMD5);
    fmodulo.qcontraseña.Open;
      if contraseña2 = fModulo.qcontraseña['pass'] 
        then
          showMessage('hola') //jamas entra aqui
      else
        //ShowMessage('chau');
        Edit1.Text := contraseña2; // use esto para verificar si el hash coincide
end;

Por mas que el hash sea el mismo siempre me manda el else

[aposi]

Código Delphi [-]
if contraseña2 = fModulo.qcontraseña['pass'].value

[jhonny]

Si de pronto no es lo que señala aposi. Se me ocurre que quizá CalcHash2 esté devolviendo un espacio... quizá hay que aplicar Trim ahí. Si puedes poner el código de CalcHash2 a lo mejor podríamos probar el tema.

[The Cid James]

Empezado por aposi

Código Delphi [-]if contraseña2 = fModulo.qcontraseña['pass'].value

No me deja usar esto, error "invalid variant operarto"

Empezado por jhonny

Si de pronto no es lo que señala aposi. Se me ocurre que quizá CalcHash2 esté devolviendo un espacio... quizá hay que aplicar Trim ahí. Si puedes poner el código de CalcHash2 a lo mejor podríamos probar el tema.

Por lo visto si me esta devolviendo el valor nulo, probe con

Código Delphi [-]
      else
        //ShowMessage('chau');
        Edit1.Text := fModulo.qcontraseña['pass'];

Y efectivamente salio que era nulo, la consulta en teoria no deberia serlo

Y el codigo de calhast2 esta en este post y funciona perfectamente lo use para guardar la contraseña anteriormente Hash md5

[The Cid James]

Lo solucione de la siguente forma para que encontrara el valor de "pass"

Código Delphi [-]
procedure Tflogin.BloginClick(Sender: TObject);
var
contraseña2, contraseña3: string;
begin
fmodulo.qcontraseña.Active:= true;
  if trim(ELcont.Text) = ''
    then
      ShowMessage('Por favor intruzca la contraseña de administracion')
   else
    contraseña2 := CalcHash2 (ELcont.Text, haMD5);
    if  fmodulo.qcontraseña.Locate('pass', contraseña2, [])
      then
        begin
          Self.Close;
          fmodulo.qempresa.Active := true;
          fmodulo.qempresa.Edit;
          fconfiguracion := Tfconfiguracion.Create(self);
          fconfiguracion.Parent := fPrincipal.TPprincipal;
          fconfiguracion.ManualDock(fPrincipal.TPprincipal);
          fconfiguracion.Align := alClient;
          fconfiguracion.Show;
          fmodulo.qcontraseña.Active := false;
        end
    else
      ShowMessage('Contraseña incorrecta por favor intentelo de nuevo');
      fmodulo.qcontraseña.Active := false;
end;

[[AgustinOrtu]]

Volviendo al codigo original, los tiros van por aca:

Empezado por aposi

Código Delphi [-]
if contraseña2 = fModulo.qcontraseña['pass'].value

No tengo Delphi a mano para probar, pero fModulo.qcontraseña['pass'].value esto devuelve un Variant, y contraseña2 es un string. Y como no tengo a mano para probar, no recuerdo si se pueden comparar directamente strings y Variants.

Lo que si se puede hacer es convertir el valor del campo a string, quedando asi:

Código Delphi [-]
if contraseña2 = fModulo.qcontraseña['pass'].AsString

Ahora si es posible comparar los dos strings

El Locate lo que hace es posicionar el DataSet en el primer registro que cumple la condición, y devuelve True si encontró 1, o False en caso contrario