RES: [delphi-br] Valor Ponto de Função Delphi
Elaine, Procure por APFplus é um aplicativo onde vc pode calcular seus projetos e já tem algum valores para varias linguagem de programação. Atte. Dimas De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Elaine Cristina Rocha de Oliveira Enviada em: sábado, 3 de julho de 2010 15:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Valor Ponto de Função Delphi Olá Colegas, Alguém sabe me informar o valor do ponto de função para programação delphi!? Ou algum site que possua esta referência!? Estou precisando para finalizar a proposta tecnológica do meu tcc Desde já, obrigada. Atenciosamente, Elaine Cristina Programadora Delphi / Webmaster Cel: (027) 8184-2656 www.crystaldesenvolvimento.com.br P Antes de imprimir, veja se realmente é necessário e pense em seu compromisso com o meio ambiente. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos e delphi 2010 - problema com parametros
Marcelo, Esse é o comportamento correto, não é bug. O parâmetro é substituído pelo seu respectivo valor na instrução SQL que é enviada ao banco de dados, mas não no SQL que fica armazenado na propriedade do componente. Se fosse assim, não seria possível usar o mesmo SQL do componente para múltiplas consultas com parâmetros diferentes, pois o parâmetro seria removido do SQL após a primeira query. [ ]'s -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 4 de julho de 2010 23:48, Marcelo Florindo marcelo.em.lis...@gmail.comescreveu: Colegas, Estou trabalhando em uma aplicação com zeos e delphi 2010, porém, tenho um componente para fazer consultas diversas. Por exemplo: QryAux.close; QryAux.SQL.Text := 'select id_unidade from unidade_produto ' + ' where upper(nome)=:nome and id_unidade:codigo'; QryAux.Params[0].AsString :=uppercase(edtNome.Text); QryAux.Params[1].AsInteger := qrypadrao.FieldByName('id_unidade').AsInteger; QryAux.Open; Mas tenho problemas com a questão do parametro, ele não apresenta o dado no sql, alguma idéia? seria um bug? Grato a todos, Marcelo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização de v ersão do aplicativo
Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Valor Ponto de Função Delphi
Elaine, não existe um valor de tabela para o ponto de função. Voce é quem define o seu valor. Eu sugiro que voce estude mais sobre esta técnica que lhe permite chegar em preços, custos e prazos mais próximos possíveis da realidade do seu projeto. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Elaine Cristina Rocha de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Saturday, July 03, 2010 3:28 PM Subject: [delphi-br] Valor Ponto de Função Delphi Olá Colegas, Alguém sabe me informar o valor do ponto de função para programação delphi!? Ou algum site que possua esta referência!? Estou precisando para finalizar a proposta tecnológica do meu tcc Desde já, obrigada. Atenciosamente, Elaine Cristina Programadora Delphi / Webmaster Cel: (027) 8184-2656 www.crystaldesenvolvimento.com.br P Antes de imprimir, veja se realmente é necessário e pense em seu compromisso com o meio ambiente. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi Tour 2010 - exemplos disponibilizados para downoad
Vlw amigo... Muito bom. Obrigado. --- Em ter, 29/6/10, Andreano Lanusse andreano.lanu...@embarcadero.com escreveu: De: Andreano Lanusse andreano.lanu...@embarcadero.com Assunto: [delphi-br] Delphi Tour 2010 - exemplos disponibilizados para downoad Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Data: Terça-feira, 29 de Junho de 2010, 10:35 Pessoal, Pra quem foi e não foi no Delphi Tour 2010 os slides e exemplos foram disponibilizados para download - http://www.andreanolanusse.com/blogpt/delphi-tour-2010-slides-e-exemplos-disponibilizados-para-download/ []'s Andreano Lanusse Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos e delphi 2010 - problema com parametros
Olá Dirlei, Isto é conhecido, mas o que falo é que ele informa que está dando erro próximo ao order by, verificando pelo monitoramento o parametro não está populado o campo :nome Então, pelo que analisado, o valor que repasso ao parametro não é recebido pelo sql. Att, Marcelo Em 5 de julho de 2010 08:45, Dirlei Dionísio dir...@gmail.com escreveu: Marcelo, Esse é o comportamento correto, não é bug. O parâmetro é substituído pelo seu respectivo valor na instrução SQL que é enviada ao banco de dados, mas não no SQL que fica armazenado na propriedade do componente. Se fosse assim, não seria possível usar o mesmo SQL do componente para múltiplas consultas com parâmetros diferentes, pois o parâmetro seria removido do SQL após a primeira query. [ ]'s -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 4 de julho de 2010 23:48, Marcelo Florindo marcelo.em.lis...@gmail.com marcelo.em.listas%40gmail.comescreveu: Colegas, Estou trabalhando em uma aplicação com zeos e delphi 2010, porém, tenho um componente para fazer consultas diversas. Por exemplo: QryAux.close; QryAux.SQL.Text := 'select id_unidade from unidade_produto ' + ' where upper(nome)=:nome and id_unidade:codigo'; QryAux.Params[0].AsString :=uppercase(edtNome.Text); QryAux.Params[1].AsInteger := qrypadrao.FieldByName('id_unidade').AsInteger; QryAux.Open; Mas tenho problemas com a questão do parametro, ele não apresenta o dado no sql, alguma idéia? seria um bug? Grato a todos, Marcelo [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] - Placa de som
Bom dia... Tente pelas API's do windows, se não tiver sucesso então ficará meio dificil. É notório que a Microsoft mudou td mesmo, tanto q tive problemas de performance de um sistema meu em Win7. Att. Ricardo. --- Em qua, 30/6/10, marcosdiasvendramini marcosdiasvendram...@yahoo.com.br escreveu: De: marcosdiasvendramini marcosdiasvendram...@yahoo.com.br Assunto: Re: [delphi-br] - Placa de som Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 30 de Junho de 2010, 15:27 Alguem... Att. MDV - Marcos Dias Vendramini http://marcosvendramini.webng.com --- Em delphi-br@yahoogrupos.com.br, marcosdiasvendramini marcosdiasvendram...@... escreveu Bom dia pessoal Queria saber se alguem conhece algum componente ou alguma forma de controlar os dispositivos de som do windows (vista e 7), eu fazia isso no XP, mas a microsoft mudou tudo. No XP eu escolho qual o dispositivo de gravação e reprodução que meu player ira tocar e gravar. Agora como fazer isso no vista e no 7. Desde já agradeço. Att. MDV - Marcos Dias Vendramini http://marcosvendramini.webng.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos e delphi 2010 - problema com parametros
Neste caso você pode fazer debug para investigar o que acontece no código do Zeos que lida com os parâmetros. -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 5 de julho de 2010 08:52, Marcelo Florindo marcelo.em.lis...@gmail.com escreveu: Olá Dirlei, Isto é conhecido, mas o que falo é que ele informa que está dando erro próximo ao order by, verificando pelo monitoramento o parametro não está populado o campo :nome Então, pelo que analisado, o valor que repasso ao parametro não é recebido pelo sql. Att, Marcelo Em 5 de julho de 2010 08:45, Dirlei Dionísio dir...@gmail.com escreveu: Marcelo, Esse é o comportamento correto, não é bug. O parâmetro é substituído pelo seu respectivo valor na instrução SQL que é enviada ao banco de dados, mas não no SQL que fica armazenado na propriedade do componente. Se fosse assim, não seria possível usar o mesmo SQL do componente para múltiplas consultas com parâmetros diferentes, pois o parâmetro seria removido do SQL após a primeira query. [ ]'s -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 4 de julho de 2010 23:48, Marcelo Florindo marcelo.em.lis...@gmail.com marcelo.em.listas%40gmail.comescreveu: Colegas, Estou trabalhando em uma aplicação com zeos e delphi 2010, porém, tenho um componente para fazer consultas diversas. Por exemplo: QryAux.close; QryAux.SQL.Text := 'select id_unidade from unidade_produto ' + ' where upper(nome)=:nome and id_unidade:codigo'; QryAux.Params[0].AsString :=uppercase(edtNome.Text); QryAux.Params[1].AsInteger := qrypadrao.FieldByName('id_unidade').AsInteger; QryAux.Open; Mas tenho problemas com a questão do parametro, ele não apresenta o dado no sql, alguma idéia? seria um bug? Grato a todos, Marcelo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] [Off] Totalmente off. New Blog Post
Pessoal, Resumo da Semana do blog publicado. Abs Link: http://bit.ly/baZZua -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos e delphi 2010 - problema com parametros
Ola, amigo. Já tentou: QryAux.Params[0].AsString := QuotedStr(uppercase(edtNome.Text));? []'s Stclara. Em 05/07/2010 08:52, Marcelo Florindo escreveu: Olá Dirlei, Isto é conhecido, mas o que falo é que ele informa que está dando erro próximo ao order by, verificando pelo monitoramento o parametro não está populado o campo :nome Então, pelo que analisado, o valor que repasso ao parametro não é recebido pelo sql. Att, Marcelo Em 5 de julho de 2010 08:45, Dirlei Dionísiodir...@gmail.com escreveu:
[delphi-br] MySQL server has gone away
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]
Re: [delphi-br] MySQL server has gone away
Levy, Faça esta alteração, acredito que deva resolver teu problema. if not BD.Conexao.Connected then BD.Conexao.Connected := True; try if not BD.Conexao.Intransaction then BD.Conexao.StartTransaction; 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.Conexao.Commit; MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 ); passou := True; except on e: exception do begin BD.Conexao.Rollback; MessageBox( Handle, 'Erro ao adicionar Fornecedor '+#13+e.message, 'Informação', 64 ); passou := false; end; end BD.01.Refresh; Sucesso !! Moacir Em 05/07/2010 14:01, Levy Pereira 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]
[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 levypere...@... 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]
Re: [delphi-br] Re: MySQL server has gone away
Eric, a base está na WEB. From: eric_developer developer.syst...@yahoo.com 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 levypere...@... 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]
Re: [delphi-br] MySQL server has gone away
Caro Moacir, negativo. Não houve resposta diferente a anterior. From: Prisma - GMAIL prism...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Mon, July 5, 2010 2:47:06 PM Subject: Re: [delphi-br] MySQL server has gone away Levy, Faça esta alteração, acredito que deva resolver teu problema. if not BD.Conexao.Connected then BD.Conexao.Connected := True; try if not BD.Conexao.Intransaction then BD.Conexao.StartTransaction; 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.Conexao.Commit; MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 ); passou := True; except on e: exception do begin BD.Conexao.Rollback; MessageBox( Handle, 'Erro ao adicionar Fornecedor '+#13+e.message, 'Informação', 64 ); passou := false; end; end BD.01.Refresh; Sucesso !! Moacir Em 05/07/2010 14:01, Levy Pereira 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]
[delphi-br] Re: MySQL server has gone away
é 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]
Re: [delphi-br] MySQL server has gone away
Levy, Sua base esta na web, pelo que vi em sua outra mensagem. Faça o seguinte: - Abra a conexão - Faça as operações desejadas - Feche a conexão Caso vc precise apresentar os dados do site no teu sistema: - conecte - faça o select desejado, transfira os dados para um clientdataset ou para uma tabela de memória - desconecte - Ao efetuar qualquer atualização de dados na base local, atualize na base remota tb. Para atualizar os dados no banco de dados do site: - conecte - faça a atualização necessária - desconecte Não deixe a conexão aberta... Tenho o mesmo cenário aqui e da forma descrita acima funciona 100% .. sem problemas. Sucesso !! Moacir Em 05/07/2010 17:04, Levy Pereira escreveu: Caro Moacir, negativo. Não houve resposta diferente a anterior. From: Prisma - GMAILprism...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Mon, July 5, 2010 2:47:06 PM Subject: Re: [delphi-br] MySQL server has gone away Levy, Faça esta alteração, acredito que deva resolver teu problema. if not BD.Conexao.Connected then BD.Conexao.Connected := True; try if not BD.Conexao.Intransaction then BD.Conexao.StartTransaction; 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.Conexao.Commit; MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 ); passou := True; except on e: exception do begin BD.Conexao.Rollback; MessageBox( Handle, 'Erro ao adicionar Fornecedor '+#13+e.message, 'Informação', 64 ); passou := false; end; end BD.01.Refresh; Sucesso !! Moacir Em 05/07/2010 14:01, Levy Pereira 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]
Re: [delphi-br] Atualização de v ersão do aplicativo
Pegando uma carona no assunto: Tenho uma rotina de atualização que funciona muito bem para o sistema rodando local (cerca de 40 micros) . O problema é que temos 10 micros acessando o sistema via WTS (Terminal Server) e quando libero alguma atualização, o executavel principal da aplicação não consegue ser substituido pois sempre ha algum usuario com o mesmo em execução no WTS. Alguem tem alguma rotina ou dica para atualização da aplicação em servidor WTS?? Grato a todos, Odair - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 9:50 AM Subject: Re: [delphi-br] Atualização de versão do aplicativo Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos de gra�a com o novo Yahoo! Messenger http://br.messenger.yahoo.com/
Re: [delphi-br] Atualização de v ersão do aplicativo
Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM. Neste caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo que tá no terminal e parar o serviço pra atualizar. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Odair To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 5:36 PM Subject: Re: [delphi-br] Atualização de versão do aplicativo Pegando uma carona no assunto: Tenho uma rotina de atualização que funciona muito bem para o sistema rodando local (cerca de 40 micros) . O problema é que temos 10 micros acessando o sistema via WTS (Terminal Server) e quando libero alguma atualização, o executavel principal da aplicação não consegue ser substituido pois sempre ha algum usuario com o mesmo em execução no WTS. Alguem tem alguma rotina ou dica para atualização da aplicação em servidor WTS?? Grato a todos, Odair - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 9:50 AM Subject: Re: [delphi-br] Atualização de versão do aplicativo Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos de gra�a com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL server has gone away
Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele derruba a mesma. Quanto eu usava zeos eu implementei uma rotina que reconectava automaticamente caso a mesma fosse perdida. eu não sei se isso foi implementado na versão atual do zeos. Vou tentar achar a versão que fiz essa mudança e te passo, assim vc aplica ai.. Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de forma transparente.. caso não conheça, veja: www.devart.com/mydac Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 5 de julho de 2010 14:01, Levy Pereira levypere...@yahoo.com 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] -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] MySQL server has gone away
Grato Eduardo. Desconheço o MyDAC. Verei isto agora mesmo. Valeu! Levy From: Eduardo Silva dos Santos eduardo@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Mon, July 5, 2010 5:57:59 PM Subject: Re: [delphi-br] MySQL server has gone away Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele derruba a mesma. Quanto eu usava zeos eu implementei uma rotina que reconectava automaticamente caso a mesma fosse perdida. eu não sei se isso foi implementado na versão atual do zeos. Vou tentar achar a versão que fiz essa mudança e te passo, assim vc aplica ai.. Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de forma transparente.. caso não conheça, veja: www.devart.com/mydac Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201begin_of_the_skype_highlighting (27) 3218-4201 end_of_the_skype_highlighting (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 5 de julho de 2010 14:01, Levy Pereira levypere...@yahoo.com 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização de versão d o aplicativo
Eu uso esse método, fica show. Publiquei uma dica no meu blog. Perdi parte dos fontes e estou refazendo. Adriano Santos http://twitter.com/asrsantos Enviado de meu iPhone Em 05/07/2010, às 09:50, Walter Chagas \(Bol\) wchag...@bol.com.br escreveu: Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização de versão d o aplicativo
Cara, Não tem jeito, você precisa ter um lançador pra fazer isso pra você: atualizar. Eu faço assim, minha aplicação principal verifica se é mais antiga que a que está no no servidor, se for abro o lançador que por sua vez fecha a aplicação principal usando comandos API (SendMessage e FindWindow). Como a aplicação principal é fechada aí fica fácil, extraio do banco de dados o executável novo sobre o antigo. Daí esse lançador ré-executa o principal e se fecha. Pronto. Adriano Santos http://twitter.com/asrsantos Enviado de meu iPhone Em 05/07/2010, às 17:36, Odair odai...@yahoo.com.br escreveu: Pegando uma carona no assunto: Tenho uma rotina de atualização que funciona muito bem para o sistema rodando local (cerca de 40 micros) . O problema é que temos 10 micros acessando o sistema via WTS (Terminal Server) e quando libero alguma atualização, o executavel principal da aplicação não consegue ser substituido pois sempre ha algum usuario com o mesmo em execução no WTS. Alguem tem alguma rotina ou dica para atualização da aplicação em servidor WTS?? Grato a todos, Odair - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 9:50 AM Subject: Re: [delphi-br] Atualização de versão do aplicativo Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização de versão d o aplicativo
Hummm verdade, nem com o nosso esquema vai funcionar. Adriano Santos http://twitter.com/asrsantos Enviado de meu iPhone Em 05/07/2010, às 17:38, Walter Chagas \(Bol\) wchag...@bol.com.br escreveu: Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM. Neste caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo que tá no terminal e parar o serviço pra atualizar. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Odair To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 5:36 PM Subject: Re: [delphi-br] Atualização de versão do aplicativo Pegando uma carona no assunto: Tenho uma rotina de atualização que funciona muito bem para o sistema rodando local (cerca de 40 micros) . O problema é que temos 10 micros acessando o sistema via WTS (Terminal Server) e quando libero alguma atualização, o executavel principal da aplicação não consegue ser substituido pois sempre ha algum usuario com o mesmo em execução no WTS. Alguem tem alguma rotina ou dica para atualização da aplicação em servidor WTS?? Grato a todos, Odair - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 9:50 AM Subject: Re: [delphi-br] Atualização de versão do aplicativo Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos de gra�a com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi e Windows 2008 TS
Alguém já instalou o Delphi no Windows 2008 e depois através de outra maquina Acessar via terminal service, e puxar todas as configurações e componentes instalados No usuários administrador. Digamos instalei o Delphi como administrador e instalei também o componente Jvcl, Quando crio outro usuário Empresa, e ele vir com o Delphi e a Jvcl já instalada. Alguma dica de como fazer isto Antonio C. de M. Pires Arrobba Sistemas [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL server has gone away
Eduardo, baixei o MyDAC e parece-me que vou ter que investir neste componente. A conexão continua sendo perdida mas diferente do Zeos ela é restabelecida, vou ver ainda com o tratar a mensagem de erro. Ele carrega alguma .dll para não ter a obrigatoriedade de instalar o MySQL Client? Há demora na gravação dos dados, como não estou acostumado (ainda) com MySQL não sei se estou com problema de código ou se é mesmo caracteristica da conexão. Grato, Levy From: Eduardo Silva dos Santos eduardo@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Mon, July 5, 2010 5:57:59 PM Subject: Re: [delphi-br] MySQL server has gone away Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele derruba a mesma. Quanto eu usava zeos eu implementei uma rotina que reconectava automaticamente caso a mesma fosse perdida. eu não sei se isso foi implementado na versão atual do zeos. Vou tentar achar a versão que fiz essa mudança e te passo, assim vc aplica ai.. Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de forma transparente.. caso não conheça, veja: www.devart.com/mydac Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 5 de julho de 2010 14:01, Levy Pereira levypere...@yahoo.com 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL server has gone away
Olá Levy, para que não seja exibida a mensagem da desconexão tem que conficar no Evento OnConnectionLost do TMyConnection: RetryMode := rmReconnectExecute; Quando a Dll, não ha necessidade de nenhuma, o mydac conecta diretamente ao servidor. quanto a demora para gravação dos dados, não deveria acontecer, tem que ver mais detalhes.. como a mesta sendo feita.. para determinar a causa. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 5 de julho de 2010 20:52, Levy Pereira levypere...@yahoo.com escreveu: Eduardo, baixei o MyDAC e parece-me que vou ter que investir neste componente. A conexão continua sendo perdida mas diferente do Zeos ela é restabelecida, vou ver ainda com o tratar a mensagem de erro. Ele carrega alguma .dll para não ter a obrigatoriedade de instalar o MySQL Client? Há demora na gravação dos dados, como não estou acostumado (ainda) com MySQL não sei se estou com problema de código ou se é mesmo caracteristica da conexão. Grato, Levy From: Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Mon, July 5, 2010 5:57:59 PM Subject: Re: [delphi-br] MySQL server has gone away Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele derruba a mesma. Quanto eu usava zeos eu implementei uma rotina que reconectava automaticamente caso a mesma fosse perdida. eu não sei se isso foi implementado na versão atual do zeos. Vou tentar achar a versão que fiz essa mudança e te passo, assim vc aplica ai.. Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de forma transparente.. caso não conheça, veja: www.devart.com/mydac Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... Em 5 de julho de 2010 14:01, Levy Pereira levypere...@yahoo.comlevypereira%40yahoo.com 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] [OFF-TOPIC] Explicação da velocidade de compilação do Delphi
Pessoal boa noite, Alguém sabe a explicação técnica de o compilador Delphi ser TÃO rápido ? Ando(por curiosidade apenas) estudando o funcionamento de compiladores e não consigo entender o porque o Delphi de fato é muito rápido nessa parte. Veja o g++ e o VC++, demoram um tempo consideravelmente maior para compilar um programa que o Delphi/C++ Builder. Estou errado quando digo que as partes mais demoradas são a Análise Léxica e a Semântica ?? Qual seria a explicação técnica ?
Re: [delphi-br] Atualização de versão do aplicati vo
Uma informação que pode ajudar é a seguinte: Quando uma aplicação está sendo executada, vc não pode sobrescrever ou excluir o executavél, mas pode renomea-lo. Experimente! Esse pode ser um caminho. Gilson Em 5 de julho de 2010 20:24, Adriano Santos asrsan...@gmail.com escreveu: Hummm verdade, nem com o nosso esquema vai funcionar. Adriano Santos http://twitter.com/asrsantos Enviado de meu iPhone Em 05/07/2010, às 17:38, Walter Chagas \(Bol\) wchag...@bol.com.br escreveu: Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM. Neste caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo que tá no terminal e parar o serviço pra atualizar. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Odair To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 5:36 PM Subject: Re: [delphi-br] Atualização de versão do aplicativo Pegando uma carona no assunto: Tenho uma rotina de atualização que funciona muito bem para o sistema rodando local (cerca de 40 micros) . O problema é que temos 10 micros acessando o sistema via WTS (Terminal Server) e quando libero alguma atualização, o executavel principal da aplicação não consegue ser substituido pois sempre ha algum usuario com o mesmo em execução no WTS. Alguem tem alguma rotina ou dica para atualização da aplicação em servidor WTS?? Grato a todos, Odair - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, July 05, 2010 9:50 AM Subject: Re: [delphi-br] Atualização de versão do aplicativo Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos de gra�a com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atualização de versão do aplicati vo
Gilson, como você consegue fazer isso? aqui no meu pc, Win7, com o executável aberto não é possível renomear. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 5 de julho de 2010 23:04, Gilson gilson...@gmail.com escreveu: Uma informação que pode ajudar é a seguinte: Quando uma aplicação está sendo executada, vc não pode sobrescrever ou excluir o executavél, mas pode renomea-lo. Experimente! Esse pode ser um caminho. Gilson Em 5 de julho de 2010 20:24, Adriano Santos asrsan...@gmail.comasrsantos%40gmail.com escreveu: Hummm verdade, nem com o nosso esquema vai funcionar. Adriano Santos http://twitter.com/asrsantos Enviado de meu iPhone Em 05/07/2010, às 17:38, Walter Chagas \(Bol\) wchag...@bol.com.brwchagasj%40bol.com.br escreveu: Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM. Neste caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo que tá no terminal e parar o serviço pra atualizar. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Odair To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 05, 2010 5:36 PM Subject: Re: [delphi-br] Atualização de versão do aplicativo Pegando uma carona no assunto: Tenho uma rotina de atualização que funciona muito bem para o sistema rodando local (cerca de 40 micros) . O problema é que temos 10 micros acessando o sistema via WTS (Terminal Server) e quando libero alguma atualização, o executavel principal da aplicação não consegue ser substituido pois sempre ha algum usuario com o mesmo em execução no WTS. Alguem tem alguma rotina ou dica para atualização da aplicação em servidor WTS?? Grato a todos, Odair - Original Message - From: Walter Chagas (Bol) wchag...@bol.com.brwchagasj%40bol.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, July 05, 2010 9:50 AM Subject: Re: [delphi-br] Atualização de versão do aplicativo Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a cópia sem problema algum. Eu tenho a versão do sistema atual gravado em uma tabela e o proprio programa consulta a tabela pra saber se tem atualização nova lá no servidor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Sunday, July 04, 2010 10:09 AM Subject: Res: [delphi-br] Atualização de versão do aplicativo Eu tenho um esquema assim: - Uma pasta no servidor para deixar o .exe atual. - Um programa que verifica se o .exe do usuário é mais antigo que o da pasta do servidor. - Renomeio o .exe antigo e copio o novo. - O atalho do sistema aponta para o .exe desse programa ou seja, ele é executado antes do sistema. Se interessar, te passo os arquivos. -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Ari Arantes Filho a...@dd.com.br ari%40dd.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Domingo, 4 de Julho de 2010 3:01:32 Assunto: [delphi-br] Atualização de versão do aplicativo Pessoal, Como fazer para atualizar automaticamente (de preferência) o executável do sistema, num ambiente onde o executável (.exe) fica nos micros dos usuários, principalmente nos notebooks. Pois vários usuários utilizam através de VPN e fica melhor o acesso com o executável direto no PC que no servidor de arquivos. Para os usuários da rede interna sem problemas, pois o .exe fica no servidor de arquivos. Existe alguma maneira de deixar sempre o .exe atualizado? Obrigado, Ari [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos