| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Идентификация компа [D5]

Ega23 ©   (2005-11-15 15:06:00) 

Есть такая функция:

function GetCompName: string;
var
 Name: array[0..79] of char;
 Len: DWORD;
begin
 Len := 80;
 if GetComputerName(@Name, Len) then Result := Name
   else Result := '';
end;


А вот, чтобы не имя компа, а его IP? Есть что-нибудь?

---

ItMan   (2005-11-22 03:24:00) [1]

На одном ПК может быть несколько IP.

---

XCoder   (2005-11-17 13:58:00) [2]

Смотря какой IP нужен (внутрисетевой или глобальный), если глобальный то GetHostByName не подойдет, разве что если ты напрямую в нет подключен :)

---

Veter   (2005-11-17 11:35:00) [3]

var
WSAData : TWSAData;
Name : array [0..$FF] of Char;
p:PHostEnt;
begin
  WSAStartup($0101, WSAData);
  GetHostName(name, $FF);
  p := GetHostByName(Name);
  if p=nil then exit;
  //Записываем свой IP адрес
  ss:=inet_ntoa(PInAddr(p.h_addr_list^)^);
end;

//ss:=твой ip

---

Германн   (2005-11-16 02:27:00) [4]

2 Ega23 ©   (15.11.05 18:16) [3]

> Почти.  :-)))


Олег. Плагиат.
См. "Операция Ы\Наваждение" :-)

---

Ega23   (2005-11-15 18:16:00) [5]

> TUser ©   (15.11.05 17:58) [2]


Почти.  :-)))

---

TUser   (2005-11-15 17:58:00) [6]

Это?

http://www.delphimaster.ru/cgi-bin/nuts.pl?&showpage=4

)

---

Reindeer Moss Eater   (2005-11-15 15:26:00) [7]

WSAStartup
GetHostName
GetHostByName    
inet_ntoa

---

Наверх