Nombre de la PC remota

[aeff]

Hola colegas de clubDelphi, mi nueva duda es saber como puedo obtener el nombre de una PC remota si conozco su dirección IP mediante una funcíon o algo así en Delphi.

Gracias de antenamo

[seoane]

Echale un vistazo a esto:

http://www.clubdelphi.com/foros/showthread.php?t=33364

[delphi.com.ar]

Prueba esto:

uses
WinSock;

function GetHostNameByIP(IPAddress: string): string;
var
WSAData: TWSAData;
HostInfo: PHostEnt;
ulIP: Integer;
pIP: PChar;
begin
Win32Check(WSAStartup($0101, WSAData)=0);
try
ulIP := Inet_Addr(PChar(IPAddress));
pIP := PChar(@ulIP);
HostInfo := GetHostByAddr(pIP, 4, AF_INET);

if Assigned(HostInfo) then
Result := HostInfo.h_name
else
Result := '';
finally
WSACleanup();
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHostNameByIP('136.1.240.21'));
end;


Saludos!