| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Pablo A Castillo
Lt
Registrado: 14 Jul 2004Mensajes: 75Ubicación: Caracas - Venezuela
|
 Publicado: Dom 25 Jul, 2004 7:31 am Asunto: Como obtener Ips en una red de area local??? |
 |
|
Hola ante todo un saludo!, estoy trabajando en una aplicacion y no tengo idea de como obtener las ips de unas maquinas en una red lan (es posible??), existe la posibilidad de que la maquina que está como cliente me la envie y yo pueda verla en el server? 
_________________
"Quid quid agis prudenter agas et respice finem"
(Hagas lo que hagas, actúa inteligentemente y considerando el fin)
MyNeoReport - the "FREE" Report Generator for .NET
http://myneoreport.sourceforge.net/
(funciona en Delphi for .NET  ) |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Dom 25 Jul, 2004 8:16 am Asunto: |
|
|
Esta regresa el Nombre del la Pc, y a su vez tiene comentarios para regresar el numero de IP.
| Código: |
/**************************Regresa el Nombre de Pc****************************************/
AnsiString __fastcall NombrePc(){
WORD wVersionRequested;
WSADATA wsaData;
char name[255];
// AnsiString ip; // para la direccion de la maquina
PHOSTENT hostinfo;
wVersionRequested = MAKEWORD( 2, 0 );
if ( WSAStartup( wVersionRequested, &wsaData ) == 0 )
{
if( gethostname ( name, sizeof(name)) == 0)
{
// se mandan en dos etiquetas el nombre y la direcion ip
// Label1->Caption = name; // nombre del equipo
// if((hostinfo = gethostbyname(name)) != NULL)
// {
// ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
// Label2->Caption = ip; // direccion ip
// }
}
WSACleanup( );
}
// como solo me interesa el Nombre, ya que la IP, puede ser dinamica
// y en algunos casos Estatica, solo regreso el nombre ,je
return ((AnsiString) name );
}
|
Saludos
_________________
 |
|
| Volver arriba |
|
|
Pablo A Castillo
Lt
Registrado: 14 Jul 2004Mensajes: 75Ubicación: Caracas - Venezuela
|
| Publicado: Dom 25 Jul, 2004 8:41 am Asunto: Gracias! |
|
|
Una vez más agradecido! 
_________________
"Quid quid agis prudenter agas et respice finem"
(Hagas lo que hagas, actúa inteligentemente y considerando el fin)
MyNeoReport - the "FREE" Report Generator for .NET
http://myneoreport.sourceforge.net/
(funciona en Delphi for .NET ) |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
