Android Tutorial Trial Tutorial

'Optional: Remove '[' and ']' from the response received from my server:-> array[{jsonObject}]
 Dim tmp As String
 Dim lungh As Int
 tmp=result
 lungh= tmp.Length
 tmp= tmp.SubString2(1,lungh-1) 'cut first+last char
 result=tmp
 '-----------------------------------------------------

<?php
$hst  = "localhost";
$db = "xxxxxxxxxx";
$usr = "xxxxxxxx";
$pwd = "xxxxxxxx";
$imi= $_GET['imei'];

$conn_DB=mysql_connect($hst,$usr,$pwd) or die(mysql_error());
mysql_select_db($db) or die(mysql_error());

$query="SELECT * FROM gtrial WHERE imei ='$imi'";
$result=mysql_query($query,$conn_DB) or die(mysql_error());
$numrows=mysql_num_rows($result);

If ($numrows == 0) {
$restano=3;
$queryINS="INSERT INTO gtrial (imei,startsleft) VALUES ('$imi',$restano)";
mysql_query($queryINS);
                    }
else if ($numrows > 0) {
//never > 1 anyway
$restano=mysql_result($result,0,'startsleft'); 
        if($restano>0)         {
            $restano=$restano -1;
$queryUPDT="UPDATE gtrial SET startsleft = $restano WHERE imei='$imi'";
mysql_query($queryUPDT);
                            }
                        }
                        
$queryOUT="SELECT * FROM gtrial WHERE imei ='$imi'";
$output=mysql_query($queryOUT);    

$rows = array();
    while($r = mysql_fetch_assoc($output)) {
        $rows[] = $r;
    }
    print json_encode($rows);
?>

Sub Process_Globals
Dim httpC As HttpClient
'put here to obfuscate user,password,php.name and hosting [->Release(obfuscated)]
Dim indirizzo As String : indirizzo= "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx?imei="
'Dim parcheggio As String: parcheggio="http://www.yourSite.com/" '(no more needed here)
End Sub

Sub Globals
Dim p As PhoneId
Dim deviceID As String
deviceID = p.GetDeviceId
Dim m As Map

End Sub

Sub Activity_Create(FirstTime As Boolean)
deviceID = p.GetDeviceId
Log(deviceID)
If FirstTime Then
httpC.Initialize("httpC")
End If
checkTrialsRemaining
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
Activity.Finish
End Sub

Sub checkTrialsRemaining
Dim req As HttpRequest
req.InitializeGet(indirizzo&deviceID)
httpC.Execute(req,1)
ProgressDialogShow("Validation ...")

End Sub


Sub httpC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Log("Response: "&Response) '<-add this line
Dim result As String
Dim JSON As JSONParser
Dim restOpen As Int
result = Response.GetString("UTF8")
Log(result)

'Optional: Remove '[' and ']' from the response received from my server:-> array[{jsonObject}]
Dim tmp As String
Dim lungh As Int
tmp=result
lungh= tmp.Length
tmp= tmp.SubString2(1,lungh-1) 'cut first+last char
result=tmp
'-----------------------------------------------------
Log(result)

JSON.Initialize(result)
Log(result)
Dim m As Map
m=JSON.NextArray

restOpen=m.Get("startsleft")
ProgressDialogHide

If restOpen=0 Then
Msgbox("Trial expired"," Trial")
Response.Release
Activity.Finish
Else
If restOpen > 1 Then
Msgbox((restOpen - 1)&" out of 3 openings remaining"," Trial")
Else
Msgbox("Last opening of 3"," Trial")
End If
End If
Response.Release
End Sub

Sub httpC_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
'no Reason shown in order not to give the user informations about hosting and php names:
ProgressDialogHide
Msgbox("Connection error. Try later again."," Trial")

If Response <> Null Then
Log("Resp.not Null")
Response.Release
End If
'If no web connection is available, Response is naturally Null and you don't have to release a Null object
ExitApplication
End Sub

<?php$hst  = "localhost";
...

Sub httpC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim result As String
Dim JSON As JSONParser
Dim restOpen As Int
result = Response.GetString("UTF8")

'Optional: Remove '[' and ']' from the response received from my server:-> array[{jsonObject}]
Dim tmp As String
Dim lungh As Int
tmp=result
lungh= tmp.Length
tmp= tmp.SubString2(1,lungh-1) 'cut first+last char
result=tmp
'-----------------------------------------------------

JSON.Initialize(result)

msgbox("JSON STRING : "&result,"")'------------------------------->add this

'...
'...etc...
End Sub