Sub jobdone(job As HttpJob)
Dim Liste As List 'contiendra les données retournées par le serveur JSON
Dim map0 As Map 'contiendra ces données en paire : key -> value
Dim reponse As String 'réponse du serveur, en 1er dans le JSON
Dim json As JSONParser 'objet JSON pour traiter le retour serveur
'traitement du résultat des 20 premiers
Log("job name :"&job.Jobname)
If job.JobName== "job1" Then 'cas : réception des données du serveur web
clv3.Initialize(Me, "clv3") 'on initialise la clv qui va contenir les 20 premiers noms venant du serveur web
tab1.AddView(clv3.AsView, 0, 0, 100%x, 100%y) 'et ajout dans l'onglet qui va bien (Recherche)
json.Initialize(job.GetString) 'on récupère le JSON
Liste=json.NextArray 'on le met dans la liste
map0.Initialize 'initialisation de la map
map0=Liste.Get(0) 'on lit le 1er élément
reponse=map0.Get("reponse") 'affectation de la réponse du serveur
If reponse == "ok0" Then 'si cette réponse est 'ok0' (on est bon ...)
For cpt=1 To Liste.Size-1 'début de la boucle de remplissage de la map
Dim map1 As Map '
map1.Initialize '
map1=Liste.Get(cpt) 'affectation
clv3.Add(CreateListItem(map1, clv3.AsView.Width, 95dip), 95dip,clv3.AsView) 'ajout d'un panel pour chaque enregistrement
Next
Else
ToastMessageShow("Erreur de récupération des données",True)
End If
' traitement de la requête d'inscription
Else If job.JobName == "jobID" Then 'cas : réception de l'ID de l'utilisateur (inscription)
Log("retour :"&job.GetString)
json.Initialize(job.GetString) 'on récupère les données JSON
'Log("job.string dans jobID"&job.GetString)
Liste=json.NextArray 'on remplit la liste
Log("jobID ... retour :"&Liste)
map0.Initialize 'on initialise la map
map0=Liste.Get(0) 'on lit le 1er élément
reponse=map0.Get("reponse") 'affectation de la réponse du serveur
If reponse=="ok1" Then 'si cette réponse est ok1 (on est bon ...)
SQL1.Initialize(File.DirRootExternal, "Database.db", False)
'id INT, nom TEXT, prenom TEXT, adresse TEXT, ville TEXT, cp TEXT, mobile TEXT, mail TEXT, villeclub TEXT, numeroclub TEXT, nomregion TEXT, numeroregion TEXT, photo TEXT)
'si l'utilisateur a bien été trouvé sur le serveur web, on l'ajoute localement avec un ID = -1 (réservé utilisateur)
Dim param As String
param="(-1,'"&nom.Text&"','"&prenom.Text&"','adresse','ville','cp','"&mobile.Text&"','mail','villeclub','numeroclub','nomregion','numeroregion','photo')"
Log("param pour jobID sql :"¶m)
SQL1.ExecNonQuery("insert into annuaire values "¶m)
tabmanager.setTabEnabled2(TabHost1,True,0)
tabmanager.setTabEnabled2(TabHost1,True,1)
ToastMessageShow("Vous avez été identifié ...",True)
showResume
Else
ToastMessageShow("Vous n'avez pas été identifié ... vérifiez les données, et recommancez",True)
End If
Else If (job.JobName == "jSearch") Then
Dim newSearch As Button
tab1.RemoveAllViews
newSearch.Initialize("newSearch")
newSearch.Text="Nouvelle recherche"
clv3.Initialize(Me, "clv3") 'on initialise la clv qui va contenir les 20 premiers noms venant du serveur web
tab1.AddView(clv3.AsView, 0dip, 50dip, 100%x, 100%y) 'et ajout dans l'onglet qui va bien (Recherche)
tab1.AddView(newSearch,10dip,5dip,200dip,40dip)
'Log(job.GetString)
json.Initialize(job.GetString) 'on récupère le JSON
Liste=json.NextArray 'on le met dans la liste
'Log("Search :"&Liste)
map0.Initialize 'initialisation de la map
map0=Liste.Get(0) 'on lit le 1er élément
reponse=map0.Get("reponse") 'affectation de la réponse du serveur
If reponse == "ok2" Then 'si cette réponse est 'ok0' (on est bon ...)
For cpt=1 To Liste.Size-1 'début de la boucle de remplissage de la map
Dim map1 As Map '
map1.Initialize '
map1=Liste.Get(cpt) 'affectation
'Log(map1)
clv3.Add(CreateListItem(map1, clv3.AsView.Width, 95dip), 95dip,clv3.AsView) 'ajout d'un panel pour chaque enregistrement
Next
Else
ToastMessageShow("Search : Erreur de récupération des données",True)
End If
Else
ToastMessageShow("job http inconnu !"&job.JobName,True)
End If
End Sub
