Sub Activity_Create(FirstTime As Boolean)
.......
'richiamo DB MySQL
ipserver = "62.149.150.XXX"
dbname = "Sql759130_1XX"
dbpw = "XXXX55566666"
userdb = "Sql233344"
.............
End Sub
Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://www.queenandroid.com/xxxxxx/db1.php?hst="&ipserver&"&db="&dbname&"&usr="&userdb&"&pwd="&dbpw&"", Query)
End Sub
Sub JobDone(Job As HttpJob)
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
'Select select PAESI ritorna come valore Paesi - Questa è la prima maschera se non ci sono Preferiti
Case CERCA_PER_NAZIONI
'dichiariamo le stringhe per prelevare i valori dal DB
Dim web, icona As String
Dim COUNTRIES As List
Dim m As Map
m.Initialize
COUNTRIES = parser.NextArray 'returns a list with maps
For i = 0 To COUNTRIES.Size - 1
m = COUNTRIES.Get(i)
ListView1.TwoLinesLayout.ItemHeight = 200dip
ListView1.TwoLinesLayout.Label.height = 100dip
ListView1.TwoLinesLayout.SecondLabel.height = 100dip
ListView1.ScrollingBackgroundColor = Colors.black
ListView1.Color = Colors.Black
ListView1.AddTwoLinesAndBitmap2(m.Get("citta"), m.Get("agenzia"), LoadBitmap(File.DirAssets, m.Get("icona") ), m.Get("telefono") )
Next
...............
End Select
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub SlideMenu_Click(Item As Object)
Select Item
Case 1
'Ricerca Lista Radio per Nazioni
Dim Id As InputDialog
'Id.PasswordMode = True
'Id.InputType = Id.INPUT_TYPE_DECIMAL_NUMBERS
'Id.InputType = Id.INPUT_TYPE_NUMBERS
'Id.InputType = Id.INPUT_TYPE_PHONE
'Id.Input = ""
Id.Hint = "Inserisci Nazione da ricercare"
Id.HintColor = Colors.ARGB(196, 255, 140, 0)
ret = Id.Show( "Ricerca Radio per Nazione", "Inserisci Nazione da Ricercare", "Yes", "No", "", Bmp)
If ret = DialogResponse.POSITIVE Then
' Verifico che il valore non sia vuoto
If Id.Input = "" Then
Msgbox("Non hai inserito alcuna Nazione da ricercare","Messaggio")
Return
Else
ListView1.Clear
ProgressDialogShow("Carico Radio per Nazione Selezionata")
'Gets all the available countries
ExecuteRemoteQuery("SELECT citta, agenzia, telefono, icona FROM radio WHERE citta like'%" & Id.Input & "%'", CERCA_PER_NAZIONI)
End If
End If
Case .............