Buenas a todos, estoy probando a enviar información al web service y estoy teniendo problemas, haber si alguien me puede decir que estoy haciendo mal. Me he creado un programilla de pruebas donde leo el contenido del fichero de una factura firmada en Base 64 y lo envío, pero siempre me da error "Los elemento esperados son <{}ticketBai>. Es cierto que en el contenido de fichero solo esta la factura en base 64, pero también he probado a enviarlo con
Código:
<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
<Body>
<VerificarTicketBaiRequest xmlns="https://ptbai.ticketbai.eus">
<ticketBai xmlns="">contenido en Base 64</ticketBai>
</VerificarTicketBaiRequest>
</Body>
</Envelope>
y nada el mismo error. Realmente no sé como es la estructura a enviar, me estoy haciendo un lío la verdad.
Os pongo el código fuente del procesillo que uso, por si me podéis decir algo.
Código:
procedure TFrmMain.ButtonEnviarServiceClick(Sender: TObject);
var
HTT_PRIO: THTTPRIO;
Envio: VerificarTicketBaiRequest;
Respuesta: VerificarTicketBaiResponse;
begin
try
HTT_PRIO := THTTPRIO.Create(nil);
Envio := [TFile.ReadAllBytes(EdtFileBase64.text)];
Respuesta := B4PT.GetptbaiSOAP(False, 'https://ticketbai.eus/B4PT000MWeb/B4PT?wsdl', HTT_PRIO).verificarTicketBai(Envio);
ShowMessage(Respuesta[0].codigoSeguimiento);
except on E: Exception do
ShowMessage(e.ToString);
end;
end;