IP и хост

← →
Monak (2002-06-20 20:19) [0]

Как узнать IP и имя компьютера? И ещё как при работе на сокетах, узнать также айпи и имя подключившегося компьютера??

← →
neodiX © (2002-06-20 20:34) [1]

Узнать IP своего PC
var WSAData : TWSAData; p : PHostEnt; Name : array [0..$FF] of Char; begin WSAStartup($0101, WSAData); GetHostName(name, $FF); p := GetHostByName(Name); showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^)); WSACleanup; end;

← →
neodiX © (2002-06-20 20:39) [2]

Узнать name своего PC
var p:pchar; i:cardinal; begin p:=nil; i:=255; p:=allocmem(i); getcomputername(p,i); showmessage(p);

← →
Pag © (2002-06-21 00:02) [3]

айпи и имя подключившегося компьютера
procedure TChatForm.ServerSocketAccept(Sender: TObject; Socket: TCustomWinSocket); begin Statusbar1.Panels[0].Text := "Connected to: " + Socket.RemoteAddress; end;

← →
Slava V. (2002-06-21 10:34) [4]

Нужно узнать внешний IP компьютера находящегося в локальной сети и подключенного к Инету по модему. По приведенным здесь примерам выдается внутренний IP компьютера в локальной сети (например 10.0.0.1), а нужен другой (тот который выдается при запуске winipcfg). Это возможно? Если да, то скиньте примерчик пожалуйста.

IP и хост Найти похожие ветки