Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать свой IP [D5, D7, Win95/98, WinXP]

Budy © (2004-02-26 07:09:00)
Приветствую всех читающих данное!
Можно ли средствами Delphi5 (Delphi7) узнать свой IP. Конечно же без подключения он равен 127.0.0.1, а вот как можно узнать при подключении? Заранее спасибо!

Verg (2004-02-26 18:14:00) [1]

> just me (26.02.04 18:10)

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

Verg (2004-02-26 18:10:00) [2]

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

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

just me (2004-02-26 18:10:00) [3]
Это ж насколько надо быть ленивым, чтобы не найти самому...
uses WinSock;

Budy (2004-02-26 18:09:00) [4]
Что бред??? Чат-бред??

VMcL (2004-02-26 18:05:00) [5]
>>Budy © (26.02.04 18:02) [5]

Бред.

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

Verg (2004-02-26 17:18:00) [7]

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

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

Budy (2004-02-26 17:13:00) [8]
Неа, не канает! Не находит TWSAData

Dimich1978 (2004-02-26 08:27:00) [9]
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;

Verg (2004-02-26 07:59:00) [10]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1075796204&n=4

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »