Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

IP своего компьютера   Найти похожие ветки 

← →
dkDimon   (2002-10-27 18:17) [0]

Здравствуйте. Подскажите плиз как можно получить IP своего компа с помощь Дельфи???

---

← →
romych   (2002-10-27 19:58) [1]

на http://www.sources.ru/ есть стаття, ее передать не могу, так как размер более 5000 символов.

---

← →
Deader   (2002-10-27 21:02) [2]

Смотри в FAQ там есть и довольно неплохой пример!

---

← →
izhalex   (2002-10-29 15:26) [3]

попробуй так

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;

---

← →
dkDimon   (2002-10-31 10:35) [4]

>izhalex

Огромная пасиба! Все работает

---

← →
daan_m   (2002-10-31 11:49) [5]

127.0.0.1 не пробовал

---

← →
Mischka   (2002-11-01 14:25) [6]

2 daan_m
не издевайтесь над человеком.

---

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

Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Наверх

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