ببساطة تقنية: الإنترنت مبني على اتصالات TCP / IP. يصف جزء TCP كيفية قيام جهازي كمبيوتر بإعداد اتصال مع بعضهما البعض ونقل البيانات. يتعامل جزء IP بشكل أساسي مع كيفية توجيه رسالة عبر الإنترنت. كل جهاز متصل به عنوان IP فريد يسمح للآخرين باكتشاف مسار لأي جهاز كمبيوتر حول الشبكة العالمية (أو العالم بدقة).
للحصول على عنوان IP الخاص بالكمبيوتر الذي تستخدمه عند الاتصال بالإنترنت ، نحتاج إلى استدعاء بعض وظائف API * المعرفة * في وحدة Winsock.
سنقوم بإنشاء GetIPFromHost الدالة التي تستدعي العديد من وظائف Winsock API من أجل الحصول على IP. قبل أن نتمكن حتى من استخدام وظائف WinSock ، يجب أن يكون لدينا جلسة صالحة. يتم إنشاء هذه الجلسة باستخدام الدالة WinSock WSAStartup. في نهاية وظيفتنا ، يتم إجراء مكالمة إلى SAC leanup من أجل إنهاء استخدام Windows Sockets API. للحصول على عنوان IP الخاص بالكمبيوتر ، يجب أن نستخدم GetHostByName بالاقتران مع GetHostName. يسمى كل جهاز كمبيوتر مضيفًا ويمكننا الحصول على اسم المضيف باستدعاء دالة خاصة: GetHostName. ثم نستخدم GetHostByName للحصول على عنوان IP المرتبط باسم المضيف هذا.
بداية دلفي ووضع واحد زر و اثنان تعديل صناديق على نموذج تم إنشاؤه حديثا. أضف ال GetIPFromHost تعمل في جزء تنفيذ وحدتك وتعيين الرمز التالي إلى معالج أحداث OnClick لزر (أدناه):