Meu código é igual ao seu. O que acontece é que eu, às vezes, perco a conexão.
----- Original Message ----- From: "José Edvandro Máximo" <[EMAIL PROTECTED]> 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] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< 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