Gibt es eine Möglichkeit IPs in eine zahl zu verwandeln ?

[Hawkeye219]

Ok, hier ist eine Quick&Dirty-Lösung. Sie funktioniert allerdings nur für korrekt aufgebaute IP-Adressen:

Delphi-Quellcode:

function IPtoInt (aIP: string): Cardinal;
  var b1, b2, b3, b4 : Byte;
      k              : Integer;
begin
  Val (aIP, b1, k);
  Delete (aIP, 1, k);
  Val (aIP, b2, k);
  Delete (aIP, 1, k);
  Val (aIP, b3, k);
  Delete (aIP, 1, k);
  Val (aIP, b4, k);
  Result := b1 * $1000000 + b2 * $10000 + b3 * $100 + b4; 
end;

Gruß Hawkeye