|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.06.2007, 02:54 | #1 |
Пользователь
Регистрация: 19.06.2007
Сообщений: 88
|
При подключении к нету появляется мессаг.Как сделать???
При подключении и разрыве соединения с интернетом появляется мессаг. Возможно ли это???
З.Ы Т.к я пока не разбираюсь в сокетах, инди и т.д -- прошу помощи у сведущих!!! |
24.06.2007, 07:52 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2; INTERNET_CONNECTdState'; {$R *.DFM} procedure TForm1.CheckState(Sender: TObject); var dwConnectionTypes: DWORD; begin dwConnectionTypes:=IC_MODEM+IC_LAN+ IC_PROXY; if InternetGetConnectedState(@dwConnec tionTypes,0) then ShowMessage('Вы подключены') else ShowMessage('Вы не подключены'); end; Чтобы не задумываться о хуках, просто по таймеру проверяй
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
24.06.2007, 15:41 | #3 |
Пользователь
Регистрация: 19.06.2007
Сообщений: 88
|
const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2; INTERNET_CONNECTdState';-- Здесь как? {$R *.DFM} procedure TForm1.CheckState(Sender: TObject); var dwConnectionTypes: DWORD; begin dwConnectionTypes:=IC_MODEM+IC_LAN+ IC_PROXY-- пишет Undecleared identifinier if InternetGetConnectedState(@dwConnec tionTypes,0) then-- здесь тоже ShowMessage('Вы подключены') else ShowMessage('Вы не подключены'); end; |
24.06.2007, 15:51 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Не посмотрел изначально, виноват. Вот другой способ:
Код:
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
26.06.2007, 16:29 | #5 |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
по-моему, данный пример проверяет прописаны ли настройки подключения, но не состояние.....
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
26.06.2007, 16:32 | #6 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
InternetGetConnectedState +f1
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
26.06.2007, 16:51 | #7 |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Ну я выключил сетевой кабель - никакой реакции... Выдает сообщение о подключении
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
26.06.2007, 16:52 | #8 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Хм, интересно, сейчас потестирую
Работает. Задержка в реакции около 30 секунд что логично и нормально.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи Последний раз редактировалось Квэнди; 26.06.2007 в 16:59. |
26.06.2007, 17:37 | #9 | |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Цитата:
аааа.... Ну тогда сорри...
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблемы при подключении MySQL к Delphi | Umen | БД в Delphi | 13 | 18.04.2011 18:06 |
нету MFC ??? | Diman2008 | Общие вопросы .NET | 2 | 22.03.2008 21:56 |
Картинка появляется по нажатию кнопки! | MAKEDON | Общие вопросы Delphi | 3 | 13.12.2007 20:17 |
Картинка появляется по нажатию кнопки! | MAKEDON | Общие вопросы Delphi | 3 | 12.12.2007 22:49 |
Нету картинок... | BETONOMESHALKA | Общие вопросы Delphi | 1 | 27.07.2007 08:13 |