é o que imaginei, um caso parecido com o meu (LocaWeb), em resumo, "pode" ser
uma limitação da hospedagem para acesso externo completo, timeout pequeno.
veja o que postei e a resposta.
http://forum.locaweb.com.br/showthread.php?t=7721
A primeira vista um grande absurdo e fica como um alerta.
Eric Developer Systems
www.magaldi.eti.br
--- Em delphi-br@yahoogrupos.com.br, Levy Pereira <levypere...@...> escreveu
>
> Eric, a base está na WEB.
>
>
>
>
> ________________________________
> From: eric_developer <developer.syst...@...>
> To: delphi-br@yahoogrupos.com.br
> Sent: Mon, July 5, 2010 3:24:30 PM
> Subject: [delphi-br] Re: MySQL server has gone away
>
>
> Sua aplicação desktop esta acessando uma base de dados na Web ou rede interna
> ?
>
> Eric Developer Systems
> www.magaldi.eti.br
>
> --- Em delphi-br@yahoogrupos.com.br, Levy Pereira <levypereira@> escreveu
> >
> > Prezados amigos,
> >
> > como um (por enquanto) iniciante com o MySQL estou apanhando, estou usando
> > o ZEOS para conexão.
> >
> > A conexão é instável. Muitas vezes procede normalmente as consultas,
> > atualizações ou inserções, em outras o fatal erro acontece e somente volta
> > a conectar depois de sair e entrar no aplicativo.
> >
> > Este erro acontece algumas vezes quando o aplicativo fica ativo sem
> > atividade.
> >
> > Antes de começar qualquer procedimento checo se há conexão:
> >
> > if BD.Conexao.Connected = false then BD.Conexao.Reconnect;
> >
> > Depois o processo:
> >
> > BD.Query01.Close;
> > BD.Query01.SQL.Clear;
> > BD.Query01.SQL.Add('start transaction');
> > BD.Query01.ExecSQL;
> > BD.Query01.Close;
> > BD.Query01.SQL.Clear;
> > BD.Query01.SQL.Add(
> > 'insert into fornecedores ( cnpj, razaosocial, telefone, contato,'+
> > 'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
> > BD.Query01.ExecSQL;
> > BD.Query01.SQL.Clear;
> > MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64
> > );
> > passou := True;
> > BD.Query01.SQL.Add('commit');
> > BD.Query01.ExecSQL;
> > BD.Query01.SQL.Clear;
> > BD.01.Refresh;
> >
> > Grato pela ajuda!
> >
> > Levy
> >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
