Online vs Offline...

Är det någon som kan se vad det är för fel i denna kod?

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">USES
WinInet;
..
..

function InternetConnected: Boolean;
CONST
INTERNET_CONNECTION_MODEM = 1; // local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_LAN = 2; // local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4; // local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_MODEM_BUSY = 8; // local system's modem is busy with a non-Internet connection.
VAR
dwConnectionTypes : DWORD;
BEGIN
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes,0);
END;

Jag har ADSL och den säger att jag alltid är online. När jag körde med vanligt modem tidigare så fungerade den bra...
Är det någon som kan hitta nå fel?

------------------
--- ^FreeZer^ ---
------------------

Om du läser på sidan så står det att InternetGetConnectedState inte räcker för att man ska vara helt säker. Det finns ett exempel på hur man bör göra.

Från MS:
Detecting If You Have a Connection to the Internet http://support.microsoft.com/support/kb/articles/Q242/5/58.ASP

Ok, hur ska jag göra nu? Är koden på sidan ett Javascript eller?

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">if (InternetGetConnectedState(...) == FALSE)
{
// Don't attempt connection or it will bring up the dialog
...
}
else
{
//Attempt connection
if (InternetOpenURL(...) == NULL)
{
// Call failed
err = GetLastError();
if ((err == ERROR_INTERNET_NAME_NOT_RESOLVED) ||
(err == ERROR_INTERNET_CANNOT_CONNECT) ||
(err == ERROR_INTERNET_TIMEOUT))
{
// probably not connected...handle appropriately
...
}
}
// We're connected!!!
....
}

------------------
--- ^FreeZer^ ---
------------------