AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Netzwerkauslastung / Traffic

Netzwerkauslastung / Traffic

Ein Thema von Billi Berserker · begonnen am 15. Apr 2003 · letzter Beitrag vom 5. Jan 2009
Antwort Antwort
Seite 1 von 3  1 23   
Billi Berserker
(Gast)

n/a Beiträge
 
#1

Netzwerkauslastung / Traffic

  Alt 15. Apr 2003, 17:50
Wie kann man mit Delphi die Auslastung einer Netzwerkkarte auslesen und verarbeiten? Also einfach wieviel zum aktuellen Zeitpunkt rein und raus geht...
Ich habe schon sehr lange versucht im Internet irgendwas zu diesem Thema zu finden, aber irgendwie gibt es absolut keine Tutorials dazu. Da ich das jedoch unbedingt brauche poste ich einfach mal hier, in der Hoffnung das mir irgendjemand auch nur annähernd sagen kann wie das geht

[edit=sakura]Leerzeichen in der Überschrift untergebracht. Mfg, sakura[/edit]
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.020 Beiträge
 
Delphi 2006 Professional
 
#2
  Alt 15. Apr 2003, 18:54
Meine Seite Internet-Monitor, ist mit Source.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Billi Berserker
(Gast)

n/a Beiträge
 
#3
  Alt 15. Apr 2003, 20:08
hm, thx, ich werd mir das mal ansehen,
aber ehrlichgesagt ist es nicht gerade einfach sich in einen so umfangreichen fremden Quellcode einzuarbeiten...
ich wäre für genauere Hinweise wirklich dankbar
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.020 Beiträge
 
Delphi 2006 Professional
 
#4
  Alt 15. Apr 2003, 20:19
Die Units von Marcel van Brakel, die ich benutzt habe, liegen bei. Mein Programm sollte dir eigentlich zeige, wie es geht.

Im Anhang noch mal das original Archiv von Marcel van Brakel mit Demo-Programm.
Angehängte Dateien
Dateityp: zip iphlpapi_158.zip (61,8 KB, 395x aufgerufen)
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Billi Berserker
(Gast)

n/a Beiträge
 
#5
  Alt 16. Apr 2003, 18:07
Ich habs mir gestern mal angesehen und nun funktioniert es optimal,
Danke

sind die Units Freeware? oder muß man noch nen Copyright vermerk ins Programm rein nehmen?
  Mit Zitat antworten Zitat
Benutzerbild von Calimero
Calimero

Registriert seit: 8. Mär 2003
Ort: Krefeld
69 Beiträge
 
Delphi 6 Personal
 
#6

Re: Netzwerkauslastung/Traffic

  Alt 25. Aug 2003, 08:23
IP Headers saugen

hier ein beispiel (Zeigt mir den den Traffic der ersten Netzwerkkarte):

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Winsock,
  IpExport,
  IpHlpApi,
  IpTypes,
  IpIfConst,
  IpRtrMib, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);
var MibRow: TMibIfRow;
IntfTable: PMibIfTable;
Size: DWORD;
I: Integer;
begin
Size := 0;
 if GetIfTable(nil, Size, True) <> ERROR_INSUFFICIENT_BUFFER then Exit;
  IntfTable := AllocMem(Size);
  try
    if GetIfTable(IntfTable, Size, True) = NO_ERROR then
    begin
      for I := 0 to IntfTable^.dwNumEntries - 1 do
      begin
     {$R-}MibRow := IntfTable.Table[I];{$R+}
        if MibRow.dwType <> MIB_IF_TYPE_ETHERNET then Continue; // oder MIB_IF_TYPE_PPP
       if i = 1 then begin // Welche Verbindung

       label2.caption := inttostr(MibRow.dwInOctets);
        label4.Caption := inttostr(MibRow.dwOutOctets);
                     end;
  end;
    end;


    finally
    FreeMem(IntfTable);
  end;
end;

end.
[edit=sakura] [delphi]tags Mfg, sakura[/edit]
***** I like Delphi & Rapidq and C *****
  Mit Zitat antworten Zitat
iaby

Registriert seit: 30. Nov 2002
Ort: BW
258 Beiträge
 
#7

Re: Netzwerkauslastung / Traffic

  Alt 26. Mai 2004, 09:31
ich habe mit dem code folgendes problem:
dwInOctets ist von Typ Cardinal, der maximal knapp über 4Milliarden speichern kann.
das entspricht gerade einmal etwas über 4GB.
mein LAN traffic ist aber deutlich höher!

wie kann ich das also am besten anstellen, dass der traffic nicht plötzlich wieder bei 0 anfängt?

gruss,
iaby
  Mit Zitat antworten Zitat
generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.170 Beiträge
 
Delphi XE5 Professional
 
#8

Re: Netzwerkauslastung / Traffic

  Alt 26. Mai 2004, 10:22
delta ausrechnen seit dem letzten abfragen.
das abfragen machst du z.b. im sekunden takt.
  Mit Zitat antworten Zitat
iaby

Registriert seit: 30. Nov 2002
Ort: BW
258 Beiträge
 
#9

Re: Netzwerkauslastung / Traffic

  Alt 26. Mai 2004, 10:25
das problem ist dann, dass ich es die ganze zeit am laufen haben müsste.
andernfalls könnte ich einfach zwischen durch mal nachschauen!
  Mit Zitat antworten Zitat
sharkx

Registriert seit: 24. Feb 2003
Ort: St. Ingbert
211 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Netzwerkauslastung / Traffic

  Alt 31. Mai 2004, 21:57
windows resetted den eh nach 4,irgendwas GB, von daher ist das egal
Programming today is a race between Software Engineers striving to build bigger and better idiot-proof Programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 23:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf