Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-05-2008
mcsebas mcsebas is offline
Miembro
 
Registrado: feb 2008
Posts: 78
Poder: 17
mcsebas Va por buen camino
Consultar configuracion IP

Hola quisiera que me ayuden con el siguiente problemilla que tengo:

Resulta que quiero hacer un programita que me permita obtener lo siguiente:

1)Direccion IP de la LAN
2)Direccion IP de Internet con sus DNS
3)Puerta de enlace
4)Servidor DHCP y DNS
5)Nombre del Host
6)Mac Address y Fabricante de la placa de red
7)Mascara de subred

Perdon si pido mucho pero es lo que necesito, pero me imagino que se debe hacer mediante el API de windows.

Gracias
Responder Con Cita
  #2  
Antiguo 02-05-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Hola, puedes utilizar el componente IPConfig Classes V1.1 y lo puedes encontrar en esta web.

Saludos.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #3  
Antiguo 02-05-2008
mcsebas mcsebas is offline
Miembro
 
Registrado: feb 2008
Posts: 78
Poder: 17
mcsebas Va por buen camino
Gracias pero me gustaría hacerlo mediante el API de windows ¿esto se puede?

Gracias
Responder Con Cita
  #4  
Antiguo 02-05-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Cita:
Empezado por mcsebas Ver Mensaje
Gracias pero me gustaría hacerlo mediante el API de windows ¿esto se puede?

Gracias
¡Claro que se puede!, el componente que te remito hace uso de las API de windows. .

Saludos.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #5  
Antiguo 03-05-2008
mcsebas mcsebas is offline
Miembro
 
Registrado: feb 2008
Posts: 78
Poder: 17
mcsebas Va por buen camino
Seguro que si pero más llamadas a el API debería hacer, es que deseo hacerlo sin componentes de tercero es que quiero meter manos en la masa jajajajajaja

Gracias porque me estas ayudando
Responder Con Cita
  #6  
Antiguo 03-05-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 18
MaMu Va por buen camino
1) 2) 5) y 6)

Código Delphi [-]
uses Nb30, Winsock;

procedure TForm1.Button1Click(Sender: TObject);
  type
   // Una estructura que une el estado del adaptador
   // con una matriz de estructuras TNameBuffer
  ASTAT = record
    adapt: TAdapterStatus;
    NameBuff: Array[0..29] Of TNameBuffer;
  end;
  var
    Adaptador: ASTAT;
    Ncb: TNCB;
    Nombre: String;
    DatosSocket: WSAData;
    BloqueIP: PHostEnt;
    DirIP: in_addr;
begin
  with Ncb Do // Inicializamos la estructura para ejecutar
    begin // el comando NCBSTAT
      ncb_command := char(NCBASTAT);
      ncb_lana_num := char(0); // asumimos que sólo hay un adaptador
      ncb_callname := '*'; // y no facilitamos nombre
      ncb_buffer := @Adaptador; // dirección de la estructura para obtener
      ncb_length := sizeof(Adaptador); // los datos devueltos
    end;

    Netbios(@Ncb); // Llamada a NetBios

    // Mostramos los datos
    with Adaptador.adapt Do
      ShowMessage('La dirección MAC es: ' +
         IntToHex(Integer(adapter_address[0]), 2) +
         IntToHex(Integer(adapter_address[1]), 2) +
         IntToHex(Integer(adapter_address[2]), 2) +
         IntToHex(Integer(adapter_address[3]), 2) +
         IntToHex(Integer(adapter_address[4]), 2) +
         IntToHex(Integer(adapter_address[5]), 2));

    WSAStartup($0101, DatosSocket); // Inicializamos Windows sockets
    SetLength(Nombre, MAX_PATH); // y obtenemos el nombre de nuestro equipo
    gethostname(PChar(Nombre), MAX_PATH);
       // que usamos para obtener un bloque de información sobre IP
    BloqueIP := gethostbyname(PChar(Nombre));
       // del cual recuperamos la dirección
    CopyMemory(@DirIP, (BloqueIP^).h_addr_list^, BloqueIP.h_length);
    ShowMessage(inet_ntoa(DirIP)); // y la mostramos
end;

Para los demás, mira por favor este truco de nuestro amigo seoane
http://www.clubdelphi.com/trucos/index.php?id=372

Creo que con esto, lo tenes resuelto

Saludos
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita
  #7  
Antiguo 05-05-2008
mcsebas mcsebas is offline
Miembro
 
Registrado: feb 2008
Posts: 78
Poder: 17
mcsebas Va por buen camino
Gracias por responder a mi duda con esto ya tengo para rato metiendo mano.
Gracias pero muchas gracias
Responder Con Cita
  #8  
Antiguo 05-05-2008
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
Hola,

Truco 372 - > http://www.clubdelphi.com/trucos/index.php?id=372
Responder Con Cita
  #9  
Antiguo 29-05-2008
sur-se sur-se is offline
Miembro
 
Registrado: may 2003
Posts: 212
Poder: 21
sur-se Va por buen camino
Hola. Estoy interesado también en obtener esta información. Con los ejemplos que habeis puesto se obtienen todos los datos excepto el que me interesa que es la dirección ip de internet, es decir, la IP pública de internet. Esta dirección se obtiene por ejemplo con la página web
la cual te dice "Tu ip real es ...".
Con los trucos y fuentes puestos no consigo obtener dicha información.
¿Como se podría hacer?
Un saludo.
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
dbgrid consultar ekstase MySQL 2 26-11-2007 06:32:41
Poblema al consultar!! magnu9 Conexión con bases de datos 3 08-11-2006 23:01:46
Como Consultar la RAM de mi pc friendspark API de Windows 5 18-01-2006 16:55:23
Consultar un Query franciscobucio Conexión con bases de datos 4 06-01-2005 20:36:59
Consultar una query Eolo Firebird e Interbase 2 26-09-2003 17:35:22


La franja horaria es GMT +2. Ahora son las 12:31:40.


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