Al consumir WebService me da Accessviolation al acceder al resultado

[APO]

Hola,
Lo que pretendo es consumir un Webservice enviando un XML (generado con los métodos ya importados del WSDL) y luego obtener el XML de respuesta para saber si es aceptado o rechazado. El caso es que logro consumir correctamente el Webservice, pero a la hora de acceder a la respuesta me da un error Accessviolation. Seguramente no estoy inicializando o creando correctamente alguna clase o lo que sea, pero llevo ya varios días probándolo de todas las maneras y no logro solucionarlo. Os pongo en detalle lo que hago a ver si alguien me puede ayudar.

Primero importo el WSDL de la siguiente dirección:
https://www3.agenciatributaria.gob.e...s/Ie215V1.wsdl

Esto genera una unidad en Delphi para consumir el Webservice, pongo solamente la parte que interesa para obtener el resultado:

Código Delphi [-]
  
Ie215V1 = interface(IInvokable)
  ['{AC981E05-A0BD-5252-1FB3-FB4E248F1318}']

    // Cannot unwrap: 
    //     - Output part does not refer to an element
    //     - Input element wrapper name does not match operation's name
    function  Ie215V1(const Ie215V1Ent: Ie215): Ie215V1SalType; stdcall;
  end;

function GetIe215V1(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): Ie215V1;

La función GetIe215V1 devuelve una clase TRemotable que es la que contiene el resultado del Webservice y a la que no logro acceder. La clase es esta:

Código Delphi [-]
  Ie215V1SalType = class(TRemotable)
  private
    FIe201: Ie201;
    FIe201_Specified: boolean;
    FIe204: Ie204;
    FIe204_Specified: boolean;
    procedure SetIe201(Index: Integer; const AIe201: Ie201);
    function  Ie201_Specified(Index: Integer): boolean;
    procedure SetIe204(Index: Integer; const AIe204: Ie204);
    function  Ie204_Specified(Index: Integer): boolean;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property Ie201: Ie201  Index (IS_OPTN or IS_REF) read FIe201 write SetIe201 stored Ie201_Specified;
    property Ie204: Ie204  Index (IS_OPTN or IS_REF) read FIe204 write SetIe204 stored Ie204_Specified;
  end;

Y este es el código que utilizo para consumir el Webservice:

Código Delphi [-]

procedure TfrmSIANE.Ie215_PresentacionAlbaranCirculacion;
var
   XMLEnvio: Ie215;
   XMLRespuesta: Ie215V1SalType;
begin
   //Relleno los datos para consumir el WebService
   XMLEnvio:=Ie215.Create;
   XMLEnvio.Id:='20190503000001';
   XMLEnvio.NifDeclarante:='11111111H';
   XMLEnvio.NombreDeclarante:='NOMBRE DEL DECLARANTE';
…

   //Aquí llamo a la función para consumir el WebService
   XMLRespuesta:=GetIe215V1(True,'',HTTPRIO1).Ie215V1(XMLEnvio);

   //Proceso el resultado
   if XMLRespuesta.Ie201.Cuerpo.AlbaranVER.DatosAceptacion.CRE)<>'' then   --> Esta es la línea que me da AccessViolation 
   begin
      //...
   end;
end;

Por favor, si alguien puede arrojar luz sobre este tema se lo agradeceré, pero llevo ya atascado con esto varios días y no doy con la solución.
Muchas gracias!!

[dec]

Hola a todos,

¿Tal vez tendrías que instanciar la clase antes de llamar a "GetIe215V1"? Es decir:

Código Delphi [-]
XMLRespuesta := Ie215V1SalType.Create();
try
  XMLRespuesta := GetIe215V1(True,'',HTTPRIO1).Ie215V1(XMLEnvio);
finally
  XMLRespuesta.Free();
end;

En todo caso, asegúrate de que la respuesta de "GetIe215V1" es del tipo esperado, por ejemplo, antes de intentar acceder al mismo:

Código Delphi [-]
if (XMLRespuesta is Ie215V1) and (XMLRespuesta.Ie201.Cuerpo.AlbaranVER.DatosAceptacion.CRE) <> '') then
begin
  //...
end;

No estoy seguro de haberte ayudado... pero a lo mejor tomas alguna idea...

[APO]

Hola dec,
He probado como dices, haciendo el Create, pero me sigue dando el mismo error AcessViolation.

Tanto si pongo el Create como si no, lo raro es que el XMLRespuesta que es de tipo Ie215V1SalType, tiene dos propiedades que son Ie201 y Ie204 y las dos vienen a nil, y por eso me da el accessviolation. Lo que no entiendo es porque vienen a nil, porque he conseguido capturar el XML de respuesta y tiene valor:

