Simplemente técnico: Internet se basa en conexiones TCP / IP. La parte TCP describe cómo dos computadoras configuran una conexión entre sí y transfieren datos. La parte de IP trata principalmente sobre cómo enviar un mensaje a través de Internet. Cada máquina conectada tiene una dirección IP única que permite que otros descubran una ruta a cualquier computadora en todo el mundo (o el mundo con precisión).
Para obtener la dirección IP de la computadora que está utilizando cuando está conectado a Internet, necesitamos llamar a algunas de las funciones API * definidas * en la unidad Winsock.
Crearemos un GetIPFromHost función que llama a varias funciones de la API de Winsock para obtener la IP. Antes de que podamos usar las funciones de WinSock, debemos tener una sesión válida. Esta sesión se crea con la función WinSock WSAStartup. Al final de nuestra función, se realiza una llamada a la adaptación de SAC para finalizar el uso de las API de Windows Sockets. Para obtener la dirección IP de la computadora, debemos usar GetHostByName junto con GetHostName. Cada computadora se llama host y podemos obtener el nombre de host con una llamada de función especial: GetHostName. Luego usamos GetHostByName para obtener la dirección IP, relacionada con este nombre de host.
comienzo Delphi y coloca uno Botón y dos Editar cuadros en un formulario recién creado. Añade el GetIPFromHost funcionar a la parte de implementación de su unidad y asignar el siguiente código al controlador de eventos OnClick de un botón (a continuación):