Foros Club Delphi - Ver Mensaje Individual - TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

benjy.sr · #**477** 12-04-2021

Buenas a todos, siguiendo vuestros ejemplos, no consigo obtener respuesta: Mi código es este

Código Delphi [-]  RequestBody:= TFileStream.Create(ficheroComprimido, 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":  "XXXXXXXXX","nrs": "XXXXXXXXXXXXXXXXXXXXXXX",
         "ap1": "","ap2": ""},"drs":  {"mode": "240","ejer": "2021"}}';
  NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-data']:= json;

  AResponse:= NetHTTPClient1.Post(url,RequestBody);
  Memo1.Text:= aResponse.ContentAsString(TEncoding.UTF8);

Pero siempre obtengo el mismo error:

Error receiving data: (12030) La conexión con el servidor finalizó anormalmente.

He desactivado firewall, por si acaso, pero siempre me devuelve lo mismo, seguro que hay que tener en cuenta algo que se me está escapando, ¿Alguien puede darme una idea de qué puede estar ocurriendo?