Можно ли при помощи TNetMon проссумировать байты отдельно по порт

← →
Beglec (2005-01-22 12:44) [0]

Можно ли при помощи TNetMon проссумировать байты отдельно по портам
отталкиваясь от статьи
http://www.delphimaster.ru/articles/netmon/index.html
понял что это хорошая веСЧь НО вот возник вопрос как проссумировать количество байт по отдельным портам.

← →
Beglec (2005-01-23 16:11) [1]

Либо помогите разобраться со sniffer"ом
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, sniffer; type TForm1 = class(TForm) sniffer1: Tsniffer; procedure FormCreate(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.dfm} // --------------------------------------------------------- Перехватчик пакетов procedure GetData(Data: TPacketType); begin if Data.IPSender="" then Exit; if Pos("212.46.231.154",Data.IPSender)>0 then Exit; // Наш сервер if Pos("192.168.",Data.IPSender)>0 then Exit; // локальный трафик // подсчитываем трафик end; procedure TForm1.FormCreate(Sender: TObject); begin Sniffer1.OpenAdapter(1,SWAT_DIRECTED); // перехватываем все пакеты Sniffer1.OnGetPacket:=GetData; // Установить настройки снифера end; end.

при запуске программы, GetData не сраатывает. Почему ?

Можно ли при помощи TNetMon проссумировать байты отдельно по порт Найти похожие ветки