Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Как узнать маску подсети?   Найти похожие ветки 

 
FireMan_Alexey ©   (2003-12-19 09:28) [0]

Ув. мастера! Не могли бы вы поделиться как можно достать маску подсети программно?
Если можно с исходником или ссылкой на статью!
Заранее благодарен!


 
Verg ©   (2003-12-19 12:16) [1]

IpHlpApi::GetIpAddrTable

Поищи на MSDN-е


 
Fay   (2003-12-19 13:12) [2]

type
MIB_IPADDRROW = record
dwAddr : DWORD;
dwIndex : DWORD;
dwMask : DWORD;
dwBCastAddr : DWORD;
dwReasmSize : DWORD;
unused1 : Word;
unused2 : Word;
end;
PMIB_IPADDRTABLE = ^MIB_IPADDRTABLE;
MIB_IPADDRTABLE = record
dwNumEntries : DWORD;
table : array[0..0] of MIB_IPADDRROW;
end;

function GetIpAddrTable(pIpAddrTable : PMIB_IPADDRTABLE; var pdwSize : ULONG; bOrder : BOOL) : DWORD; stdcall; external "iphlpapi.dll" name "GetIpAddrTable";

procedure TForm1.Button1Click(Sender : TObject);
type
T4Bytes = array[0..3] of Byte;
P4Bytes = ^T4Bytes;
var
p : PMIB_IPADDRTABLE;
i, n : Cardinal;
j : P4Bytes;
begin
n := 0;
GetIpAddrTable(nil, n, True);
GetMem(p, n);
GetIpAddrTable(p, n, True);
n := p.dwNumEntries;
for i := 0 to n - 1 do
begin
j := @p^.table[i].dwMask;
ShowMessage(Format("%d.%d.%d.%d", [j^[0], j^[1], j^[2], j^[3]]));
end;
FreeMem(p);
end;



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-80134
Soft
2004-01-31 20:43
2004.02.25
Нужно ли платить налоги?


9-79529
Jenaxx
2003-08-09 12:19
2004.02.25
Я скачал из Samples исходник Quest это типа рпг какой то а она...


1-79845
KOSTIK
2004-02-10 19:20
2004.02.25
Рисунок из TImageList в TImage


6-80060
korvin
2003-12-18 16:41
2004.02.25
Избито и тривиально, но ... сокеты


1-79980
Zvr@b
2004-02-13 15:05
2004.02.25
Как построить график функции