Petición HTTP
Hola a tod@s.
Estoy intentando comunicarme con un "PinPad" (lector de tarjetas de crédito) y para eso me dicen que tengo que hacer una llamada con el siguiente formato: El tema es que estoy un poco liado porque para esto imagino que tendría que usar un objeto HTTPClient insertando un JSONObject con el cuerpo del mensaje y tengo un par de problemas: - No sé cómo crearlo teniendo en cuenta de que hay en medio una especie de array en el elemento "executeOptions". - De todas formas he hecho una llamada de pruebas con un json que seguramente no valdrá, pero por si acaso, y el "PinPad" ni se inmuta y ya no sé si es que estoy haciendo algo mal o me estoy equivocando al poner ip o puerto o qué pasa. El código que estoy usando es uno que he pillado de un ejemplo que puso nuestro compañero Keys y lo he tuneado:
A ver si algún amable forero me pueda dar luz. Gracias y un saludo. |
Ejemplo con Indy
Hola!
No se qué versión de Delphi usas, pero este ejemplo sirve para versiones viejitas y nuevas: En el uses de la unidad agregás:
McJSon es una unidad de manejo de JSON, descargable desde https://github.com/hydrobyte/McJSON En la implementación agregás:
Un ejemplo de llamada y creación del JSON: En el Caption del form tendrás la respuesta del equipo. Espero te ayude! Saludos Lucho |
Lucho. Gracias por tu respuesta y tu código.
Estoy montándolo y me da error en la linea:
Me dice: Object reference is nil: get item by key "executeOptions" ¿Alguna idea de qué puede ser? Gracias de nuevo y un saludo. |
Hola!
Fijate que el código que te envié es
y vos estás ejecutando
Primero tenés que agregar el objecto y luego el contenido. SAludos |
Buenas de nuevo.
Tienes razón, no estaba poniendo bien el código. Infeliz de mi pensaba que la parte .. AJSon.O[' ... por lo que fuera no estaba bien escrita y la había corregido cambiando la O por Add :o:o Muchas gracias. Me ha servido muchísimo. Saludos. |
La franja horaria es GMT +2. Ahora son las 03:57:48. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi