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]> Para: delphi-br@yahoogrupos.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/ [As partes desta mensagem que não continham texto foram removidas]