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

Идентификация компа   Найти похожие ветки 

← →
Ega23 ©   (2005-11-15 15:06) [0]

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

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? Есть что-нибудь?

---

← →
Reindeer Moss Eater ©   (2005-11-15 15:26) [1]

WSAStartup
GetHostName
GetHostByName    
inet_ntoa

---

← →
TUser ©   (2005-11-15 17:58) [2]

Это?

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

)

---

← →
Ega23 ©   (2005-11-15 18:16) [3]

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


Почти.  :-)))

---

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

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

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


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

---

← →
Veter   (2005-11-17 11:35) [5]

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

---

← →
XCoder ©   (2005-11-17 13:58) [6]

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

---

← →
ItMan ©   (2005-11-22 03:24) [7]

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

---

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

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



Память: 0.46 MB
Время: 0.024 c