IP auslesen -- Netzwerk

[Steffen]

Versuchs mal hiermit:

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