как узнать IP

← →
Sur © (2004-03-29 14:12) [0]

Привет мастерам.
Если кто знает как можно узнать IP-address машины,
буду очень благодарен за подсказку

← →
V@LER@N © (2004-03-29 16:05) [1]

Об этом много писали. Посмотри в вопросах за прошлую неделю.

← →
Rezya © (2004-03-29 20:13) [2]

Какой машины твоей или удаленной. Если твоей то
procedure TForm1.Button1Click(Sender: TObject); var WSAData : TWSAData; p : PHostEnt; Name : array [0..$FF] of Char; begin WSAStartup($0101, WSAData); GetHostName(name, $FF); p := GetHostByName(Name); while (p.h_addr_list^ <> nil) do begin Memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^)); Inc(p.h_addr_list); end; WSACleanup; end;
Winsock не забуть подключить.

← →
Sur © (2004-03-30 13:40) [3]

Спасибо за подсказку.
А где можно читать про функции WinSock-а.

← →
Ozone © (2004-03-30 13:44) [4]

В хелпе много чего есть.
Кстати, MSDN еще никто не отменял

← →
Rezya © (2004-03-30 18:36) [5]

> А где можно читать про функции WinSock-а.

http://book.itep.ru/7/sock_71.htm

У меня данный код вызывает EAccessViolation
на строке
WSAStartup($0101, WSAData);

WSAStartUP из модуля Windows или IdWinSock ??????
аналогично для TWSAData;

Вопрос СНЯТ :)

как узнать IP Найти похожие ветки