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

[pacman1986]

okay ich hab jetzt alle informationen die ich hab hier rein gepackt

IPTOINT:

Delphi-Quellcode:

function IPtoInt(aIP: string): Cardinal;
var i,j : integer;
    Teil1,Teil2,Teil3,Teil4: String;
begin
  j:=1;
  for i:=1 to Length(aip) do begin
    if aip[i]<>'.' then begin
      case j of
        1: Teil1:=Teil1+aip[i];
        2: Teil2:=Teil2+aip[i];
        3: Teil3:=Teil3+aip[i];
        4: Teil4:=Teil4+aip[i];
      end;
    end else
      Inc(j);
  end;

  Result := MAKELONG(MAKEWORD(StrToInt(Teil1), StrToInt(Teil2)),MAKEWORD(StrToInt(Teil3), StrToInt(Teil4)));
end;

ps : es funzt ^^