Cita:
Empezado por HerensugeBeltz
Se me olvidaba el timeOut (inicialmente teníamos 60 seg. pero, por si acaso, hemos ampliado a 90)
Código:
sbxHTTPClient1->SocketDNSTotalTimeout = 0;
sbxHTTPClient1->SocketTimeout = 90000; //60000;
|
Gracias Compañero. Me ha sido de gran ayuda. Pongo como quedaria en delphi para enviar por las SecureBlackBox.
Código Delphi
[-]
EnvioGipuzkoa2.ClientChain.Clear;
for z := 0 to CertificateStorage.Certificates.Count - 1 do
begin
cert := CertificateStorage.Certificates[z];
if Pos(AnsiUpperCase(Firma), AnsiUpperCase(Cert.Subject) ) <> 0 then begin
EnvioGipuzkoa2.ClientChain.Add(cert);
Break;
end;
end;
EnvioGipuzkoa2.TLSSettings.AutoValidateCertificates := True;
EnvioGipuzkoa2.TLSSettings.Versions := csbTLS12;
EnvioGipuzkoa2.RequestParameters.ContentType := 'application/xml;charset=UTF-8';
EnvioGipuzkoa2.RequestParameters.AcceptCharset := 'UTF-8';
EnvioGipuzkoa2.RequestParameters.Accept := '*/*';
EnvioGipuzkoa2.RequestParameters.HTTPVersion := TsbxHTTPClientReqParamsHTTPVersions.chvHTTP11;
EnvioGipuzkoa2.TLSSettings.RenegotiationAttackPreventionMode := TsbxHTTPClientTLSRenegotiationAttackPreventionModes.crapmAuto;
EnvioGipuzkoa2.SocketSettings.DNSTotalTimeout := 0;
EnvioGipuzkoa2.SocketSettings.Timeout := 90000;
EnvioGipuzkoa2.PostStream(DevolverServidorGipuzkoa(anula),RequestBody);
stream := TBytesStream.Create(EnvioGipuzkoa2.OutputBytes);
try
stream.SaveToFile(Fichero);
finally
stream.Free;
end;