Random Indy ResponseCode = -1 / EIdSocketError Socket Error # 0 exceções
Eu tenho um código delphi que basicamente carrega arquivos para remotoseguro servidor usandoIndy 10.4.704:
IdHTTP := TIdHTTP.Create(nil);
try
TheCompressor := TIdCompressorZLib.Create(nil);
TheSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
with IdHTTP do
begin
HTTPOptions := [hoForceEncodeParams];
AllowCookies := True;
HandleRedirects := True;
ProtocolVersion := pv1_1;
IOHandler := TheSSL;
Compressor := TheCompressor;
end; // with
// Get upload resume offset
try
IdHttp.Head('https://www.domain.com/my-file.bin');
if (IdHttp.Response.ResponseCode <> 404) And (IdHttp.Response.ContentLength >= 0) then
StartPos := IdHttp.Response.ContentLength
else
StartPos := 0;
except
StartPos := 0;
end; // try/except
// Upload File
TheFile := TFileStream.Create(FileName, fmOpenRead OR fmShareDenyWrite);
RangeStream := TIdHTTPRangeStream.Create(TheFile, StartPos, -1, True);
try
if (RangeStream.ResponseCode = 206) then
IdHTTP.Post(https://www.domain.com/upload.php', RangeStream);
finally
RangeStream.Free;
end; // try/finally
finally
FreeAndNil(IdHTTP);
end; // try/finally
O problema é queas vezes o código falha com Indy jogando umErro de soquete EIdSocketError # 0 exceção (idHTTP.ResponseCode é -1)
Dada minha péssima conexão com a internet, eu lancei uma instância do windows EC2 e testei meu código nela (a instância do windows está rodando na nuvem, então eu suponho conexãonão é um problema), ainda tenho o mesmo problema!
O erro parece ser aleatório, às vezes, o upload funciona, às vezes não. Eu depurei com o TidLogFile, tudo que eu consegui encontrar é algo assim:
Stat Connected.
Sent 4/26/2012 4:18:42: POST /app/upload.php...
Sent 4/26/2012 4:18:42: <uploaded_file_data_here>
Stat Disconnected.
Alguém sabe o que está causando isso / como consertar isso?
EDITAR
I rastreou a exceção de volta para TIdSSLIOHandlerSocketOpenSSL. Eu pesquisei muito, parece que não é um erro SSL.