Hvordan få lokal IP-adresse
bruker Winsock;
funksjon GetLocalIP: string; Var wsaData: TWSAData; adr: TSockAddrIn; Phe: PHostEnt; szHostName: array [0..128] av Char; begynne Resultat: = ''; hvis WSAStartup ($ 101, WSAData) < > 0 deretter Avslutt; prøve hvis gethostname (szHostName, 128) < > SOCKET_ERROR deretter begynne Phe: = gethostbyname (szHostName); hvis Assigned (Phe), og start addr.sin_addr.S_addr: = longint (plongint (Phe ^ .h_addr_list ^) ^); Resultat: = inet_ntoa (addr.sin_addr); ende; ende; endelig WSACleanup; ende; end;