Programación > Programación en Android

hc ya no funciona en bisual basic android

(1/1)

javierjava:
que tal alguien sabe porque ya no funciona este código Visual basic Android (b4a), antes si me funcionaba   bien pero ahora ya no funciona
da el siguiente error

agradezco cualquier comentario.

--- Código: ---Sub Process_Globals
Dim SQL1 As SQL
Dim cursor1 As Cursor
Dim Req As HttpRequest
Dim hc As HttpClient
End Sub

Sub Globals
Dim Button1 As Button
Dim ListView1 As ListView
Dim Button2 As Button
Dim Button3 As Button
Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("principal")
If FirstTime Then
hc.Initialize("hc")
End If
End Sub

Sub Button2_Click
Dim Query As String
cursor1 = SQL1.ExecQuery("SELECT * FROM geo_data")
For I = 0 To cursor1.RowCount - 1
cursor1.Position = I
Query="INSERT INTO geo_data(fecha,hora,latitud,longitud,phonedID,transmitido) VALUES ('" & cursor1.GetString("fecha") & "','" & cursor1.GetString("hora") & "','" & cursor1.GetString("latitud") & "','" & cursor1.GetString("longitud") & "','" & cursor1.GetString("phonedID") & "','" & cursor1.GetString("transmitido") & "')"
Req.InitializePost2("http://localhost/pruebagps.php",Query.GetBytes("UTF8"))
hc.Execute(Req,1)
Next
End Sub

Sub hc_ResponseSuccess (Response As HttpResponse, tarea As Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
End Sub

Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, tarea As Int)
Log("Error: " & Reason & ", StatusCode: " & StatusCode)
If Response <> Null Then
Log(Response.GetString("UTF8"))
Response.Release
Label1.Text= Reason & ", StatusCode: " & StatusCode
End If
End Sub

--- Fin del código ---

Bazooka:
Deberías dejar la pregunta en el foro Oficial de Basic4 alli te responderán rápido.
Yo te podria ayudar tal vez si podria ver un poco más el code pero con eso que muestra allí no me alcanza para mi limitado conocimiento!

Saludos

Navegación

[0] Índice de Mensajes