Delphi и Входящий трафик

Тема в разделе "Delphi - Сети", создана пользователем Artexoid, 5 апр 2005.

Статус темы:
Закрыта.
  1. Artexoid

    Artexoid Гость

    Как написать програмку чтобы она отслеживала и подсчитывала входящий трафик ??? Подскажите пожалуйста !! (Только ненадо писать "Руками" :( :( :) )
     
  2. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Artexoid
    через RAS Api по идее можно. Но в 98 и 95 системах это работать не будет. Там трафик пишется в реестр в режиме реального времени в ключь DYN_DATA кажется так он назывался.

    У нас тут есть пользователь AlexGin - поговори с ним, он делал такую прогу, тока на C.
     
  3. Artexoid

    Artexoid Гость

    Серёга
    Привет, спасибо попробую спросить у него
     
  4. ArkaNN

    ArkaNN Гость

    Самый грамотный способ подсчета траффика:

    Код (Text):
    var zero: integer;

    procedure TMainForm.FormCreate(...);
    var MibArr : IpHlpAPI.TMIBIfArray;
    begin
    Get_IfTableMIB(MibArr);
    zero:=MibArr[1].InOctets;
    end;

    procedure TMainForm.Timer1Timer;
    var
    MibArr : IpHlpAPI.TMIBIfArray;
    begin
    Get_IfTableMIB(MibArr);
    Label1.Caption:=IntToStr(MibArr.InOctets - zero);
    end;
    Вроде так... Писал прямо тут без компилятора, так что, если чего, пиши... Я думаю разберешься. Кстатти тебе потребуются 2 модуля: IPHelper.pas и IPHLPAPI.pas. Если у тебя нет, или у тебя старые, то бери отсюда.
     

    Вложения:

    • IPHlp.zip
      Размер файла:
      9,9 КБ
      Просмотров:
      696
  5. Guest

    Guest Гость

    MibArr[1].InOctets; - тут ошибочка чё делать
     
  6. ArkaNN

    ArkaNN Гость

    Я там ошибочку допустил.
    Вот исправления:
    Код (Text):
    // ..........
    zero:=MibArr[1].dwInOctets;
    // ..........
    Label1.Caption:=IntToStr(MibArr[1].dwInOctets - zero);
    // ..........
    Я тогда без Delphi писал. А щас проверил, все работает.
     
  7. Гость

    Чё-то хреново в WinXP работает... С самим Windows'ом расходить очень сильно... :(
     
  8. sup.by

    sup.by Гость

    ... Лучше WinPCap использовать .... возможно это труднее,но дает возможность считать траф по любому протоколу выше канального уровня .... UDP ICMP TCP IP ... можно снимать кадры Ethrnet прямо с сетевухи .... кстати в обход любого програмного файрвола ...
     
  9. Cooler

    Cooler Гость

    Проще всего - через IpHlpAPI. Его возможности примерно такие же - как и то, что показывает виндовый диспетчер задач. Если хочется сделать более сложный подсчет (например, считать не все) - тогда WinPCap выручит, НО - это такой драйвер, который требует перезагрузки системы, что не очень удобно. Возможно есть версия, которая ее не требует, на знаю...

    P.S. Существуют компоненты-обертка для WinPCap, с ними использование этой библиотеки становится феноменально простым (кинул на форму и написал пару строчек в обработчике события).
     
Загрузка...
Похожие Темы - Delphi Входящий трафик
  1. cybert
    Ответов:
    0
    Просмотров:
    101
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    166
  3. antares
    Ответов:
    0
    Просмотров:
    451
  4. Луиза
    Ответов:
    0
    Просмотров:
    297
  5. avizer
    Ответов:
    5
    Просмотров:
    737
Статус темы:
Закрыта.

Поделиться этой страницей