چک کردن اتصال به اینترنت [بایگانی]

karzari

پنج شنبه 12 اردیبهشت 1387, 12:08 عصر

سلام
چگونه میشه چک کرد که کامپیوتر به اینترنت وصل هست یا نه ؟
لطفا با ذکر مثال باشه بهتره

kharaee_com

پنج شنبه 12 اردیبهشت 1387, 14:10 عصر

البته اگه سرچ می کردید زودتر به نتیجه می رسیدید؛ در ضمن فکر کنم این جور تاپیک ها رو نباید در این تالار نوشت.

این کد :
اول این رو به Uses اضافه کنید :

WinInet

بعد این فانکشن رو تعریف کنید :

Function GetTemp : string;
Var
tempdir : array [0..255] of char;
Begin
Gettemppath(255 , tempdir);
Result := strpas(tempdir);
End;

و در نهایت با این کد وضعیت اتصال به اینترنت رو تست کنید؛ روش استفاده :

procedure TForm1.Button1Click(Sender: TObject);
begin
if ConnectedToInternet = true then
ShowMessage('Connected')
else
ShowMessage('No Connect')
end;

اینم نمونه برنامه :