| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно определить маску подсети? [D7, WinXP]
Rentgen © (2005-11-24 11:51:00)Как можно определить маску подсети?
Для определения IP пользуюсь функцией:
function TForm1.getIP: string;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
//form1.Caption:=iNet_ntoa(TInAddr(p.h_addr));
end;
WSACleanup;
end;
end;
Чета не доходит до меня как же изменить маску :(
Rentgen (2005-11-24 12:12:00) [1]Всем спасибо.
Нашел
Библиотеку:
IPINFO v0.1
Rentgen (2005-11-24 11:52:00) [2]извиняюсь:
не изменить, а определить всего лишь
| |
