[firebase-br] Digest lista, volume 4095, assunto 1
Carlos Andrade
krlosgilson em gmail.com
Sáb Mar 25 12:18:42 -03 2017
Oi Otavio! Vou tentar essa alternativa, só em ver o código acredito que
dê sim para adaptar à minha necessidade para encerrar as conexões
ociosas. Obrigado!
Em 25/03/2017 21:57, Otavio Benini <otavio.benini em gmail.com> escreveu:
> oi Carlos,
>
> eu uso e funciona, mas não é de minha autoria:
>
> no form principal da sua aplicação puxe um objeto TTimer e em OnTimer
> escreva a procedure seguinte:
>
> procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
> var i : word;
> const t1 : word = 3600; // 60 minutos
> begin
> i := SecondsIdle;
> if i > t1 then begin
> Ocioso := true;
> Close;
> end;
> end;
>
> no mesmo form ou numa lib escreva a seguinte function:
>
> function SecondsIdle(): DWord;
> var
> liInfo: TLastInputInfo;
> begin
> liInfo.cbSize := SizeOf(TLastInputInfo) ;
> GetLastInputInfo(liInfo) ;
> Result := (GetTickCount - liInfo.dwTime) DIV 1000;
> end;
>
> no Close do form principal eu fecho a conexão e uso 'Ocioso' prá logar se o
> encerramento da aplicação foi por estouro de tempo
>
>
> sds
> *Otavio Benini*
> *Benini Informática e Sistemas*
> *(11) 9-8181-6553*
> *(11) 4701-2797*
> informatica em benini.com.br <info em benini.com.br>
> otavio.benini em gmail.com
Mais detalhes sobre a lista de discussão lista