+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : البيئات التطويرية ولغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=81)
+--- قسم : البيئات التطويرية للغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=82)
+---- قسم : Lazarus / Free Pascal (http://vb4arb.com/vb/forumdisplay.php?fid=191)
+---- الموضوع : [كود] التحقق من اتصال الكمبيوتر بالإنترنت (/showthread.php?tid=21085)
التحقق من اتصال الكمبيوتر بالإنترنت - أبوبكر سويدان - 16-07-17
السلام عليكم ورحمة الله...
وجدت في المنتدى سؤالاً عن كيفية برمجة كود يتحقق من اتصال الكمبيوتر بشبكة الإنترنت. فهذا مثال لكيفية عمل ذلك في لغة فري باسكال.
أولاً: قم بإضافة الوحدتين التاليتين لقسم Uses في البرنامج:
كود :
windows, wininetثانياً: ضع زراً Button و Panel
وفي حدث النقر للزر اكتب الكود التالي:
PHP كود :
[align=left]
procedure TFMain.BCheckClick(Sender: TObject);
var
Flags: Windows.DWORD; // flags to pass to API function
Result: boolean;
begin
Flags := 0;
Result := WinInet.InternetGetConnectedState(@Flags, 0);
if Result=true then
begin
PResult.Caption:='This computer is connected to internet!';
PResult.Font.Color:=clgreen;
end
else
begin
PResult.Caption:='This computer is Not connected to internet!';
PResult.Font.Color:=clred;
end;
end;
[/align]
شغل البرنامج، ثم انقر على الزر.
البرنامج في المرفقات
[attachment=14870]
RE: التحقق من اتصال الكمبيوتر بالإنترنت - العيد1403 - 23-09-17
بارك الله فيك