Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   detectar que se conecto el ras telefonico (https://www.clubdelphi.com/foros/showthread.php?t=41581)

chico_bds 20-03-2007 05:47:42

detectar que se conecto el ras telefonico
 
En estos momentos me encuentro desarrollando una aplicación para un cliente. Este me ha pedido que le cree un servicio que detecte si la cuenta de acceso telefonico se conecto, si se conecto que le cuente el tiempo de conexion, ademas contar que no se pase de una hora....

Nesecito que me den un norte acerca de como resolver esta situacion.. poque una vez detectada la conexion lo de mas es relativamente facil....

Una pregunta se puede hacer esto perfectamente desde un servicio? Les cuento ademas que no he podido buscar en google porque solo tengo acceso a dos o tres paginas entre ellas esta...

desde ya muchas gracias.

Saludos

seoane 20-03-2007 14:10:08

Pues el siguiente código no lo he podido probar porque no uso módem, pero debería funcionar. Pruebalo y nos lo confirmas.
Código Delphi [-]
uses WinInet;

function Conectado: Boolean;
var
  Flags: DWORD;
begin
  Result:= FALSE;
  if InternetGetConnectedState(@Flags,0) then
    if Flags and INTERNET_CONNECTION_MODEM = INTERNET_CONNECTION_MODEM then
      Result:= TRUE;
end;
La función anterior nos dice si se esta conectado a internet usando un acceso telefónico. Para saber el tiempo que se esta conectado solo hay que utilizarla a intervalos regulares (200 milisegundos por ejemplo), e ir incrementando un contador.

chico_bds 20-03-2007 18:17:23

Muchas gracias por la respuesta
 
HOla Seone pues muchas gracias si que funciona.... Mi pregunta es su puede hacer lo que me pidio el cliente desde un servicio....

Si es asi y me pudieran dar una idea de como hacerlo....

Saludos


La franja horaria es GMT +2. Ahora son las 17:55:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi