Semplicemente tecnico: Internet è basato su connessioni TCP / IP. La parte TCP descrive come due computer stabiliscono una connessione tra loro e trasferiscono i dati. La parte IP tratta principalmente di come instradare un messaggio su Internet. Ogni macchina connessa ha un indirizzo IP univoco che consente ad altri di individuare un percorso verso qualsiasi computer nel world wide web (o precisamente nel mondo).
Per ottenere l'indirizzo IP del computer in uso durante la connessione a Internet, è necessario chiamare alcune delle funzioni API * definite * nell'unità Winsock.
Creeremo un GetIPFromHost funzione che chiama diverse funzioni dell'API Winsock per ottenere l'IP. Prima che possiamo persino usare le funzioni di WinSock, dobbiamo avere una sessione valida. Questa sessione viene creata con la funzione WinSock WSAStartup. Al termine della nostra funzione, viene effettuata una chiamata al leanup SAC al fine di terminare l'utilizzo delle API di Windows Sockets. Per ottenere l'indirizzo IP del computer, dobbiamo usare GetHostByName insieme a GetHostName. Ogni computer è chiamato host e possiamo ottenere il nome host con una chiamata di funzione speciale: GetHostName. Quindi utilizziamo GetHostByName per ottenere l'indirizzo IP, correlato a questo nome host.
Inizio Delphi e posizionane uno Pulsante e due modificare caselle in un modulo appena creato. Aggiungi il GetIPFromHost funzioni alla parte di implementazione della tua unità e assegna il seguente codice al gestore eventi OnClick di un pulsante (sotto):