alla chiusura deve partire sta routine che crea una stringa da passare a php
che poi faccia o meno il jobdone non mi interessa
ma almeno in debug non entra proprio nella routine
nb, al momento faccio il salvataggio ogni secondo, inserendo il richiamo dentro al timer che uso per il gioco stesso, ma non è fattibile in un gioco che spero venga usato da milioni di utenti
alla chiusura deve partire sta routine che crea una stringa da passare a php
che poi faccia o meno il jobdone non mi interessa
ma almeno in debug non entra proprio nella routine
Nella routine (InsertDati) deve entrare per forza, quando l'Activity va in pausa (o quando viene chiusa - UserClosed = True)
Prova a scrivere InsertD e premere ctrl+barra spazio, dovrebbe completare il nome della routine.
Nella routine (InsertDati) deve entrare per forza, quando l'Activity va in pausa (o quando viene chiusa - UserClosed = True)
Prova a scrivere InsertD e premere ctrl+barra spazio, dovrebbe completare il nome della routine.
Se pensi questo, si vede che non è indispensabile e soprattutto non è necessario condividerli, quindi forse potresti pensare di salvarli su qualche cloud.
Però, dato che hai già fatto parte del lavoro, sarebbe meglio trovare il bug, no?
Se pensi questo, si vede che non è indispensabile e soprattutto non è necessario condividerli, quindi forse potresti pensare di salvarli su qualche cloud.
Però, dato che hai già fatto parte del lavoro, sarebbe meglio trovare il bug, no?
infatti devo riuscirci, il codice php e la routine funzionano perché richiamati altrove vanno bene
condividerli non so... dipende da come verrà il gioco,
forse necessari per mantenere il gioco sincronizzato tra due dispositivi dello stesso utente
#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
InsertDati
End Sub
Sub Service_Destroy
End Sub
Sub MD5calc(Value As String) As String
////cut
End Sub
Sub JobDone(jobd As HttpJob)
If jobd.Success = False Then
Log("Error: " & Main.job.ErrorMessage)
Return
Else
If jobd.JobName = "InsertDati" Then
Log("OK")
Return
End If
End If
End Sub
Sub InsertDati
Dim sql As String
Dim MD5 As String = MD5calc("xxxxxxxi") ' la password password per il Name
Main.job.Initialize("InsertDati",Me)
sql="http://www.giannini-lorenzo.com/Mondo1/InsertDati.php?chk=" & MD5 & "&id=" & Main.accountName & "&diamanti=0"
sql=sql & "&cibo=" & Main.Variabili(0) '.cibo
sql=sql & "&legno=" & Main.Variabili(1) 'Legno
sql=sql & "&pietra=" & Main.Variabili(2) 'rocce
sql=sql & "&colla=" & Main.Variabili(3) 'fiori
Main.job.Download(sql )
End Sub
in main
B4X:
Sub Process_Globals
Dim query As String
Dim job As HttpJob
Dim Tempo As Timer
Dim Tvita As Timer
Dim Variabili(100) As Long
Dim accountName As String
End Sub
Sub Activity_Pause (UserClosed As Boolean)
StartService(AntEEEVolutinS)
End Sub