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

Подскажите как определить IP адресс используя WinAPI   Найти похожие ветки 

← →
chili   (2005-05-31 15:41) [0]

Подскажите как определить IP адресс используя WinAPI?

---

← →
DVM ©   (2005-05-31 15:46) [1]

function GetLocalIP:string;
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;

---

← →
chili   (2005-05-31 15:59) [2]

> DVM

Большое вам спасибо за помошь

---

← →
Serg1981   (2005-05-31 23:15) [3]

А в каком модуле описан типа TWSAData ?

---

← →
Kerk ©   (2005-05-31 23:23) [4]

WinSock вроде

---

← →
Kerk ©   (2005-05-31 23:23) [5]

Serg1981   (31.05.05 23:15) [3]
типа TWSAData ?

привычка? :)))

---

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

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



Память: 0.45 MB
Время: 0.037 c