'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim hc As HttpClient
Dim STUB As Int
STUB = 1
Dim fonee As Int
fonee = 9093768439 - [B]number (phone) I am looking for if you look at the screenshot1 attachment from the debugger you will see the fonee is not the 909 number we were looking for[/B]
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)
If FirstTime Then
hc.Initialize("hc")
End If
Dim req As HttpRequest
req.InitializeGet("Http://......./android2.php")
hc.Execute(req, 1)
'ExecuteRemoteQuery("SELECT * FROM users WHERE phonenumber", fonee)
'Select * from users where phonenumber=[variable]
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
'Work with the result
End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("Error connecting: " & Reason & " " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
End If
End Sub
'Sub ExecuteRemoteQuery (Query As String, TaskId As Int)
' Query = fonee
' Dim req As HttpRequest
' req.InitializePost2("Http://...../android2.php", Query.GetBytes("UTF-8"))
' hc.Execute(req, TaskId)
'End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
