As a homework you can add a ProgressBar.
Sorry to jump in on your homework...
procedure TForm1.DoOnWriteStream(Sender: TObject; APosition: Int64);
begin
Progressbar1.Position:=Progressbar1.Position+1;
Label1.Caption := 'Downloaded so far: ' + FormatSize(APosition);
Application.ProcessMessages;
end;
Is that right ?
It's the only place I could get the bar to increase. However, somehow it needs the filesize and assign that as the Progresbar max.
I've been working on a very similar project so this thread is interesting.