Testar conexão com o Banco de dados Mysql

[Sommus]

Pessoal,
Preciso fazer uma rotina que teste a conexão com o banco de dados mysql,
essa rotina será chamada de dentro de um timer, então não pode comprometer o
desempenho do sistema... Tentei fazer de duas formas:
1) Usando lConnected:=.T e depois checando lConnected... Mas, ficou muito
lento...
2) Outra forma que tentei foi executar um SELECT dentro de um TRY...CATCH,
até que ai não ficou lento, mas, se a conexão falhar, vem aquela tela do
debug....
Alguém conhece uma outra forma de fazer que fique rápido, ou uma forma
dessa tela do debug não aparecer ?
Obrigado pela atenção,
Reginaldo

[emeasoft]

Reginaldo, também uso assim, mas para não aparecer a tela do debug:
TMySqlDatasource altere as propriedades:
lAbortOnErrors:=.T.
lDispayErrors:=.F.
e trate no retorno do CATCH...
Abraços
Mário

[Sommus]

Mário,
Vou testar...
Obrigado pela atenção,
Reginaldo
"www[dot]eMeAsOfT[dot]com" <mario[at]emeasoft[dot]com[dot]br> escreveu na
notí­cia da mensagem:4e7a5cc5$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Reginaldo, também uso assim, mas para não aparecer a tela
> do debug:
> TMySqlDatasource altere as propriedades:
> lAbortOnErrors:=.T.
> lDispayErrors:=.F.
>
> e trate no retorno do CATCH...
>
> Abraços
> Mário
> --
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
>
> http://bit.ly/ci22sm
> http://www.brasilturismo.com/brasil/

[emeasoft]

Reginaldo,
Se vocíª executar pelo F9 vai aparecer a tela do debug.
Mas ao executar o EXE direto ou pelo í­cone > (executar) da IDE não aparece.
Mário