Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-05-2019
APO APO is offline
Miembro
 
Registrado: feb 2008
Posts: 121
Poder: 17
APO Va por buen camino
Al consumir WebService me da Accessviolation al acceder al resultado

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!!
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Consumir Webservice darkerbyte Delphi para la web 5 17-11-2012 20:59:50
Consumir un webservice echo en delphi con php anahuel Delphi para la web 3 27-10-2012 07:20:42
Consumir WebService nasedo Varios 1 11-08-2011 14:32:57
Consumir Webservice MARLON1 Internet 0 06-07-2011 00:07:12
Problema al consumir un Webservice netcigos Varios 0 08-03-2004 15:09:30


La franja horaria es GMT +2. Ahora son las 08:48:35.


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
Copyright 1996-2007 Club Delphi