VPF::Подсчет траффика, используя компонент - ошибка...

Arks

Дата 15.3.2007, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 7.5.2006
Где: Барнаул

Репутация: нет
Всего: нет

Во первых, скажу, что давно уже не юзал Делфи, так что мог чего подзабыть... Вот и вылазит ошибка EAccessViolation в процедуре FormCreate, в первой же её строчке (если закоментить певрую, то во второй и т.д.). Из-за чего? Как исправить?

Код

uses ... ,
monsock, packhdrs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure PacketEvent(Sender: TObject; PacketInfo: TPacketInfo);
  public
    { Public declarations }
    test : TMonitorSocket;
    traffic : TTrafficClass;
  end;

var
  Form1: TForm1;
...
procedure TForm1.PacketEvent(Sender: TObject; PacketInfo: TPacketInfo);
begin
  traffic.Add(PacketInfo);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  traffic := traffic.Create(self);
  test := test.Create(self);
  test.Addr := '192.168.1.9';
  test.AddrMask := '255.255.255.0';
  test.IgnoreData := true;
  test.OnPacketEvent := PacketEvent;
end;

Кроме того, я хочу сделать, чтобы прога просматривала отдельно траффик с определенных адресов, отдельно со всех остальных случаях. Мне для этого две переменных типа TMonitorSocket заводить? А как поставить проверку всех адресов? Так: test.Addr := '*.*.*.*'???
Спасибо.

sw04

Дата 27.3.2007, 03:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 22.1.2007
Где: Ufa

Репутация: нет
Всего: 18

Цитата

Кроме того, я хочу сделать, чтобы прога просматривала отдельно траффик с определенных адресов, отдельно со всех остальных случаях.

Добавляешь на форум Label1 , добавляешь в процедуре TMonForm.PacketEvent.

Код


if (srcip = '127.0.0.1') then Label1.Caption := StrToInt(Label1.Caption)+DataLen;

--------------------

<удалено администрацией>

Snowy

Дата 27.3.2007, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Код


  traffic := TTrafficClass.Create(self);
  test := TMonitorSocket.Create(self);

Arks

Дата 30.3.2007, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 7.5.2006
Где: Барнаул

Репутация: нет
Всего: нет

Спасибо за помощь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »