Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Подсчет траффик на Delphi

Ответить
Настройки темы
Delphi - Подсчет траффик на Delphi

Аватара для fossil

Ветеран


Сообщения: 637
Благодарности: 20


Конфигурация

Профиль | Сайт | Отправить PM | Цитировать


Помогите написать подсчет траффик на Delphi... Я бы хотел чтобы она могла считать и локальный и глобальный траффик. Киньте сорцы или дайте линк плиз...

Отправлено: 10:16, 17-12-2004

 

Аватара для fossil

Ветеран


Сообщения: 637
Благодарности: 20

Профиль | Сайт | Отправить PM | Цитировать


Netscaper
Спасибо.

Отправлено: 18:39, 21-12-2004 | #31



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Netscaper

Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать


Пожалуйста

Отправлено: 18:58, 21-12-2004 | #32


Аватара для fossil

Ветеран


Сообщения: 637
Благодарности: 20

Профиль | Сайт | Отправить PM | Цитировать


Вобщем если кто знает как в соединении отлавливать траффик пишите сюда. Или может у кого есть компонент..

Отправлено: 20:03, 21-12-2004 | #33

DeaDMan77


Сообщения: n/a

Профиль | Цитировать


Народ, а можно с помощью этой проги еще порт посмотреть? Если можно, то что нужно добавить?

Отправлено: 16:55, 09-01-2005 | #34


Аватара для fossil

Ветеран


Сообщения: 637
Благодарности: 20

Профиль | Сайт | Отправить PM | Цитировать


DeaDMan77
Навреное можно, раз определяется его протокол, значит и сам номер можно
Netscaper
Помогай, без тебя не справимся

-------
Согласно непопулярному мнению, Windows - враждебная ОС.
Так получилось, что Windows не выбирает себе друзей.


Отправлено: 14:15, 10-01-2005 | #35


Аватара для Netscaper

Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать


По заявкам... Добавил в код сниффера заголовки TCP и UDP, которые содержат номера портов. Программа не претендует на эффективность и оптимальность, но суть, на мой взгляд, отражает. Краткое пояснение. Заголовки TCP и UDP вкладываются внутрь сообщение протокола TCP/IP. Иначе, сначала идет заголовок IP (структура IPHeader) в котором указывается, какой протокол будет использоваться TCP или UDP, в зависимости от этого далее идет либо заголовок TCP (TTCPHeader) или UDP (TUDPHeader). Исходный код прилагается, надеюсь, что страждущие всё же разберутся...

Отправлено: 23:23, 10-01-2005 | #36

DeaDMan77


Сообщения: n/a

Профиль | Цитировать


Вери велл сенькаю

А можно еще вопрос? Можноли ненужные пакеты блокировать и как насчет других протоколов, типа ICMP?

Отправлено: 02:11, 11-01-2005 | #37


Аватара для Netscaper

Пользователь


Сообщения: 84
Благодарности: 0

Профиль | Отправить PM | Цитировать


Можно, наверняка. Хотя я и не пытался... Поищи в Google, сложно разве? Надеюсь, смысл моей программы понят, а описания всяких протоколов можно найти тут, ICMP в частности.

Отправлено: 08:08, 11-01-2005 | #38


Аватара для fossil

Ветеран


Сообщения: 637
Благодарности: 20

Профиль | Сайт | Отправить PM | Цитировать


Netscaper
Благодарю Вас

-------
Согласно непопулярному мнению, Windows - враждебная ОС.
Так получилось, что Windows не выбирает себе друзей.


Отправлено: 08:54, 11-01-2005 | #39


Аватара для fossil

Ветеран


Сообщения: 637
Благодарности: 20

Профиль | Сайт | Отправить PM | Цитировать


Только мне не понятно зачем ты два раза прописал hdr.protocol?
Код: Выделить весь код
case hdr.protocol of
        IPPROTO_TCP:
        begin
          tcphdr := PTCPHeader(@Buffer[20]);
          outstr := outstr + ':' + IntToStr(InvertWord(tcphdr.srcport));
        end;
        IPPROTO_UDP:
        begin
          udphdr := PUDPHeader(@Buffer[20]);
          outstr := outstr + ':' + IntToStr(InvertWord(udphdr.srcport));
        end;
      end;

-------
Согласно непопулярному мнению, Windows - враждебная ОС.
Так получилось, что Windows не выбирает себе друзей.


Отправлено: 09:07, 11-01-2005 | #40



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Подсчет траффик на Delphi

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интернет - Интеренет траффик GooTTaLiN Microsoft Windows 7 1 26-10-2009 06:27
Фильтры в Траффик Инспекторе... minion Сетевые технологии 3 06-04-2007 08:27
Траффик в IE - ограничение maximys_ Сетевые технологии 4 19-10-2005 16:01
Дорогой траффик!! Help!! Falaut Сетевые технологии 3 25-06-2005 15:48
Траффик KILLOR666 Сетевые технологии 4 17-06-2005 17:45




 
Переход