delphi4arab منتديات دلفي للعرب
كود منع استخدام البرنامج من دون آنترنت - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود منع استخدام البرنامج من دون آنترنت (/showthread.php?tid=7216)

كود منع استخدام البرنامج من دون آنترنت - فهد الشملاني - 13-09-2015

السلام عليكم ورحمة الله وبركاتة


هل يمكنني برمجة كود بسيط يعمل خروج للبرنامج تلقائي آن لم يكن متصل بالآنترنت
تلقائي عند فتحة يتحقق من الانترنت آن كان متصل لايخرج
وآن كان غير متصل بالانترنت يخرجة تلقائي ..

كود منع استخدام البرنامج من دون آنترنت - rahiche - 13-09-2015

كود :
https://www.youtube.com/watch?v=x1CSSMUrccU[CODE][/CODE]


كود منع استخدام البرنامج من دون آنترنت - فهد الشملاني - 14-09-2015

if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage('Computer is attached to a network!')
else
ShowMessage('Computer is not attached to a network!');


يعطني آنه متصل وهو غير متصل ..

كود منع استخدام البرنامج من دون آنترنت - I3CT - 14-09-2015

الفحص المبدئي يكون بـــ InternetGetConnectedState الموجودة في وحدة Wininet

كتالي:
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  lpdwFlags: DWORD;
begin
  lpdwFlags := 0;
  if InternetGetConnectedState(@lpdwFlags, 0) = TRUE then
    MessageBoxA(Handle, 'Connected.', 'Connection state', MB_ICONINFORMATION)
  else
    MessageBoxA(Handle, 'Not Connected', 'Connection state', MB_ICONINFORMATION);
end; 

لا تنسى اضافة تعريف الوحدة:
PHP كود :
uses Wininet; 

اما الفحص الخاص يكون بفحص توفر الموقع الخاص بك...
و هذا فحص لتوفر موقع قوقل على سبيل المثال:
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
const
  FLAG_ICC_FORCE_CONNECTION = 1;
begin
  if InternetCheckConnection('http://www.google.com', FLAG_ICC_FORCE_CONNECTION, 0) = TRUE then
    MessageBoxA(Handle, 'Connected.', 'Connection state', MB_ICONINFORMATION)
  else
    MessageBoxA(Handle, 'Not Connected', 'Connection state', MB_ICONINFORMATION);
end; 


كود منع استخدام البرنامج من دون آنترنت - Mr.DOS - 14-09-2015

السلام عليكم

uses

كود :
winInet

على فورم البرنامج(واجهة البرنامج) اضف الكود التالي

كود :
if (InternetGetConnectedstate(nil,0))= true then شغل البرنامج else application.terminate

شاهد المرفق