[firebase-br] Digest lista, volume 4095, assunto 1

[Carlos Andrade]

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