Entwickler-Ecke

Internet / Netzwerk - Verbindung Up/Download


Gottdrak99 - Mi 08.10.03 19:48
Titel: Verbindung Up/Download
hi wollte mal fragen, wie man die geschwindigkeit von versenden und empfangen ins progg reinmacht (nicht von netzwerk)


MrSaint - Sa 11.10.03 10:06

wie meinst du das? so, dass du die Geschwindighkeit begrenzt oder wie? Also sowas musst du schon selber coden 8)


MrSaint


Gottdrak99 - Di 14.10.03 18:48

ne, einfach wenn ich z.B. was uploade muss es die geschwindigkeit anzeigen, beim downloaden das gleiche


Anonymous - Di 14.10.03 22:08

Also mit Indy würd es in etwa so gehen...

habs aber nicht getestet...


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
Label1.Caption:=idHttp1.url.Document+' ('+inttostr(AWorkCount div 1024)+' kB von '+inttostr(IdHTTP1.Response.ContentStream.Size div 1024)+' kB)';
Gauge1.Progress:=AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
application.ProcessMessages;
end;