перебор IP адресов

← →
BVV (2004-05-12 13:43) [0]

Нужно организовать простой перебор ip адрессов в заданной области. Я уже как то задавал этот вопрос. Вот что у меня получилось.

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
destAddress : In_Addr;
StartAddr, FinishAddr: u_long;
begin
ipinp:=Edit1.text;
ipout:=Edit2.text;
memo1.Lines.Clear;

StartAddr :=ntohl(inet_addr(pchar(ipinp)));
FinishAddr:=ntohl(inet_addr(pchar(ipout)));

For i:=StartAddr to FinishAddr do
begin
StartAddr:= StartAddr+1;
memo1.Lines.Add(inet_ntoa(In_Addr(StartAddr)));
end;
end;

Только вот код этот выворачивает ip на изнанку.

251.100.168.192
252.100.168.192
253.100.168.192
254.100.168.192
255.100.168.192
0.101.168.192
1.101.168.192
2.101.168.192
3.101.168.192
4.101.168.192
5.101.168.192
6.101.168.192

Где я ОБЛАЖАЛСЯ?

← →
BVV (2004-05-13 12:58) [1]

Что ни кто не в состоянии помочь? Согласен вопрос может быть немного туповат.

> memo1.Lines.Add(inet_ntoa(In_Addr(htonl(i))));

перебор IP адресов Найти похожие ветки