TIPv4 - kleine Klasse zur Berechnung von IPv4-Netzen

**DeddyH**

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:

zusammenfalten · markieren

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.

TIPv4 - kleine Klasse zur Berechnung von IPv4-Netzen

TIPv4 - kleine Klasse zur Berechnung von IPv4-Netzen

Forumregeln