Mit IP-Adressen rechnen...

[SaltJohn]

danke Marabu es läuft soweit allerdings möchte ich zum Schluss noch eine zweite Adresse mit Offset generieren und das klappt noch nicht. Es erscheint dann eine völlig andere. Womöglich muss ich noch reservierten Speicher freigeben oder so.

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
    var   inAddr: TINAddr;
          IPAdresse : string;
          IPAdresseOffset1 : string;
          IPAdresseOffset2 : string;
begin
    IPAdresse := Edit1.Text;
    inAddr.S_addr := inet_addr(PChar(IPAdresse));
    with inAddr.S_un_b do
    s_b4 := Chr(Ord(s_b4) + 100);
    IPAdresseOffset1 := inet_ntoa(inAddr);
    Edit2.Text := IPAdresseOffset1;
    with inAddr.S_un_b do
    s_b4 := Chr(Ord(s_b4) + 200);
    IPAdresseOffset2 := inet_ntoa(inAddr);
    Edit3.Text := IPAdresseOffset2;
end;

Wenn du mir kurz erklärst was dein Code eigentlich so macht komme ich evtl. alleine drauf


Edit:

@Stephan B. So eine Prüfung ist scheinbar schon vorhanden denn sobald 255 überschritten wird gehts wieder mit 0 aufwärts los

Edit2:
Habe es jetzt soweit hinbekommen. Wenn der Offset2 bsp. 200 sein soll muss ich ja einfach nur nochmal 100 zum 1. addieren. Jedoch verstehe ich den eigentlichen Ablauf immer noch nicht.

Delphi-Quellcode:

//...
with inAddr.S_un_b do
    s_b4 := Chr(Ord(s_b4) + 100);
    IPAdresseOffset2 := inet_ntoa(inAddr);
    Edit3.Text := IPAdresseOffset2;
//...