Blz velho, vou dar uma testada em casa. Em casa é Speedy com roteador wireless.
Abs Eduardo Silva dos Santos respondeu: > > faz um teste, faz um sistema que chame a função, verifica o estado da > conexão, sem fechar o sistema, desconecte e teste novamente.. > > lembrando que eu reparei isso em conexão ADSL onde o modem esta > roteado e eu > conectado via redelocal. > > repare que na 1º verificação ele ate demora um pouco... mas ja na > segunda é > muito rápido.. > > vou procurar a materia que relatava esse bug na API; > > para conexões discadas diretamente da máquina nunca testei. > > Em 30/10/07, Adriano Santos <[EMAIL PROTECTED] > <mailto:artes%40doiscliques.com>> escreveu: > > > > 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.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 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> > > > <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><artes%40doiscliques.com> > > > <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.delphitodelphi.blogspot.com > <http://www.delphitodelphi.blogspot.com>> > > > > http://www.devmedia.com.br <http://www.devmedia.com.br> > <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> > > > <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> > <eduardo.drd%40gmail.com> <mailto: > > eduardo.drd%40gmail.com> > > > Site: http://www.drdsistemas.com/ <http://www.drdsistemas.com/> > <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 > > > > > > > > > > > -- > ....................................................... > 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 > -- ------------------------------------------------------------------------ *Adriano Santos*
