Enviar JSON por POST

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • Enviar JSON por POST

    Bueno aquí mi primera pregunta de algo que llevo embrollado varias horas.

    Tengo este json:
    [{"ID":"8662","CANT":"100"},{"
    ID":"8663","CANT":"200"]}

    Tengo un ws con el cual actualizo registros.

    Desde B4A quiero enviar el json pero no lo consigo. Este es el codigo B4A (solo lo pertinente):
    Dim Cadena As String
    Dim CANT As Long
    Dim j As HttpJob

    j.Initialize("json",Me)
    Cadena = "http://miweb.com/update_tabla.php"
    DataJSON = (aqui pongo el json)

    j.PostString(Cadena, DataJSON) '<=== Se supone que esto envia.

    If j.Success == True Then
    etc etc

    El codigo llega hasta Sucess en True pero no se aplico ningun cambio. El ws lo he probado desde VB6 y si funciona mas no desde B4A.

    ¿Alguien tendria alguna pista que me pueda brindar? gracias.
    --------------------------------
    Si eres agradecido, obtendrás más...

    YAcosta

  • #2
    Me respondo. Esto:

    j.PostString(Cadena, DataJSON)

    Si, lo que estaba mal era el JSON. Lo corregí y se envió.
    --------------------------------
    Si eres agradecido, obtendrás más...

    YAcosta

    Comentario


    • #3
      ¿Aplausos virtuales!!! Que tus problemas te duren como éste, o menos.
      José María Movilla Cuadrado
      ______________________
      Normas del foro
      www.foro.vb-mundo.com
      www.vb-mundo.com

      Comentario

      Trabajando...
      X