|
Платные хостинги
Раскрутка сайта
Книги по программированию
Трафик UDP ???, Как получить???
- Доброго ВАМ времени суток, уважаемые!Возник у меня такой вопрос :как можно узнать кол-во входящего и исходящего трафика по протоколу UDP и другим , как , к примеру, в программе OutPost Firewall ? Заранее спасибо !!!
- Так пойдет?Код unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; lblInDatagrams: TLabel; lbldwNoPorts: TLabel; lbldwInErrors: TLabel; lbldwOutDatagrams: TLabel; lbdwNumAddrs: TLabel; procedure Timer1Timer(Sender: TObject); end; PMibUdpStats = ^TMibUdpStats; _MIB_UDPSTATS = packed record dwInDatagrams: DWORD; dwNoPorts: DWORD; dwInErrors: DWORD; dwOutDatagrams: DWORD; dwNumAddrs: DWORD; end; TMibUdpStats = _MIB_UDPSTATS; function GetUdpStatistics(var pStats: TMibUdpStats): DWORD; stdcall; external 'iphlpapi.dll';var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);var Stats: TMibUdpStats;begin if GetUdpStatistics(Stats) = NO_ERROR then begin lblInDatagrams.Caption := IntToStr(Stats.dwInDatagrams); lbldwNoPorts.Caption := IntToStr(Stats.dwNoPorts); lbldwInErrors.Caption := IntToStr(Stats.dwInErrors); lbldwOutDatagrams.Caption := IntToStr(Stats.dwOutDatagrams); lbdwNumAddrs.Caption := IntToStr(Stats.dwNumAddrs); end;end;end.highlightSyntax('delphiUzNWI=','delphi');
- Большое спасибо Rouse_ ! Всё понятно !!!
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
