FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Obtener datos conexion internet
Me gustaria saber como obtener:
La puerta de enlace de la conexión y demas datos de la conexión |
#2
|
|||
|
|||
una forma sencilla, aunque no sé si es lo que pides es desde la línea de comandos teclear
ipconfig /all |
#3
|
|||
|
|||
si pero desde delphi?
|
#4
|
|||
|
|||
Si los datos de conexión no están asignados en Tiempo de ejecución, puedes buscarlo en el registro. Para la puerta de enlace ->(DefaultGateway), por ejemplo yo tengo dentro de
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001] (0001=primer dispo. de red) Código:
"DriverDesc"="TCP/IP" "InfSection"="MSTCP.ndi" "IPAddress"="192.168.100.23" "IPMask"="255.255.255.0" "DeviceVxDs"="vtdi.386,vip.386,vtcp.386,vdhcp.386,vnbt.386" "InstallVnbt"="0" "InfPath"="NETTRANS.INF" "ProviderName"="Microsoft" "DevLoader"="*ndis" "DefaultGateway"="192.168.100.1" "NodeType"="1" "DriverDate"=" 5- 5-1999" Código:
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\MSTCP] "LMHostFile"="C:\\WINDOWS\\lmhosts" "LocalCopyMade"="1" "EnableDNS"="1" "Lanabase"="0" "HostName"="aguila" "Domain"="obispado.com" "SearchList"="" "NameServer"="194.179.1.100,194.179.1.101,192.168.100.3" "EnableRouting"="0" Otra solución los Api del windows, pero......... un saludo. |
#5
|
|||
|
|||
Si lo quieres sacar del Api puedes sacarte una idea desde este enlace en VB
http://www.experts-exchange.com/Prog..._10166250.html |
#6
|
|||
|
|||
procedure TF_ip.FormCreate(Sender: TObject);
var wVersionRequested : WORD; wsaData : TWSAData; p : PHostEnt; s : array[0..128] of char; p2 : pchar; begin {Start up WinSock} wVersionRequested := MAKEWORD(1, 1); WSAStartup(wVersionRequested, wsaData); {Get the computer name} GetHostName(@s, 128); p := GetHostByName(@s); Memo1.Lines.Add(p^.h_Name); {Get the IpAddress} p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); Memo1.Lines.Add(p2); end; P.D. Únicamente has de inluir en el form un Memo. |
|
|
|