GetSessionTraffic liefert ungenaue Werte?

[Lefko]

Ich verwende folgende function, die Luckie in seinem InternetMonitor verwendet:

Delphi-Quellcode:

 

function Tform1.GetSessionTraffic(Way : string) : real; 
var 
  IfTable: PMIB_IFTABLE; 
  dwSize: Cardinal; 
  i: Integer; 
begin 
  result := 0; 
  IfTable := nil; 
  dwSize := 0; 
  ZeroMemory(@IfTable, sizeof(IfTable)); 
  try 
    VVGetIfTable(IfTable, dwSize, TRUE); 
    if IfTable <> nil then 
    begin 
      for i := 0 to IfTable.dwNumEntries - 1 do 
      begin 
        if IfTable.table[i].dwType <> MIB_IF_TYPE_LOOPBACK then 
          if Way = 'In' then result := IfTable.table[i].dwInOctets / 1024 / 1024 
                        else result := IfTable.table[i].dwOutOctets / 1024 / 1024; 
      end; 
    end; 
  finally 
    Freemem(IfTable); 
  end; 
end;

Aber ich habe ein problem mit ihr!

Die Werte, die von dieser Function rausgegeben werden unterscheiden sich MAßGEBLICH von den bytes, die in der DFÜ-Anzeige angezeigt werden!

ein timer aktualisiert alle 1 sek ein label mit dem Up und Down; nach 10 sekunden hat man schon einen unterschied von ~200 KB!

ich hab gerade nach 1 stunde bei der dfü 20 MB und bei meinem prog 17,5 MB Download zu stehen...

hat jemand eine ahnung, wie das zustande kommt? (ich teile die bytezahl auch brav 2 mal durch 1024, nicht durch 1000 );


MfG Lefko.

[Luckie]

Welches Betriebssystem? Unter 2000 arbeitet diese Funktion recht genau. Ist bei dir eventuell noch der Netzwerktraffic dabei?

[Lefko]

Hi Luckie!

Ich hab WinME. Und irgendein Netzwerktraffic is da denk ich nicht bei, ich bin nämlich einer von diesen Normalsterblichen mit ISDN und mehr nicht

Außerdem zeigt diese Function bei mir ja viel WENIGER an als die DFÜ-Anzeige.

Naja, vielleicht fällt dir oder euch ja noch was ein...

MfG Lefko.

[Lefko]

Hm, hat wirklich keiner was dazu auf Lager?
das nervt ganz schön in der log-datei, dass da immer so 2-50 Mb unterschlagen werden...

MfG Lefko.

[Luckie]

Spiel mal damit rum:
if IfTable.table[i].dwType <> MIB_IF_TYPE_LOOPBACK then Also mit dem dwType.

[Lefko]

o_O versteh ich leider überhaupt nicht! Was soll ich damit rumspielen? ich kann es stehenlassen oder wegmachen, mehr weiss ich nicht...


PS: Ich versteh den Code nicht, ich probiere nur, ihn zu benutzen...

MfG Lefko

[Luckie]

Du sollst mal verschiedene Werte von dwtype ausproboeren und kombinieren.