1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

[...]
The connection is kept open until the update procedure is finished; there’s no need to poll.
The [...] sends one line of output at each time that it is able to re-calculate the remaining work with good confidence (there’s no guarantee for a maximum time period or percentage granularity when the progress estimation is updated).
[...]
> GET /software/update/123456789abcdef/progress HTTP/1.1
>
< HTTP/1.1 200 OK
< Content-Type: text/plain; charset=UTF-8
<
< 134.0
< 130.5
< 127.0
... time passes ...
< 9.0
< 3.0
< 0.0
<

Note that [...] doesn’t send a Content-Length header for the streaming response. The response is complete when the [...] drops the connection.					

1:
2:
3:
4:
5:
6:
7:
8:

            try
              httpMonitorConnector.ReadTimeout := 200;
              httpMonitorConnector.ConnectTimeout := 0;
              httpMonitorConnector.Response.KeepAlive := True;
              httpMonitorConnector.Get( '/software/update/' + Connector.ip + ' ' + location + 'progress' );
            except on E: EIdReadTimeout do begin
              MemoLogger.AddToLog( 'Exception as expected: ' + E.ClassName + ' ' + E.Message );
            end; end;					

1:
2:
3:
4:
5:
6:
7:
8:

  a := -1;
  if Assigned( httpMonitorConnector.IOHandler ) then begin
    httpMonitorConnector.IOHandler.CheckForDataOnSource( 5 );
    a := httpMonitorConnector.IOHandler.InputBuffer.Size;
    if ( httpMonitorConnector.IOHandler.InputBuffer.Size > 0 ) then
      MemoLogger.AddToLog( httpMonitorConnector.IOHandler.ReadLn );
  end;
  logger.Debug( '< Monitor Timer ticked: Assigned: ' + BoolToStr( Assigned( httpMonitorConnector.IOHandler ), True ) + ' Size: ' + IntToStr( a ) );					

1:
2:
3:
4:

            TcpClient1.RemoteHost := Connector.ip;
            TcpClient1.RemotePort := '80';
            TcpClient1.Connect;
            TcpClient1.Sendln( 'GET ' + location + 'progress HTTP/1.1' );					

1:
2:
3:
4:
5:

  ret := TcpClient1.WaitForData( 5 );
  if ( ret ) then begin
    line := TcpClient1.Receiveln;
    MemoLogger.AddToLog( line );
  end;