Obtener datos conexion internet
Me gustaria saber como obtener:
La puerta de enlace de la conexión y demas datos de la conexión |
una forma sencilla, aunque no sé si es lo que pides es desde la línea de comandos teclear
ipconfig /all |
si pero desde delphi?
|
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" Código:
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\MSTCP] Otra solución los Api del windows, pero......... un saludo. |
Si lo quieres sacar del Api puedes sacarte una idea desde este enlace en VB
http://www.experts-exchange.com/Prog..._10166250.html |
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. |
La franja horaria es GMT +2. Ahora son las 08:42:59. |
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