Tek kelimeyle teknik: İnternet TCP / IP bağlantıları üzerine kuruludur. TCP bölümü, iki bilgisayarın birbirine nasıl bağlantı kurduklarını ve veri aktarımlarını açıklar. IP bölümü öncelikle bir mesajın internet üzerinden nasıl yönlendirileceğini ele alır. Bağlı her makinenin, başkalarının dünya çapında web'deki (veya tam olarak dünyadaki) herhangi bir bilgisayara giden bir yol bulmasını sağlayan benzersiz bir IP adresi vardır.
İnternete bağlandığınızda kullandığınız bilgisayarın IP adresini almak için Winsock biriminde * tanımlanmış * API işlevlerinden bazılarını çağırmamız gerekir.
Bir GetIPFromHost IP'yi almak için birkaç Winsock API işlevini çağıran işlev. WinSock işlevlerini bile kullanabilmemiz için geçerli bir oturumumuz olmalı. Bu oturum WinSock WSAStartup işleviyle oluşturulur. İşlevimizin sonunda, Windows Sockets API'lerinin kullanımını sonlandırmak için SAC leanup'a bir çağrı yapılır. Bilgisayarın IP adresini almak için GetHostByName'i GetHostName ile birlikte kullanmalıyız. Her bilgisayara ana bilgisayar denir ve ana bilgisayar adını özel bir işlev çağrısı ile alabiliriz: GetHostName. Daha sonra bu ana bilgisayar adıyla ilgili IP adresini almak için GetHostByName'i kullanırız.
Başlat Delphi ve birini yerleştir Buton ve iki Düzenle yeni oluşturulan bir Form üzerindeki kutuları. Ekle GetIPFromHost fonksiyonunu ünitenizin uygulama kısmına ekleyin ve bir düğmenin OnClick olay işleyicisine aşağıdaki kodu atayın (aşağıda):