16-07-17, 12:12 AM
السلام عليكم ورحمة الله...
وجدت في المنتدى سؤالاً عن كيفية برمجة كود يتحقق من اتصال الكمبيوتر بشبكة الإنترنت. فهذا مثال لكيفية عمل ذلك في لغة فري باسكال.
أولاً: قم بإضافة الوحدتين التاليتين لقسم Uses في البرنامج:
ثانياً: ضع زراً Button و Panel
وفي حدث النقر للزر اكتب الكود التالي:
شغل البرنامج، ثم انقر على الزر.
البرنامج في المرفقات
[attachment=14870]
وجدت في المنتدى سؤالاً عن كيفية برمجة كود يتحقق من اتصال الكمبيوتر بشبكة الإنترنت. فهذا مثال لكيفية عمل ذلك في لغة فري باسكال.
أولاً: قم بإضافة الوحدتين التاليتين لقسم 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]