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

← →
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

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

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

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