Puts, depois eu vi. Sem crise. heheh Abs Robson respondeu: > > desculpem, é do tópico "Estimar o tempo que será gasto com uma tarefa" > > Kaputz, Robson > Skype: kaputz_gri > > ----- Mensagem original ---- > De: Adriano Santos <[EMAIL PROTECTED] > <mailto:artes%40doiscliques.com>> > Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Enviadas: Terça-feira, 30 de Outubro de 2007 16:05:25 > Assunto: Re: Res: Res: [delphi-br] Testar conexão com a internet > > 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] com.br <mailto:kaputz_ gri%40yahoo. > com.br>> > > Para: [EMAIL PROTECTED] os.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* > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > > 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*
