Hola, Netfali
El error que obtengo es el mismo que utilizando la otra forma de hacer el envío:
La petición SOAP no está bien construida: No se encuentra el SOAP Header
El componente HTTPRIO está bien configurado (igual que en tu imagen).
Así ha quedado el código por ahora:
Código Delphi
[-]
var facturasspp : SSPPFactura;
fichero_fac : SSPPFicheroFactura;
answ : SSPPResultadoEnviarFactura;
PO:SSPPWebServiceProxyPort;
begin
if opendialog1.Execute then begin
PO := GetSSPPWebServiceProxyPort(FALSE, '', nil);
facturasspp := ssppfactura.Create;
facturasspp.correo := 'XXXXXXXXXX';
fichero_fac := ssppficherofactura.Create;
fichero_fac.nombre := extractfilename(opendialog1.FileName);
fichero_fac.factura := '72345';
fichero_fac.mime := 'application/xml';
facturasspp.fichero_factura := fichero_fac;
try
answ := (HTTPRIO1 as SSPPWebServiceProxyPort).enviarFactura(facturasspp);
except
on e:exception do showmessage(e.Message);
end;
end;
end;