PDA

Ver la Versión Completa : Obtener datos conexion internet

Pally
02-06-2003, 21:51:33
Me gustaria saber como obtener:

La puerta de enlace de la conexión y demas datos de la conexión
Julià T.
02-06-2003, 23:49:07
una forma sencilla, aunque no sé si es lo que pides es desde la línea de comandos teclear

ipconfig /all
Pally
05-06-2003, 11:08:58
si pero desde delphi?
chutipascal
05-06-2003, 11:41:33
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)


"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"


Para las DNS

[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"


Mirate como puedes leer el contenido del registro desde delphi y lo puedes sacar de aqui.

Otra solución los Api del windows, pero.........

un saludo.
chutipascal
05-06-2003, 11:59:55
Si lo quieres sacar del Api puedes sacarte una idea desde este enlace en VB
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_10166250.html
BECERRA
06-06-2003, 20:04:39
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.