Obtenir l'adresse ip locale

Obtenir l'adresse ip locale

Obtenir l'adresse ip locale : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour obtenir l'adresse IP locale

utilise
Winsock

la fonction GetLocalIP: string
var
wsaData: TWSAData
addr: TSockAddrIn
Phe: PHostEnt
szHostName: array[0..128] de Char
begin
Result := '
si WSAStartup($101, WSAData) <> 0 then
Sortie

si GetHostName(szHostName, 128) <> SOCKET_ERROR puis
begin
Phe := GetHostByName(szHostName)
s'il est Affecte(Phe)
begin
addr.sin_addr.S_addr := longint(plongint(Phe^.h_addr_list^)^)
Result := inet_ntoa(addr.sin_addr)
fin
fin
enfin
WSACleanup
fin
fin