[أبوبكر سويدان]

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

وجدت في المنتدى سؤالاً عن كيفية برمجة كود يتحقق من اتصال الكمبيوتر بشبكة الإنترنت. فهذا مثال لكيفية عمل ذلك في لغة فري باسكال.

أولاً: قم بإضافة الوحدتين التاليتين لقسم 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] 


شغل البرنامج، ثم انقر على الزر.

البرنامج في المرفقات

  Connection_Check.zip (الحجم : 979.7 ك ب / التحميلات : 57)

[العيد1403]

بارك الله فيك