IsValid IPv4/IPv6

Zur Vorstellung von Komponenten und Units für Lazarus
Antworten
sstvmaster
Beiträge: 582
Registriert: Sa 22. Okt 2016, 23:12
OS, Lazarus, FPC: W10, L 3.8
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) 323-mal heruntergeladen
LG Maik

Windows 10,
- Lazarus 3.8 (stable) + fpc 3.2.2 (stable)
- Lazarus 4.99 (trunk) + fpc 3.3.1 (main/trunk)

sstvmaster
Beiträge: 582
Registriert: Sa 22. Okt 2016, 23:12
OS, Lazarus, FPC: W10, L 3.8
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) 309-mal heruntergeladen
LG Maik

Windows 10,
- Lazarus 3.8 (stable) + fpc 3.2.2 (stable)
- Lazarus 4.99 (trunk) + fpc 3.3.1 (main/trunk)

Antworten