+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد تشخیص وضعیت اتصال به اینترنت (دلفی (/showthread.php?tid=1407)
سورس کد تشخیص وضعیت اتصال به اینترنت (دلفی - Amin_Mansouri - 12-31-2011
This small function will tell you if you are currently connected to the internet or not. Note: You MUST add 'wininet' to the 'USES' clause of your application in order for this to work!
با سورس زیر میتوید بفهمید ایا شما به اینترنت اتصال دارید یا نه؟
کد:
function IsUserOnline:boolean;
var
connect_status:dword;
begin
connect_status := 2 {user uses a lan} +
1 {user uses a modem.} +
4 {user uses a .......} ;
result := InternetGetConnectedState(@connect_status,0);
end;
{----------example-----------}
if IsUserOnline = true then
ShowMessage('User is connected!')
else ShowMessage('User is not connected!');