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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2010, 17:03   #1
legendary
Форумчанин
 
Аватар для legendary
 
Регистрация: 21.04.2010
Сообщений: 125
По умолчанию Как правильно подсчитывать трафик GetIfTable

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
listview1.Items.Clear;
_buflen:=SizeOf(_MibIfTable^);
New(_MibIfTable);
_P:=_MibIfTable;
_error:=GetIfTable(_MibIfTable, @_buflen, false);
if _error <> NO_ERROR then
begin
ShowMessage('Произошла ошибка!');
Exit;
end;
for i:=0 to TMibIfTable(_P^).dwNumEntries-1 do
with ListView1.Items.Add do
begin
caption:=inttostr(TMibIfTable(_P^).table[i].dwtype);
subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwSpeed));
tout:=tout+TMibIfTable(_p^).table[i].dwOutOctets;
subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwOutOctets));
tin:=tin+TMibIfTable(_p^).table[i].dwInOctets;
subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwInOctets));
end;
dispose(_MibIfTable);
timer1.Enabled:=true;
label5.Caption:=IntToStr(tin+tout);  //Запускаю таймер с интервалом в секунду, а потом суммирую входящий и исходящий
end;
Не пойму, в dwOutOctets отображается весь Out трафик с начала подключения или как?
Мне нужно просто подсчитать весь траф с начала роботы программы.
З.Ы. Почему у меня даже с вкл инетом постоянно находит MS TCP Loopback interface с каким-то трафиком(инет модемный, сети нет)?
legendary вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подсчитывать сумму главной и побочной диагонали Fantazerishka Помощь студентам 2 14.10.2009 21:55
трафик Virus191288 Общие вопросы Delphi 1 09.08.2009 10:49
Как остановить неконтроллируемый трафик? Kn793 Свободное общение 9 08.03.2009 22:31
Как изменить размер пакетов чтобы уменьшить исходящий трафик lubopit Операционные системы общие вопросы 1 21.02.2008 18:09