eine IPv4 Adresse ist nix anderes als eine 32bit Zahl (Cardinal)
Delphi-Quellcode:
function add2Addr(addr:String; Pos:Byte; count:Integer):string;
var inAddr:cardinal;
begin
inAddr:=inet_addr(PChar(Addr)); //Umwandeln in Integer (Achtung! ist Big Endian)
Pos:=pos*8; //pos*8bit ergibt das gesuchte Byte
inc(inAddr,count shl pos); addieren und dabei count an die richtige Position schieben
result:=inet_ntoa(in_Addr(inAddr)); //zurückwandeln
end;
Pos = 0..3 (0 ist die erste Stelle 3 die Letzte)