Delphi Wie bekomme ich meine eigene IP?

Thema durchsuchen

Ansicht

Themen-Optionen

Wie bekomme ich meine eigene IP?

Ein Thema von freak4fun · begonnen am 18. Okt 2004 · letzter Beitrag vom 27. Jan 2005

Vorheriger Beitrag

Nächster Beitrag

chrisw

Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge

Delphi XE8 Professional

#35

Re: Wie bekomme ich meine eigene IP?

27. Jan 2005, 07:59

zusammenfalten · markieren

Delphi-Quellcode:

			uses ...winsock;

function GetLocalIpAddress: string;

var phoste: PHostEnt;

  Buffer: array [0..100] of char;

  WSAData: TWSADATA;

begin

  result:='';

  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;