Скачать: CL | DM;

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

← →
Budy ©   (2004-02-26 07:09) [0]

Приветствую всех читающих данное!
Можно ли средствами Delphi5 (Delphi7) узнать свой IP. Конечно же без подключения он равен 127.0.0.1, а вот как можно узнать при подключении? Заранее спасибо!

---

← →
Verg ©   (2004-02-26 07:59) [1]

http://delphimaster.net/view/6-1075796204/

---

← →
Dimich1978 ©   (2004-02-26 08:27) [2]

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;

---

← →
Budy ©   (2004-02-26 17:13) [3]

Неа, не канает! Не находит TWSAData

---

← →
Verg ©   (2004-02-26 17:18) [4]

> [3] Budy ©   (26.02.04 17:13)
> Неа, не канает! Не находит TWSAData


А зачем тебе IP адрес тогда? :)))
Что ты с ним будешь делать?

---

← →
Budy ©   (2004-02-26 18:02) [5]

Да, я тут вот чатик свой придумал, а кто его знает при каком IP придется общатся. Вот и хочу IP для него узнать.

---

← →
VMcL ©   (2004-02-26 18:05) [6]

>>Budy ©  (26.02.04 18:02) [5]

Бред.

---

← →
Budy ©   (2004-02-26 18:09) [7]

Что бред??? Чат-бред??

---

← →
Verg ©   (2004-02-26 18:10) [8]

> [5] Budy ©   (26.02.04 18:02)
> Да, я тут вот чатик свой придумал, а кто его знает при каком
> IP придется общатся. Вот и хочу IP для него узнать.


TWSAData определено в модуле WinSock. Если тебе WinSock до сих пор не пригождался для "придумывания чатика", то и IP адрес тебе нужен как корове седло.

---

← →
just me   (2004-02-26 18:10) [9]

Это ж насколько надо быть ленивым, чтобы не найти самому...
uses WinSock;

---

← →
Verg ©   (2004-02-26 18:14) [10]

> just me   (26.02.04 18:10)


Да не, все нормально, человек в 16 лет с незаконченным высшим учит экзамены, придумывает чатики и гадает как засунуть иконку возле часиков.
Все пучком....

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c