Saludos nuevamente.
Luego de tener el JSON con un formato correcto, este es el código para parsearlo y obtener los datos.
Aún me falta quitar en el PHP la coma que me genera de más para que todo ande como la seda.
Código Delphi
[-]
var
JSo : TJSONObject;
JSOarray : TJSONArray;
JSOValue: TJSONValue;
remitente, destinatario, mensaje, estado : string;
begin
JSOarray := TJSONObject.ParseJSONValue(Memo_Respuesta.Text) as TJSONArray;
for JSOValue in JSOarray do
begin
JSo := TJSONObject.ParseJSONValue(JSOValue.ToJSON) as TJSONObject;
remitente := JSo.Values['nombre'].ToString;
destinatario := JSo.Values['destinatario'].ToString;
mensaje := JSo.Values['mensaje'].ToString;
estado := JSo.Values['estado'].ToString;
end;
end;
Neftali, Cuando comencé con este proyecto, que no es más que la interacción de una app android con un servicio web, esta y las otras entradas relacionadas fueron las que más me ayudaron a tener claro lo que debía hacer. Más allá de la metodología en sí que he utilizado: MUCHAS GRACIAS HERMANO.
http://neftali.clubdelphi.com/25-gen...ervice-en-php/
Aquí te dejo unas imágenes para que veas lo que estoy realizando y por si tienes alguna sugerencia. Espero puedas verlas.
https://nube.uic.cu/index.php/s/gfzw6tFxwTCwrCN