Buenos días
Quisiera pediros un poco de ayuda con los envíos del 140 y 240. Quisiera usar NetHTTPRequest y NetHTTPClient para los envíos, vosotros me diréis que opináis del tema. De momento he realizado pruebas con otros sitios https para comprender el funcionamiento. Estaba montado una prueba, con los ejemplos del Batuz, y pienso que quedaría así.
Código Delphi
[-]var
Url: string;
ss: TStringStream;
begin
Url := 'https://sarrerak.bizkaia.eus/aurkezpena';
NetHTTPRequest1.CustomHeaders['Accept-Encoding'] := 'gzip';
NetHTTPRequest1.CustomHeaders['Content-Encoding'] := 'gzip';
NetHTTPRequest1.CustomHeaders['Content-Type'] := 'application/octet-stream';
NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';
NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-data'] := '{"con": "LROE", "apa": "1.1", "inte": {"nif": "79732487C","nrs": "ANE","ap1": "ARRIOLA","ap2": "LEJARDI"},"drs": {"mode": "140","ejer": "2022"}}';
ss := TStringStream.Create('', TEncoding.UTF8);
ss.Position := 0;
ss.LoadFromFile('Ejemplo_1_LROE_PF_140_IngresosConFacturaConSG_79732487C.gz');
NetHTTPRequest1.MethodString := 'POST';
Memo1.Text := NetHTTPClient1.Post(url, ss).ContentAsString(tencoding.UTF8);
end;
Como es un tema totalmente novedoso para mí, quisiera preguntaros si voy por el buen camino, o si me recomendáis otro distinto.
Gracias por vuestra comprensión.