Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-03-2007
aledieb aledieb is offline
Miembro
 
Registrado: jun 2005
Ubicación: Buenos Aires, Argentina
Posts: 141
Poder: 19
aledieb Va por buen camino
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;
Responder Con Cita
  #2  
Antiguo 24-03-2007
Avatar de casacham
casacham casacham is offline
Miembro
 
Registrado: abr 2006
Ubicación: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 184
Poder: 18
casacham Va por buen camino
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.
Responder Con Cita
  #3  
Antiguo 24-03-2007
aledieb aledieb is offline
Miembro
 
Registrado: jun 2005
Ubicación: Buenos Aires, Argentina
Posts: 141
Poder: 19
aledieb Va por buen camino
Sinceramente no lo se, solo probe la función dentro de una red windows, habria que probarla en internet.
Responder Con Cita
  #4  
Antiguo 24-03-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
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.
Responder Con Cita
  #5  
Antiguo 25-03-2007
Avatar de casacham
casacham casacham is offline
Miembro
 
Registrado: abr 2006
Ubicación: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 184
Poder: 18
casacham Va por buen camino
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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:06:24.


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