Po prostu techniczne: Internet opiera się na połączeniach TCP / IP. Część TCP opisuje, w jaki sposób dwa komputery nawiązują ze sobą połączenie i przesyłają dane. Część IP dotyczy przede wszystkim sposobu przesyłania wiadomości przez Internet. Każda podłączona maszyna ma unikalny adres IP, który pozwala innym znaleźć ścieżkę do dowolnego komputera w sieci (lub dokładnie na świecie).
Aby uzyskać adres IP komputera, którego używasz po połączeniu z Internetem, musimy wywołać niektóre funkcje API * zdefiniowane * w jednostce Winsock.
Stworzymy GetIPFromHost funkcja, która wywołuje kilka funkcji API Winsock w celu uzyskania adresu IP. Zanim będziemy mogli korzystać z funkcji WinSock, musimy mieć prawidłową sesję. Ta sesja jest tworzona za pomocą funkcji WinSock WSAStartup. Pod koniec naszej funkcji wywoływane jest przechwytywanie SAC w celu zakończenia korzystania z interfejsów API Windows Sockets. Aby uzyskać adres IP komputera, musimy użyć GetHostByName w połączeniu z GetHostName. Każdy komputer jest nazywany hostem i możemy uzyskać nazwę hosta za pomocą specjalnego wywołania funkcji: GetHostName. Następnie używamy GetHostByName, aby uzyskać adres IP związany z tą nazwą hosta.
Początek Delfy i umieść jeden Przycisk i dwa Edytować pola na nowo utworzonym formularzu. Dodaj GetIPFromHost funkcji do części implementacyjnej urządzenia i przypisz następujący kod do obsługi zdarzeń OnClick przycisku (poniżej):