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;
//...