Paolodc
Member
Client: Main module:
Sub Process_Globals
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)
Private const rdcLink As String = "'http://192.168.43.144:17178/example"'http://
[QUOTE][/QUOTE] 'pcHotspot: 192.168.137.147
'deviceHotspot: 192.168.43.144
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
Private spnrCountry As Spinner
Private spnrCity As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
GetPaese
'CreateRequest
End Sub
Sub GetPaese
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("seleziona_tutto_paese", Null)
Log(req & cmd)
Wait For (req. ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)'there is an error
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
'work with result
req.PrintTable(res)
Else
Log("ERROR: " & j.ErrorMessage)
End If
j.Release
End Sub
Sub spnrCountry_ItemClick (Position As Int, Value As Object)
End Sub
Sub spnrCity_ItemClick (Position As Int, Value As Object)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CreateRequest As DBRequestManager
Dim req As DBRequestManager
req.Initialize(Me, rdcLink)
Log(req.IsInitialized)
'Log(req)
Return req
End Sub
Sub CreateCommand(Name As String, Parameters() As Object) As DBCommand
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = Name
'Log(cmd)
If Parameters <> Null Then cmd.Parameters = Parameters
Return cmd
End Sub