Native IP with Delphi

Function localip: string;

Type tapinaddr = array [0..10] of pinaddr;

Papinaddr = ^ TapinAddr;

Var Phe: phostent;

Pptr: papinaddr;

Buffer: array [0..63] of char;

I: integer;

GinitData: TWSADATA;

Begin

WSAStartup ($ 101, ginitdata);

Result: = '';

GethostName (Buffer, Sizeof (Buffer);

Phe: = gethostByname (buffer);

IF PHE = NIL THEN EXIT;

PPTR: = papinaddr (Phe ^ .h_addr_list);

I: = 0;

While pptr ^ [i] <> nil do

Begin

Result: = SYSUTILS.STRPAS (inet_ntoa (pptr ^ [i] ^);

INC (I);

END;

WSACLEANUP;

END;