Consumir servicio soap sri ecuador

[IVAND]

Hola a todos , tengo un webservice (soap) que se le debe pasar un parametro (clave de acceso) para que me retome un archivo xml , soy nuevo en esto espero me den una luz de antemano gracias

https://cel.sri.gob.ec/comprobantes-...esOffline?wsdl

el parametro que envia es clave de acceso 2908201901179001094500120051060000797057735934411

Eso me debe retornar un archivo xml

Nota : he estado leyendo los indy pero la verdad soy nuevo en esto y ando medio perdido

Gracias por su tiempo

[[movorack]]

Hola, ¿Cuál es tu duda?

Acá te dejo algunos enlaces que pueden ayudarte con este tema:

Importar un WSDL a Delphi: https://docwiki.embarcadero.com/RADS...rt_WSDL_Wizard
Como consumir un webservice soap: https://www.youtube.com/watch?v=jlRq4AqDpJo

[Neftali [Germán.Estévez]]

Empezado por IVAND

Nota : he estado leyendo los indy pero la verdad soy nuevo en esto y ando medio perdido

No comentas qué versión de Delphi estás utilizando.
Si tu versión (es de las nuevas) y ya incluye los componentes REST (TRESTClient, TRESTRequest, TRESTResponse), es mejor que lo intentes con estos componentes en lugar de las Indy.

[[egostar]]

Empezado por Neftali [Germán.Estévez]

No comentas qué versión de Delphi estás utilizando.
Si tu versión (es de las nuevas) y ya incluye los componentes REST (TRESTClient, TRESTRequest, TRESTResponse), es mejor que lo intentes con estos componentes en lugar de las Indy.

Que tal amigo Germán,

Es un Web Service SOAP. utilizando el WSDL Import sería mas fácil.

Saludos

[IVAND]

Hola a todos
Utilizo delphi 2009


uso el import wsl y me genera una unidad

Código Delphi [-]
 AutorizacionComprobantesOffline = interface(IInvokable)
  ['{9454FB2D-D447-50CB-A1BE-8496232441E1}']
    function  autorizacionComprobante(const claveAccesoComprobante: string): respuestaComprobante; stdcall;
    function  autorizacionComprobanteLote(const claveAccesoLote: string): respuestaLote; stdcall;
  end;

Esta me genera unas funciones

pero no se como acceder a ellas he utilizado un programa q se llama SoapUI 5.7.0 el cual coloco la url y me desplega unas opciones justamente es la funcion q le indico autorizacionComprobante -- la cual se debe pasar una clave de acceso (2007202207139187147300120010240000052940000004414) y me tendria q retornar un archivo xml con toda la informacion requerida para luego leer ese archivo y hacer varias cosas pero no se como llamar o donde almacear en resultado de esa funcion

Debo almacenar en un compobente memo

Utilizo ademas un componente HTTPRIO que vi en un manual por ahi q se debe usar junto a algunas funciones que salen ya automaticamente
en port sale esta opcion AutorizacionComprobantesOfflinePort
en service sale AutorizacionComprobantesOfflineService
wsdllocation sale https://cel.sri.gob.ec/comprobantes-...esOffline?wsdl

adjunto archivo para ver si me dan una luz

Código Delphi [-]
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : https://cel.sri.gob.ec/comprobantes-...esOffline?wsdl
//  >Import : https://cel.sri.gob.ec/comprobantes-electronicos-ws/AutorizacionComprobantesOffline?wsdl>0
// Encoding : UTF-8
// Version  : 1.0
// (20/07/2022 18:55:26 - - $Rev: 19514 $)
// ************************************************************************ //

unit AutorizacionComprobantesOffline1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_UNBD = $0002;
  IS_UNQL = $0008;
  IS_REF  = $0080;


