چگونه بفهمیم کاربر الان به اینترنت وصل است

[دنی کوئیل]

چگونه بفهمیم کاربر الان به اینترنت وصل است

تو Vb با کد میشد این کار را کرد

تو دلفی خدا می داند

منتظرم

یا علی

[MiRHaDi]

سلام پسر خوب
عزیزم راه های مختلفی داره !
یک راه سادش اینه که IP رو چک کنی
بای

[دنی کوئیل]

چه جوری قربونت برم ؟

[MiRHaDi]

سلام
کتاب 296 برنامه دلفی رو یه ورق بزن این مثال توش هست
با API میشه < با Indy میشه با Socket هم میشه
بای

[MiRHaDi]

سلام
کتاب 296 برنامه دلفی رو بگیری کامل گفته
با indy یا سوکت یا API یا ...
بای

[babak869]

سلام
اگه کسی اونو نداشت اونوقت چی؟؟؟؟؟
البته من دارمش!!!!!

[MiRHaDi]

سلام
فکر نمیکنم کار خیلی سختی باشه !
میتونه بخره ! یا از کتابخونه سر کوچشون قرض بگیره ! فکر کنم بیارزه
بای

[babak869]

اینم کد بر ای وصل شدن به اینترنت


Connect and disconnect to/from the Internet
From Zarko Gajic,
Your Guide to Delphi Programming.
FREE Newsletter. Sign Up Now!
Here's how to connect to the Internet from Delphi code:
InternetAutoDial(dwFlags, hwndParent) ;

Where dwFlags can be one of the following values:
INTERNET_AUTODIAL_FAILIFSECURITYCHECK - causes InternetAutodial to fail if file and printer sharing is disabled for Microsoft® Windows® 95 or later.
INTERNET_AUTODIAL_FORCE_ONLINE - forces an online Internet connection.
INTERNET_AUTODIAL_FORCE_UNATTENDED - forces an unattended Internet dial-up.
and, hwndParent is Handle to the parent window.

Exmaple:

~~~~~~~~~~~~~~~~~~~~~~~~~
uses WinInet;
...
InternetAutoDial(internet_autodial_force_unattende d, Handle) ;

{
To disconnect this automatic dial-up connection, use
}

InternetAutodialHangup(0)

{
Another way is to specify the name
of the connection you wish to use
(ConnectionName), from Dialup
networking:
}

if InternetDial
(0, PChar(ConnectionName), INTERNET_AUTODIAL_FORCE_UNATTENDED, dwConn, 0) <> ERROR_SUCCESS then exit;
//Do something with Internet...
InternetHangup(dwConn, 0) ;
~~~~~~~~~~~~~~~~~~~~~~~~~

[babak869]

اینم برای چک کردن اتصال به اینترنت


Here's how to check whether you are connected to the Internet:
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Button1Click(Sender: TObject) ;

function FuncAvail(_dllname, _funcname: string;
var _p: pointer): boolean;
{return True if _funcname exists in _dllname}
var _lib: tHandle;
begin
Result := false;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> NIL then Result := true;
end;
end;

{
Call SHELL32.DLL for Win < Win98
otherwise call URL.dll
}
{button code:}
var
InetIsOffline : function(dwFlags: DWORD):
BOOL; stdcall;
begin
if FuncAvail('URL.DLL', 'InetIsOffline',
@InetIsOffline) then
if InetIsOffLine(0) = true
then ShowMessage('Not connected')
else ShowMessage('Connected!') ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

[hamidprogramer]

سلام برادر احدي
كد شما خوب كار مي كنه ولي اتصال يك دستگاه در يك شبكه Lan رو نمي تونه نشون بده ؛ من دقيقاً مشكلم همينه كه گفتم اگر بتونين به من كمك كنين ممنون ميشم.

[Cave_Man]

دوست عزیز راهش این هست که با کدنویسی یه سایت رو Ping کنید یا اینکه با HTTP در تب Indy یه سایت سبک مثل google رو دریافت کنید . در صورت دریافت به اینترنت متصل هستید.


IdHTTP1.Host:='google.com';
IdHTTP1.Connect();;
if IdHTTP1.Get('www.google.com') <>'' then
showmessage('connected');
راه دیگه استفاده از InternetGetConnectedState هست در یونیت WinInet هست