TIdHTTPRangeStream POST Code (2)

     IdHTTP                 := TIdHTTP.Create(nil);
     try
        TheCompressor       := TIdCompressorZLib.Create(nil);

        with IdHTTP do
        begin
             HTTPOptions     := [hoForceEncodeParams];
             AllowCookies    := True;
             HandleRedirects := True;
             ProtocolVersion := pv1_1;

             Compressor      := TheCompressor;
        end;    // with

        IdHttp.Head('http://localhost/_tests/resume/sql_dump.sql');
        if (IdHttp.Response.ResponseCode <> 404) then
           StartPos      := IdHttp.Response.ContentLength
        else
            StartPos     := 0;

        // =========== //
        // Upload File //
        // =========== //
        TheFile             := TFileStream.Create(FileName, fmOpenRead OR fmShareDenyWrite);
        RangeStream         := TIdHTTPRangeStream.Create(TheFile, StartPos, -1, True);
        try
           if RangeStream.ResponseCode = 206 then
           begin
                MultipartStream        := TIdMultipartFormDataStream.Create;
                try
                   MultipartStream.AddFormField('upload_file', 'application/octet-stream', 'utf-8', RangeStream);

                   IdHTTP.Post('http://localhost/_tests/resume/t1.php', MultipartStream);
                finally
                       MultipartStream.Free;
                end;    // try/finally
           end;
        finally
               RangeStream.Free;
        end;    // try/finally
     finally
            FreeAndNil(IdHTTP);
     end;    // try/finally