PDA

Visualizza la versione completa : [DELPHI] Elencare gli indirizzi IP di una subnet


VaLvOnAuTa
04-07-2007, 14:59
Salve.
Avrei bisogno di una mano per un algoritmo (se magari esiste gi una funzione o un sistema meglio ancora :stordita: )
La questione questa: dato un indirizzo di rete ed una subnet, come faccio ad elencare tutti gli indirizzi di quella rete? :stordita:

Se servono pillole di networking fate un fischio :fagiano:

VaLvOnAuTa
04-07-2007, 17:34
Fatto :fagiano:
Non so se la soluzione pi conveniente ma di sicuro funzionante:

function NextIp(ip: string): string;
var
a : TStrings;
i : integer;
buf: string;
begin
a := TStringList.Create;
buf := '';
for i:=1 to Length(ip) do
begin
if (ip[i] <> '.') then
buf := buf+ip[i]
else
begin
a.Add(buf);
buf := '';
end;
end;
a.Add(buf);
for i:=3 downto 0 do
begin
if a[i] = '255' then
a[i] := '0'
else
begin
a[i] := IntToStr(StrToInt(a[i])+1);
Break;
end;
end;
Result := a[0]+'.'+a[1]+'.'+a[2]+'.'+a[3];
FreeAndNil(a);
end;Basta ciclare questa funzione per quanti sono gli ip della subnet e si ottiene la lista :)

Loading