Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.06.2009, 20:15   #1
Denager
Москоу
Форумчанин
 
Регистрация: 29.01.2008
Сообщений: 138
По умолчанию Фильтрация трафика [IpHlpApi]

Использую следующий код в событии таймера для учета трафика
Цитата:
S:=FloatToStr((StrToFLoat(FormatFlo at('#.##0.00', TMibIfTable(_p^).table[et_interface].dwInOctets)) - zero[et_interface])/1024);

MainForm.StatusBar1.Panels[1].Text:=copy(s,1,pos(',',s)+2)+' Кб';

s1:=FloatToStr((StrToFLoat(FormatFl oat('#.##0.00', TMibIfTable(_p^).table[et_interface].dwInOctets)) - zero[et_interface])/1024*(a/1000));

MainForm.StatusBar1.Panels[0].Text:=copy(s1,1,pos(',',s1)+2)+ ' р.';
Вычисляется текущий трафик и его стоимость на интерфейсе с порядковым номером et_interface.
Необходимо сделать фильтрацию трафика (разделить локальный и внешний трафик - по известным спискам локальных IP-адресов, для которых учет вести не надо).
Denager вне форума Ответить с цитированием
Старый 21.06.2009, 01:01   #2
Denager
Москоу
Форумчанин
 
Регистрация: 29.01.2008
Сообщений: 138
По умолчанию

Акутуально все еще остается
Denager вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Контроль трафика... Phantom Работа с сетью в Delphi 4 10.04.2009 14:02
Контроль трафика Marsik Софт 5 04.11.2008 09:22
Счетчик трафика Black DeviL Работа с сетью в Delphi 2 04.02.2008 18:00
Подсчёт трафика Альберт Работа с сетью в Delphi 2 10.09.2007 11:35
перехват трафика Roman Работа с сетью в Delphi 6 27.06.2007 08:51