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

[hp1361]

سلام

در تکمیل صحبت negative60 عزیز

uses

  Winapi.WinInet;

procedure TForm1.btn_InternetGetConnectedStateClick(Sender: TObject);

var

  origin: Cardinal;

  // connections origins by origin value

  // NO INTERNET CONNECTION              = 0;

  // INTERNET_CONNECTION_MODEM           = 1;

  // INTERNET_CONNECTION_LAN             = 2;

  // INTERNET_CONNECTION_PROXY           = 4;

  // INTERNET_CONNECTION_MODEM_BUSY      = 8;

begin

  if InternetGetConnectedState(@origin, 0) then

    ShowMessage('اتصال به اینترنت وجود دارد!')

  else

    ShowMessage('اتصالی وجود ندارد!')

end;

مقادیر موجود در متغیر origin نشاندهنده نحوه اتصال به اینترنت خواهد بود(اتصال از طریق LAN، از طریق مودم و ...)

این رو هم درنظر داشته باشید که ممکنه پروسه چک کردن وجود اتصال زمانبر بشه و اونوقت UI کاربر به حالت قفل دربیاد! لذا استفاده از یک ترد جداگانه پیشنهاد میشه.

البته بیشتر پیشنها میشه به بک سرور که همیشه در اینترنت UP هست کانکت بشین و از نتیجه اون استفاده کنید چرا که بعضی مواقع ممکنه سیستم عامل نتیجه درستی بر نگردونه!

موفق باشیم