Sub Process_Globals
Dim hc As HttpClient
Dim Camp1, Camp2,Camp3 As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
hc.Initialize("hc")
End If
End Sub
Sub ejecutar_query()
Dim Query,TascaId As String 'Query es la cadena que contiene la consulta y
'TascaId se utiliza para identificar la solicitud
'ya que el proceso se realiza de forma asincrona.
'La respuesta en hc_responsesuccess incluira este valor
'permitiendonos saber a que consulta corresponde.
Query ="SELECT tabla.Camp1, tabla.Camp2, tabla.Camp3 FROM tabla "
Dim Consulta As HttpRequest
Consulta.InitializePost2("http://192.168.1.100/codigo.php",Query.GetBytes("UTF8"))
hc.Execute(Consulta,TascaId)
End Sub
Sub hc_responseerror(Response As HttpResponse,Reason As String, Statuscode As Int,TascaId As Int)
'Colocar aqui control de errores en la respuesta
End Sub
Sub hc_responsesuccess(Response As HttpResponse,TascaId As Int)
Dim Resp As String
Dim Parser As JSONParser
Dim Registres As List
Resp = Response.GetString("UTF8") 'La respuesta contiene un formato JSON
Parser.Initialize(Resp) 'que analizamos con este JSONParser
Registres = Parser.NextArray 'En la lista Registres cargamos el array resultante
For i = 0 To Registres.Size - 1 'Recorremos la lista y cargamos el mapa m con los pares de valores
Dim m As Map
m = Registres.Get(i)
Camp1 = m.Get("Camp1") 'Los pares key / value del map corresponden al nombre del campo de la tabla
Camp2 = m.Get("Camp2") 'y al contenido del mismo.
Camp3 = m.Get("Camp3")
Next
Response.Release
End Sub<?
$databasehost = "localhost";
$databasename = "test";
$databaseusername ="usuario";
$databasepassword = "pwd";
$con = mysql_connect($databasehost,$databaseusername,$databasepassword) OR die(mysql_error());
mysql_select_db($databasename) OR die(mysql_error());
$query = file_get_contents("php://input");
mysql_set_charset('utf8');
$sth = mysql_query($query);
If (mysql_errno()) {
echo $query.'\n';
echo mysql_error();
}
Else
{
$rows = Array();
While($r = mysql_fetch_assoc($sth)) {
$rows[] = ($r);
}
print json_encode($rows);
}
?>
