ip auf gültigkeit prüfen

[sirius]

Oder ausführlich:

Delphi-Quellcode:

function isIP(const IP:AnsiString):boolean;
var RtlIpv4StringToAddress:function(s:PAnsiChar;  //IP-Adresse
                                    Strict:Boolean; //zwingend 4 Teile durch Punkte getrennte Addresse
                                    out Terminator:PAnsiChar; 
                                    out Addr:In_Addr):LongWord;stdcall;
var Terminator:PAnsiChar;
    Addr:In_Addr;
begin
  RtlIpv4StringToAddress:=GetProcAddress(GetModuleHandle('NTDll.DLL'),
                                         'RtlIpv4StringToAddressA');
  if assigned(RtlIpv4StringToAddress) then //sollte auf allen neueren WinVersionen verfügbar sein
    result:=RtlIpv4StringToAddress(PAnsiChar(IP),true,Terminator,Addr)
           =NO_ERROR
  else //falls das Windows zu alt ist
    result:=(inet_addr(PAnsiChar(IP))<>INAddr_None)
          or(IP='255.255.255.255');
end;