Not Convert type(Array Byte) into type(double)

Delphi

09/10/2009

Fala pessoal!!!

Quanto tempo não falo com vcs!!! Mas ja volto e com problemas
Atualmente to desenvolvendo uma aplicação utilizando MYSQL e ao efetuar a criação do LOGIN fiz um encode na senha do camarada, porém quando efetuou o decode para autenticar o usuário tenho o seguinte erro:

Could not convert variant of type (Array Byte) into typo (double):


Abaixo o código de validação


procedure TFrmLogin.edtSenhaExit(Sender: TObject);
var cmdSQL, cTexto : string;
begin
  cTexto := ´Decodificando senha´;
  cmdSQL:= ´Select decode(senha,´+#39+´qwerty´+39+´) senha from sm1010 where username = ´+39+edtUsuario.Text+39;
  FrmMaster.GravaCmdSQL(cmdSQL, cTexto);
  with cdsPesquisa do
    begin
      Close;
      CommandText := cmdSQL;
      Execute;
      Open;
      First;

     if VarIsNull(Fields[0].value) then
        begin
          lblMensagem.Caption := ´Senha invalida!´;
          edtSenha.SetFocus;
        end
      else
        begin
          [b]if Fields[0].Value = edtSenha.Text then[/b]
            begin
              btnok.Enabled := True;
              _SenhaOK := True;
            end
          else
            lblMensagem.Caption :=´Senha invalida!´;
        end;
    end;
end;


o erro ocorre na comparação if Fields[0].Value = edtSenha.Text then, porém não conheço uma função que possa efetuar o tratamento do tipos envolvidos.

Fico no aguardo de uma ajuda.

[]´s

Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Afarias

Afarias

09/10/2009

Fields[0].AsString ??


T+


GOSTEI 0
Wagnermarrane

Wagnermarrane

09/10/2009

Fields[0].AsString ?? T+


INfelizmente não funciona ja tentei o retorno do decode não fica correto


GOSTEI 0
Wagnermarrane

Wagnermarrane

09/10/2009

up


GOSTEI 0
POSTAR