Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Obtener datos conexion internet (https://www.clubdelphi.com/foros/showthread.php?t=1047)

Pally 02-06-2003 21:51:33

Obtener datos conexion internet
 
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)

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"

Para las DNS
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"

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/Prog..._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.


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