Узнать, соединён ли комп с инетом
Аноним
Желательнее "объяснить" сорцами
Спасибо!
Я находил в Инете одно решение но не знаю работает оно или нет и подойдет ли вам...
Кидаю весь текст
Как проверить соединение с интернетом. (16.04.01 1458)
Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.
Совместимость 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/psdk/shellcc/shell/Functions/InetIsOffline.htm
Автор Vitaly Zayko (zayko@vitsoftware.com)
Источник http//www.sources.ru/delphi/
Кидаю весь текст
Как проверить соединение с интернетом. (16.04.01 1458)
Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.
Совместимость 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/psdk/shellcc/shell/Functions/InetIsOffline.htm
Автор Vitaly Zayko (zayko@vitsoftware.com)
Источник http//www.sources.ru/delphi/