ActiveDelphi

[marcelomgoncalves]

pessoal tenho um sistema com as rotinas de TEF DISCADO, testando em ambiente de desenvolvimento funciona tudo beleza, o problema é que efetuando o pagamento por meio de tef, eu tenho uma rotina feita com repeat.. until que fica checando se o gerenciador padrão já gravou o arquivo de retorno da transação, ou seja, o laço infinito repeat.. until segura a aplicação até que o arquivo seja gravada, quando o arquivo é gravado pelo gerenciador padrão, o laço é desfeito e o programa segue.. acontece que nesse intervalo a cpu sobe para 99%.. ainda não me aconteceram problemas, mas fico pensando se isso vai causar algum problema em máquinas mais inferiores.. se alguém já passou por isso por favor me dê uma ajuda.. já tentei passar para timer mas não deu muito certo, pois a forma como programei faz com que precise desse loop..

[joemil]

tentou colocar um sleep e tvz ate um ProcessMessages, pra dar uma pequena pausa entre uma pesquisa e outra?