IP-Adresse > String -> Longword

[bernau]

Ich habe eine ActiveX-Komponente importiert. Der ActiveX-Komponenten muss ich eine IP-Adresse zuweisen. Aber der Parameter ist vom Type LongWord

Delphi-Quellcode:

    
  property IPPort: LongWord dispid 12;
  property IPAddress: LongWord dispid 11;

Welche Funktion benötoge ich Gibt es eine fertige Finktion um den IP-Adress-String (Die IP-Adresse liegt mir nur als String vor) in ein LongWord zu wandeln? Sollte so aussehen.

  IPAddress := FunktionDieIchSuche('192.189.1.123');

[Der schöne Günther]

Eine etwas zu einfache Definition für IPv4-Adresse ist (0-255).(0-255).(0-255).(0.255). Ein LongWord sind 4 Byte. Klingelts?

[bernau]

Zitat von Der schöne Günther:

Eine etwas zu einfache Definition für IPv4-Adresse ist (0-255).(0-255).(0-255).(0.255). Ein LongWord sind 4 Byte. Klingelts?

Habe mich wohl etwas dümmlich ausgedrückt. Die Definition ist mir schon klar und ich kann mir die Funktion selber schreiben. Ich ärgere mich aber immer, wenn ich eine Funktion selber schreibe, diese aber schon als Funktion vorhanden ist.

[p80286]

TranslateStringToIPAddr

oops die scheint hier nicht mehr zu finden zu sein
mal schauen wo ich sie vergraben habe

Gruß
K-H

[DeddyH]

Bei den JEDIs könnte etwas dabei sein, oder evtl. auch hiermit: http://www.torry.net/vcl/lan/networks/uIPv4.zip

[Klaus01]

.. damit sollte es auch funktionieren:

Code:

inet_addr
The inet_addr function converts a string containing an (Ipv4) Internet Protocol dotted address into a proper address for the IN_ADDR structure.

unsigned long inet_addr(
  const char* cp
);

Die Unit Windsock ist dazu einzubinden.

Grüße
Klaus

[Sir Rufo]

Zitat von bernau:

Zitat von Der schöne Günther:

Eine etwas zu einfache Definition für IPv4-Adresse ist (0-255).(0-255).(0-255).(0.255). Ein LongWord sind 4 Byte. Klingelts?

Habe mich wohl etwas dümmlich ausgedrückt. Die Definition ist mir schon klar und ich kann mir die Funktion selber schreiben. Ich ärgere mich aber immer, wenn ich eine Funktion selber schreibe, diese aber schon als Funktion vorhanden ist.

Wo ist denn das Problem dabei?

Erstelle dir einfach ein paar Units nach Themen getrennt und implementiere dort deine Variante.
Stellst du jetzt fest, dass es eine eingebaute Variante gibt, dann baust du diese in der Unit ein. Deine Anwendung muss nicht geändert werden und für ältere Delphi-Versionen (wo es diese einebaute Funktion noch nicht gibt) kannst du einen Compiler-Switch setzen.

Darüber würde ich mir auf jeden Fall keinen Kopf machen

[Der schöne Günther]

Schätzungsweise 1/3 meiner Fragen sind aber auch genau das: "Gibt es da irgendwo im RTL-Dschungel schon was oder nehme ich etwas selbstgestricktes?"

[bernau]

@Klaus01: Jep. Das verwende ich erst mal.

@Sir Rufo: Ist nicht wirklich ein Problem. Aber wenn man es von vorne herein vermeiden kann, spricht ja nichts gegen eine kurze Frage.

@Der schöne Günther: Trotzdem danke! Ein anderer kann es ja ggf. gebrauchen, wenn er diesen Thread liest. Ist also nicht umsonst

[bernau]

Zitat von Der schöne Günther:

Gibt es da irgendwo im RTL-Dschungel schon was oder nehme ich etwas selbstgestricktes?

Vieleicht sollten wir daraus ein offizielles Kürzel a la "RTFM" machen. Also: "ROS" -> RTL oder Selbsgestrickt.