Можно ли при помощи TNetMon проссумировать байты отдельно по порт [D6, WinXP]
Beglec © (2005-01-22 12:44:00)
Можно ли при помощи TNetMon проссумировать байты отдельно по
портам
отталкиваясь от статьи
http://www.delphimaster.ru/articles/netmon/index.html
понял что это хорошая веСЧь НО вот возник вопрос как
проссумировать количество байт по отдельным портам.
Beglec (2005-01-23 16:11:00) [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 не сраатывает. Почему ?
Наверх 
ЧАТ |
Орешник |
|
