Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Мониторинг 
:(
    Опции темы
MaXL
Дата 23.12.2005, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

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



Как организовать мониторинг подключения к интернету, т.е. как только модем стал набирать номер, сразу узнать об этом и как только разъеденился тоже


--------------------
MaXL
PM MAIL   Вверх
Snowy
Дата 26.12.2005, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



PM MAIL   Вверх
Teran
Дата 27.12.2005, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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



Тебе необходимо мониторить список урлов которые посещались или просто количество конектов??


--------------------
Ни цего не понимаю
PM MAIL ICQ   Вверх
Snowy
Дата 27.12.2005, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Teran, ему нужно просто ловить факт подключения и отключения по диалапу.
PM MAIL   Вверх
MaXL
Дата 27.12.2005, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

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



Цитата
ему нужно просто ловить факт подключения и отключения по диалапу.

Да-да именно это


--------------------
MaXL
PM MAIL   Вверх
Stolzen
Дата 3.1.2006, 03:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1041
Регистрация: 17.10.2005

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



Код

var
  RasDialer: TRasDialer;
begin
  RasDialer := TRasDialer.Create;
end;


Код

   RasDialer.OnNotify := RasDialerNotify;


А здесь уже по твоему усмотрению:
Код

procedure TMainForm.RasDialerNotify(Sender: TObject; State: TRasConnState;
  ErrorCode: DWORD);
begin
  if   GetEventString(State, ErrorCode) <> ''
  then StatusDialog.StatusBox.Items.Add(GetEventString(State, ErrorCode));
end;


Код

function TMainForm.GetEventString(State: TRasConnState;
 ErrorCode: DWORD): string;
begin
  if ErrorCode = 0 then
    case State of
      RASCS_OpenPort:        Result := 'Порт открыт';
      RASCS_ConnectDevice:   Result := 'Набор номера ';
      RASCS_DeviceConnected: Result := 'Модем готов к подключению';
      RASCS_Authenticate  or RASCS_AuthNotify:
                             Result := 'Проверка имени пользователя и пароля';
      RASCS_Connected:        Result := 'Присоеденился';
    else
      Result := '';
    end;
end; 




--------------------
datatalks.ru - анализ данных, статистика, машинное обучение
PM MAIL WWW   Вверх
Bog d`An
Дата 17.1.2006, 08:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Stolzen, можно подробнее? какие модули используются напримерsmile и где взять о этому делу хелп? Можно исходничек, пожалста! smile

--------------------
Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]   
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.0486 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.