تشخیص کانکت بودن ADSL

[mamizadeh]

با نام خدا
و با سلام خدمت دوستان
فرض کنید یه کافی نت هستش که به صورت ADSL به اینترنت وصل هستش البته در کلاینت ها یه شورت کات ADSL Connection هستش یعنی کاربر در این کافی نت به شرطی می تونه کار کنه که به اینترنت کانکت باشه یعنی باید اول ADSL Connection را کلیک کند تا به اینترنت وصل شود
حال ما می خواهیم برنامه ای بنویسیم که اینترنت وصل شد به سرور اعلان کند که من وصل شدم
خوب حالا ما می خواهیم
بدانیم که جطوری می شه فهمید شخصی از طریق ADSL به اینترنت وصل هست یا نه؟
البته من با این کد می تونم Dialup را کنترل کنم ولی وقتی در شبکه تست می کنم الان کانکت بودن را می ده در صورتی که به شبکه وصل است نه اینترنت.

Function ConnectKing: boolean ;
var
flags :dword;
begin
Result:= InternetGetConnectedState(@flags,0);
if Result then
begin
if (Flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
CheckConnect:=True;
if (flags and INTERNET_CONNECTION_LAN)= INTERNET_CONNECTION_LAN then
CheckConnect:=True;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
CheckConnect:=True;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)= INTERNET_CONNECTION_MODEM_BUSY then
CheckConnect:=True;
end
else
CheckConnect:=False;
end;
خیلی حیاتی هستش خواهش سریعا حواب بدهید
با تشکر محمد ممی زاده

[Touska]

ببین این لینکها بدرت می خورن :

http://www.swissdelphicenter.ch/torry/showcode.php?id=70
http://www.delphi3000.com/articles/article_1687.asp?SK=

موفق باشید.