Einfach technisch: Das Internet basiert auf TCP / IP-Verbindungen. Der TCP-Teil beschreibt, wie zwei Computer eine Verbindung untereinander herstellen und Daten übertragen. Der IP-Teil befasst sich hauptsächlich mit dem Weiterleiten einer Nachricht über das Internet. Jeder angeschlossene Computer verfügt über eine eindeutige IP-Adresse, mit der andere Benutzer einen Pfad zu jedem Computer im World Wide Web (oder genau zur Welt) ermitteln können.
Um die IP-Adresse des Computers zu erhalten, den Sie verwenden, wenn Sie mit dem Internet verbunden sind, müssen Sie einige der in der Winsock-Einheit * definierten * API-Funktionen aufrufen.
Wir werden eine erstellen GetIPFromHost Funktion, die mehrere Winsock-API-Funktionen aufruft, um die IP abzurufen. Bevor wir überhaupt WinSock-Funktionen verwenden können, müssen wir eine gültige Sitzung haben. Diese Sitzung wird mit der WinSock WSAStartup-Funktion erstellt. Am Ende unserer Funktion wird SAC Leanup aufgerufen, um die Verwendung der Windows Sockets-APIs zu beenden. Um die IP-Adresse des Computers zu erhalten, müssen wir GetHostByName in Verbindung mit GetHostName verwenden. Jeder Computer wird als Host bezeichnet und wir können den Hostnamen mit einem speziellen Funktionsaufruf abrufen: GetHostName. Wir verwenden dann GetHostByName, um die IP-Adresse zu erhalten, die sich auf diesen Hostnamen bezieht.
Start Delphi und platziere einen Taste und zwei Bearbeiten Felder in einem neu erstellten Formular. Ergänzen Sie die GetIPFromHost Funktionieren Sie dem Implementierungsteil Ihres Geräts und weisen Sie dem OnClick-Ereignishandler einer Schaltfläche (unten) den folgenden Code zu: