Απλά τεχνικά: το Διαδίκτυο βασίζεται σε συνδέσεις TCP / IP. Το τμήμα TCP περιγράφει τον τρόπο με τον οποίο δύο υπολογιστές συνδέουν μεταξύ τους και μεταφέρουν δεδομένα. Το τμήμα IP ασχολείται πρωτίστως με τον τρόπο με τον οποίο μπορείτε να μεταφέρετε ένα μήνυμα στο διαδίκτυο. Κάθε συνδεδεμένο μηχάνημα έχει μια μοναδική διεύθυνση IP που επιτρέπει σε άλλους να βρουν μια διαδρομή σε οποιονδήποτε υπολογιστή γύρω από τον παγκόσμιο ιστό (ή τον κόσμο με ακρίβεια).
Για να αποκτήσετε τη διεύθυνση IP του υπολογιστή που χρησιμοποιείτε όταν συνδέεστε στο διαδίκτυο, πρέπει να καλέσετε μερικές από τις λειτουργίες API * που ορίζονται * στη μονάδα Winsock.
Θα δημιουργήσουμε ένα GetIPFromHost που καλεί διάφορες λειτουργίες API του Winsock προκειμένου να αποκτήσει το IP. Πριν μπορέσουμε να χρησιμοποιήσουμε τις λειτουργίες του WinSock, πρέπει να έχουμε μια έγκυρη συνεδρία. Αυτή η περίοδος σύνδεσης δημιουργείται με τη συνάρτηση WinSock WSAStartup. Στο τέλος της λειτουργίας μας, γίνεται κλήση προς το SAC leanup προκειμένου να τερματιστεί η χρήση των API των Windows Sockets. Για να αποκτήσετε τη διεύθυνση IP του υπολογιστή, πρέπει να χρησιμοποιήσουμε το GetHostByName σε συνδυασμό με το GetHostName. Κάθε υπολογιστής ονομάζεται κεντρικός υπολογιστής και μπορούμε να πάρουμε το όνομα του host με μια ειδική κλήση λειτουργίας: GetHostName. Στη συνέχεια, χρησιμοποιούμε το GetHostByName για να λάβουμε τη διεύθυνση IP που σχετίζεται με αυτό το όνομα κεντρικού υπολογιστή.
Αρχή Δελφοί και τοποθετήστε ένα Κουμπί και δύο Επεξεργασία κουτιά σε μια νέα φόρμα. Πρόσθεσε το GetIPFromHost λειτουργήστε στο τμήμα υλοποίησης της μονάδας σας και ορίστε τον ακόλουθο κώδικα στο χειριστή συμβάντος OnClick ενός κουμπιού (παρακάτω):