Hola.
Para sacar el fichero de respuesta de hacienda yo hago lo siguiente.
Código:
Comprimido : TFileStream;
AResponse := EnvioBizkaia.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody);
Comprimido := TFileStream.Create(NombreFicheroSalida, fmCreate);
Comprimido.CopyFrom(AResponse.ContentStream, AResponse.ContentStream.Size);
Comprimido.Destroy;
El fichero luego hay que descomprimirlo dos veces.
Para la generación del fichero de TBAI, en delphi no genera bien las cabeceras. Yo tengo que hacer lo siguiente despues de haber generado el fichero.
Código:
Fichero := TStringList.Create;
Fichero.LoadFromFile(ficheroTemporal);
Fichero.Text := AnsiReplaceStr(Fichero.Text, '<TicketBai xmlns="urn:ticketbai:emision">','<T:TicketBai xmlns:T="urn:ticketbai:emision" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:ticketbai:emision ticketBaiV12.xsd ">');
Fichero.Text := AnsiReplaceStr(Fichero.Text,'</TicketBai>', '</T:TicketBai>');
System.SysUtils.DeleteFile(ficheroTemporal);
Fichero.SaveToFile(ficheroTemporal);
Fichero.Destroy;
Un Saludo