AFIP Argentina: Consultas al padron de contribuyentes

[[AgustinOrtu]]

Hola cmschneider

La verdad he usado poco y nada los componentes Indy,

En esta ocasion hice las pruebas con Delphi 2010; la version de los componentes Indy es la 10.5.5

Copie el codigo tal cual lo pusiste y obtengo una excepcion de tipo EIdIOHandlerPropInvalid con el mensaje

IOHandler value is not valid

Seguire investigando

[cmschneider]

Hola Agustín: ante todo muchas gracias por tu tiempo. Luego de muchos intentar, me dí cuenta que las librerías que me faltaban para hacer funcionar tu proyecto son las encargadas de parsear los Json devueltos (System.Json.Types, System.Json.Readers). Así que modifiqué la unit Afip.PublicAPI.Parsers para hacerla funcionar con las herramientas que tengo en XE8 y funcionó!
Nuevamente gracias; me será de mucha utilidad.

[[AgustinOrtu]]

En realidad es un error de mi parte haberlo implementado de esa forma, ya que se generan dependencias con otras bibliotecas y no existe la posibilidad de cambiar eso sin trocear el código

Por cierto no pude lograr obtener una respuesta con Indy, y eso que he agregado el componente interceptor para OpenSSL

En ese caso obtengo una excepción socket timeout

[[AgustinOrtu]]

Saludos,

Me termine dando por vencido con Indy (he probado con las diferentes versiones, la 9, la 10, buscado en internet y no hay caso )

He decidido darle una oportunidad a la biblioteca Synapse que es OpenSource. Con esta biblioteca no he tenido ningun problema para realizar las invocaciones GET

El siguiente paso fue eliminar las dependencias con los componentes NetHttpClient

He declarado una interface en la unidad Afip.PublicAPI.HttpClient y delegado la implementacion al usuario:

Código Delphi [-]
  IHttpClient = interface
    ['{AFA99837-6CBB-4111-A268-D8AB8E4CD8DD}']
    function HttpGetText(const AUrl: string): string;
    function HttpGetBinary(const AUrl: string): TStream;
  end;

Cualquier clase que implemente IHttpClient le sirve a mi clase TAfipQuery para comunicarse con el servidor REST

Se proveen dos implementaciones:

- La que ya teniamos hasta ahora, usando los components NetHttpClient

Esa implementacion la he movido a la unidad Afip.PublicAPI.NetHttpClient; esta encapsulado dentro de la clase TNativeHttpClient

- La nueva implementacion usando la biblioteca Synapse, en la unidad Afip.PublicAPI.SynapseHttpClient

He incluido tambien en el repo la propia biblioteca Synapse, con solo agregar la ruta en Delphi, ya esta listo para funcionar

... \AFIP\Third-Party\Synapse

El constructor de TAfipQuery ahora requiere una referencia a una interface de este tipo (dependency injection)

Código Delphi [-]
  constructor Create(const AHttpClient: IHttpClient; const APersister: IPersister_Afip = NIL);

Y eleva una excepcion si le pasamos NIL...

Código Delphi [-]
constructor TAfipQuery.Create(const AHttpClient: IHttpClient; const APersister: IPersister_Afip = NIL);
begin
  if AHttpClient = NIL then
    raise Exception.CreateFmt('%s.Create :: AHttpClient is NIL', [ClassName]);

He eliminado las funciones que operaban (por asi llamarlo de una manera) "al estilo static", o de funcion de clase (class function) porque ahora no tengo mas el constructor por defecto y no quiero seguir acoplando dependencias

Por ultimo he actualizado el demo para que cumpla con esta refactorizacion; tambien he incluido la posibilidad de usar una u otra biblioteca en tiempo de ejecucion (Synapse o NetHttp)

La biblioteca Synapse deberia funcionar con versiones mas antiguas de Delphi e incluso FPC (Lazarus)

[[AgustinOrtu]]

Saludos,

He terminado por desacoplar completamente el diseño

He implementado el parser usando la biblioteca lkJSON

El código ya está publicado, ahora tenemos dos clases que implementan las interfaces parser, usando dos bibliotecas distintas para tratar con JSON: la biblioteca System.Json de Delphi y la lkJSON

De este modo se amplia la compatiblidad con versiones de Delphi mas antiguas

He incluido algunas reformas, por ejemplo ahora el constructor va a tambien requerir las interfaces parser. De este modo el usuario puede incluir su implementacion si asi lo quiere

[[AgustinOrtu]]

Aca se puede ver el demo en ejecucion, compilado con Delphi 2010

Ya he solucionado los problemas de compilación (record helper, namespaces de las unidades, TFormatSettings)

[[AgustinOrtu]]

Hola nuevamente

He creado un port para FreePascal de esta biblioteca

Hay algunas pequeñas diferencias con la version para Delphi (mas que nada las dependencias, tuve que tocar bastante la biblioteca lkJSON)

Pueden obtenerlo acá

Saludos