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:

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.

[s.h.a.r.k]

Pack die Unit doch in den Anhang ;) Ich glaube, dann wird dein Beitrag dezent übersichtlicher.

Wie schauts mit der Lizenz aus?!

[DeddyH]

Na gut, pack ich das Teil morgen noch als Anhang dazu (ist im Moment gerade schlecht). Und zur Lizenz: da kenn ich mich nicht wirklich im Detail aus, es ist aber definitiv OS samt Berechtigung zur Änderung. Credits werden nicht verlangt, sind aber auch nicht verboten ;)

[Valle]

Vielleicht solltest du das Projekt unter die WTFPL stellen. ;-)

Code:

            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
                    Version 2, December 2004
 
 Copyright (C) 2004 Sam Hocevar
  14 rue de Plaisance, 75014 Paris, France
 Everyone is permitted to copy and distribute verbatim or modified
 copies of this license document, and changing it is allowed as long
 as the name is changed.
 
            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
 
  0. You just DO WHAT THE FUCK YOU WANT TO.

Liebe Grüße,
Valentin

[EWeiss]

Zitat:

Auch wenn IPv6 so langsam in die Gänge kommt

Will ich doch hoffen denn so langsam gehen die IPv4 Adressen aus. ;)

gruss

[DeddyH]

@Valle: :lol: die kannte ich noch gar nicht, aber das ist genau das, was ich mir so dachte. OK, dann ist die Unit WTFPL ^^.