Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 24-08-2012
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Código:
#include <winsock2.h>


String GetCurrentIP()
{
   WSADATA Wsa;
   char name[255];
   AnsiString ip;
   PHOSTENT hostinfo;

   if(WSAStartup(MAKEWORD(2,2),&Wsa) == 0 ){
     if(gethostname ( name, sizeof(name)) == 0){
       if((hostinfo = gethostbyname(name)) != NULL){
         ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
       }
     }
     WSACleanup( );
   }
   return ip;
}

Ejemplo de uso:
Código:
Label1->Caption = GetCurrentIP();

Saludos.
Responder Con Cita
 



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
optener el listado de tablas Ryu Conexión con bases de datos 2 12-06-2006 19:29:11
optener porciento al revez.. sakuragi Varios 5 03-01-2006 23:39:11
optener valor de un formulario a otro en otra pagina.php sakuragi PHP 5 16-11-2005 17:22:58
Se puede optener un listado de direcciones a partir de una busqueda? Alfredo Internet 3 19-10-2005 16:10:31
Optener Nro Telefonico Danyeru Varios 11 29-03-2004 10:07:21


La franja horaria es GMT +2. Ahora son las 22:43:19.


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
Copyright 1996-2007 Club Delphi