Obtener dirección ip local

Obtener direccion ip local

Obtener direccion ip local : Multi-millones de consejos para hacer su vida mas facil.

Como obtener la direccion IP local

usos
Winsock

la funcion de GetLocalIP: string
var
wsaData: TWSAData
addr: TSockAddrIn
Phe: PHostEnt
szHostName: array[0..128] of Char
begin
Resultado := '
si WSAStartup($101, WSAData) <> 0 then
Salir
prueba
si GetHostName(szHostName, 128) <> SOCKET_ERROR, a continuacion,
begin
Phe := GetHostByName(szHostName)
si se ha Asignado(Phe), a continuacion,
begin
addr.sin_addr.S_addr := longint(plongint(Phe^.h_addr_list^)^)
Resultado := inet_ntoa(direc.sin_addr)
fin
fin
finalmente
WSACleanup
fin
fin