أصبح تطبيق التحكم عن بُعد على التدريس وسيلة مهمة للتدريس المحوسب في الوقت الحاضر. يجب أن يكون هناك العديد من مستخدمي الإنترنت الذين يرغبون في فهم مبادئ البرمجة في طريقة التدريس عبر الإنترنت ، أليس كذلك؟ سنستخدم هنا برنامجًا بسيطًا للتحكم عن بُعد كمثال لتوضيح المبادئ الأساسية لبرمجة الشبكة هذه. يأخذ هذا البرنامج برمجة دلفي كمثال.
آلية عمل هذا البرنامج بسيطة للغاية. وفقًا لهذا المبدأ ، فإننا نكتب برنامجين ، أحدهما وحدة التحكم والآخر هو التحكم في ذلك ، وتشغيل هذين البرنامجين على جهازين مختلفان. العملية (مثل إعادة التشغيل في هذا المثال).
هناك نوعان من الضوابط في دلفي يمكنهم تحقيق الغرض أعلاه. أحد الأنواع هو أن وحدة التحكم تستخدم Clientsocket ، ويستخدم الطرف الذي يتم التحكم فيه Serversocket (كلاهما على صفحة الإنترنت) ، والنوع الآخر هو أن كلا الطرفين يستخدمان NMUDP (كلاهما على صفحة FastNet). نعلم أن نقل الشبكة غير موثوق به ، أي أن البيانات المرسلة قد تُفقد. بروتوكول TCP موجه نحو الاتصال. غير موجه للبيانات المتصلة. نظرًا لأن كمية البيانات المطلوبة للتحكم ليست كبيرة وتتطلب موثوقية عالية ، يتم استخدام الأول بشكل عام ، ووصف الإجراء كما يلي:
تتمثل الخطوة الأولى في بدء تشغيل برنامج وحدة التحكم ، وإضافة عنصر تحكم Clientsocket ، وتسميه ، وتعيين سمة المضيف على عنوان IP الخاص بالآلة التي يتم التحكم فيها ، وسمات المنفذ هي 1234 (يمكن تعيين المنفذ حسب الرغبة ، ولكن لا تقم بإرادة كررها مع بعض المنافذ الافتراضية ، مثل 80 ، إلخ).
الخطوة الثانية هي إضافة Code Control.Open إلى حدث FormCreate ؛
الخطوة الثالثة هي إضافة زر ، وتعيين التسمية التوضيحية إلى "إعادة التشغيل" ، وإضافة Code Control.socket.sendtext ("إعادة التشغيل") ؛ هذا يكمل عمل وحدة التحكم.
تتمثل الخطوة الرابعة في بدء تشغيل برنامج الطرف الذي يتم التحكم فيه ، وإضافة التحكم في Serversocket ، واسمه UnderControl ، وضبط سمة المنفذ على 1234 (وهو ما يتوافق مع منفذ طرف التحكم) ، والسمة النشطة إلى True.
الخطوة 5: أضف الكود إلى حدث OnClientRead من UnderControl Ifsocket.receivetext = '' reboot '' ثم
exitwindowsex (ewx_reboot ، 2) ؛
هذا يكمل عمل الرمز ، ثم يجمع هذين البرنامجين لإنشاء ملفين .exe ويقوم بتشغيلهما على جهازين (تذكر تشغيل برنامج الآلة الخاضعة للرقابة ضمن Win98 أولاً) ، واضغط على "إعادة التشغيل" على زر وحدة التحكم "(الزر) (الزر) ، إعادة تشغيل الماكينة التي تسيطر عليها. تم تنفيذ إعادة تشغيل جهاز التحكم عن بُعد بنجاح.