Cukup teknis: internet dibangun di atas koneksi TCP / IP. Bagian TCP menjelaskan bagaimana dua komputer mengatur koneksi satu sama lain dan mentransfer data. Bagian IP terutama berkaitan dengan cara mendapatkan pesan yang dialihkan di internet. Setiap mesin yang terhubung memiliki alamat IP unik yang memungkinkan orang lain mengetahui jalur ke komputer mana pun di seluruh web (atau dunia tepatnya).
Untuk mendapatkan alamat IP komputer yang Anda gunakan saat terhubung ke internet, kami perlu memanggil beberapa fungsi API * didefinisikan * di unit Winsock.
Kami akan membuat GetIPFromHost fungsi yang memanggil beberapa fungsi Winsock API untuk mendapatkan IP. Bahkan sebelum kita dapat menggunakan fungsi WinSock, kita harus memiliki sesi yang valid. Sesi ini dibuat dengan fungsi WSAStartup WinSock. Di akhir fungsi kami, panggilan ke SAC dibuat untuk menghentikan penggunaan Windows Sockets API. Untuk mendapatkan alamat IP komputer, kita harus menggunakan GetHostByName bersama dengan GetHostName. Setiap komputer disebut host dan kita bisa mendapatkan nama host dengan panggilan fungsi khusus: GetHostName. Kami kemudian menggunakan GetHostByName untuk mendapatkan alamat IP, terkait dengan nama host ini.
Mulailah Delphi dan tempatkan satu Tombol dan dua Edit kotak pada Formulir yang baru dibuat. Tambahkan GetIPFromHost berfungsi ke bagian implementasi unit Anda dan menetapkan kode berikut ke pengendali event OnClick tombol (di bawah):