Auch wenn IPv6 so langsam in die Gänge kommt habe ich eine kleine Hilfsklasse für IPv4 geschrieben.
Tja, was macht das Ding? Man erzeugt eine Instanz, weist eine
IP-Adresse und eine Netzmaske zu und kann div. Parameter zum Netzwerk abfragen. Das ist alles, kann für die Netzplanung aber recht nützlich sein. Da es sich nur um eine
Unit handelt spare ich mir einen Upload als ZIP-Archiv o.ä.
Beispielaufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
IP: TIPv4;
begin
IP := TIPv4.Create;
try
IP.AsString := '
192.168.1.203';
IP.NetMask :=
IP.DefaultNetMask;
Memo1.Lines.BeginUpdate;
try
Memo1.Lines.Clear;
Memo1.Lines.Add('
IP: ' +
IP.AsString);
Memo1.Lines.Add('
Netzmaske: ' +
IP.NetMask);
Memo1.Lines.Add('
Netzadresse: ' +
IP.NetAddress);
Memo1.Lines.Add('
Broadcast: ' +
IP.Broadcast);
Memo1.Lines.Add('
Kleinste Hostadresse: ' +
IP.FirstHostAddress);
Memo1.Lines.Add('
Größte Hostadresse: ' +
IP.LastHostAddress);
Memo1.Lines.Add('
Hosts max.: ' + IntToStr(
IP.PossibleHosts));
finally
Memo1.Lines.EndUpdate;
end;
finally
IP.Free;
end;
end;
Die
Unit ist auf jeden Fall ab Delphi 7 lauffähig (getestet), für ältere Delphi-Versionen kann ich keine Garantie übernehmen.