type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:dateTime        - "http://www.w3.org/2001/XMLSchema"[Gbl]

  respuestaComprobante = class;                 { "http://ec.gob.sri.ws.autorizacion"[GblCplx] }
  autorizacion         = class;                 { "http://ec.gob.sri.ws.autorizacion"[GblCplx] }
  autorizacion2        = class;                 { "http://ec.gob.sri.ws.autorizacion"[GblElm] }
  mensaje              = class;                 { "http://ec.gob.sri.ws.autorizacion"[GblCplx] }
  mensaje2             = class;                 { "http://ec.gob.sri.ws.autorizacion"[GblElm] }
  respuestaLote        = class;                 { "http://ec.gob.sri.ws.autorizacion"[GblCplx] }

  autorizaciones = array of autorizacion2;      { "http://ec.gob.sri.ws.autorizacion"[Cplx] }


  // ************************************************************************ //
  // XML       : respuestaComprobante, global, 
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // ************************************************************************ //
  respuestaComprobante = class(TRemotable)
  private
    FclaveAccesoConsultada: string;
    FclaveAccesoConsultada_Specified: boolean;
    FnumeroComprobantes: string;
    FnumeroComprobantes_Specified: boolean;
    Fautorizaciones: autorizaciones;
    Fautorizaciones_Specified: boolean;
    procedure SetclaveAccesoConsultada(Index: Integer; const Astring: string);
    function  claveAccesoConsultada_Specified(Index: Integer): boolean;
    procedure SetnumeroComprobantes(Index: Integer; const Astring: string);
    function  numeroComprobantes_Specified(Index: Integer): boolean;
    procedure Setautorizaciones(Index: Integer; const Aautorizaciones: autorizaciones);
    function  autorizaciones_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property claveAccesoConsultada: string          Index (IS_OPTN or IS_UNQL) read FclaveAccesoConsultada write SetclaveAccesoConsultada stored claveAccesoConsultada_Specified;
    property numeroComprobantes:    string          Index (IS_OPTN or IS_UNQL) read FnumeroComprobantes write SetnumeroComprobantes stored numeroComprobantes_Specified;
    property autorizaciones:        autorizaciones  Index (IS_OPTN or IS_UNQL) read Fautorizaciones write Setautorizaciones stored autorizaciones_Specified;
  end;

  mensajes   = array of mensaje2;               { "http://ec.gob.sri.ws.autorizacion"[Cplx] }


  // ************************************************************************ //
  // XML       : autorizacion, global, 
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // ************************************************************************ //
  autorizacion = class(TRemotable)
  private
    Festado: string;
    Festado_Specified: boolean;
    FnumeroAutorizacion: string;
    FnumeroAutorizacion_Specified: boolean;
    FfechaAutorizacion: TXSDateTime;
    FfechaAutorizacion_Specified: boolean;
    Fambiente: string;
    Fambiente_Specified: boolean;
    Fcomprobante: string;
    Fcomprobante_Specified: boolean;
    Fmensajes: mensajes;
    Fmensajes_Specified: boolean;
    procedure Setestado(Index: Integer; const Astring: string);
    function  estado_Specified(Index: Integer): boolean;
    procedure SetnumeroAutorizacion(Index: Integer; const Astring: string);
    function  numeroAutorizacion_Specified(Index: Integer): boolean;
    procedure SetfechaAutorizacion(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  fechaAutorizacion_Specified(Index: Integer): boolean;
    procedure Setambiente(Index: Integer; const Astring: string);
    function  ambiente_Specified(Index: Integer): boolean;
    procedure Setcomprobante(Index: Integer; const Astring: string);
    function  comprobante_Specified(Index: Integer): boolean;
    procedure Setmensajes(Index: Integer; const Amensajes: mensajes);
    function  mensajes_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property estado:             string       Index (IS_OPTN or IS_UNQL) read Festado write Setestado stored estado_Specified;
    property numeroAutorizacion: string       Index (IS_OPTN or IS_UNQL) read FnumeroAutorizacion write SetnumeroAutorizacion stored numeroAutorizacion_Specified;
    property fechaAutorizacion:  TXSDateTime  Index (IS_OPTN or IS_UNQL) read FfechaAutorizacion write SetfechaAutorizacion stored fechaAutorizacion_Specified;
    property ambiente:           string       Index (IS_OPTN or IS_UNQL) read Fambiente write Setambiente stored ambiente_Specified;
    property comprobante:        string       Index (IS_OPTN or IS_UNQL) read Fcomprobante write Setcomprobante stored comprobante_Specified;
    property mensajes:           mensajes     Index (IS_OPTN or IS_UNQL) read Fmensajes write Setmensajes stored mensajes_Specified;
  end;



  // ************************************************************************ //
  // XML       : autorizacion, global, 
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // ************************************************************************ //
  autorizacion2 = class(autorizacion)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : mensaje, global, 
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // ************************************************************************ //
  mensaje = class(TRemotable)
  private
    Fidentificador: string;
    Fidentificador_Specified: boolean;
    Fmensaje: string;
    Fmensaje_Specified: boolean;
    FinformacionAdicional: string;
    FinformacionAdicional_Specified: boolean;
    Ftipo: string;
    Ftipo_Specified: boolean;
    procedure Setidentificador(Index: Integer; const Astring: string);
    function  identificador_Specified(Index: Integer): boolean;
    procedure Setmensaje(Index: Integer; const Astring: string);
    function  mensaje_Specified(Index: Integer): boolean;
    procedure SetinformacionAdicional(Index: Integer; const Astring: string);
    function  informacionAdicional_Specified(Index: Integer): boolean;
    procedure Settipo(Index: Integer; const Astring: string);
    function  tipo_Specified(Index: Integer): boolean;
  published
    property identificador:        string  Index (IS_OPTN or IS_UNQL) read Fidentificador write Setidentificador stored identificador_Specified;
    property mensaje:              string  Index (IS_OPTN or IS_UNQL) read Fmensaje write Setmensaje stored mensaje_Specified;
    property informacionAdicional: string  Index (IS_OPTN or IS_UNQL) read FinformacionAdicional write SetinformacionAdicional stored informacionAdicional_Specified;
    property tipo:                 string  Index (IS_OPTN or IS_UNQL) read Ftipo write Settipo stored tipo_Specified;
  end;



  // ************************************************************************ //
  // XML       : mensaje, global, 
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // ************************************************************************ //
  mensaje2 = class(mensaje)
  private
  published
  end;

  autorizaciones2 = array of autorizacion2;     { "http://ec.gob.sri.ws.autorizacion"[Cplx] }


  // ************************************************************************ //
  // XML       : respuestaLote, global, 
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // ************************************************************************ //
  respuestaLote = class(TRemotable)
  private
    FclaveAccesoLoteConsultada: string;
    FclaveAccesoLoteConsultada_Specified: boolean;
    FnumeroComprobantesLote: string;
    FnumeroComprobantesLote_Specified: boolean;
    Fautorizaciones: autorizaciones2;
    Fautorizaciones_Specified: boolean;
    procedure SetclaveAccesoLoteConsultada(Index: Integer; const Astring: string);
    function  claveAccesoLoteConsultada_Specified(Index: Integer): boolean;
    procedure SetnumeroComprobantesLote(Index: Integer; const Astring: string);
    function  numeroComprobantesLote_Specified(Index: Integer): boolean;
    procedure Setautorizaciones(Index: Integer; const Aautorizaciones2: autorizaciones2);
    function  autorizaciones_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property claveAccesoLoteConsultada: string           Index (IS_OPTN or IS_UNQL) read FclaveAccesoLoteConsultada write SetclaveAccesoLoteConsultada stored claveAccesoLoteConsultada_Specified;
    property numeroComprobantesLote:    string           Index (IS_OPTN or IS_UNQL) read FnumeroComprobantesLote write SetnumeroComprobantesLote stored numeroComprobantesLote_Specified;
    property autorizaciones:            autorizaciones2  Index (IS_OPTN or IS_UNQL) read Fautorizaciones write Setautorizaciones stored autorizaciones_Specified;
  end;


  // ************************************************************************ //
  // Namespace : http://ec.gob.sri.ws.autorizacion
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // binding   : AutorizacionComprobantesOfflineServiceSoapBinding
  // service   : AutorizacionComprobantesOfflineService
  // port      : AutorizacionComprobantesOfflinePort
  // URL       : https://cel.sri.gob.ec/comprobantes-...obantesOffline
  // ************************************************************************ //
  AutorizacionComprobantesOffline = interface(IInvokable)
  ['{9454FB2D-D447-50CB-A1BE-8496232441E1}']
    function  autorizacionComprobante(const claveAccesoComprobante: string): respuestaComprobante; stdcall;
    function  autorizacionComprobanteLote(const claveAccesoLote: string): respuestaLote; stdcall;
  end;

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


implementation
  uses SysUtils;

function GetAutorizacionComprobantesOffline(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): AutorizacionComprobantesOffline;
const
  defWSDL = 'https://cel.sri.gob.ec/comprobantes-electronicos-ws/AutorizacionComprobantesOffline?wsdl';
  defURL  = 'https://cel.sri.gob.ec/comprobantes-electronicos-ws/AutorizacionComprobantesOffline';
  defSvc  = 'AutorizacionComprobantesOfflineService';
  defPrt  = 'AutorizacionComprobantesOfflinePort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as AutorizacionComprobantesOffline);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


destructor respuestaComprobante.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(Fautorizaciones)-1 do
    SysUtils.FreeAndNil(Fautorizaciones[i]);
  System.SetLength(Fautorizaciones, 0);
  inherited Destroy;
end;

procedure respuestaComprobante.SetclaveAccesoConsultada(Index: Integer; const Astring: string);
begin
  FclaveAccesoConsultada := Astring;
  FclaveAccesoConsultada_Specified := True;
end;

function respuestaComprobante.claveAccesoConsultada_Specified(Index: Integer): boolean;
begin
  Result := FclaveAccesoConsultada_Specified;
end;

procedure respuestaComprobante.SetnumeroComprobantes(Index: Integer; const Astring: string);
begin
  FnumeroComprobantes := Astring;
  FnumeroComprobantes_Specified := True;
end;

function respuestaComprobante.numeroComprobantes_Specified(Index: Integer): boolean;
begin
  Result := FnumeroComprobantes_Specified;
end;

procedure respuestaComprobante.Setautorizaciones(Index: Integer; const Aautorizaciones: autorizaciones);
begin
  Fautorizaciones := Aautorizaciones;
  Fautorizaciones_Specified := True;
end;

function respuestaComprobante.autorizaciones_Specified(Index: Integer): boolean;
begin
  Result := Fautorizaciones_Specified;
end;

destructor autorizacion.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(Fmensajes)-1 do
    SysUtils.FreeAndNil(Fmensajes[i]);
  System.SetLength(Fmensajes, 0);
  SysUtils.FreeAndNil(FfechaAutorizacion);
  inherited Destroy;
end;

procedure autorizacion.Setestado(Index: Integer; const Astring: string);
begin
  Festado := Astring;
  Festado_Specified := True;
end;

function autorizacion.estado_Specified(Index: Integer): boolean;
begin
  Result := Festado_Specified;
end;

procedure autorizacion.SetnumeroAutorizacion(Index: Integer; const Astring: string);
begin
  FnumeroAutorizacion := Astring;
  FnumeroAutorizacion_Specified := True;
end;

function autorizacion.numeroAutorizacion_Specified(Index: Integer): boolean;
begin
  Result := FnumeroAutorizacion_Specified;
end;

procedure autorizacion.SetfechaAutorizacion(Index: Integer; const ATXSDateTime: TXSDateTime);
begin
  FfechaAutorizacion := ATXSDateTime;
  FfechaAutorizacion_Specified := True;
end;

function autorizacion.fechaAutorizacion_Specified(Index: Integer): boolean;
begin
  Result := FfechaAutorizacion_Specified;
end;

procedure autorizacion.Setambiente(Index: Integer; const Astring: string);
begin
  Fambiente := Astring;
  Fambiente_Specified := True;
end;

function autorizacion.ambiente_Specified(Index: Integer): boolean;
begin
  Result := Fambiente_Specified;
end;

procedure autorizacion.Setcomprobante(Index: Integer; const Astring: string);
begin
  Fcomprobante := Astring;
  Fcomprobante_Specified := True;
end;

function autorizacion.comprobante_Specified(Index: Integer): boolean;
begin
  Result := Fcomprobante_Specified;
end;

procedure autorizacion.Setmensajes(Index: Integer; const Amensajes: mensajes);
begin
  Fmensajes := Amensajes;
  Fmensajes_Specified := True;
end;

function autorizacion.mensajes_Specified(Index: Integer): boolean;
begin
  Result := Fmensajes_Specified;
end;

procedure mensaje.Setidentificador(Index: Integer; const Astring: string);
begin
  Fidentificador := Astring;
  Fidentificador_Specified := True;
end;

function mensaje.identificador_Specified(Index: Integer): boolean;
begin
  Result := Fidentificador_Specified;
end;

procedure mensaje.Setmensaje(Index: Integer; const Astring: string);
begin
  Fmensaje := Astring;
  Fmensaje_Specified := True;
end;

function mensaje.mensaje_Specified(Index: Integer): boolean;
begin
  Result := Fmensaje_Specified;
end;

procedure mensaje.SetinformacionAdicional(Index: Integer; const Astring: string);
begin
  FinformacionAdicional := Astring;
  FinformacionAdicional_Specified := True;
end;

function mensaje.informacionAdicional_Specified(Index: Integer): boolean;
begin
  Result := FinformacionAdicional_Specified;
end;

procedure mensaje.Settipo(Index: Integer; const Astring: string);
begin
  Ftipo := Astring;
  Ftipo_Specified := True;
end;

function mensaje.tipo_Specified(Index: Integer): boolean;
begin
  Result := Ftipo_Specified;
end;

destructor respuestaLote.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(Fautorizaciones)-1 do
    SysUtils.FreeAndNil(Fautorizaciones[i]);
  System.SetLength(Fautorizaciones, 0);
  inherited Destroy;
end;

procedure respuestaLote.SetclaveAccesoLoteConsultada(Index: Integer; const Astring: string);
begin
  FclaveAccesoLoteConsultada := Astring;
  FclaveAccesoLoteConsultada_Specified := True;
end;

function respuestaLote.claveAccesoLoteConsultada_Specified(Index: Integer): boolean;
begin
  Result := FclaveAccesoLoteConsultada_Specified;
end;

procedure respuestaLote.SetnumeroComprobantesLote(Index: Integer; const Astring: string);
begin
  FnumeroComprobantesLote := Astring;
  FnumeroComprobantesLote_Specified := True;
end;

function respuestaLote.numeroComprobantesLote_Specified(Index: Integer): boolean;
begin
  Result := FnumeroComprobantesLote_Specified;
end;

procedure respuestaLote.Setautorizaciones(Index: Integer; const Aautorizaciones2: autorizaciones2);
begin
  Fautorizaciones := Aautorizaciones2;
  Fautorizaciones_Specified := True;
end;

function respuestaLote.autorizaciones_Specified(Index: Integer): boolean;
begin
  Result := Fautorizaciones_Specified;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(AutorizacionComprobantesOffline), 'http://ec.gob.sri.ws.autorizacion', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(AutorizacionComprobantesOffline), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(AutorizacionComprobantesOffline), ioDocument);
  RemClassRegistry.RegisterXSInfo(TypeInfo(autorizaciones), 'http://ec.gob.sri.ws.autorizacion', 'autorizaciones');
  RemClassRegistry.RegisterXSClass(respuestaComprobante, 'http://ec.gob.sri.ws.autorizacion', 'respuestaComprobante');
  RemClassRegistry.RegisterXSInfo(TypeInfo(mensajes), 'http://ec.gob.sri.ws.autorizacion', 'mensajes');
  RemClassRegistry.RegisterXSClass(autorizacion, 'http://ec.gob.sri.ws.autorizacion', 'autorizacion');
  RemClassRegistry.RegisterXSClass(autorizacion2, 'http://ec.gob.sri.ws.autorizacion', 'autorizacion2', 'autorizacion');
  RemClassRegistry.RegisterXSClass(mensaje, 'http://ec.gob.sri.ws.autorizacion', 'mensaje');
  RemClassRegistry.RegisterXSClass(mensaje2, 'http://ec.gob.sri.ws.autorizacion', 'mensaje2', 'mensaje');
  RemClassRegistry.RegisterXSInfo(TypeInfo(autorizaciones2), 'http://ec.gob.sri.ws.autorizacion', 'autorizaciones2', 'autorizaciones');
  RemClassRegistry.RegisterXSClass(respuestaLote, 'http://ec.gob.sri.ws.autorizacion', 'respuestaLote');

