Código SQL [-]
"{""con"":""LROE"",""apa"":""1.1"",""inte"":[{""nif"":""A99110237"",""nrs"":""GLe7V235qZ"",""ap1"":""Pu125yvAaQ"",""ap2"":""BjvfghGZq5""}],""drs"":[{""mode"":""140"",""ejer"":""2021""}]}"

Código Delphi [-]
WinStorage.SystemStores.BeginUpdate;
  try
    WinStorage.SystemStores.Clear;
    WinStorage.SystemStores.Add('MY');
    WinStorage.AccessType := aAccessType;
  finally
    WinStorage.SystemStores.EndUpdate;
  end;

Código Delphi [-]
if CertificateStorage.Opened then
     CertificateStorage.Close(True);

  //Este es el punto donde el programa se cierra
  CertificateStorage.Open('system://currentuser@localhost/?store=MY');

  encontrado := False;

 //Aqui busco el certificado con el que firmar
  for i := 0 to CertificateStorage.Certificates.Count - 1 do
  begin
    cert := CertificateStorage.Certificates[i];
    if bintostr(cert.SerialNumber) = el_firmante.r_Nombre_firma then
     begin
       sbxXAdESSigner1.SigningCertificate := cert;
       encontrado := True;
       Break;
     end;
  end;


  if not Encontrado then
   begin //mostrar error
      Mensaje(nil, 'No se encuentra la firma');
      exit;
   end;

  sbxXAdESSigner1.SigningCertificate := cert;

 //Continuo con el resto de la firma

Código Delphi [-]
#$1F'�'#8#8#0#0#0#0#0'�5251550_peticion_Resp.xml'#0'�T]��0'#$14'}�W0�k��+:Ȏâ�;�k�j��'#4'��.'#$10'�����'#5'E���)�p�9����'#6'�a'#$1F'��_�'#5'e�@�[����g'#1'�7'#3'u�'#$18'5'#$D'U'#$11#$12'�'#1#$E'YL'#6'�;'#$11'��0c��'#$7F'��:ӗvG'#$1B'a_�'#$1C#$B'''  ��'#6'X�,�����3"��@�'#2'2��C�@�J��>B�ݮ�a�~�H*К�=�dC�'#$1B'ʳ(k�����'#8'�#2'��'#$17'�j5'#$14'xL'#$1B'{�'''#$1C#$1F'�<��'#5'$d'#$16'46��'#4'm�P�BJ7�黄��'#$18'-�T'#$13'%�5'#1'I'#$1F',��'#$1A'��aIY'#$1D'�'#0'�'#0'�'#8'J��M�O��jkm�)㊊'#$17'�'#$D#$E#$0602'S/��W��0y'#$1E'Y�^��4�wo�,�'#$13'�'#9#9'C'#$1A'01a���'#$C#$7F'��̧8��_����r�]'#$1A'��'#$1F#$11'��N��x''�;'#$7F'm���r���'#$12'3s�'#7'c>b�Ĕ'#$13'AbynՈ�[\�ڝ��73g'#$14'��w��;��֨:Q '#1'�ּk|�'#$05F5'�SnJ'#$15'9���r�'#$19#$C'����J�"w��s'#0'�tM��o'#$1D#$7F'<��%v'#$18'5�))(��'#$14'�r�  �&iT'#$10'�'#$1E'�V%�^����'#$13#$12'd�'#$15#$17'��⣳���=�'#$1B'�'#2'�'#$1B'�'#$1C'�On�u''s�#��9'#$11'  l�9�%��Q'#7'�d?im�z���pM�?<��'#$F'�)|'#$10'['#5#0#0

Código Delphi [-]
   Respuesta := idhttp_fac.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody);
    AResponse := TStringStream.Create(Respuesta);
    Comprimido := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\LROE_respuesta.gz', fmCreate);
    Comprimido.CopyFrom(AResponse, AResponse.Size);

Código Delphi [-]
    MyText := TStringList.Create;
    MyText.Add(Respuesta);
    MyText.SaveToFile(ExtractFilePath(Application.ExeName)+'\LROE_respuesta2.gz',TEncoding.UTF8);
    MyText.Free;

Código SQL [-]
{
Accept-Encoding: gzip
Content-Encoding: gzip
eus-bizkaia-n3-version: 1.0
eus-bizkaia-n3-content-type: application/xml
Encoding: gzip
Content-Type: application/octet-stream; charset=utf-8
eus-bizkaia-n3-data: {"con":"LROE","apa":"1.1","inte":[{"nif":"A99800237","nrs":"GLe7VAi7qZ","ap1":"PuWn2yvAaQ","ap2":"BjvRzNGZq5"}],"drs":[{"mode":"140","ejer":"2021"}]}
}

Cita:

Empezado por Neftali [Germán.Estévez] (Mensaje 544165) Ten en cuenta que la respuesta en el caso de Bizkaiano puedes tratarla como texto para recuperarla o guardarla en disco. He visto que usas TStringStream o TStringList. Inténtalo con TStream, porque al utilizar etructuras para strings se producen conversiones no deseadas. Crea un TFileStream y utiliza el Post recogiendo la respuesta en ese objeto, para guardarlo en disco.

Código Delphi [-]
Comprimido := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\LROE_respuesta.gz', fmCreate);
    idhttp_fac.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody,Comprimido);

Código Delphi [-]
// Estas dos son como propiedades del componente
CompEnvioRESTClient.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
CompEnvioRESTClient.AcceptCharset := 'utf-8, *;q=0.8';
// El resto como headers
CompEnvioRESTClient.AddParameter('Accept-Encoding', 'gzip', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('Content-Encoding', 'gzip', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('Content-Type', 'application/octet-stream', pkHTTPHEADER, [poDoNotEncode]);
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-version', '1.0', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-content-type', 'application/xml', pkHTTPHEADER, [poDoNotEncode] );
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-data', JSON, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);

Código Delphi [-]
Accept-Encoding=gzip
Content-Encoding=gzip
Content-Type=application/octet-stream
eus-bizkaia-n3-version=1.0
eus-bizkaia-n3-content-type=application/xml
eus-bizkaia-n3-data={"con": "LROE","apa": "1.1","inte": {"nif": "_CIF_","nrs": "_RAZON_SOCIAL_"},"drs":{"mode": "240","ejer": "2021"}}