Traffic auslesen

[XXcD]

Hallo,
kennt einer von euch eine möglichkeit mit Delphi den Traffic auszulesen, der über die Netzwerkkarte geht?

Ich habe hier etwas gefunden: http://delphi.about.com/od/fullcodep.../aa112903a.htm
Leider wird dort nur der Traffic ausgelesen der seid dem Programmstart entstand.

Ih besitze von AlphaCool ein Display und in diesem Programm wird der gesamte Traffic seid dem Rechner start angezeigt.
Wie mache ich das?

[Phoenix]

Ich glaube das geht, in dem Du die PerformanceCounter des Systems abfragst.

[XXcD]

Das gibt es doch nur in .NET oder?

[Luckie]

Der Performance Counter ist ein Teil von Wiondows.

[XXcD]

Woher wisst ihr alle soviel?
Ich habe bisher nur gelesen, dass man in .NET systm.diagnostics.performancecounter verwenden kann.
Wie nutze ich das in Delphi?

[Die Muhkuh]

QueryPerformanceCounter

[XXcD]

Jetzt verstehe ich garnichts mehr. QueryPerformanceCounter gibt doch einfach nur die Zeit aus.

[Die Muhkuh]

Sorry, mein Fehler. Ich hatte nur PerformanceCounter gelesen.

[littleDave]

Hallo

in dem Programm aus dem ersten Post kannst du auch schon den Netzwerk-Traffic auslesen, der seit dem wirklichen Start (nicht erst seit dem Programmstart) angefallen ist. Dafür musst du aber den Quelltext etwas anpassen:

Öffne die Datei TrafficUnit.pas und gehe zur Zeile 144. Dort steht folgendes:

Delphi-Quellcode:

  FActiveCountIn := 0;
  FActiveCountOut:= 0;
  FInTotal := 0;
  FOutTotal:= 0;
  FInPerSec:= 0;
  FOutPerSec:= 0;
  FPeakInPerSec := 0;
  FPeakOutPerSec:=0;

Dies ersetzt du durch folgendes:

Delphi-Quellcode:

  FActiveCountIn := 0;
  FActiveCountOut:= 0;
  FInTotal := AMibIfRow.dwInOctets;
  FOutTotal:= AMibIfRow.dwOutOctets;
  FInPerSec:= 0;
  FOutPerSec:= 0;
  FPeakInPerSec := 0;
  FPeakOutPerSec:=0;

Fertig