AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Up- und Downloadgeschwinigkeit ermitteln

Ein Thema von Larsi · begonnen am 25. Aug 2008 · letzter Beitrag vom 25. Aug 2008
Antwort Antwort
Seite 2 von 2     12   
b1zZ

Registriert seit: 8. Aug 2005
Ort: Wischhafen
52 Beiträge
 
Delphi 2009 Enterprise
 
#11

Re: Up- und Downloadgeschwinigkeit ermitteln

  Alt 25. Aug 2008, 13:43
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.
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#12

Re: Up- und Downloadgeschwinigkeit ermitteln

  Alt 25. Aug 2008, 14:02
b1zZ:

Zitat:
aber ich möchte die systemweite Up- und Downloadrate ermitteln.
  Mit Zitat antworten Zitat
Benutzerbild von halinchen
halinchen

Registriert seit: 13. Jun 2006
508 Beiträge
 
Delphi 2007 Professional
 
#13

Re: Up- und Downloadgeschwinigkeit ermitteln

  Alt 25. Aug 2008, 14:19
Zitat von Larsi:
Windows kann das doch auch.
Windows ist auch Windows und besitzt einen Treiber um die Netzwerkkarte zu nutzen.
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#14

Re: Up- und Downloadgeschwinigkeit ermitteln

  Alt 25. Aug 2008, 14:23
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
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#15

Re: Up- und Downloadgeschwinigkeit ermitteln

  Alt 25. Aug 2008, 20:37
Nimm doch das:

NETWORKTRAFFICMONITOR_mit sourcecode:
Angehängte Dateien
Dateityp: zip networktrafficmonitor_src112903_166.zip (23,0 KB, 18x aufgerufen)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz