Dim m As String = ""
Dim j As HttpJob
Log(m)
j.Initialize("", Me)
j.PostString("http://gpstracker.nowyouseeme.net/appmovil/index.php"&$"?IMEI=${public_data.imei}&bateria=10&longi=${public_data.longitude}&lat=${public_data.lattitude}&altitud=${public_data.altitud}&orientacion=N"$ ,m)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release
B4a code 2
B4X:
Dim m As String = $"?IMEI=${public_data.imei}&bateria=10&longi=${public_data.longitude}&lat=${public_data.lattitude}&altitud=${public_data.altitud}&orientacion=N"$
Dim j As HttpJob
Log(m)
j.Initialize("", Me)
j.PostString("http://gpstracker.nowyouseeme.net/appmovil/index.php",m)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release
Everything in the URL is send via GET.
Your post does only send an empty string (code1). All other values are GET Values.
B4X:
Dim j As HttpJob
j.Initialize("", Me)
Dim m As Map = CreateMap("IMEI":"aabbccddeeff","bateria":99,"longi":50.8336968,"lat":6.4410633,"altitud":0,"orientacion":"NW")
j.PostMultipart("http://gpstracker.nowyouseeme.net/appmovil/index.php",m,Null)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release
Logger connected to: 988ad036525346515630
--------- beginning of main
--------- beginning of system
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **
aabbccddeeff0 ' Result from website....
** Activity (main) Pause, UserClosed = false **
** Activity (main) Resume **
btw:
For this amount of data you could also use Download2 and rewite your php code to check for GET Values.
B4X:
Dim j As HttpJob
j.Initialize("", Me)
'Dim m As Map = CreateMap("IMEI":"aabbccddeeff","bateria":99,"longi":50.8336968,"lat":6.4410633,"altitud":0,"orientacion":"NW")
j.Download2("http://gpstracker.nowyouseeme.net/appmovil/index.php",Array As String("IMEI","aabbccddeeff","bateria",99,"longi",50.8336968,"lat",6.4410633,"altitud",0,"orientacion","NW"))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release