|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Определение Ip-адреса
Как можно определить IP-адрес машины. Например, комп выходит в сеть и нужно, чтоб высвечивался ip-адрес машины.
|
#2
|
||||
|
||||
const
WINSOCK_VERSION = $0101; var WSAData : TWSAData; p : PHostEnt; begin WSAStartup(WINSOCK_VERSION, WSAData); p := GetHostByName(PChar(Edit1.Text)); Edit2.Text := inet_ntoa(PInAddr(p.h_addr_list^)^); WSACleanup; end; Где Edit1.Text = Имя машины в сети, а Edit2.Text ее IP |
#3
|
||||
|
||||
ООООгромное спасибо!!!
|
#4
|
||||
|
||||
Ip
Народ!
А какие библиотеки для этого нужно подключать? |
#5
|
||||
|
||||
Winsock.pas . В uses просто прописать "Winsock"
Нет повести печальнее на свете, чем повесть о заклиневшем Resete. |
#6
|
||||
|
||||
гы, вроде да.
|