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]
--
<<<<< 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
