| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
monicadosal
Cdt
Registrado: 28 Ene 2004Mensajes: 10
|
 Publicado: Lun 24 Ene, 2005 2:20 am Asunto: Mostrar IP propia en un formulario |
 |
|
Necesito mostrar en un formulario la ip del ordenador.
¿alguien me puede ayudar? |
|
| Volver arriba |
|
 |
rayder
Master
Registrado: 03 Mar 2004Mensajes: 207
|
| Publicado: Lun 24 Ene, 2005 12:36 pm Asunto: |
|
|
Este código te muestra la ip del equipo y el nombre del usuario que inicio la sesión, en win 2000 y XP funciona a la perfección
| Código: |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <winsock2.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// #include <winsock2.h> ----esta directiva va arriba del todo
WORD wVersionRequested;
WSADATA wsaData;
char name[255];
AnsiString ip;
PHOSTENT hostinfo;
wVersionRequested = MAKEWORD( 2, 0 );
if ( WSAStartup( wVersionRequested, &wsaData ) == 0 )
{
if( gethostname ( name, sizeof(name)) == 0)
{
Label1->Caption = name;
if((hostinfo = gethostbyname(name)) != NULL)
{
ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
Label2->Caption = ip;
}
}
WSACleanup( );
}
}
//---------------------------------------------------------------------------
|
P.D. No te olvides de incluir la libreria winsock2.h en la cabecera.
_________________
Un saludo
Rayder |
|
| Volver arriba |
|
|
monicadosal
Cdt
Registrado: 28 Ene 2004Mensajes: 10
|
| Publicado: Lun 24 Ene, 2005 9:08 pm Asunto: |
|
|
| Muchas gracias, ha funcionado perfectamente |
|
| Volver arriba |
|
|
Fernando Diaz
Master
Registrado: 18 Jul 2004Mensajes: 273Ubicación: Talavera de la Reina (Toledo)
|
| Publicado: Mie 02 Feb, 2005 10:28 pm Asunto: |
|
|
ese codigo me muestra la ip de red y no la de internet... como podria acerse el contrio?
_________________
Los problemas mas dificiles tienen las soluciones mas sencillas
 |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
