Lokale Ip-Adresse zu erhalten

Lokale Ip-Adresse zu erhalten

Lokale Ip-Adresse zu erhalten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Lokale IP-Adresse und Anfahrt

verwendet
Winsock;

Funktion GetLocalIP: string;
var
WsaData: TWSAData;
Addr: TSockAddrIn;
Phe: PHostEnt;
SzHostName: Array [0..128] char;
beginnen
Ergebnis: = '';
Wenn dann WSAStartup ($101, WSAData) <> 0
Ausfahrt;
versuchen Sie
Wenn GetHostName (SzHostName, 128) <> SOCKET_ERROR dann
beginnen
Phe: = GetHostByName(szHostName);
Wenn Assigned(Phe) dann
beginnen
addr.sin_addr. S_addr: = longint(plongint(Phe^.h_addr_list^)^);
Ergebnis: = inet_ntoa(addr.sin_addr);
Ende;
Ende;
Schließlich
WSACleanup;
Ende;
Ende;