Determinar el nombre de una pc remota

[JoeyJordison]

Eso mismo Como determinar el nombre o id de red de una pc sobre tcp/ip

[Bicho]

Hola, volviendo otra vez a la sección de trucos. Este (http://www.clubdelphi.com/trucos/index.php?id=176) o este (http://www.clubdelphi.com/trucos/index.php?id=7) pueden ayudarte.

Espero te sirva.

Saludos

[JoeyJordison]

Si bicho te entiendo, el primer hilo lo que hace es devolverme el nombre de mi misma pc y el segundo no se habre parece haber problemas con la pag, pero lo que yo necesito es saber el nombre de una pc remota. Espero me entiendas

Salu2

[seoane]

:confused: ¿pero con que datos cuentas para identificar a la PC remota? ¿la ip? ¿la MAC? ¿el color? :p

[Bicho]

Si bicho te entiendo, el primer hilo lo que hace es devolverme el nombre de mi misma pc y el segundo no se habre parece haber problemas con la pag

No se que ha pasado, :confused: yo juraria que he visto el truco, por eso lo he copiado y lo he puesto.
No entiendo nada.

Apoyo a Domingo, quizá si dieras más datos en tus preguntas podríamos ayudarte mejor.

Saludos

[JoeyJordison]

Tengo el Ip del Pc, es decir mi aplicacion detecta su ip haciendo un ping pero quiero que ademas de detectar su ip me detecte su nombre o id de red.

[seoane]

:confused: Si te sirve encontrar el nombre del host, prueba con esto:

uses WinSock;

function ResolveIP(IP: String): String;
var
Addr: dword;
HostEnt: PHostEnt;
WSAData: TWSADATA;
begin
Result:= EmptyStr;
if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
begin
Addr:= inet_addr(PChar(IP));
if Addr <> INADDR_NONE then
begin
HostEnt:= gethostbyaddr(@Addr, SizeOf(Addr), AF_INET);
if HostEnt <> nil then
Result:= String(PChar(HostEnt^.h_name));
end;
WSACleanup;
end;
end;

// Por ejemplo
ShowMessage(ResolveIP('212.34.137.176'));