Spanish ayuda de http a httputils2 querys(solucionado)

DATASOFT (SOLUSOFT S A)

Member
Licensed User
Longtime User
la librería http con los nuevos "api" me impide la conexión a mi base de datos :( entonces por aquí leyendo encontré que debía usar las librerías de httputils2 con las que no tengo nada de experiencia y aun estoy aprendiendo al ver los ejemplos veo solo consultas en su mayoría selecciones de sitios web.

en el ejemplo FlickrViewer hay un servicio y una clase son estrictamente necesarias?, son para mejorar el rendimiento?:confused: sorry muchas preguntas GUIENME HACIA LA LUZ :D

que necesito para hacer algo como esto en httputils2:
B4X:
Sub validacion

'
Dim req As HttpRequest
Dim consulta As String

consulta="select cliente from tabla"

req.InitializePost2("mipaginaweb",consulta.GetBytes("UTF8"))
t=1
req.Timeout=20000
control.Execute(req, t)
'
End Sub
B4X:
Sub control_ResponseSuccess (Response As HttpResponse, tarea As Int)

Log("control 1 existe el archivo")
Dim res As String
res = Response.GetString("UTF8")
Log("Respuesta del servidor: " & res)


Dim parser As JSONParser
parser.Initialize(res)

Dim j As List '


        j.initialize
        j= parser.NextArray




Select tarea
Case 1
end sub
 

Descartex

Well-Known Member
Licensed User
Longtime User
Por ejemplo:

Desde el activity haces algo asi:

ExecuteRemoteQuery("Select * from tabla", "Un caso")

Teniendo estos Subs en dicho activity

B4X:
Sub ExecuteRemoteQuery(Query As String, JobName As String)
    Dim job As HttpJob
    job.Initialize(JobName, Me)
    job.PostString("url_a_tu_servidor", Query)
End Sub

B4X:
Sub JobDone(Job As HttpJob)
    If Job.Success Then
        Dim res As String
        res = Job.GetString
        Dim parser As JSONParser
        parser.Initialize(res)
        Dim Respuesta As List
        Respuesta=parser.NextArray
        Log(Job.JobName&"-"&res)
        Select Job.JobName
            Case "Un caso"
                              Codigo de este caso
            Case "Otro caso"
                              Codigo de este caso
        End Select
    End If
    Job.Release
End Sub

Como ves, el JobDone sustituye al ResponseSuccess, es más generico, pero controlas quien lo activa con el JobName.

Es muy sencillo, verás que no te cuesta mucho la migración.

Un saludo.
 
Top