#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
ExecuteRemoteQuery("SELECT * FROM `LeaderBoard` WHERE `UsersLevel` LIKE 12345....100", "SelectLevel")
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Try
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("https://example.com/GetFromMySQL.php", Query)
Catch
Log (LastException.Message)
End Try
End Sub
Sub JobDone(Job As HttpJob)
Try
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case "SelectLevel"
Dim AllPlayersInALevel As String
AllPlayersInALevel=""
Dim l As List
l = parser.NextArray
If l.Size>0 Then
For i=0 To l.Size-1
AllPlayersInALevel=AllPlayersInALevel&l.Get(i)
Next
End If
.
.
.
ToastMessageShow(AllPlayersInALevel,False)
End Select
Else
Log(Job.ErrorMessage)
End If
Job.Release
Catch
Log (LastException.Message)
End Try
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub<?php
$databasehost = "serverurl.com";
$databasename = "NameOfDatabase";
$databaseusername ="Username";
$databasepassword = "Password";
$con = mysqli_connect($databasehost,$databaseusername,$databasepassword, $databasename) or die(mysqli_error($con));
mysqli_set_charset ($con , "utf8");
$query = file_get_contents("php://input");
$sth = mysqli_query($con, $query);
if (mysqli_errno($con)) {
header("HTTP/1.1 500 Internal Server Error");
echo $query.'\n';
echo mysqli_error($con);
}
else
{
$rows = array();
while($r = mysqli_fetch_assoc($sth)) {
$rows[] = $r;
}
$res = json_encode($rows);
echo $res;
mysqli_free_result($sth);
}
mysqli_close($con);
?>
