Indy Ip Ermitteln

[Klaus01]

Guten Abend,

Delphi-Quellcode:

  function GetLocalIPs: String;
    type PPInAddr= ^PInAddr;
    var
      wsaData  : TWSAData;
      HostInfo : PHostEnt;
      HostName : Array[0..255] of Char;
      Addr     : PPInAddr;
    begin
      Result:='';
      if WSAStartup($0102, wsaData) <> 0 then
        Exit;
      try
        if GetHostName(HostName, SizeOf(HostName)) <> 0 then
          Exit;
        HostInfo:= GetHostByName(HostName);
        if HostInfo=nil then
          Exit;
        Addr:=Pointer(HostInfo^.h_addr_list);
        if (Addr=nil) or (Addr^=nil) then
          Exit;
        Result:=StrPas(inet_ntoa(Addr^^));
        inc(Addr);
        while Addr^ <> nil do begin
          Result:=Result+^M^J+StrPas(inet_ntoa(Addr^^));
          inc(Addr);
        end;
      finally
        WSACleanup;
      end;
    end;

Die Funktion zeigt Dir alle IP Adressen des Rechners.
Die WinSock und die NB30 Unit müssen dazu eingebunden werden.

Oder mit IDIPWatch sollte das auch zu erschlagen sein.

Grüße
Klaus