Thema
:
Delphi
IP auslesen -- Netzwerk
Einzelnen Beitrag anzeigen
Steffen
Registriert seit: 19. Mär 2003
Ort: Hamburg
111 Beiträge
Delphi 7 Enterprise
#
2
Re: IP auslesen -- Netzwerk
4. Jan 2004, 15:23
Versuchs mal hiermit:
zusammenfalten
·
markieren
Delphi-Quellcode:
uses
Winsock;
...
// Liest die lokale
IP
-Adresse aus
function
GetIpAddress :
string
;
var
phoste : PHostEnt;
Buffer :
array
[0..100]
of
char;
WSAData : TWSADATA;
begin
if
WSAStartup($0101, WSAData) <> 0
then
exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste := GetHostByName(buffer);
if
phoste =
nil
then
result := '
127.0.0.1
'
else
result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end
;
Gruß,
Steffen
Zitat
Steffen
Öffentliches Profil ansehen
Mehr Beiträge von Steffen finden