Ich hab' nochmal ne Frage
Wollte dazu keinen neuen Thread aufmachen, weils relativ kleines Prob ist:
Ich habe 2
IP Adresse im Binären String; durch eine AND-Operation ergibt sich daraus eine neue (binäre)
IP-Adresse.
Beide Adressen sind jeweils nur 32bit groß und trotzdem schmiert mir jedes mal das Programm ab ('111111111110100101010101010usw.. ist kein gültiger Integerwert').
Ich hab bereits schon INT64 versucht, bringt leider nichts
Hiermal n kleiner Ausschnitt ausm Quelltext (inzwischen so oft umgeändert..):
Code:
function Netzadresse (IP_adresse_bin, Netzmaske_bin : string) : string;
var Netz1,Netz3,Netz4 : int64;
Netzadresse_2 : string;
begin
Netz1:=0; //<-- auch sehr lustig: Nach der Anweisung hat die Var immer noch einen Wert von -48546453
Netz1:=StrToInt(IP_adresse_bin); //<-- ab hier der Abbruch
Netz3:=StrToInt(Netzmaske_bin);
Netz4:=Netz1 and Netz3;
Netzadresse_2:=IntToStr(Netz4);
ShowMessage('Netzadresse: ' + Netz2);
Netzadresse:=Netzadresse_2
end;
Jmd. ne Idee?
