بسم الله الرحمن الرحيم


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

سيكون درسنا لهذه الليلة برنامج بسيط يوضح لنا استخدام الاداة TcpServer والتي وظيفتها جلب المعلومات لاي موقع او اي عنوان اي بي .. وتعتبر من عائلة sockets ... سيتم تطبيق الشرح على الدلفي النسخة السابعة ..نبدا على بركة الله نفتح الدلفي ومشروع جديد وادراج كما بالصورة التالية



ويبقى لدينا الاداة السابق ذكرها TcpServer فنتجه الي مواقع الادوات في الشريط كما هو بالصورة التالية :



انتهينا من ادراج الادوات وبقي علينا نطقة الشيفرة وقبل البدء في كتابة الشيفرة لابد ان نعرف اسماء عناصر الوحدة في قسم usese وطريقة اضافة هذين العنصرين كما بالصورة التالية :



بعدها سيتم كتابة الشيفرة في الزرين ولا نحتاج الي كتابة متغير وسيكون التنفيذ من نفس الاداة
تابع الشيفرة في الصورة التالية :




نجرب البرنامج ليكن جاهزا للتنفيذ بالضغط على F4 او من قائمة الاوامر على Run
وسيظهر لنا بالشكل التالي :



فان اردنا الحصول على عنوان الاي بي الجاهز لدينا نتجه الي زر عنوان الموقع
والعكس عندما نريد معرفة اي بي الموقع نتجه الي زر الاي بي

هذا مافي الامر
تحياتي