![]() |
Re: Up- und Downloadgeschwinigkeit ermitteln
Zitat:
Delphi-Quellcode:
Das Beispiel ist zar nur bei einem Download, sollte aber auf diese Art auch funktionieren wenn du an die irgendwie an die Übertragenen Werte kommst.
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer); var FPercent: Integer; begin if not ((GetTickCount - FTime) <= 0) then begin try lblSpeedStatus.caption:= Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]); except end; end; FTime:= GetTickCount; FBytes:= AWorkCount; if FFileSize <> 0 then FPercent:= Round((FBytes / FFileSize) * 100); //Shape1.Width:= 2 * FPercent; Image1.Width:= 2 * FPercent; LblPercent.Caption:= IntToStr(FPercent) + '%'; lblCurrentSize.Caption:= GetSizeName(FBytes); lblFileSize.Caption:= '/ ' + GetSizeName(FFileSize); Application.ProcessMessages; end; Ich habe mir die .Pas Datei nicht angeschaut die du angegeben hast. Mein Beitrag sollte auch nur ein Vorschlag für eine mögliche Lösung sein. Wenn du an die übertragenen Werte nicht kommst ist dieser Vorschlag natürlich hinfällig. |
Re: Up- und Downloadgeschwinigkeit ermitteln
b1zZ:
Zitat:
|
Re: Up- und Downloadgeschwinigkeit ermitteln
Zitat:
|
Re: Up- und Downloadgeschwinigkeit ermitteln
Zitat:
![]() Viel Spaß dabei :roll: |
Re: Up- und Downloadgeschwinigkeit ermitteln
Liste der Anhänge anzeigen (Anzahl: 1)
Nimm doch das:
NETWORKTRAFFICMONITOR_mit sourcecode: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz