Simplement technique: Internet est construit sur des connexions TCP / IP. La partie TCP décrit comment deux ordinateurs établissent une connexion entre eux et transfèrent des données. La partie IP traite principalement de la façon de faire acheminer un message sur Internet. Chaque machine connectée possède une adresse IP unique qui permet aux autres de trouver un chemin vers n'importe quel ordinateur sur le World Wide Web (ou le monde précisément).
Pour obtenir l'adresse IP de l'ordinateur que vous utilisez lorsque vous êtes connecté à Internet, nous devons appeler certaines des fonctions API * définies * dans l'unité Winsock.
Nous allons créer un GetIPFromHost fonction qui appelle plusieurs fonctions de l'API Winsock afin d'obtenir l'IP. Avant même de pouvoir utiliser les fonctions WinSock, nous devons avoir une session valide. Cette session est créée avec la fonction WinSock WSAStartup. À la fin de notre fonction, un appel au leanup SAC est effectué afin de mettre fin à l'utilisation des API Windows Sockets. Pour obtenir l'adresse IP de l'ordinateur, nous devons utiliser GetHostByName conjointement avec GetHostName. Chaque ordinateur est appelé hôte et nous pouvons obtenir le nom d'hôte avec un appel de fonction spéciale: GetHostName. Nous utilisons ensuite GetHostByName pour obtenir l'adresse IP liée à ce nom d'hôte.
Début Delphes et en placer un Bouton et deux Éditer boîtes sur un formulaire nouvellement créé. Ajouter le GetIPFromHost fonction à la partie implémentation de votre unité et attribuez le code suivant au gestionnaire d'événement OnClick d'un bouton (ci-dessous):