Foros Club Delphi - Problema con el programa para saber si estoy conectado.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Problema con el programa para saber si estoy conectado. (https://www.clubdelphi.com/foros/showthread.php?t=16110)

Kamikaze

16-11-2004 16:26:33

Problema con el programa para saber si estoy conectado.

Mi problema es que los dos programas que me paso quetzal (links con el codigo fuente) me funcionan en todos los ordenadores menos en los que estan conectados en Lan (con un servidor) el primero siempre me pone que estoy conectado y el segundo directamente se me tranca al ejecutarlo....

¿Alguien tiene otros codigos para saber si uno esta conectado a internet (sin intervencion del ususrio por medio claro)?

Muchas gracias, dejo aqui el link del anterios hilo.

unreal4u

16-11-2004 23:35:23

seguro que no funciona??

Código:

procedure TForm1.Button1Click(Sender: TObject);

 begin

  label1.caption:=PowerSock1.LocalIP;

  if PowerSock1.LocalIP <> '127.0.0.1' then

   label2.caption:='Conectado'

  else

   label2.caption:='Desconectado';

 end;

Seguro que este código no funciona? Me parece un poco raro que un PC en LAN tenga ese IP... En todo caso, voy a averiguar mejor; porque ahora no tengo a mi disposición el delphi. El código fuente proviene de la página:
http://www.q3.nu/trucomania/truco.cgi?448&esp (es el último tip)

Kamikaze

18-11-2004 17:27:05

Ese no lo he provado, por que no me reconoce PowerSock1
(el chico que puso el truco manejaba el delphi 5, con la uses PowerSock, que no la tengo en delphi 7 :( )

¿Con que uses la podria sustituir para que el codigo me fuera valido?

Muchas gracias!!! ;)

Sotrono

25-11-2004 01:02:40

En este hilo hay un codigo que te puede servir:
http://www.clubdelphi.com/foros/show...8867#post48867

No lo probe en una LAN, pero supongo que funciona igual...

La franja horaria es GMT +2. Ahora son las 21:35:40.