+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضهار الفورم حسب اتصالك بالنت (/showthread.php?tid=4101)
اضهار الفورم حسب اتصالك بالنت - hadji.samir - 13-04-2012
السلام عليكم
ممكن كود لمعرفة هل هناك اتصال بالنت اة لا يعني مثلا اذا كان هناك اتصال اضهر هذه الفورم وان لم يكن هناك اتصال showmessage .......
وشكرا
اضهار الفورم حسب اتصالك بالنت - Agmcz - 13-04-2012
وعليكم السلام
PHP كود :
function InternetConnected: Boolean;
const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
begin
if InternetConnected then
begin
ShowMessage('Connected')
end else
begin
ShowMessage('Not connected');
end;
end;
مع اضافة الوحدة
كود :
uses WinInet;