Oxe, num entendi. Calculo? Pra detectar internet? Tô doidão. Abs
Adriano Robson respondeu: > > Esqueci: > depois de implementar a rotina, faça um outro teste, compile a > aplicação, reinicie o micro e faça o teste, depois faça o teste mas > sem a rotina do calculo, compile o programa sem a rotina do calculo, > reinicie o micro e faça a medição manualmente com um relógio e naum se > assuste, caso tempo seje em média a metade do tempo gasto. > este teste em específico ainda naum fiz, mas ja fiz diversos outros > calculos e toda vez q marcava manualmente o tempo gasto era muito > menor, principalmente em rotinas q levam minutos para serem executadas. > > > Kaputz, Robson > Skype: kaputz_gri > "Keep the Dream Alive" > > ----- Mensagem original ---- > De: Robson <[EMAIL PROTECTED] <mailto:kaputz_gri%40yahoo.com.br>> > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Enviadas: Terça-feira, 30 de Outubro de 2007 14:43:43 > Assunto: Res: [delphi-br] Testar conexão com a internet > > testei aki com velox discado e funcionou normal e ambas as repostas > foram rapidas (menos 1 seg), o teste foi no clicando em um botão, naum > teste como monitoramento. > > Kaputz, Robson > Skype: kaputz_gri > "Keep the Dream Alive" > > ----- Mensagem original ---- > De: Eduardo Silva dos Santos <eduardo.drd@ gmail.com> > Para: [EMAIL PROTECTED] os.com.br > Enviadas: Terça-feira, 30 de Outubro de 2007 13:36:18 > Assunto: Re: [delphi-br] Testar conexão com a internet > > 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] 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.delphito delphi.blogspot. com > > http://www.devmedia .com.br > > http://www.devmedia .com.br/clubedel phi/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 IsConnectedOnIntern et:Boolean; > > > begin > > > Result := InternetCheckConnec tion( 'http://www.drdsiste mas.com > > > <http://www.drdsiste mas.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] > com<artes%40doiscli que s.com> > > > <mailto:artes% 40doiscliques. com>> escreveu: > > > > > > > > > > uses > > > > WinInet > > > > ... > > > > function DetectarInternet: Boolean; > > > > var > > > > Flags : dword; > > > > begin > > > > Result := InternetGetConnecte dState(@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.delphito delphi.blogspot. com > > > <http://www.delphito delphi.blogspot. com> > > > > http://www.devmedia .com.br <http://www.devmedia .com.br> > > > > http://www.devmedia .com.br/clubedel phi/pagina. asp > > > <http://www.devmedia .com.br/clubedel phi/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: eduardo.drd@ gmail.com <eduardo.drd% 40gmail.com> <mailto: > > eduardo.drd% 40gmail.com> > > > Site: http://www.drdsiste mas.com/ <http://www.drdsiste mas.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: eduardo.drd@ gmail.com > Site: http://www.drdsiste mas.com/ > ............ ......... ......... ......... ......... ....... > > [As partes desta mensagem que não continham texto foram removidas] > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail. yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail.yahoo.com/ <http://br.mail.yahoo.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*
