Как узнать свой 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]

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

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

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

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

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

> just me (26.02.04 18:10)

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

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