> Fiz as seguintes alterações:
> Modifiquei o tempo de intervalo do timer, pois acho que não pode ser
> inferior ao tempo de retorno do select.
> e também
> modifiquei a programação dentro do timer deixando conforme abaixo
> procedure TForm1.TcotacoesTimer(Sender: TObject);
> begin
> Qpreco_acoes.Close;
> Qpreco_acoes.SQL.clear;
> Qpreco_acoes.SQL.add('select * from plan1');
> Qpreco_acoes.Open;
> end;
> o sistema já está a funcionando a mais de 3 horas e parou de travar...
> att
> Mauricio
> *
> *
> Qual foi a sua solução?
> Newton Michel de Oliveira www.nmooliveira.com.br
> Mobile 55 51 92358577
> Consultor de TI
> Embarcadero Delphi 2009 Programming
> Public Profile
> http://www.linkedin.com/in/newtongaucho
> Group Admin
> http://www.dug-rs.org
> 2009/11/4 <mauricio.p...@terra.com.br>
>> Agradeço a ajuda dos amigos e informo que o sistema agora está funcionando
>> perfeitamente.
>> att
>> Mauricio
>> Se o banco é o firebird tenta usar os events.. assim ela só é atualizada
>> quando a tabela plan1 for realmente alterada, o que pode ser a cada segundo
>> ou a cada hora.
>> *From:* mauricio.p...@terra.com.br
>> *Sent:* Tuesday, November 03, 2009 5:16 PM
>> *To:* dug-rs@googlegroups.com
>> *Subject:* [dug-rs] Re: Dúvida SQL
>> Sim.... é o que está dentro do timer.
>> eu só preciso abrir e fechar a query para pois os valores da tabela são
>> alterados a cada segundo.
>> então eu preciso abrir a cada 10 ou 15 segundos para atualizar a tela.
>> Mauricio
>> Maurício, tenta o seguinte:
>> procedure TForm1.TcotacoesTimer(Sender: TObject);
>> begin
>> Qpreco_acoes.Close;
>> Qpreco_acoes.SQL.clear;
>> Qpreco_acoes.SQL.add('select * from plan1');
>> Qpreco_acoes.Open;
>> //Faz o que tu precisa fazer aqui
>> Qpreco_acoes.Close;
>> end;
>> Isso que tu manou é tudo que tu tem dentro do timer? Entendi que tu criava
>> a query dentro do timer, e pelo que vi isso não ocorre.
>> Att.,
>> 2009/11/3 <mauricio.p...@terra.com.br>
>>> Newton eu estou fazendo assim : Programaei dentro de um timer
>>> procedure TForm1.TcotacoesTimer(Sender: TObject);
>>> begin
>>> Qpreco_acoes.Close;
>>> Qpreco_acoes.SQL.clear;
>>> Qpreco_acoes.SQL.add('select * from plan1');
>>> Qpreco_acoes.Open;
>>> end;
>>> att
>>> Mauricio
>>> A Query chega a terminar de executar ou acumula varias querys?
>>> Newton Michel de Oliveira www.nmooliveira.com.br
>>> Mobile 55 51 92358577
>>> Consultor de TI
>>> Embarcadero Delphi 2009 Programming
>>> Public Profile
>>> http://www.linkedin.com/in/newtongaucho
>>> Group Admin
>>> http://www.dug-rs.org
>>> 2009/11/3 <mauricio.p...@terra.com.br>
>>>> Pessoal tenho um sistema em Delphi que precisa executar uma
>>>>>>>> query (select) a cada 10 ou 15 segundos.
>>>>>>>> então configurei o select dentro de um timer....o sistema ta
>>>>>>>> funcionando .....só que o sistema trava depois de alguns minutos...
>>>>>>>> acho que é porque a query está na memória.....depois de várias
>>>>>>>> execuções de query1.open.....o sistema trava por falta de memória..
>>>>>>>> será que é isto ???? tem algum comando para limpar a memória.
>>>>>>>> att
>>>>>>>> Mauricio
>> --
>> Gilberto Dessbesell Jr.
|