end.

[Neftali [Germán.Estévez]]

Empezado por egostar

Es un Web Service SOAP.

Buen apunte Egostar, lo había leído "en diagonal" y no había visto eso.

[Neftali [Germán.Estévez]]

Coloca el componente y configura las propiedades: WSDLLocatoin, Service y Port (por ese orden). Si lo haces en orden, a partir de la primera, las otras puedes seleccionarlas en el desplegable.

Luego para hacer una prueba puedes hacer la siguiente llamada (coloca el componente y un TMemo en el form):

Código Delphi [-]
var
  r:respuestaComprobante;
  s:String;
begin
  // Pedir autorización
  r := GetAutorizacionComprobantesOffline.autorizacionComprobante('INCORRECTA');
  // Acceder a los datos de respuesta
  s := 'Consultada: ' + r.claveAccesoConsultada + ' - ' +
       'Comprobantes: ' + r.numeroComprobantes + ' - ' +
       'Autorizaciones: ' + Length(r.autorizaciones).ToString;

  Memo1.Lines.Add(s);
  Memo1.Lines.Add('------------------------------------------');

  // Te puede devolver N autorizaciones (accedo directamente a la primera)
  s := 'Autorizacion: ' + sLineBreak +
       'Estado: ' + r.autorizaciones[0].estado + sLineBreak +
       'Número: ' + r.autorizaciones[0].numeroAutorizacion + sLineBreak +
      //  'Fecha: ' + r.autorizaciones[0].fechaAutorizacion.ToString + sLineBreak +   // nil
       'Comprobante: ' + r.autorizaciones[0].comprobante + sLineBreak +
       'Mensajes: ' + Length(r.autorizaciones[0].mensajes).ToString + sLineBreak;

  Memo1.Lines.Add(s);
  Memo1.Lines.Add('------------------------------------------');

  // Igual que antes, accedo sólo al primer mensaje
  s := 'Mensaje: ' + sLineBreak +
       'Identificador: ' +  r.autorizaciones[0].mensajes[0].identificador + sLineBreak +
       'Mensaje: ' +  r.autorizaciones[0].mensajes[0].mensaje + sLineBreak +
       'Info adicional: ' +  r.autorizaciones[0].mensajes[0].informacionAdicional + sLineBreak +
       'Tipo: ' +  r.autorizaciones[0].mensajes[0].tipo;

  Memo1.Lines.Add(s);
  Memo1.Lines.Add('------------------------------------------');

