| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сети и IP - Адреса [D6, Win95/98, WinME]
BuBuS © (2002-11-16 21:22:00)
пиплs помогите плизззз. Кто знает как узнать IP своего компа (программно)
Mischka (2002-11-21 14:46:00) [1]function getLocalIP(): string;
type
TaPInAddr = array[0..10]of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63]of char;
i: Integer;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result := "";
getHostName(Buffer, SizeOf(Buffer));
phe:=getHostByName(buffer);
if phe=nil then exit;
pptr:=PaPInAddr(Phe^.h_addr_list);
i:=0;
while pptr^[I]<>nil do
begin
result:=StrPas(inet_ntoa(pptr^[i]^));
inc(i)
end;
WSACleanup
end;
RamZ (2002-11-16 22:02:00) [2]сначала добавь на форму, NMDayTime на странице а потом напиши процедуру NMDayTime1.LocalIP где те нужно и все... кстати она возвращает ип-компа в виде string..
| |
