Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Up- und Downloadgeschwinigkeit ermitteln (https://www.delphipraxis.net/119351-up-und-downloadgeschwinigkeit-ermitteln.html)

b1zZ 25. Aug 2008 12:43

Re: Up- und Downloadgeschwinigkeit ermitteln
 
Zitat:

Zitat von Larsi
Zitat:

Kommst du denn an die Information wieveil Bytes übertragen wurden bzw. werden?
Dann kannst du die Geschwindigkeiten ausrechen.
Das wär zumindenst mein Ansatz.
Wie soll das gehen? Es muss doch eine Möglichkeit geben die Download und Uploadrate auszulesen, Windows kann das doch auch.

Delphi-Quellcode:
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;
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.
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.

Die Muhkuh 25. Aug 2008 13:02

Re: Up- und Downloadgeschwinigkeit ermitteln
 
b1zZ:

Zitat:

aber ich möchte die systemweite Up- und Downloadrate ermitteln.

halinchen 25. Aug 2008 13:19

Re: Up- und Downloadgeschwinigkeit ermitteln
 
Zitat:

Zitat von Larsi
Windows kann das doch auch.

Windows ist auch Windows und besitzt einen Treiber um die Netzwerkkarte zu nutzen.

Meflin 25. Aug 2008 13:23

Re: Up- und Downloadgeschwinigkeit ermitteln
 
Zitat:

Zitat von Larsi
Wie soll das gehen? Es muss doch eine Möglichkeit geben die Download und Uploadrate auszulesen, Windows kann das doch auch.

Tja, an einem eigenen treiber wird kein Weg vorbeiführen. Das wiederum wird auf WinPCap hinauslaufen ( http://www.winpcap.org/ ). Es gibt sogar Delphi-Komponenten dafür, aber der Name der Portierung ist mir entfallen, war auch damals nicht mehr allzu aktuell das Projekt.

Viel Spaß dabei :roll:

hathor 25. Aug 2008 19:37

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.
Seite 2 von 2     12   

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