Cardinal Zahlen StrToInt

[KOBOLD Messring GmbH]

Habe folgendes Problem:
IP-Adressen - numerisch ausgedrückt - liegen zwischen 0 und 4,294,967,295.
wäre also - gemäss Freepascal Wiki - ein Fall für Datentyp CARDINAL.
Wenn ich aber die Eingabe aus einem Editfeld konvertieren möchte, etwa so:

VAR n : Cardinal;
BEGIN
n := StrToInt (Edit1.Text);

Dann gibt es: TApplication.HandleException "3900800100" is an invalid integer.

Eine andere Konvertierfunktion - etwa StrToInt64 von Delphi - habe ich bei unserem Lazarus nicht gefunden.
¿Was kann ich da tun? ¿Wie konvertiere ich Zahlen grösser 2,147,483,647 von String_To_Cardinal?

[Antrepolit]

IP Adressen Numerisch?

Die einzelnen Bytes gehen von 0-255? meinst du IPv4 oder IPv6?
Ne IP-Adresse sieht z. B. so aus: 192.168.245.234

Kein Zahl geht über 255. Die Punkte dienen als Trennzeichen. Das nimmt man auch nicht
als Cardinal, das macht gerade gar keinen Sinn. Stattdessen würde ich nach wie vor
4 bzw. 6 Bytes für eine IP nehmen, und diese evtl. in einem Typ definieren.

Aber es kann natürlich sein, dass ich dein Problem nicht verstehe.

[bembulak]

http://www.freepascal.org/docs-html/pro ... 750008.2.1" onclick="window.open(this.href);return false;

Demnach wäre "longword" das Passende, oder irre ich mich?
Geht von 0...4294967295

[KOBOLD Messring GmbH]

Mein Problem ist folgendes:
ich habe eine Datenbank (von ip2location.com), welche IP-Adressen (ipv4) numerisch beeinhaltet, also statt z.B. 80.148.53.18 schreiben die da: 1351890194
Also eine IP-Adresse, z.B. IPv4 = a.b.c.d
ist umzuwandeln in:
numerisch_IP = a*16777216 +b*65536 + c*256 + d
damit ich dies mit den Datenbankeinträgen vergleichen kann.
UMGEKEHRT muss ich aber auch - zur Ansicht - den numerischen Eintrag wieder in die gewohnte a.b.c.d Darstellung umwandeln, ¡und da ist das Problem!
Wenn z.B. numerisch_IP= 3900800700 ist, dann bin ich über MaxInt und die Funktion StrToInt steigt aus.
¿Gibt es denn nicht eine StrToCardinal oder StrToInt64 wie beim Delphi?
Im Moment habe ich mir so geholfen: (Damit gewinn ich bestimmt den Preis für den umständlichsten und verknorzesten Code, jejejej)

Code: Alles auswählen

VAR n, 
    n1,
    n2 : Cardinal;
    s,
    s1,
    s2 : String;
BEGIN
  s := Edit1.Text;
  IF Length (s) > 9
    THEN Begin
           s1 := Copy (s, Length (s) - 8, 9);
           s2 := Copy (s, 1, Length (s) - 9);
           n1 := StrToInt (s1);
           n2 := StrToInt (s2);
           n := (n2 * 1000000000) + n1;
         End
    ELSE n := StrToInt (Edit1.Text);

(Nochmals zur Verdeutlichung: mein Problem ist es nicht, numerische Datenbankeinträge zu vergleichen, sondern liegt in einem kleinen Hilfsprogrämmchen, mit dem ich händisch mal eben eine lange Zahl eintippen kann (zuweilen grösser als MaxInt) und welches mir dann die gewohnte Darstellung als a.b.c.d liefert - mit der ich wiederum meine php-Webprogrammierung gegen die o.g. Datenbank testen kann...)
¡¡¡ VIELEN DANK AN ALLE FÜR DAS INTERESSE an sooo kleinen Sachen wie ein StrToInt !!!

[af0815]

StrToInt64 ist die Version für große Zahlen (Int64).

Ich habe keine Überladung von StrToInt für LongWord gefunden.

Wobei es lt. Referenzmanual vom Compilermodus abhängig ist, wie zb. Cardinal oder Integer behandelt werden (2, 4 oder 8 Bytes).

Zusätzlich ist die Frage da, warum die IPAdressen numerisch gespeichert werden müssen.

[KOBOLD Messring GmbH]

Hola af0815,
danke für Deine Antwort. Ich habe jetzt zur Sicherheit LongWord genommen (wegen Unabhängigkeit vom Compilermodus oder OS).
An der Representation der IP-Adressen kann ich nichts ändern, die kommen so aus der Datenbank von ip2location.com (sind 2.800.000 Datensätze, die kann man auch nicht mal so schnell umschreiben).

[af0815]

Ich habe jetzt zur Sicherheit LongWord genommen (wegen Unabhängigkeit vom Compilermodus oder OS)

Die komplett sichere Seite ist Int64, da dir da auch das Vorzeichen dann egal ist.

[Euklid]

[quote="
¿Gibt es denn nicht eine StrToCardinal oder StrToInt64 wie beim Delphi?[/quote]

Bin mir ziemlich sicher, dass StrToInt64 auch mit Lazarus funktioniert.

Euklid

[schnullerbacke]

FormatStr,

ist die geeignete Prozedur für sowas, die nimmt einen Zeiger auf die zu wandelnde Zahl an und bedient das über Variant.

[Christian]

Er will doch einen String in eine Binärdarstellung umwandeln und nicht umgedreht wie kann dafür FormatStr in Frage kommen?