Tengo este código PHP
que me devuelve datos de la base de datos según usuario y pass......
Y este otro para recoger los datos en B4A
El JSON me devuelve este resultado:
El LOG me dice esto......
Llevo leyendo de TODO y los códigos de otros compañeros funcionan, pero el mío no......
PHP:
<?php
session_start();
include('class.consultas.php');
$usuario = $_GET['username'];
$password = $_GET['password'];
$ObjetosPermisos = new Permisos;
$Estatus = 0;
$Login = $ObjetosPermisos->ValidacionLogin($usuario,$password);
if(!empty($Login)){
foreach ($Login as $key => $value) {
$Id = $value['ID'];
$Nombre = $value['NOMBRE'];
$Apellido = $value['APELLIDOS'];
$Verificado = $value['VERIFICADO'];
$Estatus_User = $value['ESTATUS'];
if($Verificado==0){
$Estatus = 3;
}elseif($Estatus_User==0) {
# code...
$Estatus = 2;
}else{
$Estatus = 1;
}
if($Estatus==1){
$_SESSION['USERNO'] = $Nombre;
$_SESSION['USERID'] = $Id;
}
}
}else{
$Estatus = 0;
}
$Envio = array(
"id" => $Id,
"nombre" => $Nombre,
"apellidos" => $Apellido,
"verificado" => $Verificado,
"estado" => (string)$Estatus,
"usuario" => $usuario,
"clave" => $password
);
//echo $Estatus;
print json_encode($Envio);
?>que me devuelve datos de la base de datos según usuario y pass......
Y este otro para recoger los datos en B4A
B4X:
#Region Project Attributes
#ApplicationLabel: xxxx
#VersionCode: 1
#VersionName:
#SupportedOrientations: portrait
#CanInstallToExternalStorage: True
#End Region
#AdditionalRes: ../LibRes
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim Temporizador As Timer
Public NombreUsuario As String
Public NUHSA As String
Dim Id As String
Dim Usuario As String
Dim Clave As String
Dim Nombre As String
Dim Apellidos As String
Dim Verificado As String
Dim Estado As String
End Sub
Sub Globals
Private lblusuario As Label
Private lblclave As Label
Private txtusuario As EditText
Private txtcodigo As Label
Private txtclave As EditText
Private login As Button
Private salir As Button
Dim loguear As HttpJob
Dim res As String
Dim parseo As JSONParser
Dim variables As List
Dim forceClose As Boolean
forceClose = False
Dim Beep As Beeper
Dim BeepMal As Beeper
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("login")
loguear.Initialize("registro", Me)
Dim cs As CSBuilder
cs.Initialize.Size(20).Typeface(Typeface.SANS_SERIF)
cs.Image(LoadBitmap(File.DirAssets, "nzero_p.jpg"), 30dip, 30dip, False).Append(" NZero")
cs.BackgroundColor(Colors.Blue)
cs.PopAll
Temporizador.Initialize("Tiempo",2000)
Temporizador.Enabled = False
Activity.Title = cs
Beep.Initialize(300, 500) '300 milliseconds, 500 hz
BeepMal.Initialize(300, 800) '300 milliseconds, 800 hz
End Sub
Sub Tiempo_tick
txtcodigo.Text = ""
Temporizador.Enabled = False
End Sub
Sub Activity_Resume
If forceClose Then ExitApplication
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub login_Click
loguear.Download2("http://xxxx.xxx/xxxx/xxx.php", Array As String("username", txtusuario.Text, "password", txtclave.Text))
End Sub
Sub salir_Click
forceClose = True
Activity.Finish
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success Then
res = Job.GetString
parseo.Initialize(res)
variables = parseo.NextArray ' **** LINEA 111 que da el error ****
For Each variable As Map In variables
Id = variable.Get("id")
Usuario = variable.Get("usuario")
Clave = variable.Get("clave")
Nombre = variable.Get("nombre")
Apellidos = variable.Get("apellido")
Verificado = variable.Get("verificado")
Estado = variable.Get("estado")
Next
Select Estado
Case "3"
txtcodigo.Text = "Usuario no verificado"
BeepMal.Beep
Case "2"
txtcodigo.Text = "Usuario desactivado"
BeepMal.Beep
Case "1"
txtcodigo.Text = "Usuario Admitido"
Beep.Beep
StartActivity("Escaneo")
Case "0"
txtcodigo.Text = "Usuario o clave erronea"
BeepMal.Beep
End Select
Temporizador.Enabled = True
End If
End SubEl JSON me devuelve este resultado:
El LOG me dice esto......
Llevo leyendo de TODO y los códigos de otros compañeros funcionan, pero el mío no......
