| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IP и хост [D5, Win95/98, WinME, WinXP]
Monak © (2002-06-20 20:19:00)Как узнать IP и имя компьютера? И ещё как при работе на сокетах, узнать также айпи и имя подключившегося компьютера??
Slava V. (2002-06-21 10:34:00) [1]Нужно узнать внешний IP компьютера находящегося в локальной сети и подключенного к Инету по модему. По приведенным здесь примерам выдается внутренний IP компьютера в локальной сети (например 10.0.0.1), а нужен другой (тот который выдается при запуске winipcfg). Это возможно? Если да, то скиньте примерчик пожалуйста.
Pag (2002-06-21 00:02:00) [2]айпи и имя подключившегося компьютера
procedure TChatForm.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Statusbar1.Panels[0].Text := "Connected to: " + Socket.RemoteAddress;
end;
neodiX (2002-06-20 20:39:00) [3]Узнать name своего PC
var p:pchar;
i:cardinal;
begin
p:=nil;
i:=255;
p:=allocmem(i);
getcomputername(p,i);
showmessage(p);
neodiX (2002-06-20 20:34:00) [4]Узнать 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;
| |
