Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
17. Jul 2008
Ich hatte nicht so weit gedacht. Aber sieht doch gut aus.
Ich hätte wahrscheinlich vorm Addieren überprüft. Es gibt Dutzende Wege hier. Und solange das Ergebnis stimmt.....
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
16. Jul 2008
Welche Lösung hast du denn jetzt gewählt?
Forum: Sonstige Fragen zu Delphi
Delphi
by sirius,
10. Jul 2008
eine IPv4 Adresse ist nix anderes als eine 32bit Zahl (Cardinal)
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
...