4

Indy 10.4.704を使用して、基本的にリモートの安全なサーバーにファイルをアップロードする Delphi コードがあります。

 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

問題は、 Indy がEIdSocketError ソケット エラー # 0例外 ( idHTTP.ResponseCodeは -1)をスローしてコードが失敗する場合があることです。

インターネット接続が不安定なため、EC2 Windows インスタンスを起動してコードをテストしました (Windows インスタンスはクラウド上で実行されているため、接続は問題ないと思います) が、同じ問題が発生しました!

エラーはランダムなようで、アップロードが機能する場合と機能しない場合があります。TidLogFile でデバッグしましたが、次のようなものしか見つかりませんでした。

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.

これの原因/修正方法を知っている人はいますか?

編集

例外をTIdSSLIOHandlerSocketOpenSSL までさかのぼって追跡しました。いろいろググったところ、SSLエラーではないようです。

4

1 に答える 1

3

最新のIndy10バージョンである10.5.8r4743にアップグレードしてください。エラーコード0のSSL関連の問題は、1年以上前に修正されました。

于 2012-04-26T23:49:51.877 に答える