Текущий архив: 2002.08.29;
Скачать: 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 вся ветка
Текущий архив: 2002.08.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
