[delphi] hoe IP, gateway, DNS, en traffic opvragen?

[lordsnow]

Ik ben bezig met een "windows info + netwerk monitor + kabel signaalsterkte" systray app.

Het "signaalsterkte" gedeelte lees ik uit het modem, en toon ik als grafiek. Ook lees ik de modem gegevens (MAC, SN, firmware versie) uit. Dit is geimplementeerd.

Het "windows info" gedeelte is deels geimplemeteerd. De windows versie wordt juist gedetecteerd. En via de volgende code wordt het IP-adres en de hostname opgevraagd:

Delphi:

  {quick & dirty manier om hostname + IP op te vragen}
  WSAStartup(MAKEWORD(1, 1), wsaData);
  GetHostName(@s, 128);
  StaticText17.Caption := GetHostByName(@s)^.h_Name; {Hostname}
  StaticText25.Caption := iNet_ntoa(PInAddr(GetHostByName(@s)^.h_addr_list^)^); {IP}
  WSACleanup;

Nu werkt dit wel in mijn geval, omdat ik slecht 1 NIC (adapter) heb. Maar eigenlijk moet ik een lijst samenstellen van netwerk-adapters tesamen met de IP-gegevens die bij elke adapter hoort. Via Google/MSDN kwam ik op GetAdaptersInfo (en GetNetworkParams?). Andere mogelijkheden zijn het Windows register uitlezen, of WINIPCFG / IPCONFIG uitvoeren en het resultaat parsen. Kan iemand mij adviseren wat de meest juiste (makkelijkste) manier is?

Ik denk GetAdaptersInfo, en heb daar een Italiaans voorbeeld van (http://utenti.lycos.it/carlpasolini/links/links3.htm). Heeft iemand nog NL of UK-talige code + uitleg?

(Voor de volledigheid: het "netwerk monitor" gedeelte bestaat uit weergave van de up/download snelheid, ping test, max up/download test, NETSTAT, en verkeer per dag/week/maand/jaar. De resultaten worden geupload naar een website, zodat iedereen deze kan vergelijken met andere gebruikers.)

[Verwijderd]

lordsnow schreef op dinsdag 01 februari 2005 @ 00:00:
Ik denk GetAdaptersInfo, en heb daar een Italiaans voorbeeld van (http://utenti.lycos.it/carlpasolini/links/links3.htm). Heeft iemand nog NL of UK-talige code + uitleg?

Die pagina linkt toch naar Engelse uitleg? Wil je perse een Delphi voorbeeld?

[lordsnow]

Verwijderd schreef op dinsdag 01 februari 2005 @ 00:12:
[...]
Die pagina linkt toch naar Engelse uitleg?

Italiano.

... en ik bedoelde eigenlijk deze link: http://utenti.lycos.it/carlpasolini/delphi/articolo13.htm (deze link staat op de pagina die ik boven gaf).

Wil je perse een Delphi voorbeeld?

Bij voorkeur Delphi / Pascal.
C vindt ik *echt* k met p.

Maar toch, alles is welkom. Op MSDN zag ik een aantal snippets in C.

[Bergen]

De network traffic monitor van delphi.about.com lijkt me wel wat voor jou. Full source included uiteraard.

[lordsnow]

Bergen schreef op dinsdag 01 februari 2005 @ 07:06:
De network traffic monitor van delphi.about.com lijkt me wel wat voor jou. Full source included uiteraard.

Deze had ik al eens gedownload van About.com. (vandaag weer terug gevonden).

Ook de opvolger(s) hier van had ik al eens gedownload (niet bekeken) - deze staan op http://users.pandora.be/dirk.claessens2/software.htm

Ondertussen ben ik al weer opgeschoten - de sources van dhr Claessens hebben geholpen.

[ Voor 30% gewijzigd door lordsnow op 03-02-2005 05:52 ]