Boa tarde,
José Edvando, a linha:
if Connected then Disconnect;
está dentro de um try..Except silencioso.
Você não acha que se deve colocar uma mensagem dentro do except?
Sds,
Paulo Sérgio
B.Hte./MG
----- Original Message -----
From: José Edvandro Máximo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 31, 2006 4:06 PM
Subject: Re: [delphi-br] Delphi + Zeos + MySql
COLOQUE NO ONCREATE DO FORM
m_ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
with m_ini do begin
// db connection
with ZConn do
begin
try
if Connected then Disconnect;
except
end;
Database := ReadString('DB', 'DATABASE', 'dbcmanager');
WriteString('DB', 'DATABASE', Database);
HostName := ReadString('DB', 'HOSTNAME', '');
WriteString('DB', 'HOSTNAME', HostName);
Port := ReadInteger('DB', 'PORT', 3306);
WriteInteger('DB', 'PORT', Port);
User := ReadString('DB', 'USER', 'root');
WriteString('DB', 'USER', User);
Password := ReadString('DB', 'PASSWORD', '');
WriteString('DB', 'PASSWORD', Password);
Protocol := ReadString('DB', 'PROTOCOL', 'mysql');
WriteString('DB', 'PROTOCOL', Protocol);
try
Connect;
if not Connected then
begin
MessageDlg('Não foi possível conectar-se a base de dados!',
mtError, [mbOK], 0);
Application.Terminate;
exit;
end
except
On E: Exception Do
Begin
MessageDlg('Não foi possível conectar-se a base de dados!' +
#13#10
+ E.Message,
mtError, [mbOK], 0);
Application.Terminate;
exit;
End;
end;
end;
2006/10/30, Andre Mesquita <[EMAIL PROTECTED]>:
>
> Galera,
>
> Alguém aí já teve alguma aplicação utilizando Delpli + Zeos + MySQL
> que
> acontecia perda constante de conexão com o banco de dados? Caso positivo,
> como foi solucionado?
>
> [ ]'s,
>
> Andre
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.13.19/507 - Release Date: 31/10/2006
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
