IsValid IPv4/IPv6

Zur Vorstellung von Komponenten und Units für Lazarus
Antworten
sstvmaster
Beiträge: 415
Registriert: Sa 22. Okt 2016, 23:12
OS, Lazarus, FPC: W10, L 2.0.12
CPU-Target: 32+64bit
Wohnort: Dresden

IsValid IPv4/IPv6

Beitrag von sstvmaster »

Anbei eine Unit mit RegEx mit folgenden Funktionen:

Code: Alles auswählen

function IsValidPrivateIPv4(aIP: String): Boolean;
function IsValidIPv4(aIP: String): Boolean;
function IsValidIPv6(aIP: String): Boolean;


Anregungen, Kritik erwünscht.
Dateianhänge
uipaddresshelpers.pas
(3.65 KiB) 102-mal heruntergeladen
Windows 10, Lazarus 2.0.12 + Lazarus Trunk
LG Maik

sstvmaster
Beiträge: 415
Registriert: Sa 22. Okt 2016, 23:12
OS, Lazarus, FPC: W10, L 2.0.12
CPU-Target: 32+64bit
Wohnort: Dresden

Re: IsValid IPv4/IPv6

Beitrag von sstvmaster »

Hier noch ein Demo dazu.
Dateianhänge
project1.zip
(127.83 KiB) 91-mal heruntergeladen
Windows 10, Lazarus 2.0.12 + Lazarus Trunk
LG Maik

Antworten