Понедельник, 19.01.2026, 14:57 | Приветствую Вас Гость

Жми-форум обо всём

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: RoMkA29

Как проверить соединение с интернетом. (Как проверить соединение с интернетом.)

Как проверить соединение с интернетом.

RoMkA29

Дата: Воскресенье, 19.05.2013, 23:22 | Сообщение # 1

Генералиссимус

Группа: Администраторы

Сообщений: 264

Репутация: 3

Статус: Offline

Как проверить соединение с интернетом.

Автор: Vitaly Zayko

Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.

Совместимость: Delphi 3.x (или выше)

Для работы Вам необходимо импортировать функцию InetIsOffline из URL.DLL:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

а затем поместить в программу простой вызов функции для проверки статуса соединения:

Код

if InetIsOffline(0) then
    ShowMessage('This computer is not connected to Internet!')
else
    ShowMessage(You are connected to Internet!');

Эта функция возвращает TRUE если соединение с интернетов отсутствует, или FALSE если соединение установлено.

Замечание:
параметр Flag игнорируется, соответственно используем ноль.
Эта DLL обычно проинсталлирована на большинстве компьютеров. Она также существует в Win98 либо поставляется с Internet Explorer 4 или выше, Office 97 и т.д..
Более подробно можно прочитать в MSDN.
Оригинал
http://msdn.microsoft.com/library....ine.htm

Как проверить соединение с интернетом. (Как проверить соединение с интернетом.)

Страница 1 из 1
1

Навигация

Block title

Тизерная сеть

Форма входа

Наш бот

ICQ:636-921-022
Jabber:zhmibot@jabber.ru

Случайные картинки

Случайная музыка

[17.03.2013]	[mp3]
Казак Мс ft Игорь Князь – Мотивация Спорт (2)

Казак Мс ft Игорь Князь – Мотивация Спорт

[11.03.2013]	[mp3]
реп это слова любви♥-буду - Любовь - это основа любого моего слова, Эта клятва для тебя, я повторяю снова, Переверну весь мир, смешаю день (0)