[[newtron]]

Empezado por APO

Hola,
¿Hay alguna manera de extraer el XML de un envío?

Es decir, cuando monto toda la estructura para consumir el WebService, al final de todo lo envío así:
Código Delphi [-]SuministroFactRecibidas.GetsiiSOAP(True,'',HTTPRIO_Recibidas).SuministroLRFacturasRecibidas(ASuminis troLRFacturasRecibidas)


Entonces me encuentro con el problema que me dice que 'se encontró un carácter no válido en el contenido del texto'. Y necesito tener el envío en formato XML para hacerle la consulta a Hacienda. Pero no veo ninguna manera de hacerlo.
Muchas gracias.

Pon lo siguiente en el evento "OnBeforeExecute" del objeto HTTPRIO:

procedure TFormSIIFacturasEmitidas.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
  ss:TFileStream;
begin
    ss:=TFileStream.Create('C:\temp\salida.xml', fmCreate);
    SOAPReQUEST.Position := 0;
    ss.CopyFrom(SOAPRequest, SOAPRequest.size);
    ss.Free;
    SOAPRequest.Position := 0;
end;

Saludos