Hallöchen!
Ich (ver)suche schon wieder mal seit Stunden einen Code und finde keinen -.-
Ich will die Wan
IP mittels WinSock-
API (!) ermitteln!
Ich will dazu keine extra Komponente benutzen und auch nicht auf eine Website zugreifen!
Ich finde immer diesen Code:
Delphi-Quellcode:
Function GetIPAddress():
String;
type
pu_long = ^u_long;
var
varTWSAData : TWSAData;
varPHostEnt : PHostEnt;
varTInAddr : TInAddr;
namebuf :
Array[0..255]
of char;
begin
If WSAStartup($101,varTWSAData) <> 0
Then
Result := '
No. IP Address'
Else Begin
gethostname(@namebuf[0],length(namebuf));
varPHostEnt := gethostbyname(@namebuf[0]);
varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
Result := '
IP Address: '+inet_ntoa(varTInAddr);
End;
WSACleanup;
end;
und dieser gibt mir immer nur meine LAN
Ip. (Ich bin über W-lan verbunden!)
Aufjedenfall ist es wichtig, dass diese Funktion das schnell prüft... eigentlich so wie Ipconfig.
Hat jemand eine Idee?
Danke im vorhinein!
Hoffentlich ist jemand so erfahren und kann mein Problem lösen.. Oder mir einen Tip geben! ^^
MfG