<?xml version="1.0" encoding="ISO-8859-1"?>
<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
<env:Header/>
<env:Body Id="Body">
<Ie204 xmlns:tip="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/tipos.xsd" xmlns:lis="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/listas.xsd" xmlns:cab="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/cab.xsd" xmlns="https://www3.agenciatributaria.gob.es/static_files/common/internet/dep/aduanas/es/aeat/adia/avit/ws/Ie204V1Sal.xsd">
<Cabecera>
<cab:EmisorMensaje>SIANE.ES</cab:EmisorMensaje>
<cab:ReceptorMensaje>11111111H</cab:ReceptorMensaje>
<cab:FechaPreparacion>2019-05-03</cab:FechaPreparacion>
<cab:HoraPreparacion>10:09:49</cab:HoraPreparacion>
<cab:IdentificadorMensaje>20190503100949351618</cab:IdentificadorMensaje>
<cab:IdentificadorRelacionado>201904300000000001</cab:IdentificadorRelacionado>
</Cabecera>
<Cuerpo>
<MensajeRechazo>
<ErrorFuncional>
<CodigoError>12</CodigoError>
<MotivoError>07009-Mensaje YA consumido con anterioridad y rechazado.</MotivoError>
<PosicionError>Cabecera:IdentificadorMensaje</PosicionError>
<ValorOriginal>201904300000000001</ValorOriginal>
</ErrorFuncional>
</MensajeRechazo>
</Cuerpo>
</Ie204>
</env:Body>
</env:Envelope>

Gracias por tu ayuda de todas formas!

[dec]

Hola a todos,

El XML de respuesta que muestras en tu último mensaje contiene un error... ¿no tendrá eso que ver? Tú tratas de acceder a algo como "XMLRespuesta.Ie201.Cuerpo.AlbaranVER", pero, en el XML que muestras, no aparece "Ie201", sino "Ie204". Pero, es que además, tampoco parece existir algo como "XMLRespuesta.Ie204.Cuerpo.AlbaranVER"...

Tal vez tengas que comprobar si la respuesta contiene un error, puesto que, al menos en ese caso, el XML no parece ser el que tú esperas.

[APO]

Hola dec, gracias por tu tiempo.

Sí, el XML de respuesta es correcto que contenga un error. Lo estoy forzando para poder procesar los errores, por eso dice 'Mensaje YA consumido con anterioridad y rechazado.'
El problema lo tengo precisamente con eso, que sí que puedo obtener el XML de respuesta, pero en cambio el objeto que me tiene que devolver el WebService me lo devuelve vacío, a nil.

Lo que devuelve el WebService es la clase Ie215V1SalType :

Código Delphi [-]
  Ie215V1SalType = class(TRemotable)
  private
    FIe201: Ie201;
    FIe201_Specified: boolean;
    FIe204: Ie204;
    FIe204_Specified: boolean;
    procedure SetIe201(Index: Integer; const AIe201: Ie201);
    function  Ie201_Specified(Index: Integer): boolean;
    procedure SetIe204(Index: Integer; const AIe204: Ie204);
    function  Ie204_Specified(Index: Integer): boolean;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property Ie201: Ie201  Index (IS_OPTN or IS_REF) read FIe201 write SetIe201 stored Ie201_Specified;
    property Ie204: Ie204  Index (IS_OPTN or IS_REF) read FIe204 write SetIe204 stored Ie204_Specified;
  end;

Y esta a su vez contiene dos propiedades, Ie201 si el mensaje es correcto y Ie204 si el mensaje es rechazado.
Pongo el esquema para que se vea más claro https://ibb.co/D9hjVRY :



En este caso el XML viene rellenado con Ie204 porque viene rechazado. Pero el problema, es la respuesta Ie215V1SalType me viene tanto con el Ie201 y Ie204 a nil. La única manera que puedo acceder a la respuesta es consultando el XML. Si no hay más remedio lo tendré que hacer así, pero lo ideal es poder trabajar con el objeto Ie215V1SalType que proporciona el WebService ya que es mucho más cómodo para acceder a sus valores...

Muchas gracias de nuevo.

[kino_ct]

Hola APO


He realizado la implementación en Delphi y además desde .Net con c#
Al realizar la llamada Ie215V1, la respuesta devuelta es null, empiezo a pensar que el mensaje que devuelve el servicio no es parseable al objeto (no lo se)...


Por favor, si alguién diera con la solución del problema indicadlo.
Un saludo y gracias