10 respuestas en este tema

[giulichajari]

Hola amigos!

Escribo porque no logro consumir un servicio REST. Obtengo el mensaje 200 OK pero no logro obtener el JSON.

 

He arrastrado los siguientes componentes:

 

RESTRequestPadron

RESTClientPadron

RESTResponsePadron

RESTResponseDataSetAdapter

 

Ademas he asignado el client y el response al request. Al apretar "Execute" devuelve todo correcto.

 

He probado usar Rest Debugger de delphi. Y es lo mismo. No devuelve ningun contenido. sin embargo utilizando chrome si me aparecen los campos en json en pantalla.

 

Probe colocar un componente TMemo y utilizar el evento afterexecute, como se ve en el blog de neftali, y no devuelve nada.

 

No seque me falta realizar.

 

Gracias

[egostar]

Sin ver tu JASON es complicado, pero intenta hacer una prueba con el siguiente REST Service

 

https://jsonplacehol...de.com/comments

 

Si puedes leerlo entonces el asunto va por otro lado.

 

Saludos

Archivos adjuntos

•  REST.png   170,93KB   2 descargas

[giulichajari]

Sin ver tu JASON es complicado, pero intenta hacer una prueba con el siguiente REST Service

 

https://jsonplacehol...de.com/comments

 

Si puedes leerlo entonces el asunto va por otro lado.

 

Saludos

de hecho me funciono con tu servicio.

 

En mi caso se trata del servicio de AFIP. Este devuelve el STATUS y la DATA, en json obviamente.

Se ve que retorna el STATUS ok pero no puedo acceder a los datos. Tambien observo un html pero vacio...

 

Si quito la propiedad Response del componente RESTRequest obtengo un Response content is not a valid json.

[egostar]

de hecho me funciono con tu servicio.

 

En mi caso se trata del servicio de AFIP. Este devuelve el STATUS y la DATA, en json obviamente.

Se ve que retorna el STATUS ok pero no puedo acceder a los datos. Tambien observo un html pero vacio...

 

Si quito la propiedad Response del componente RESTRequest obtengo un Response content is not a valid json.

 

Hola

 

Pues solo que podamos acceder a ese servicio podriamos saber por donde van los tiros, 

 

Saludos

[giulichajari]

Hola

 

Pues solo que podamos acceder a ese servicio podriamos saber por donde van los tiros, 

 

Saludos

Te entiendo totalmente. El amigo @agustin hizo una aplicacion que consume este servicio.

 

la documentacion te la adjunto.

 

Pero la parte que mas interesa es:

 

La API ofrece una serie de servicios o recursos URI con el siguiente formato:

 

https://dominio/sist...o/identificador

 

Ej: https://soa.afip.gob.ar/sr-padron/v2/persona/20123456789

 

Los servicios devuelven un HTTP Response con Status Code 200 (OK) con encoding UTF8 conteniendo un JSON que tiene el siguiente aspecto:

 

respuesta exitosa

{"success":true, "data":{datosDeNegocio}}

respuesta no exitosa

{"success":false,"error":{descripcionDelError}}

 

y los datos personales y del negocio.

 

Para mi el problema es que no debo utilizar la url completa, como se muestra en los tutoriales, tal vez debo usar parametros. Seguire investigando

Archivos adjuntos

•  API AFIP Publica - Interfase para Desarrolladores Externos.doc   150,5KB   8 descargas

[giulichajari]

Bueno al fin empece a utilizar los componentes NetHTTPRequest y NetHTTPClient.

 

Luego de obtener el response use system.json para parsear el resultado.

 

No soy muy estricto programando jeje, pero he creado una funcion para pasarle como parametro una cadena, ya que el servicio de AFIP tiene distintas URL's de acuerdo a lo que solicitemos:

delphi

function ejecresquest(const recurso,version,tipoRecurso,idRecurso:string):string;
var
url,Nombre:string;
obj,objitems:TJSONobject;
objdata:TJSONObject;
response:IHTTPResponse;
NetHTTPRequestPADRON:TNetHTTPRequest;
NetHTTPClientPADRON:TNetHTTPClient;
begin
 
NetHTTPRequestPADRON:=TNetHTTPRequest.Create(nil);
NetHTTPClientPADRON:=TNetHTTPClient.Create(nil);
url:='https://soa.afip.gob.ar' + '/' + recurso + '/' + version + '/' + tipoRecurso + '/' + idRecurso;
NetHTTPRequestPADRON.URL:=url;
NetHTTPRequestPADRON.Client:=NetHTTPClientPADRON;
obj := TJSONobject.Create();
 
  try
   response:=NetHTTPRequestPADRON.Execute();
   obj:=TJSONObject.ParseJSONValue(response.ContentAsString()) as TJSONobject;
 
   objdata :=obj.Values['data'] as TJSONObject;
//todo lo que queramos
    ShowMessage(objdata.Values['nombre'].ToString);
  except
   on E:Exception do
   ShowMessage(E.ClassName + E.Message);
 
 
end;

Cabe destacar que en la respuesta de AFIP, como en cualquier JSON, los elementos que empiezan con llaves deben ser tratados como objetos, y los que comienzan con corchetes como arrays. De acuerdo a esto es el tipo de "casteo" que debemos realizar.

 

Saludos.

[egostar]

Bueno al fin empece a utilizar los componentes NetHTTPRequest y NetHTTPClient.

 

Luego de obtener el response use system.json para parsear el resultado.

 

:::::

 

No soy muy estricto programando jeje, pero he creado una funcion para pasarle como parametro una cadena, ya que el servicio de AFIP tiene distintas URL's de acuerdo a lo que solicitemos:

Cabe destacar que en la respuesta de AFIP, como en cualquier JSON, los elementos que empiezan con llaves deben ser tratados como objetos, y los que comienzan con corchetes como arrays. De acuerdo a esto es el tipo de "casteo" que debemos realizar.

 

Saludos.

 

Me parece que está bien abordado, tal vez se puede optimizar/mejorar, pero si obtienes lo que necesitas esta perfecto.

 

Gracias por compartirlo.

 

Saludos

[Agustin Ortu]

Cuidado con los memory leaks!

[giulichajari]

Cuidado con los memory leaks!

em si, es un prototipo de codigo jej. Tu te refieres a que me falta liberar los objetos creados una vez treminado el proceso?

 

Muchas gracias..saludos

[Agustin Ortu]

Exactamente, tanto los net http como los objetos json

[giulichajari]

Exactamente, tanto los net http como los objetos json

si de hecho habia pensado anidar dos try para meter en un finally los metodos Free. Asi como asignar los datos que vienen del JSON  a los  atributos de mi clase cliente..

 

Saludos