Ranges

[DeddyH]

Hier mal eine Schmalspurversion ohne Fehlerbehandlung:

Delphi-Quellcode:

function IPToCardinal(IP: string): Cardinal;
var s: string;
begin
  //1. Oktett
  s := Copy(IP,1,Pos('.',IP) - 1);
  Delete(IP,1,Length(s) + 1);
  Result := StrToInt(s) shl 24;
  //2. Oktett
  s := Copy(IP,1,Pos('.',IP) - 1);
  Delete(IP,1,Length(s) + 1);
  Result := Result or (StrToInt(s) shl 16);
  //3. Oktett
  s := Copy(IP,1,Pos('.',IP) - 1);
  Delete(IP,1,Length(s) + 1);
  Result := Result or (StrToInt(s) shl 8);
  //4. Oktett (=Rest)
  Result := Result or StrToInt(IP);
end;

function CardinalToIP(const c: Cardinal): string;
begin
  Result := Format('%d.%d.%d.%d',[HiByte(HiWord(c)),LoByte(HiWord(c)),
                                  HiByte(LoWord(c)),LoByte(LoWord(c))]);
end;