Con esta prueba (yo he utilizado una clave errónea), ya puedes comprobar que el WebService responde "cosas".
El resultado es este:



Consultada: INCORRECTA - Comprobantes: - Autorizaciones: 1
------------------------------------------
Autorizacion:
Estado: RECHAZADA
Número:
Comprobante:
Mensajes: 1

------------------------------------------
Mensaje:
Identificador: 80
Mensaje: ERROR EN LA ESTRUCTURA DE LA CLAVE DE ACCESO
Info adicional:
Tipo:
------------------------------------------

[IVAND]

Hola Neftali , muy agradecido por tu tiempo , te comento que puse a funcionar lo qye me indicas pero me sale un error, envio la clave

0107202201189171808600120011000000024581234567815

r := GetAutorizacionComprobantesOffline.autorizacionComprobante('0107202201099286992500120010020000056610 000566113');
Aqui da el error

Código Delphi [-]
First chance exception at $75404402. Exception class EDOMParseError with message 'End tag 'body' does not match the start tag 'br'.

Line: 1
<
title>Request Rejected. Process soap.exe (12132)

Estoy seguro que me falta algo en algun parametro antes de leer el webservice , yo se que tu tiempo es valioso pero si puedes darme una mano o una guia de agradeceria mucho

Este servicio lo que me retorna es un archivo xml que debo guardarlo en el disco de mi equipo para luego parsearlo y tomar la informacion que hay dentro

[NELSON CARDENAS]

Hola, no se si alguien lo habrá realizado en Delphi embarcadero el envío del archivo XML al web service del Sri ecuador,
tengo la función para enviar el xml es la siguiente:

r:= GetRecepcionComprobantesOffline.validarComprobante(XML);

XML dice que debe estar en formato TByteSOAPArray segun lo que extrajo Delphi del web service, no se que formato es ese o como convierto el XML a un formato compatible que acepte para enviar.

el archivo wsdl creado por Delphi contiene lo siguiente si alguien me pudiera ayudar




RecepcionComprobantesOffline = interface(IInvokable)
['{20C60E6A-E7C4-240E-B688-323094910588}']
function validarComprobante(const xml: TByteSOAPArray): respuestaSolicitud2; stdcall;
end;

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

[NELSON CARDENAS]

si a alguien les sirve, cambie TByteSOAPArray en el archivo wsdl importado por delphi embarcadero por string y en el código realizado para el envío se paso el xml a base 64 en un string y con eso se soluciono.