Obterner el IP del nombre netbios de la PC
 

Hace un tiempo necesite obtener el número de IP de una máquina dentro de la red de la cual tenia solamente el nombre netbios, gracias a seoane que me dio la función pude resolver el problema.

[HTML]
http://www.clubdelphi.com/foros/showthread.php?t=36690
[/HTML]


Uses WinSock;
interface

Código Delphi [-]
function ObtenerIpdeNetbios(Host: string): string;

implementation

Código Delphi [-]
function ObtenerIpdeNetbios(Host: string): string;
var
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    HostEnt:= gethostbyname(PChar(Host));
    if HostEnt <> nil then
      Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));
    WSACleanup;
  end;
end;

Soy Casacham o Dr J. Chamale. No me dedico a redes, solo a bases de datos. Pero lo que me intereso de tu truco es el hecho de tener en tus manos el IP. La pregunta que te hago: Puedo obtener el IP de otra maquina a través de internet con alguien que chateo por un programa en delphi?. Tal vez te parezca muy burra la pregunta, pero te recuerdo que no me dedico al tema, es solo una curiosidad. Gracias por tu rta. si puede ser por este mismo medio te lo agradezco, voy a voler a visitar tu truco en un par de dias para ver que respondiste.

Sinceramente no lo se, solo probe la función dentro de una red windows, habria que probarla en internet.

casacham, siempre que el y tu estéis conectados directamente no hay problema, un simple comando netstat te dará su ip. Y si lo quieres hacer por código busca en los foros por "netstat" y veras algunos ejemplos de como crear tu propia aplicación netstat en delphi.

El problema es que en pocas ocasiones los programas de chat establecen conexiones directas, normalmente funciona a través de un servidor intermedio, así no hay forma de saber la ip de nuestro interlocutor. Aunque hay ocasiones, como cuando se transfiere un archivo, que se establece una conexión directa entre ambos. Entonces si que podrás obtener la ip.

Gracias por sus sugerencias. lo que me queda claro es que voy a tener que ponerme mas a trabajar sobre el asunto y eso es leyendo informacion, aunque mi pasion son las bases de datos. GRACIAS a los autores y a los quie hicieron posible publicar esto en nuestro club