Fórum Um erro estranho no ClientDataSet #286999

  Arquivo := TIniFile.Create( ExtractFilePath(Application.ExeName) + ´Host.INI´ );
  try
    Arquivo.WriteString( ´Http´, ´Host´, edtUrl.Text );
    Arquivo.WriteString( ´Usuario´, ´Logon´, edtNome.Text );
  finally
    Arquivo.Free;
  end;

  with dmServer.SoapConnection do begin
    Connected := false;
    URL := edtUrl.Text;
    try
      Connected := true;
    except
      on e : Exception do MessageDlg( ´O servidor do Banco de Dados não foi encontrado. :´ + e.Message, mtInformation, [mbOK], 0 );
    end;
  end;

  if dmServer.SoapConnection.Connected = true then begin

  with dmUsuario.cdsUsuarioValida do begin
    Close;
    Params.ParamByName( ´NOME´ ).AsString := edtNome.Text;
    Params.ParamByName( ´SENHA´ ).AsString := maskSenha.Text;
    try
      Open;
      if not IsEmpty then begin
        fmPrincipal.ValidaSenha := true;
        fmPrincipal.IDUsuario := FieldByName( ´ID´ ).AsInteger;
        fmPrincipal.Perfil := FieldByName( ´PERFIL´ ).AsInteger;

        fmLogon.Close;
      end else begin
        fmPrincipal.ValidaSenha := false;
        Beep;
        MessageDlg( ´Senha inválida.´, mtWarning, [mbOK], 0 );
        Inc( Contador, 1 );
        if Contador > 3 then begin
          Beep;
          fmLogon.Close;
        end;
      end;
    except
      on e : Exception do MessageDlg( ´Erro ao tenta validar usuário no Banco de Dados. :´ + e.Message, mtInformation, [mbOK], 0 );
    end;
  end;

  end else begin
    Beep;
    MessageDlg( ´O servidor não foi encontrado.´, mtInformation, [mbOK], 0 );
  end;