Hallo DP ' ler !

Ich hoffe ihr könnt mir helfen.
Ich möchte gerne die eigene IP- Adresse im Netzwerk herausbekommen.

PS: Wenn möglich, ohne die Indy- Komponenten.

Vielen Dank im Vorraus !

Hilft das ip-adresse netzwerk eventuell?

Hallo,

hier eine der Möglichkeiten:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  WinSock;

function IPAdress:String;
const
  sTxtIP = '%d.%d.%d.%d';
var
  rSockVer : Word;
  aWSAData : TWSAData;
  szHostName : array[0..255] of Char;
  pHE : PHostEnt;
begin
  Result:='';
  // WinSock Version 1.1 initialisieren
  rSockVer:=MakeWord(1, 1);
  WSAStartup(rSockVer, aWSAData );
  try
    FillChar(szHostName, SizeOf(szHostName), #0);
    GetHostName(szHostName, SizeOf(szHostName));
    pHE:=GetHostByName(szHostName);
    if (pHE<>nil) then with pHE^ do
      Result:=Format(sTxtIP,
                [Byte(h_addr^[0]), Byte(h_addr^[1]),
                 Byte(h_addr^[2]), Byte(h_addr^[3])]);
  finally
    WSACleanup;
  end;
end;