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

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

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

Последний раз про IP и GetHostByName

chernoruk © (2002-05-13 07:53:00)
Как же всё-таки узнать свой настоящий IP-адрес, если GetHostByName("localhost") всегда выдаёт 127.0.0.1?

False_Delirium (2002-05-15 01:01:00) [1]
// Гипотетически так должно быть верно
Function LocalIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;

Begin
WSAStartup($101, GInitData);
Result := "";
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
// Phe^.h_addr_list - должен содержать IPдля всех интерфейсов.
I := 0;
while pptr^[I] <> nil do begin
// приводим их по очерёдности к нормальному виду
Result := Result + StrPas(inet_ntoa(pptr^[I]^)) + "#10#13" ;
Inc(I);
end;
WSACleanup;
End;

Anatoly Podgoretsky (2002-05-14 15:02:00) [2]
chernoruk © (14.05.02 08:52)
Это приседение типа

Kaban (2002-05-14 14:45:00) [3]
2Malder
Надо всего лишь поискать.
Посмотри исходники Network Adapter Monitor
http://users.pandora.be/dirk.claessens2/

chernoruk (2002-05-14 08:52:00) [4]
И ещё вопрос: что мы делаем выражениями типа PInAddr(...),
где PInAddr-какой-то тип-указатель?

chernoruk (2002-05-14 08:12:00) [5]
--->Song
Спасибо за работающий примерчик!

Song (2002-05-14 00:08:00) [6]
:)))
А ты запускай WinIpCfg и ipconfig и анализируй ответ...

Malder (2002-05-14 00:04:00) [7]
Song, ну это не выход... а если не 98SE ? Ведь WinIpCfg и ipconfig всегда все определяют хорошо ! КАК ОНИ ЭТО ДЕЛАЮТ ? СКОЛЬКО НЕ СПРАШИВАЛ - НИКТО НЕ ЗНАЕТ...

Song (2002-05-13 21:35:00) [8]
2Malder © (13.05.02 21:29)
Тока по реестру.. Если 98SE

Malder (2002-05-13 21:29:00) [9]
Народ. Ну ответьте на следующий вопрос. А если имеется несколько интерфейсов, то как определить IP адреса в каждом их них ?

Сатир (2002-05-13 19:39:00) [10]
2Song
спасибо, уже сам нашёл.
А TPowerSock где может быть?

Song (2002-05-13 17:43:00) [11]
Uses WinSock

Сатир (2002-05-13 17:12:00) [12]
2Song
А какую нужно подключить библиотеку для типов и функций:
TWSAData, PHostEnt,WSAStartup, GetHostName,GetHostByName,
inet_ntoa.

Song (2002-05-13 09:08:00) [13]
Function TForm1.GetHost:String; {Получение IP адреса}
Var WSAData:TWSAData;
p:PHostEnt;
Name:array [0..$FF] of Char;
Begin
WSAStartup($0101,WSAData);
GetHostName(Name, $FF);
p:=GetHostByName(Name);
Result:=inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
End;

Наверх

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