Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Determinar el nombre de una pc remota (https://www.clubdelphi.com/foros/showthread.php?t=39242)

JoeyJordison 14-01-2007 17:14:53

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

Bicho 14-01-2007 18:15:42

Hola, volviendo otra vez a la sección de trucos. Este o este pueden ayudarte.

Espero te sirva.

Saludos

JoeyJordison 14-01-2007 18:49:41

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 14-01-2007 18:55:51

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

Bicho 14-01-2007 19:08:14

Pues no se que ha pasado
 
Cita:

Empezado por 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

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 14-01-2007 23:50:14

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 15-01-2007 01:23:24

:confused: Si te sirve encontrar el nombre del host, prueba con esto:
Código Delphi [-]
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'));


La franja horaria es GMT +2. Ahora son las 20:30:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi