Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

как узнать 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

---

← →
S@shka ©   (2004-04-01 10:03) [6]

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

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

---

← →
S@shka ©   (2004-04-01 10:08) [7]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.038 c