Obtener IP con el nombre del Equipo

[bucanero]

Hola Rc96

yo utilizo la siguiente funciónes para saber la IP del equipo y el nombre del equipo

Código Delphi [-]

uses
  Types, Winapi.Windows, Winsock;

function GetComputerName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if Winapi.Windows.GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

function GetIPSystem: string;
var
  wVersionRequested: WORD;
  wsaData: TWSAData;
  p: PHostEnt;
  s: array[0..128] of char;
begin
   {Start up WinSock}
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);

   {Get the computer name}
  GetHostName(@s, 128);
  p := GetHostByName(@s);

   {Get the IpAddress}
  Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);

   {Close WinSock}
  WSACleanup;
end;

No se si en las ultimas versiones de DELPHI ya incluirá algunas funciones que lo hagan mas directamente

Un saludo