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

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). Это возможно? Если да, то скиньте примерчик пожалуйста.

---

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

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



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