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

Как получить IP-address машины в сети с помошью Delphi?   Найти похожие ветки 

← →
Сатир   (2006-03-01 16:51) [0]

сабж

---

← →
Eraser ©   (2006-03-01 17:03) [1]

> Сатир   (01.03.06 16:51)


function GetIPFromHost(const HostName: string): string;
type
 TaPInAddr = array[0..10] of PInAddr;
 PaPInAddr = ^TaPInAddr;
var
 phe: PHostEnt;
 pptr: PaPInAddr;
 i: Integer;
 //GInitData: TWSAData;
begin
 //WSAStartup($101, GInitData);
 Result := "";
 if HostName = "" then
   Exit;
 try
   phe := GetHostByName(PChar(HostName));
   if phe = nil then
     Exit;
   pPtr := PaPInAddr(phe^.h_addr_list);
   i := 0;
   while pPtr^[i] <> nil do
   begin
     Result := inet_ntoa(pptr^[i]^);
     Inc(i);
   end;
   //WSACleanup;
 except
   Result := "";
 end;
end;


---

← →
Сатир   (2006-03-01 17:04) [2]

> Eraser ©   (01.03.06 17:03) [1]

это с использованием WinSocks2?

---

← →
Eraser ©   (2006-03-01 17:05) [3]

> Сатир   (01.03.06 16:51)


function GetIPFromHost(const HostName: string): string;
type
 TaPInAddr = array[0..10] of PInAddr;
 PaPInAddr = ^TaPInAddr;
var
 phe: PHostEnt;
 pptr: PaPInAddr;
 i: Integer;
 //GInitData: TWSAData;
begin
 //WSAStartup($101, GInitData);
 Result := "";
 if HostName = "" then
   Exit;
 try
   phe := GetHostByName(PChar(HostName));
   if phe = nil then
     Exit;
   pPtr := PaPInAddr(phe^.h_addr_list);
   i := 0;
   while pPtr^[i] <> nil do
   begin
     Result := inet_ntoa(pptr^[i]^);
     Inc(i);
   end;
   //WSACleanup;
 except
   Result := "";
 end;
end;


---

← →
Eraser ©   (2006-03-01 17:06) [4]

> Сатир   (01.03.06 17:04) [2]

да

---

← →
Eraser ©   (2006-03-01 17:10) [5]

> Eraser ©   (01.03.06 17:06) [4]

стоп! что это такое я сморозил...
winsock 101 нужен )

---

← →
Jeer ©   (2006-03-01 17:14) [6]

Кладовочка:
http://kladovka.net.ru/delphibase/

---

← →
Сатир   (2006-03-01 18:43) [7]

> стоп! что это такое я сморозил...
> winsock 101 нужен )

у меня был WinSock2, он тоже подошёл, всё скомпилилось и правильно определило айпи тачки

---

← →
Desdechado ©   (2006-03-01 18:45) [8]

127.0.0.1
:)

---

← →
Eraser ©   (2006-03-01 18:54) [9]

> Сатир   (01.03.06 18:43) [7]


> у меня был WinSock2, он тоже подошёл

дык обратная совместимость то )

---

← →
oldman ©   (2006-03-01 18:57) [10]

> Eraser ©   (01.03.06 18:54) [9]


да и в тексте [3] особых указаний (или особенностей) на версию нет... :)))

---

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

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



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