IPTypes.pas, een unit bomvol met conversieroutines van en naar IP-adressen in de bekende IPv4 en IPv6 formaten.
Tevens registreert de unit "custom variant types" voor deze speciale dataformaten waarmee je onder andere onderstaande bewerkingen kunt uitvoeren:
Wel, als dit niet een enorm handige unit voor IP-adressen is (lees: "leuk, maar ik zie het nut er niet zo van in"), zie het dan als een naslagwerk van het maken van een custom variant type.Delphi Code:
procedure TForm1.Log(const S: String); begin Memo.Lines.Add(S); end; procedure TForm1.Button1Click(Sender: TObject); var I4: TIPv4; I6: TIPv6; V1, V2, V3, V4: Variant; begin I4 := StrToIPv4('192.0.2.128'); I6 := IPv4ToIPv6(I4); V1 := VarIPv6Create('2001:db8:85a3:0:0:8a2e:0370:7334'); V2 := IPv6ToVar(I6); V3 := V1 - V2; V4 := V1 or V2; if V3 < V4 then Log(V3 + ' is kleiner dan ' + V4); if V2.Equals('::ffff:192.0.2.128') or V2.IsZero then Log('OK'); Log('V1 = ' + V1.AsStringOutwritten); Log('V2 = ' + V2.AsURL); Log('V3 = ' + V3.AsStringCompressed); V4.Follow; end;
Waar te vinden?
- Op de VCS-server, zie: http://svn.nldelphi.com/nldelphi/opensource/ngln/
Bookmarks