Lokale IP(s) ermitteln

**CalganX**

Es gibt verschiedene Möglichkeiten die IP eines Rechners zu ermitteln. Die beste ist wohl die über die Unit WinSock:

Delphi-Quellcode:

			uses {...}, WinSock;

{...}

function LocalIP:string;

var

  WSA  : TWSAData; 

  ILen : integer;

  PHst : PChar;

  PHEn : PHostEnt;

begin

  WSAStartup( $0101, WSA );

  ILen := $FF;

  PHst := StrAlloc( ILen );

  gethostname( PHst, ILen );

  PHEn := gethostbyname( PHst );

  with PHEn^ do  result:=format(

   '%d.%d.%d.%d',

   [ord(h_addr^[ 0 ]), ord(h_addr^[ 1 ]),

   ord(h_addr^[ 2 ]), ord(h_addr^[ 3 ])]

  );

  {Nuke the string}

  StrDispose( PHst );

  {Dust and Clean}

  WSACleanup;

end;

Chris

[edit=Chakotay1308]Den Titel angepasst. Mfg, Chakotay1308[/edit]

Als Anregung:

markieren

Code:

gethostname( PHst, ILen );

ist eigentlich nutzlos. Da es um die lokale IP geht, reicht:

markieren

Code:

PHEn := gethostbyname( [b]NIL[/b] );

Das Formatieren der Adresse kannst du auch einfacher mit

markieren

Code:

inet_ntoa

haben.

Und dann vermisse ich diverse kleine Schutzmechanismen.
Was, wenn das Initialisieren der WinSock in die Hose geht?
Was, wenn die o.g. Funktion dummerweise nichts zurückgibt?

Bitte ausbessern.
So würde ich das nicht in die FAQs aufnehmen.

Sorry, is´ aber so!

Da unser Chak-o-tay ab und zu bei

www.ensacom.de Tipps veröffentlicht, habe ich mal von dort die IP-Funktion abgeschrieben (mehr oder weniger

):

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  WinSock;

function GetLocalIPs: string;

type

  PPInAddr = ^PInAddr;

var

  wsadata  : TWSAData;

  hostinfo : PHostEnt;

  addr     : PPInAddr;

begin

  Result   := '';

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then

  try

    hostinfo := gethostbyname(nil);

    if(hostinfo <> nil) then begin

      addr   := pointer(hostinfo^.h_addr_list);

      while(addr^ <> nil) do begin

        Result := Result + inet_ntoa(addr^^) + ^M^J;

        inc(addr);

      end;

    end;

  finally

    WSACleanUp;

  end;

end;

Warum?
Weil sie -laut Beschreibung!- alle IPs zurückliefert. Mangels LAN kann ich das im Moment zwar nicht prüfen, aber ich vertraue einfach mal darauf, dass bei ensacom kein Blödsinn steht. (Wer ein LAN hat bzw. eine eingebaute Netzwerkkarte, kann´s ja mal fix testen und Bescheid sagen.)

Übrigens: MAKEWORD(1,1) ist das selbe wie $0101. Ich finde es nur lesbarer, weil man die Versionsnummer ohne viel Rumraten erkennt und einstellen kann. Ohne groß zu Überlegen: wie würde man hexadezimal die Version 2.0 angeben? Wer jetzt gedacht hat $0200 liegt leider falsch. Anders herum wäre richtig: $0002; da das niederwertige Byte die Hauptversionsnummer angibt.

So ein Missgeschick kann mit MAKEWORD(2,0) nicht geschehen.

Kann man im PSDK zu "WSAStartup" nachlesen.

Lokale IP(s) ermitteln

Lokale IP(s) ermitteln

Forumregeln