Hi Slayer...
Ja,das war einer meiner Hot-Topics im alten Forum.Ich habe die Downloads mit der NMHTTP gemacht,und das sieht dann so aus.
var
zeit:longword;
procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.InputFileMode:=True;
NMHTTP1.Port:=80;
NMHTTP1.Body:=Test.zip
zeit:=gettickcount;
NMHTTP1.Get('http://www.test.de/test.zip');
procedure TForm1.NMHTTP1PacketRecvd(Sender: TObject);
begin
Progressbar1.Position := Round(100*NMHTTP1.BytesRecvd / NMHTTP1.BytesTotal);
SpeedAnzeige.Caption :=FormatFloat('#,##0.00',NMHTTP1.BytesRecvd/(1024 *((gettickcount-zeit)/ 1000)))+' KB/Sek.';
end;
Das ist jetzt der Code den ich benutze.Dabei wird in der ProgressBar der Download Progress angezeigt.Und im Label "SpeedAnzeige" wird die Geschwindigkeit in Kb/Sek. angezeigt.
Patrik