Zahlenwert einer IP-Adresse ermitteln

[CalganX]

negaH zeigt hier, wie man aus einer IP-Adresse einen Zahlenwert errechnen kann:

Delphi-Quellcode:

function ToIP(I1,I2,I3,I4: Integer): Cardinal; 

  function Check(Value: Integer): Byte; 
  begin 
    if (Value >= 0) and (Value <= 255) then Result := Value 
      else raise Exception.Create('ToIP: Values I1,I2,I3,I4 must be in Range 0 upto 255 each'); 
  end; 

begin 
  Result := Check(I1) shl 24 or Check(I2) shl 16 or Check(I3) shl 8 or Check(I4); 
end;

Diesen Zahlenwert kann man dann weiter verwenden. Um wieder einen String zu erhalten, kann man sich folgender Funktion bedienen:

Delphi-Quellcode:

function IPToStr(Value: Cardinal): String; 
begin 
  Result := Format('%d.%d.%d.%d', [Value shr 24, Value shr 16 and $FF, Value shr 8 and $FF, Value and $FF]); 
end;