Get ALL Ip

Function

GetLocalIP: string; var

wsaData: TWSAData;
P : PHostEnt;
S : array [0..128] of char; begin

WSAStartup(MAKEWORD(1,1), wsaData); GetHostName(@s, 128);
P:= GetHostByName(@s);
Result:= iNet_ntoa(PInAddr(p^.h_addr_list^)^); WSACleanup;
end

;

Другое по теме:

• FTP - докачка файлов
• Присоединиться к FTP серверу и загрузить с него файл
• Команды Telnet