| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать тип соединения с Интернетом: сеть или модем

-= Demon =- ©   (2003-06-18 17:29:00) 

Можно ли различить, какое в данный момент подключение к Интернету: по локальной сети или модемное? Функции InternetGetConnectedState абсолютно все равно, какое оно, гланое что есть.

---

k$v   (2003-06-18 19:43:00) [1]

Вот ... наверное можно приспособить... кажется где-то на этом сервере брал...

unit connectinet;
interface
uses Windows;{ Flags for InternetGetConnectedState }
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL;
stdcall;
external winetdll name "InternetGetConnectedState";
function InternetConnected: Boolean;
implementation
function InternetConnected: Boolean;
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
( @dwConnectionTypes, 0)

Вот ... наверное можно приспособить... кажется где-то на этом сервере брал...

unit connectinet;
interface
uses Windows;{ Flags for InternetGetConnectedState }
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
const
winetdll = "wininet.dll";
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL;
stdcall;
external winetdll name "InternetGetConnectedState";
function InternetConnected: Boolean;
implementation
function InternetConnected: Boolean;
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
end.



---

Наверх