[pulido]

Buenos días

estamos intentando enviar el fichero a Bizkaia y no ha manera , no encontramos el problema y estamos un poco desesperados , os pasamos el código completo que tenemos para enviarlo y nos da error al ejecutar

Código Delphi [-]
AResponse := NetHTTPClient1.Post('htttps://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody)

obtenemos el error "ERROR RECEIVING DATA 12030 LA CONEXION CON EL SERVIDOR FINALIZÓ ANORMALMENTE.

os paso el código completo que tenemos por si nos podéis decir algo os lo agradecería.

Código Delphi [-]
procedure TForm4.Button15Click(Sender: TObject);
var
json : string;
    RequestBody: TFileStream;
    AResponse: IHTTPResponse;
begin

   RequestBody := TFileStream.Create('E:\YYYYYYYYY\TicketBai_1-005461.gz', fmOpenRead);
    NetHTTPClient1.SecureProtocols := [THTTPSecureProtocol.TLS12];
    NetHTTPClient1.CustomHeaders['Accept-Encoding'] := 'gzip';
    NetHTTPClient1.CustomHeaders['Content-Encoding'] := 'gzip';
    NetHTTPClient1.CustomHeaders['Content-Type'] := 'application/octet-stream';
    NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
    NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';

    //Formamos los parametros json de entrada
    json := '{"con": "LROE", "apa": "1.1", "inte": {"nif": "XXXXXXX","nrs": "XXXXXXXXXX","ap1": "","ap2": ""},"drs": {"mode": "140","ejer": "2022"}}';

    NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-data'] := json;
    AResponse := NetHTTPClient1.Post('ht*tps://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody);
    memo1.Lines.Append(inttostr(AResponse.StatusCode)+' '+AResponse.StatusText);
    memo1.Lines.Append(AResponse.ContentAsString());

      if AResponse.ContainsHeader('eus-bizkaia-n3-mensaje-respuesta') then
        memo1.Lines.Append(AResponse.HeaderValue['eus-bizkaia-n3-mensaje-respuesta']);

    if AResponse.ContainsHeader('eus-bizkaia-n3-codigo-respuesta') then
        memo1.Lines.Append(AResponse.HeaderValue['eus-bizkaia-n3-codigo-respuesta']);

    if AResponse.ContainsHeader('eus-bizkaia-n3-tipo-respuesta') then
        memo1.Lines.Append(AResponse.HeaderValue['eus-bizkaia-n3-tipo-respuesta']);
end;