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

unreal4u · #2 16-11-2004

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)