Скачать: CL | DM;

Можно ли при помощи 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 не сраатывает. Почему ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c