Estranho viu Eduardo, uso pra tudo e nunca tive problemas. Inclusive em casa que tenho essa situação que falou.
Vlw -- Adriano Santos ------------------------------------------------------------- Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp Eduardo Silva dos Santos respondeu: > > O problema dessa rotina é que se vc estiver conectado via rede-local > atravez > de router, ela sempre retorna que esta conectado, mesmo desligando o > modem. > > eu uso essa rotina: > > //Verifica a existe conexão à internet. //Uses Wininet > Function IsConnectedOnInternet:Boolean; > begin > Result := InternetCheckConnection( 'http://www.drdsistemas.com > <http://www.drdsistemas.com>', 1, 0); > > end; > > o problema é que existe um bug na api do windows responsavel por checar a > conexão, a informação correta só é passada > uma vez, vc checa, se depois disso desconectar e checar novamente vai > continuar acusando o estado da primeira verificação. > > mas como faço a verificação ao iniciar o sistema pra min resolveu. > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] > <mailto:artes%40doiscliques.com>> escreveu: > > > > uses > > WinInet > > ... > > function DetectarInternet: Boolean; > > var > > Flags : dword; > > begin > > Result := InternetGetConnectedState(@Flags, 0); > > end; > > > > -- > > Adriano Santos > > ---------------------------------------------------------- > > Desenvolvedor Delphi desde 1998. Professor e programador PHP. > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. > > > > Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. > > http://www.delphitodelphi.blogspot.com > <http://www.delphitodelphi.blogspot.com> > > http://www.devmedia.com.br <http://www.devmedia.com.br> > > http://www.devmedia.com.br/clubedelphi/pagina.asp > <http://www.devmedia.com.br/clubedelphi/pagina.asp> > > > > Eduardo Silva respondeu: > > > > > > Galera, como eu faço para testar uma conexão com a internet e, caso > > > ela não esteja funcionando, enviar uma mensagem ao usuário informando > > > que a conexão com a internet não esta funcionando. > > > > > > Obrigado > > > > > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > > > armazenamento! > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > ---------------------------------------------------------- > > > > > > No virus found in this incoming message. > > > Checked by AVG Free Edition. > > > Version: 7.5.503 / Virus Database: 269.15.12/1098 - Release Date: > > 29/10/2007 09:28 > > > > > > > > > > > -- > ....................................................... > Eduardo Silva dos Santos > DRD Sistemas. > (27) 3218-4201 > MSN: [EMAIL PROTECTED] <mailto:eduardo.drd%40gmail.com> > Site: http://www.drdsistemas.com/ <http://www.drdsistemas.com/> > ....................................................... > > [As partes desta mensagem que não continham texto foram removidas] > > > ------------------------------------------------------------------------ > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007 > 10:06 >