Вниз
Скачать: CL | DM;

Как отобразить процесс опроса некоторого диапазона IP-адресов   Найти похожие ветки 

← →
Артем К.   (2004-10-08 07:27) [0]

в ProgressBare?
Есть два списка, в которых хранятся части IP-адресов (IP1-начальный адрес, IP2-конечный адрес). IP1 и IP2 определяют диапазон опрашиваемых адресов.
000.000.000.000
3   2   1   0
Делаю перебор по диапазону адресов.

for i:=StrToInt(IP1.Strings[3])to StrToInt(IP2.Strings[3])do
for j:=StrToInt(IP1.Strings[2])to StrToInt(IP2.Strings[2])do
for n:=StrToInt(IP1.Strings[1])to StrToInt(IP2.Strings[1])do
for m:=StrToInt(IP1.Strings[0])to StrToInt(IP2.Strings[0])do begin
tmpIPAddress:=Format("%d.%d.%d.%d",[i,j,n,m]);
end;

Как этот процесс отобразить в ProgressBare?


← →
Артем К.   (2004-10-08 08:39) [1]

Ну в общем-то я и сам разобрался. Если кому надо, привожу исходник:


//сначала делаем строки полных адресов из частей IP1 и IP2
ProgressBar.Min := ntohl(inet_addr(pchar(StartIPAddress)));
ProgressBar.Max := ntohl(inet_addr(pchar(EndIPAddress)));
for i:=StrToInt(IP1.Strings[3])to StrToInt(IP2.Strings[3])do
for j:=StrToInt(IP1.Strings[2])to StrToInt(IP2.Strings[2])do
for n:=StrToInt(IP1.Strings[1])to StrToInt(IP2.Strings[1])do
for m:=StrToInt(IP1.Strings[0])to StrToInt(IP2.Strings[0])do begin
tmpIPAddress:=Format("%d.%d.%d.%d",[i,j,n,m]);
ProgressBar.Position := ntohl(inet_addr(pchar(tmpIPAddress)));
end;


← →
Reindeer Moss Eater ©   (2004-10-08 08:47) [2]

Как все сложно.

IP адрес - это одно целочисленное длиной 32 бита.
Диапазон адресов - это один цикл for.


← →
КаПиБаРа ©   (2004-10-08 09:09) [3]

Reindeer Moss Eater ©   (08.10.04 8:47) [2]
В одном цикле это конечно просто, но если подумать, зачем опрашивать все адреса подсети, если к ней нет доступа?


← →
Reindeer Moss Eater ©   (2004-10-08 09:11) [4]

А где я сказал, что их надо опрашивать?


← →
Reindeer Moss Eater ©   (2004-10-08 09:11) [5]

И где сказано что к ним нет доступа?

И кто с утра отменил маски ?



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c
1-1097061914
Russel
2004-10-06 15:25
2004.10.24
Установка старого компонента


4-1095430012
Stefan
2004-09-17 18:06
2004.10.24
ini-файл в памяти


14-1096756061
KilkennyCat
2004-10-03 02:27
2004.10.24
Куда в Питере можно сдать старые компы?


1-1097044310
clampo
2004-10-06 10:31
2004.10.24
Текст на лабеле


8-1085250190
Forelli
2004-05-22 22:23
2004.10.24
Как вставить Flash ролик в Delphi




   Наверх