Re: [delphi-br] Ajuda com Checklistbox
No evento OnclickCheck vc verfica se o item1 está selecionado. if CheckListBox1.Checked[1] then CheckListBox1.Checked[2] := False; Não esqueça que a array começa do Zero. []'s Em 06-08-2010 19:53, rodrigo escreveu: Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois que são mutuamente excludentes, isto é quando um for selecionado o outro tem que estar sem seleção, como posso fazer isso automático, para que quando meu usuario selecionar o item1, o item2 perca a seleção e vice-versa. Desde já agradeço [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda basica e fundamental??
Você pode abrir o .DPR do projeto e lá tem todas as units com suas respectivas pastas. att. Alexandre - Original Message - From: alessandra porto To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br Sent: Friday, June 11, 2010 9:33 AM Subject: [delphi-br] ajuda basica e fundamental?? preciso de uma dica em um sistema que estou mexendo não consigo encontrar onde estão determinado forms do projeto pelo que percebi foram salvos em diversas pastas diferentes dentro do disco C:\ e inclusas no projeto sem colocar todas na pasta do projeto. como posso fazer para descobrir pelo delphi a origem (pasta de cada unit) associada a esta Bendita aplicação??? Grata a todos que puderem ajudar estou usando o delphi 7 [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] ajuda basica e fundamental??
Alessandra, Abra o DPR, no comeco do arquivo tem o diretorio de cada PAS associado ao projeto. Obrigado MuriloCunha On 11/06/2010 09:33, alessandra porto wrote: preciso de uma dica em um sistema que estou mexendo não consigo encontrar onde estão determinado forms do projeto pelo que percebi foram salvos em diversas pastas diferentes dentro do disco C:\ e inclusas no projeto sem colocar todas na pasta do projeto. como posso fazer para descobrir pelo delphi a origem (pasta de cada unit) associada a esta Bendita aplicação??? Grata a todos que puderem ajudar estou usando o delphi 7 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com CurrencyEdit
Albuquerque, Tente o seguinte: Edit1.Value := Edit2.Value; Obrigado. MuriloCunha On 26/05/2010 15:25, Albuquerque wrote: Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os CurrencyEdits do outro Panel não são atualizados. Exemplo: No Panel1 digito 10 no Edit1. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com sql
select codproduto,origem, count(*) from tmov group by codproduto,origem order by codproduto,origem -- José Henrique (Zote) Analista de TI Bludata Software 2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael. [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] Ajuda com sql
Olá José, deu certo, obrigado mesmo. Atenciosamente, Rafael - Original Message - From: José Henrique (Zote) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 25, 2010 8:44 PM Subject: Re: [delphi-br] Ajuda com sql select codproduto,origem, count(*) from tmov group by codproduto,origem order by codproduto,origem -- José Henrique (Zote) Analista de TI Bludata Software 2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael. [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] Ajuda com sql
SELECT CAMPO1, CAMPO2, CAMPO3, SUM(CAMPO4) AS SOMA FROM TMOV GROUP BY CAMPO1, CAMPO2, CAMPO3 ORDER BY CODPRODUTO, ORIGEM O SUM irá somar os valores do seu campo. o GROUP BY irá agrupar pelos demais campos... o/ Em 25/05/2010 05:02, Allan GabrielAM escreveu: Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael.
Re: [delphi-br] Ajuda para analisar multiplos lançamentos
Olá, vc pode fazer a análise de data de vencimento, se ela for anterior a atual, então nela correrá juros. Vc pode dividir o valor de juros por quantidade de lançamentos a ser baixados em atraso e ratear por igual para cada lançamento ou dividir o valor do juro pela quantidade total de dias em atraso e depois multiplicar esse valor pela quantidade de dias atrasados para cada lançamento. pagamento parcial = valor pago valor do lançamento. Vc pode ter um campo de controle (lógico ou smallint) para marcar quando pago, assim se for pago algum lançamento com desconto (portanto valor pago valor lançamento) marca o campo PAGO e assim vc vai saber quais lançamentos estão pagos ou não. Sds, Fabiano Em 24/05/2010 15:49, Eduardo Melo escreveu: Ola Pessoal, Estou precisando efetuar baixa de múltiplas contas, porem surge a dúvida se o usuario definir que esta pagando ao total valor maior que seria, sendo que esta lançado os juros pagos, como vou definir para que conta é esse juros? E se ele pagar parcial o valor como vou saber qual conta foi pago parcial. Gostaria da ajuda de vcs para me ajudarem nessa analise. grato -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [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] Ajuda para definir valor de projeto
Prezado Eduardo. O que costumamos fazer é: 1 - Analisar cuidadosamente o projeto em um todo, isso inclui, telas, relatórios, regras de negócio, recursos externos (interfaces, importações/exportações), enfim. Todo o ciclo de vida do sistema. 2 - ESTIMAR, de acordo com a expertise do time de desenvolvimento, estime quantas horas serão gastas para CADA funcionalidade relatada no item 1. 3- VALORIZAR cada hora, de acordo com o perfil do funcionário. Ex: Hora Analista/Consultor R$ Hora Desenvolvedor Senior R$ Hora Desenvolvedor Pleno R$ Hora Desenvolvedor Junior R$ 4 - Defina o cronograma (ferramentas tais como o MSProjet ou o openproj podem lhe ajudar a definir o cronograma e precificar todo o projeto. 5 - Como Grande observação. Com o preço que passou, você não vai conseguir bancar os custos iniciais principalmente com homologação do seu sistema para o PAF-ECF. Haja visto que para ter o PAF homologado (depende da UF) você vai precisar do TEF homologado, some a isso uma viagem a SP bem no centro (Avenida Paulista) para homologar o TEF (+ - uns 1500 se for tef discado) Mais uns 2000 para homologar o PAF junto a qualquer orgão homologador do Brasil. Na minha modesta opnião, você até pode cobrar o que mencionou, mas faça um rateio dos custos de homologação do teu sistema. O importante é prever tudo e colocar no escopo do projeto, para que você tenha uma boa documentação do teu sistema para entregar a outro cliente, controlar horas e prever futuras implementações. É isso aí! Certamente os colegas da lista irão ter muito mais informações sobre preço de sistemas. Fernando Nati. 2010/5/18 Eduardo Melo edume...@gmail.com Ola Pessoal, Eu vou desenvolver um sistema para uma loja de material de construção, o sistema terá cupom fiscal, cadastros, parte financeira. Gostaria de ter uma base de como cobrar por um sistema. Eu devo cobrar pelo projeto a desenvolver mais uma mensalidade? Exemplo penso em cobrar pelo sistema como um projeto que irei no cliente coletar as informações, sempre estarei em contato com o cliente para desenvolver o sistema adequado, pensei no valor de R$ 3.000,00 (três mil reais) pelo projeto e mais uma mensalidade para questão de suporte, gostaria de saber se esta errado o método de cobrar esse valor, ou cobrar só implantação e a mensalidade. Gostaria da opinião do pessoal do grupo. Desde de já agradeço. -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [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] Ajuda Delphi 2010
Verifique as configurações em Build Configuration, pela imagem esta em Base. É o que eu imagino que possa estar lhe atrapalhando. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda para definir valor de projeto
Isso é, provavelmente, a parte mais crítica do projeto. Estimar o preço baseado no tempo de desenvolvimento x custo por hora é o que quase todo mundo faz (inclusive a empresa onde trabalho), mas pressupõe que o cliente sabe exatamente o que ele precisa antes de o projeto começar e que a análise e o projeto serão feitos sem falhas. Nessa abordagem, muitas vezes se acrescenta um percentual de gordura sobre o preço final para cobrir eventuais falhas na estimativa. Às vezes funciona, às vezes não. A margem de acerto é maior em projetos muito pequenos (de alguns dias a 1 ou 2 semanas). O que tenho insistido para conseguir implantar onde trabalho é o Contrato de escopo variável (ou negociável). Talvez seja de ajuda pra você ler sobre o assunto. [ ]'s Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em Ter, 2010-05-18 às 14:06 -0300, Eduardo Melo escreveu: Ola Pessoal, Eu vou desenvolver um sistema para uma loja de material de construção, o sistema terá cupom fiscal, cadastros, parte financeira. Gostaria de ter uma base de como cobrar por um sistema. Eu devo cobrar pelo projeto a desenvolver mais uma mensalidade? Exemplo penso em cobrar pelo sistema como um projeto que irei no cliente coletar as informações, sempre estarei em contato com o cliente para desenvolver o sistema adequado, pensei no valor de R$ 3.000,00 (três mil reais) pelo projeto e mais uma mensalidade para questão de suporte, gostaria de saber se esta errado o método de cobrar esse valor, ou cobrar só implantação e a mensalidade. Gostaria da opinião do pessoal do grupo. Desde de já agradeço. -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação
Re: [delphi-br] ajuda com DBGRID
da uma olhada ai... http://scriptbrasil.com.br/forum/index.php?showtopic=103586pid=433423st=0#entry433423 é uma função pra copiar os dados do grid... mas vc pode ver como funciona a rotina pra percorrer teu dataset... o/ Em 11/05/2010 11:29, Richardson Freddo escreveu: Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com mailto:freddodpvat%40hotmail.com Skype: r.freddo Rondonópolis/MT [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] ajuda com DBGRID
Tenta esse codigo para pegar os registros selecionados Joao DBGrid1.SelectedRows.CurrentRowSelected := true; qdettit.DisableControls; for i := 0 to DBGrid1.SelectedRows.Count-1 do begin qdettit.BookMark := DBGrid1.SelectedRows.Items[i]; end; - Original Message - From: Richardson Freddo To: Grupo Sent: Tuesday, May 11, 2010 11:29 AM Subject: [delphi-br] ajuda com DBGRID Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [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] ajuda com DBGRID
Exemplo de como faer uma varredura nos registros selecionados: procedure TForm1.btnDoSumClick(Sender: TObject); var i: Integer; sum : Single; begin if DBGrid1.SelectedRows.Count 0 then begin sum := 0; with DBGrid1.DataSource.DataSet do begin for i := 0 to DBGrid1.SelectedRows.Count-1 do begin //é aqui que vc processa o registro GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i])); sum:= sum + FieldByName('Size').AsFloat; end; end; //exibe num label o resultado da soma edSizeSum.Text := FloatToStr(sum); end end; Sds, Fabiano 11/05/2010 11:29, Richardson Freddo escreveu: Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com mailto:freddodpvat%40hotmail.com Skype: r.freddo Rondonópolis/MT [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] ajuda com DBGRID
noDbgrid use a propriedade rowselectall ou algo precido --- Em ter, 11/5/10, Richardson Freddo mjrkon...@yahoo.com.br escreveu: De: Richardson Freddo mjrkon...@yahoo.com.br Assunto: [delphi-br] ajuda com DBGRID Para: Grupo delphi-br@yahoogrupos.com.br Data: Terça-feira, 11 de Maio de 2010, 11:29 Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente. . (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodpvat@ hotmail.com Skype: r.freddo Rondonópolis/ MT [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] Ajuda p/ TCC
Olá, Não sei se é inovador ou se já existe, mas algo tipo auto atendimento pela internet. Não estou falando de se consultar ou fazer uma cirurgia pela internet. Algo do tipo a pessoa se cadastra no site, vê relação de médicos por especialidade, quais os dias/horários que eles atendem, solicita marcar uma consulta, se for marcada a consulta emite uma boleta para pagamento ou depósito em conta. Algum tipo de acompanhamento... Sei lá, não entendo nada de hospital, mas fica a sugestão. :o) Juan Mon, 10 May 2010 02:30:23 -, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião.
Re: [delphi-br] Ajuda p/ TCC
vc poderia implementar a parte de RH, fazer levantamentos sobre as doenças que os pacientes estao mais pegando por periodo, levantamento dos medicamentos mais usados. Em 9 de maio de 2010 23:30, ersudoski ersudo...@yahoo.com.br escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. -- Nazareno Neto #507685 Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [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] Ajuda p/ TCC
Olá Ersudoski, Essa questão de inovação realmente conta muito. Mais de 10 anos atrás, quando fiz o meu TCC do curso técnico, fui convidado para expor o meu projeto numa feira das melhores escolas técnicas aqui do RJ. O meu projeto era, tecnicamente, o melhor da feira, mas foi reconhecido como tal porque não era suficientemente inovador. Um outro projeto ridículo, mas relativamente inovador ganhou do meu projeto e foi eleito o melhor do RJ. Por isso, já que seu projeto é para um TCC, te recomendo deixar de lado qualquer coisa que se encontre facilmente no mercado. Relacionado a hospitais, penso que implementar um prontuário eletrônico seja uma ótima alternativa. Vai te agregar uma excelente experiência também. Se te interessar ler sobre o assunto: http://pt.wikipedia.org/wiki/Prontuário_eletrônico []'s Dirlei. Em Seg, 2010-05-10 às 02:30 +, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião.
Re: [delphi-br] Ajuda p/ TCC
Pensa na seguinte maneira, um software de cadastro e muito simples, procure visualizar e tentar pensar de que forma isso poderá ajudar? Que resultados irão refeletir de positivo? o que o hospital tem a ganhar com isso? tente pensar em segurança, acesso a dados a qualquer lugar do mundo. Imagino que uma boa medida tambem pensar em soluções web, nao necessariamente uma pagina mais sim como sua aplicação pode se comunicar com a internet, ainda pode-se incluir criptografia um otimo tema pra tcc, ou seja temas que podem ser utilizados junto com a aplicação. -- Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda p/ TCC
Ja pensou em uma ferramenta OLAP? talvez focando não apenas o hospital em si, mas ferramenta para prover informação processado e de valor real para campanhas preventivas Em 09/05/2010 23:30, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda Zeos 7 delphi 2010
Voce atualizou o Zeos para a ultima versão dele? []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: felipearaujolopes To: delphi-br@yahoogrupos.com.br Sent: Friday, April 30, 2010 8:51 AM Subject: [delphi-br] Ajuda Zeos 7 delphi 2010 Bom dia galera. Estou migrando meu sistema desenvolvido no delphi 2007 para o delphi 2010. Instalei todos os componentes e esbarrei no primeiro problema. Esta dando erro de sintaxe quando utilizo TZquery do delphi quando trabalho com paramentros. Esse erro acontece em qualquer operação. Ja tive pesquisando e vi algumas pessoas com o mesmo problema mas sem soluções. Alguem pode me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda delphi 2010
Uma sugestão: Como o Delphi 2010 é unicode, Caso esteja utilizando a versão 6.X.X do Zeos, Sugiro substituir pela mais recente, a 7.0 que já provê o suporte ao padrão unicode. A versão 7.0 pode ser baixada no svn do zeos em svn://zeos.firmos.at/zeos/trunk Espero ter ajudado. -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel Felipe Lopes escreveu: Galera, boa noite Estou migrando minha aplicação desenvolvida em Delphi 2007 para 2010 e já esbarrei no primeiro problema. Tenho uma tzquery(zeos) com a seguinte SQL: select * from tblusuario where login=:login and senha=:senha Jogos os parâmetros da seguite forma: with qryusuario do begin Close; ParamByName('login').AsString := edtlogin.Text; ParamByName('senha').AsString := edtsenha.Text; Open; Isso este me retornando a seguinte mensagem: First chance exception at $75D49617. Exception class EZSQLException with message 'SQL Error: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'and senha=' at line 1'. Process uniquesystems2009.exe (4424) Esse procedimento funciona perfeitamente no Delphi 2007. Alguem pode me ajudar? [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] Ajuda quanto a Form
ops... corrigindo... é fsStayOnTop... hehehe Em 26/04/2010 18:16, Roni Rodrigo escreveu: Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show? Em 26/04/2010 10:04, anckerdj escreveu: Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [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] Ajuda quanto a Form
Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo
Re: [delphi-br] Ajuda quanto a Form
Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show? Em 26/04/2010 10:04, anckerdj escreveu: Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda quanto a Form
Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. []s Leandro Em 23 de abril de 2010 15:44, anckerdj ancke...@yahoo.com.br escreveu: Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [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] ajuda sql uso do or ?
Desse jeito não funciona... todos os registros serão devolvidos (a menos da questão dos valores nulos, como já disseram aqui). Reparei que assim vc devolverá todos os registros que com SEXO diferente de F ou diferente de M. Assim, um registro que seja igual a F é diferente de M, atende à restrição where e será devolvido, situação que não é a desejada. O corretor é usar a cláusula AND, não usar OR. Se o campo puder ser nulo há de se ter um cuidado especial com esses valores também. []s Leandro Em 23 de abril de 2010 13:45, Luciano Danilo Machado lucianodan...@yahoo.com.br escreveu: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M' tem que colocar o campo para 'M' . [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda sql uso do or ?
Alessandra tente assim SELECT NOME,SEXO FROM CLIENTE WHERE SEXO NOT IN ('F','M') essa opção tbm funciona SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M' Em 22 de abril de 2010 22:23, alessandra porto alessandraport...@yahoo.com.br escreveu: Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [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] ajuda sql uso do or ?
WHERE (SEXO 'F') and (SEXO 'M') -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of alessandra porto Sent: 23 April 2010 02:24 To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br Subject: [delphi-br] ajuda sql uso do or ? Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ** Please consider the environment before printing this email. ** ***
Re: [delphi-br] ajuda sql uso do or ?
Alessandra, Tente assim: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F','M') Sucesso, Moacir Em 22/04/2010 22:23, alessandra porto escreveu: Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] ajuda sql uso do or ?
Acho que você pode utilizar o not in da sequinte forma. SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F', 'M'); []'s To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br From: alessandraport...@yahoo.com.br Date: Thu, 22 Apr 2010 18:23:32 -0700 Subject: [delphi-br] ajuda sql uso do or ? Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas] _ O seu navegador também te ajuda a ficar longe de vírus. Leia mais sobre segurança. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [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] ajuda sql uso do or ?
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M' tem que colocar o campo para 'M' Em 22/4/2010 22:23, alessandra porto escreveu: Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas] -- Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda para um sql interessante
select sum(peso) from TBPRODUTO p, TBGRUPO g where p.id_grupo = g.id_grupo /* and id_produto = 999 */ Acho que isso resolve. Se é que entendi direito, pois voce nao descreveu o peso de quais produtos quer somar, nem o relacionamento de produtos com pedidos. Abraco -- José Henrique (Zote) Analista de TI Bludata Software 2010/3/25 alessandra porto alessandraport...@yahoo.com.br tenho tabela: TBPRODUTO id_produto id_grupo produto peso TBGRUPO id_grupo grupo preciso criar um sql que toda vez que for feito um pedido seja somado o peso do produto conforme o grupo que ele pertence id_grupo 1 = GELO id_grupo 2 = SORVETE id_grupo 3 = SALADA estou usando o firebird agradeço muito aos amigos que derem uma ideia de como fazer isso __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [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] ajuda em sql
Pode ser feito o select dessa maneira: select a.id_cliente, a.cliente , ( select max(b.dta_compra) from compras b where b.id_cliente = a.id_cliente ) as dta_compra from cliente a / Dessa forma lista todos clientes e suas respectiva data de ultima compra, caso o cliente nunca tenha comprado o campo será nulo, Espero ter ajudado, Em 20 de fevereiro de 2010 07:05, alessandra porto alessandraport...@yahoo.com.br escreveu: esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- M I G U E LF R A N C OG A L E G O INFORMARK / VIRTUALAGE Analista de Sistema mig...@infomark.com.br / gale...@gmail.com Av. Paraíba, 1959, Fundos / Rua José Rodrigues Brianez, 111-A Cianorte - PR / 87.200-000 (44) 3619-4555 ramal 4727 (44) 9985-1449 celular (44) 3019-1449 residencial [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] Ajuda...Atualização de Software
Éh, a questão do IP fixo, é que aqui a coisa toda acontece dentro da rede interna. Pra Internet realmente o processo será outor. []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: Dirlei Dionísio To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 11, 2010 7:56 PM Subject: Re: [delphi-br] Ajuda...Atualização de Software Obrigado pelo retorno Walter, mais comentários abaixo. Em 10 de fevereiro de 2010 15:36, Walter Chagas (Bol) Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. O nosso caso roda dentro da rede interna. Sempre que o programa é atualizado, somos obrigados a entrar no banco de dados do servidor e trocar a versão. Tem uma tabela específica pra isto. A tabela fica no banco de dados que seu sistema irá interagir. Quando o caboclo lá executa o sistema, a primeira coisa que ele faz é ir na tabela e confrontar sua versão com a versão que tá lá. Caso haja divergencia, ele avisa pro usuario atualizar. Senão, continua executando o programa. Na telemont, temos 4 servidores cada um com um banco diferente dada a quantidade de sistemas que rodam na operacional. Todos estes bancos tem a tabela de controle de versões dos sistemas que irão interagir com estes referidos bancos. Eu acredito que suas atualizações são cumulativas, portanto não seria problema se o cliente está na 1.0 e seu projeto já no 1.5. Pelo menos aqui na Telemont a coisa é assim. As atualizações são cumulativas Então as atualizações de banco de dados são feitas manualmente, certo? No meu caso, as atualizações do banco de dados também são automáticas. Não entendi, por que IP fixo? Se voce trocar o IP do servidor, aonde estão as atualizações, toda hora, como é que se programa de update irá achar o servidor para pegar o arquivo e instalá-lo no cliente? Via DNS. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] Re: [delphi-br] Ajuda...Atualiza ção de Software
Em 10/02/2010 15:36, Walter Chagas (Bol) escreveu: Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Desenvolvi 3 programinhas para esse feito: 1 - o primeiro programa q fica no meu computador faz a compactacao do arquivo executavel e de um arquivo texto contendo as instruções sql de atualizacao do banco de dados. Ao compactar esses arquivos ele gera um numero ex: controle-23564.bck, controle e o nome do sistema envolvido e o numero seria a data de criacao do executavel; 2 - o segundo sistema fica no meu computador tambem... seria o servidor, esperando conexao dos clientes atraves de socket; 3 - o terceiro programa fica nos meus clientes, ao executa-lo atravez desse atualizador este manda para o servidor a data de criacao do executavel do cliente, o servidor recebe essas informações e procura o numero superior ao recebido, e envia ao cliente o arquivo atualizado; Ao receber esse arquivo ele descompacta o mesmo substitui o executavel antigo pelo novo em seguida abre o arquivo texto e executa as instruçoes sql de atualização do banco de dados caso o sistema do cliente for antigo e ir atualizando ate chegar a versão mais nova _._,___ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Obrigado pelo retorno Walter, mais comentários abaixo. Em 10 de fevereiro de 2010 15:36, Walter Chagas (Bol) Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. O nosso caso roda dentro da rede interna. Sempre que o programa é atualizado, somos obrigados a entrar no banco de dados do servidor e trocar a versão. Tem uma tabela específica pra isto. A tabela fica no banco de dados que seu sistema irá interagir. Quando o caboclo lá executa o sistema, a primeira coisa que ele faz é ir na tabela e confrontar sua versão com a versão que tá lá. Caso haja divergencia, ele avisa pro usuario atualizar. Senão, continua executando o programa. Na telemont, temos 4 servidores cada um com um banco diferente dada a quantidade de sistemas que rodam na operacional. Todos estes bancos tem a tabela de controle de versões dos sistemas que irão interagir com estes referidos bancos. Eu acredito que suas atualizações são cumulativas, portanto não seria problema se o cliente está na 1.0 e seu projeto já no 1.5. Pelo menos aqui na Telemont a coisa é assim. As atualizações são cumulativas Então as atualizações de banco de dados são feitas manualmente, certo? No meu caso, as atualizações do banco de dados também são automáticas. Não entendi, por que IP fixo? Se voce trocar o IP do servidor, aonde estão as atualizações, toda hora, como é que se programa de update irá achar o servidor para pegar o arquivo e instalá-lo no cliente? Via DNS. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Aqui na telemont temos um sistema de atualização automatica também. Porém com algumas diferenças: 1) Feito em VB 2) Ele nao guarda o update no banco e sim numa pasta em um servidor de arquivos. 3) Guardamos no banco o número da ultima versão que deve estar rodando nas estações. 4) Ao ser executado na estação, o sistema consulta o banco se a versão dele é a mesma que está na tabela. Caso contrario, ele chama um programinha de atualização automática para baixar o update do servidor. Quando ele chama este aplicativo, ele já se auto finaliza. Este programinha baixa o update e já o executa automaticamente. Pela WEB é possível que isto funcione também porém, o servidor aonde as atualizações vão ficar, deverá ter IP fixo.. []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: Dirlei To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 09, 2010 8:25 AM Subject: Re: [delphi-br] Ajuda...Atualização de Software Vou explicar como funciona o sistema de atualização automática que projetei e desenvolvi aqui onde trabalho. Não pretendo que criar um manual de como fazer, mas creio que dê pra explicar resumidamente como funciona e inspirar aqueles que pretendem fazer algo parecido. Há uma base MySQL na internet com os Updates de cada produto (nossos softwares). Cada Update, atualiza um conjunto de versões. Exemplo: o update ProgramaX 1.5 atualiza as versões do Programa X 1.3 e 1.4. Os updates são setups gerados com o NSIS (poderia ser outro gerador de instalações, mas escolhemos esse). Cada setupt de update leva apenas as atualizações necessárias, não a instalação inteira. Isso pode incluir o EXE do programa, DLL's, arquivos de relatório etc. Um detalhe importante é a atualização do banco de dados. Aqui trabalhamos com databases versionados. Ex: a primeira versão liberada tem o database 1.0. À cada alteração no database, incrementamos a versão (1.1, 1.2 ou 2.0 se a alteração for expressiva). Aqui criamos uma linguagem para contemplar os scripts de atualização e os upgrades de versão (XML + SQL + criptografia). Chamamos essa linguagem de DBML (Databse Maintenance Language). Um arquivo DBML contêm o script para realizar cada salto de versão. Ex: da versão 1.0 para 1.1 foi criado um índice; da versão 1.1 para 1.2 foi criada uma nova tabela e assim por diante. O setup de atualização carrega consigo um arquivo DBML (sempre que tiver acontecido uma alteração de database) com os saltos de versão (de database) contemplados pela atualização. Ex: se a atualização faz update da versão (de database) 1.0 e 1.1, o DBML conterá apenas esses saltos de versão. Agora a parte da atualização automática: Foi criado um serviço PHP que consulta a base MySql (citada no início) e informa se há atualização disponível para uma determinada versão. Nossos sistemas carregam consigo um componente que chamei de SelfUpdate (Atualização de si mesmo). Esse componente, 1 vez por dia, dispara o serviço PHP que diz se há atualização para a versão do produto em execução. Se houver atualização, o PHP devolve a URL para download e o componente faz download do setup de atualização. Isso acontece numa outra thread, então o sistema continua podendo ser operado. No fim do download, o usuário é avisado que na próxima execução, o programa será atualizado. Na próxima execução, se não houver nenhum outro usuário utilizando o programa, é executado o setup de atualização, que atualiza os arquivos do programa e o banco de dados, se necessário. É assim que fazemos. Funciona há alguns anos com cerca de 2 mil usuários. Qualquer dúvida, postem aqui que posso tentar ajudar na medida do possível. Um abraço, Dirlei. snakesjb escreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização d e Software
É interessante saber como funcionam outras soluções Walter! Fiz alguns comentários/perguntas abaixo. Walter Chagas (Bol) escreveu: Aqui na telemont temos um sistema de atualização automatica também. Porém com algumas diferenças: 1) Feito em VB 2) Ele nao guarda o update no banco e sim numa pasta em um servidor de arquivos. O meu também não. No banco fica apenas a URL para o setup de atualização (compactado com LZMA para burlar proxies que bloqueiam download de EXE) 3) Guardamos no banco o número da ultima versão que deve estar rodando nas estações 4) Ao ser executado na estação, o sistema consulta o banco se a versão dele é a mesma que está na tabela. Caso contrario, ele chama um programinha de atualização automática para baixar o update do servidor. Quando ele chama este aplicativo, ele já se auto finaliza. Este programinha baixa o update e já o executa automaticamente. Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Pela WEB é possível que isto funcione também porém, o servidor aonde as atualizações vão ficar, deverá ter IP fixo.. Não entendi, por que IP fixo? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil mailto:wchagasj%40bol.com.br
Re: [delphi-br] Ajuda...Atualização de Software
Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. O nosso caso roda dentro da rede interna. Sempre que o programa é atualizado, somos obrigados a entrar no banco de dados do servidor e trocar a versão. Tem uma tabela específica pra isto. A tabela fica no banco de dados que seu sistema irá interagir. Quando o caboclo lá executa o sistema, a primeira coisa que ele faz é ir na tabela e confrontar sua versão com a versão que tá lá. Caso haja divergencia, ele avisa pro usuario atualizar. Senão, continua executando o programa. Na telemont, temos 4 servidores cada um com um banco diferente dada a quantidade de sistemas que rodam na operacional. Todos estes bancos tem a tabela de controle de versões dos sistemas que irão interagir com estes referidos bancos. Eu acredito que suas atualizações são cumulativas, portanto não seria problema se o cliente está na 1.0 e seu projeto já no 1.5. Pelo menos aqui na Telemont a coisa é assim. As atualizações são cumulativas Não entendi, por que IP fixo? Se voce trocar o IP do servidor, aonde estão as atualizações, toda hora, como é que se programa de update irá achar o servidor para pegar o arquivo e instalá-lo no cliente? []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: Dirlei To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 10, 2010 8:32 AM Subject: Re: [delphi-br] Ajuda...Atualização de Software É interessante saber como funcionam outras soluções Walter! Fiz alguns comentários/perguntas abaixo. Walter Chagas (Bol) escreveu: Aqui na telemont temos um sistema de atualização automatica também. Porém com algumas diferenças: 1) Feito em VB 2) Ele nao guarda o update no banco e sim numa pasta em um servidor de arquivos. O meu também não. No banco fica apenas a URL para o setup de atualização (compactado com LZMA para burlar proxies que bloqueiam download de EXE) 3) Guardamos no banco o número da ultima versão que deve estar rodando nas estações 4) Ao ser executado na estação, o sistema consulta o banco se a versão dele é a mesma que está na tabela. Caso contrario, ele chama um programinha de atualização automática para baixar o update do servidor. Quando ele chama este aplicativo, ele já se auto finaliza. Este programinha baixa o update e já o executa automaticamente. Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Pela WEB é possível que isto funcione também porém, o servidor aonde as atualizações vão ficar, deverá ter IP fixo.. Não entendi, por que IP fixo? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil mailto:wchagasj%40bol.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Soft ware
Você deu uma pesquisada em: www.delphibr.com.br www.linhadecodigo.com.br www.delphi.eti.br www.devmedia.com.br ? --- Em seg, 8/2/10, Domingos domingosp...@gmail.com escreveu: De: Domingos domingosp...@gmail.com Assunto: Re: [delphi-br] Ajuda...Atualização de Software Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 8 de Fevereiro de 2010, 22:45 Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelbasso@ yahoo.com. brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazinaffo@ hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável... alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelbasso@ gmail.com Web site: www.samuelbasso. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- - - - - - - Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Eu uso ftp para baixar o executavel do sistema e para o banco eu utilizo arquivo texto mesmo com os scripts e executo na base de cada um que baixar os novos arquivos. 2010/2/8 Domingos domingosp...@gmail.com Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco? Você usa o Database Comparer do IBExpert? Em 8 de fevereiro de 2010 16:13, snakesjb robsontazina...@hotmail.com escreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização d e Software
Vou explicar como funciona o sistema de atualização automática que projetei e desenvolvi aqui onde trabalho. Não pretendo que criar um manual de como fazer, mas creio que dê pra explicar resumidamente como funciona e inspirar aqueles que pretendem fazer algo parecido. Há uma base MySQL na internet com os Updates de cada produto (nossos softwares). Cada Update, atualiza um conjunto de versões. Exemplo: o update ProgramaX 1.5 atualiza as versões do Programa X 1.3 e 1.4. Os updates são setups gerados com o NSIS (poderia ser outro gerador de instalações, mas escolhemos esse). Cada setupt de update leva apenas as atualizações necessárias, não a instalação inteira. Isso pode incluir o EXE do programa, DLL's, arquivos de relatório etc. Um detalhe importante é a atualização do banco de dados. Aqui trabalhamos com databases versionados. Ex: a primeira versão liberada tem o database 1.0. À cada alteração no database, incrementamos a versão (1.1, 1.2 ou 2.0 se a alteração for expressiva). Aqui criamos uma linguagem para contemplar os scripts de atualização e os upgrades de versão (XML + SQL + criptografia). Chamamos essa linguagem de DBML (Databse Maintenance Language). Um arquivo DBML contêm o script para realizar cada salto de versão. Ex: da versão 1.0 para 1.1 foi criado um índice; da versão 1.1 para 1.2 foi criada uma nova tabela e assim por diante. O setup de atualização carrega consigo um arquivo DBML (sempre que tiver acontecido uma alteração de database) com os saltos de versão (de database) contemplados pela atualização. Ex: se a atualização faz update da versão (de database) 1.0 e 1.1, o DBML conterá apenas esses saltos de versão. Agora a parte da atualização automática: Foi criado um serviço PHP que consulta a base MySql (citada no início) e informa se há atualização disponível para uma determinada versão. Nossos sistemas carregam consigo um componente que chamei de SelfUpdate (Atualização de si mesmo). Esse componente, 1 vez por dia, dispara o serviço PHP que diz se há atualização para a versão do produto em execução. Se houver atualização, o PHP devolve a URL para download e o componente faz download do setup de atualização. Isso acontece numa outra thread, então o sistema continua podendo ser operado. No fim do download, o usuário é avisado que na próxima execução, o programa será atualizado. Na próxima execução, se não houver nenhum outro usuário utilizando o programa, é executado o setup de atualização, que atualiza os arquivos do programa e o banco de dados, se necessário. É assim que fazemos. Funciona há alguns anos com cerca de 2 mil usuários. Qualquer dúvida, postem aqui que posso tentar ajudar na medida do possível. Um abraço, Dirlei. snakesjb escreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar???
Re: [delphi-br] Ajuda com componente .png
Douglas, No site do silvio clécio, na seção de downloads tem um componente para trabalhar com png no delphi. Eu testei no delphi 2007 e funcionou corretamente. Dá uma olhada lá que acho que vai ser útil pra vc. O link é: http://sites.google.com/site/silvioprogbs/Home Espero ter ajudado. -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel Douglas Henrique de Souza escreveu: Bom dia. Estou precisando trabalhar com algumas imagens .png, no entanto o componente que eu usava no Delphi 7 não estão funiconando no Delphi 2007. Alguém poderia me sugerir algum outro componente que leia .png? Grato, Douglas Henrique de Souza _ Você sabia que o Windows 7 inicia e desliga mais rápido? Clique e conheça mais. http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [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] Ajuda...Atualização de Software
Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazina...@hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [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] Ajuda...Atualização de Software
Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco? Você usa o Database Comparer do IBExpert? Em 8 de fevereiro de 2010 16:13, snakesjb robsontazina...@hotmail.comescreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Domingos José Martins de Souza [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] Ajuda...Atualização de Software
Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelba...@yahoo.com.brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazina...@hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda array dinamico DLL
Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Wed, 13 Jan 2010 05:50:45 -0800 Subject: [delphi-br] Ajuda array dinamico DLL Bom dia! Estou com problemas em uma função de uma dll que estou criando. A função recebe um array dinamico de um tipo de dado. De acordo com a quantidade de informação, a dll altera o tamanho e preenche o array. Na aplicação pego o array e passo para outra função preencher preencher um item de um Mainmenu. consigo acessar e usar os dados do array que a dll alterou sem erros. Mas depois, quando a aplicação já carregou, quando eu clico no item que adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro não ocorre. Por exemplo : procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL); begin if length(Lista) = 0 then exit; Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi carregada end; procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL); begin if length(Lista) = 0 then exit; Menu.caption :='Teste' //sem erro end; Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada. Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao deveria ocorrer. Função da dll que me retorna o que preciso: procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ; var Item : TMenuDLL; begin item := TMenuDLL.Create('DLL','FunçõesCliente'); item.Caption := 'DLL Funções de Clientes'; SetLength( Lista ,( length(lista)+1) ); Lista[length(lista)-1] := (item); item := TMenuDLL.Create('DLL','CadastroCliente'); item.Caption := 'Cadastro de Cliente'; SetLength(Lista,length(lista)+1 ); Lista[length(lista)-1] := (item); end; //Array type TListaMenuDLL = array of TMenuDLL; //Tipo de dado TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; uso o delphi 2007 Se aguém puder dar alguma sugestão, Obrigado! _ Deixe seu computador compatível com a sua vida. Clique para conhecer o Windows 7! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings??? Variáveis do tipo String realmente dão problemas em DLLs... -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado! vou tentar isso. From: Willian Jhonnes L. dos Santos willianjhon...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Deu certinho com WideStrings! Muito obrigado! From: Evaldo evaldoave...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:50:17 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado! vou tentar isso. _ _ __ From: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br To: delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [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] Ajuda array dinamico DLL
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Muito obrigado pela sugestão! Vai ser de grande valia. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:56:15 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi...@yahoogrup os.com.br From: evaldoavelar@ yahoo.com. br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. _ _ __ From: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com To: delphi-br delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ _ _ _ _ _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowsl ive.com.br/ public/product. aspx/view/ 5?ocid=CRM- WindowsLive: produtoSkyDrive: Tagline:WLCRM: On:WL:pt- BR:SkyDrive [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] Ajuda abrir formulario com duplo click no DbGrib.
Ola senhor Voce perdeu um 'e' in fieldbynamwe dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname(codigo).asstring',[lopartialkey]); Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of dssmoura Sent: 19 December 2009 11:44 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda abrir formulario com duplo click no DbGrib. Bom dia senhores. Tenho um formulario(localizar pacientes) de busca onde e chamado dentro de um outro formulario (pacientes)(estou usando bd access, adodataset para conexão no banco), no formulario de busca coloquei um edit, um sppedbutton e um dbgrid, coloquei no código do botão : procedure TFrmLocPaciente.Button1Click(Sender: TObject); begin Qlocpaciente.Close; QlocPaciente.Parameters.ParamValues['pac']:=edtconsulta.Text + '%'; QlocPaciente.Open; end; no evento onDbClick do dbgrid: procedure TFrmLocPaciente.DBGrid1DblClick(Sender: TObject); begin dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname(codigo).asstring',[lopartialkey]); end; quando da o duplo click esta dando o seguinte erro: Project Sistema.exe raised exception class EoleException with message 'Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflitos'.Process stopped. Use Step or run to continue. Ai eu pergunto o que estou fazendo de errado, ou e outro codigo que tenho que usar? Desde já Agredeço a atenção de voces, obrigado e até mais -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ** Please consider the environment before printing this email. ** ***
RE: [delphi-br] Ajuda abrir formulario com duplo click no DbGrib.
Eu tambem fiz um erro de digitacao. Eu queria dizer fieldbyname! -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen Sent: 21 December 2009 08:27 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Ajuda abrir formulario com duplo click no DbGrib. Ola senhor Voce perdeu um 'e' in fieldbynamwe dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname(codigo).asstring',[lopartialkey]); Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of dssmoura Sent: 19 December 2009 11:44 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda abrir formulario com duplo click no DbGrib. Bom dia senhores. Tenho um formulario(localizar pacientes) de busca onde e chamado dentro de um outro formulario (pacientes)(estou usando bd access, adodataset para conexão no banco), no formulario de busca coloquei um edit, um sppedbutton e um dbgrid, coloquei no código do botão : procedure TFrmLocPaciente.Button1Click(Sender: TObject); begin Qlocpaciente.Close; QlocPaciente.Parameters.ParamValues['pac']:=edtconsulta.Text + '%'; QlocPaciente.Open; end; no evento onDbClick do dbgrid: procedure TFrmLocPaciente.DBGrid1DblClick(Sender: TObject); begin dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname(codigo).asstring',[lopartialkey]); end; quando da o duplo click esta dando o seguinte erro: Project Sistema.exe raised exception class EoleException with message 'Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflitos'.Process stopped. Use Step or run to continue. Ai eu pergunto o que estou fazendo de errado, ou e outro codigo que tenho que usar? Desde já Agredeço a atenção de voces, obrigado e até mais -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ** Please consider the environment before printing this email. ** *** -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ** Please consider the environment before printing this email. ** ***
Re: [delphi-br] Ajuda abrir formulario com duplo click no DbGrib.
faça assim: dados.AdPacientes.Locate('Codigo', AdLocPaciente.fildbyname('codigo').asstring,[]); Ps: Caso esse campo seja inteiro, use asinteger;
Re: [delphi-br] ajuda sobre mensagens de erro
eu tentei a mensagem de que eu naum consegui conectar n banco ainda aparece mesmo eu usando um try except 2009/12/4 Berdam berdamzi...@yahoo.com.br tenta testar fora do delphi o programa, pq existem diferenças entre o debug e a execução real -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 -- De: Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 4 de Dezembro de 2009 17:47:35 Assunto: Re: [delphi-br] ajuda sobre mensagens de erro eu to tentando desse jeito: try Conectar('sds', ConSDSII, '2A38FF24194EB3A044'); except on e: Exception do if e.Message '[DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado' then begin Exit; end; end; e naum da certo porque a mensagem de erro ainda ta aparecendo e eu quero que naum apareça 2009/12/4 Ricardo César Cardoso ricardo_engs...@yahoo.com.brricardo_engsoft%40yahoo.com.br Vc vai ter tratar essa excessão pelo tipo. try ... except on tipo de excessão do ... end; Exemplos de código em : * http://www.planetadelphi.com.br/artigo/124/tratamento-de-exce ções---parte-1/ * http://www.delphibasics.co.uk/RTL.asp?Name=Try Abraços, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sex, 4/12/09, Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com portaldoinferno%40gmail.com escreveu: De: Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com portaldoinferno%40gmail.com Assunto: Re: [delphi-br] ajuda sobre mensagens de erro Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Data: Sexta-feira, 4 de Dezembro de 2009, 13:59 sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum fique aparecendo quando da o erro 2009/12/4 Walter Chagas (Bol) wchag...@bol.com.brwchagasj%40bol.com.br wchagasj%40bol.com.br Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br wchagasj%40bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.comwhitesockets% 40hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Veja quais são os assuntos do momento no Yahoo! +Buscados http
Re: [delphi-br] ajuda sobre mensagens de erro
Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []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: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [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] ajuda sobre mensagens de erro
sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum fique aparecendo quando da o erro 2009/12/4 Walter Chagas (Bol) wchag...@bol.com.br Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []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: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [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] ajuda sobre mensagens de erro
Vc vai ter tratar essa excessão pelo tipo. try ... except on tipo de excessão do ... end; Exemplos de código em : * http://www.planetadelphi.com.br/artigo/124/tratamento-de-exceções---parte-1/ * http://www.delphibasics.co.uk/RTL.asp?Name=Try Abraços, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sex, 4/12/09, Leonardo Baldino portaldoinfe...@gmail.com escreveu: De: Leonardo Baldino portaldoinfe...@gmail.com Assunto: Re: [delphi-br] ajuda sobre mensagens de erro Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 4 de Dezembro de 2009, 13:59 sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum fique aparecendo quando da o erro 2009/12/4 Walter Chagas (Bol) wchag...@bol.com.br Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []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: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] ajuda sobre mensagens de erro
Ponha a chamada a conexão do banco dentro de um Try.. Except end []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: Leonardo Baldino portaldoinfe...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Friday, December 04, 2009 1:59 PM Subject: Re: [delphi-br] ajuda sobre mensagens de erro sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum fique aparecendo quando da o erro 2009/12/4 Walter Chagas (Bol) wchag...@bol.com.br Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []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: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- 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] ajuda sobre mensagens de erro
Boa tarde Pessoal estou com o seguinte porem Estou usando os params de um query pra passar os dados. Um deles é uma string que é gravado um path ex:c:\temp\ Li em alguns lugares q era necessário colocar dois \\ pra ele funcionar. Mas está dando acess violation Alguém saberia me informar o que devo fazer?? Atenciosamente Juliomar Marchetti -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Walter Chagas (Bol) Sent: sexta-feira, 4 de dezembro de 2009 16:02 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ajuda sobre mensagens de erro Ponha a chamada a conexão do banco dentro de um Try.. Except end []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: Leonardo Baldino portaldoinfe...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Friday, December 04, 2009 1:59 PM Subject: Re: [delphi-br] ajuda sobre mensagens de erro sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum fique aparecendo quando da o erro 2009/12/4 Walter Chagas (Bol) wchag...@bol.com.br Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []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: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Information from ESET NOD32 Antivirus, version of virus signature database 4661 (20091204) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
Re: [delphi-br] ajuda sobre mensagens de erro
eu to tentando desse jeito: try Conectar('sds', ConSDSII, '2A38FF24194EB3A044'); except on e: Exception do if e.Message '[DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado' then begin Exit; end; end; e naum da certo porque a mensagem de erro ainda ta aparecendo e eu quero que naum apareça 2009/12/4 Ricardo César Cardoso ricardo_engs...@yahoo.com.br Vc vai ter tratar essa excessão pelo tipo. try ... except on tipo de excessão do ... end; Exemplos de código em : * http://www.planetadelphi.com.br/artigo/124/tratamento-de-exce ções---parte-1/ * http://www.delphibasics.co.uk/RTL.asp?Name=Try Abraços, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sex, 4/12/09, Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com escreveu: De: Leonardo Baldino portaldoinfe...@gmail.comportaldoinferno%40gmail.com Assunto: Re: [delphi-br] ajuda sobre mensagens de erro Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 4 de Dezembro de 2009, 13:59 sei porque o erro acontece, o que eu quero é fazer com que a mensagem naum fique aparecendo quando da o erro 2009/12/4 Walter Chagas (Bol) wchag...@bol.com.brwchagasj%40bol.com.br Este erro ocorre porque seu sistema não está conseguindo se conectar ao banco. Se ele roda em rede, tente pingar o IP do servidor de BD pra ver se responde. Verifique se a maquina aonde o banco está instalado está com Firewall ativado ou se ela é enxergada na rede. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Leonardo Baldino To: Grupo_Delphi Sent: Friday, December 04, 2009 9:36 AM Subject: [delphi-br] ajuda sobre mensagens de erro eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com -- Leonardo Carlos Baldino - The Highlander [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] ajuda sobre mensagens de erro
só que o que eu to tentando fazer é naum deixar aparecer a mensagem e naum fechar o programa 2009/12/4 Diego Garcia drgarcia1...@gmail.com Quando ele cair no Exception, da uma msg e fecha o programa usando Application.Terminate *Diego Garcia* Twitter: http://www.twitter.com/drgarcia1986 Blog:http://www.atocadopanda.com 2009/12/4 Leonardo Baldino portaldoinfe...@gmail.com eu estou fazendo um programa que faz uma conexao com um banco de dados do sql server e quando naum tem conexao aparece a seguinte mensagem: [DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado eu to usando o try except mas a mensagem ainda aparece quando eu rodo o exe, alguem sabe como eu posso fazer para naum deixar aparecer a mensagem de que naum conseguiu conectar com o banco de dados -- Leonardo Carlos Baldino - The Highlander [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 -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda
Uma alternativa é uniformizar os bancos de dados dos seus clientes e passar a versioná-los. À cada alteração, você gera um script de atualização que faz as alterações necessárias e incrementa a versão do banco. Seu programa pode ler esse script e executá-lo na inicialização. [ ]'s Dirlei. 2009/11/25 Felipe Lopes felipearaujolo...@yahoo.com.br Galera, boa noite Estou desenvolvendo um software, e já estou com ele instalado em 3 clientes. Estou tendo uma dificuldade quando faço alterações no banco de dados(crio tabelas, altero tabelas, índices e etc...) A minha dificuldade é na hora de atualizar nos clientes, onde perco muito tempo descobrindo as atualizações que tenho que fazer. Eu já vi um programa que acerta o banco de dados por completo, só não tenho a idéia de como fazer. Alguém pode me ajudar? [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] Ajuda
o problema com o banco, se vc usar firebird/interbase, vc pode usar o componente DataBase Comparer da Clever Components, é free para uso nao comercial. com ele vc pode comparar 2 base de dados e ele ira gerar o script de atualização. Muito bom mesmo esse programinha, uso ele aqui na empresa ond trabalho, assim nao tenho preocupação de qual script passar em qual banco. mas veja ai, pois pra min pode ser bom, nun sei pra vc. Felicidades 2009/11/25 Dirlei Dionísio dir...@gmail.com Uma alternativa é uniformizar os bancos de dados dos seus clientes e passar a versioná-los. À cada alteração, você gera um script de atualização que faz as alterações necessárias e incrementa a versão do banco. Seu programa pode ler esse script e executá-lo na inicialização. [ ]'s Dirlei. 2009/11/25 Felipe Lopes felipearaujolo...@yahoo.com.br Galera, boa noite Estou desenvolvendo um software, e já estou com ele instalado em 3 clientes. Estou tendo uma dificuldade quando faço alterações no banco de dados(crio tabelas, altero tabelas, índices e etc...) A minha dificuldade é na hora de atualizar nos clientes, onde perco muito tempo descobrindo as atualizações que tenho que fazer. Eu já vi um programa que acerta o banco de dados por completo, só não tenho a idéia de como fazer. Alguém pode me ajudar? [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 -- Nazareno Neto Programador Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@hotmail.com nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda com Query Firebird
tenta dessa forma: select extract(year from vencimento) as Ano, extract(month from vencimento) as Mes, sum(valor) as valorfrom pagargroup by 1,2 Dessa forma listará agrupado por ano, mes a soma dos valores Caso queira filtra um ano ou mes especifico ae sim voce utilizaria o where conforme for conveniente Washington Tavares To: delphi-br@yahoogrupos.com.br From: crmdesenvolvimen...@gmail.com Date: Fri, 20 Nov 2009 12:30:50 + Subject: [delphi-br] Ajuda com Query Firebird Bom dia pessoal quero ver se tem como fazer via sql? preciso demonstar a soma mensal de contas a pagar mes a mes: select sum(valor) from pagar where extract(month from vencimento) = mes and extract(year from vencimento) = ano blz funciona tranquilamente porem so apresenta o mes e ano informado, mas como fazer pela query apresentar todos os meses do ano tipo: janeiro = $ fevereiro = $ março = $ etc... Então consigo via query, ou tenho que pegar mes a mes e ir montando? _ Agora a pressa é amiga da perfeição. Chegou o Windows 7. Conheça! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [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] Ajuda com Query Firebird
O amigo Washington Tavares muito obrigado realmente deu certo e que burrisse minha tinha me dado branco, já conhecia essa sql ja tinha feito uma parecida e nao me lembrava. Valeuw mesmo. 2009/11/20 Washington Tavares tawar...@hotmail.com tenta dessa forma: select extract(year from vencimento) as Ano, extract(month from vencimento) as Mes, sum(valor) as valorfrom pagargroup by 1,2 Dessa forma listará agrupado por ano, mes a soma dos valores Caso queira filtra um ano ou mes especifico ae sim voce utilizaria o where conforme for conveniente Washington Tavares To: delphi-br@yahoogrupos.com.br From: crmdesenvolvimen...@gmail.com Date: Fri, 20 Nov 2009 12:30:50 + Subject: [delphi-br] Ajuda com Query Firebird Bom dia pessoal quero ver se tem como fazer via sql? preciso demonstar a soma mensal de contas a pagar mes a mes: select sum(valor) from pagar where extract(month from vencimento) = mes and extract(year from vencimento) = ano blz funciona tranquilamente porem so apresenta o mes e ano informado, mas como fazer pela query apresentar todos os meses do ano tipo: janeiro = $ fevereiro = $ março = $ etc... Então consigo via query, ou tenho que pegar mes a mes e ir montando? _ Agora a pressa é amiga da perfeição. Chegou o Windows 7. Conheça! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [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] Ajuda com Microsoft Sql Server 6.5
Marcos, Primeiramente, este tipo de post aqui é proibido por se tratar de pirataria que é proibida pelas regras da lista. Depois, sobre a questão do SQL Server, não vejo tamanha necessidade de voce ter que usar o 6.5. Ainda que seja um sistema antigo, ele rodaria tranquilamente em uma versão mais nova que aceita a conversão do 6.5 tranquilamente ao contrario do que voce diz. O 6.5 é um SQL Server antigo e muito cheio de problemas. Problemas estes que boa parte foram melhorados na 7 e, posteriormente na 2000. O inverso é que é impossível. Mas abrir um database 6.5, voce o abre até no 2008. Não sei quantos usuarios compartilham este sistema lá, mas voce pode optar por usar o MSDE ou mesmo o Express, que são versões gratúitas e que a base de dados abre neles com os dados lá intactos. Eu te falo isto porque, de todos os bancos de dados que já trabalhei e trabalho atualmente Firebird, MySQL, SQL Server, Postgree, o SQL Server é o banco que mais trabalhei. Trabalhei com todas as versões. A nova versão Express 2008, fica devendo muito pouco mesmo a versão paga. Tem quase todos os recursos. Tem a limitação do tamanho do banco porém, conforme o volume de dados que trafegar neste sistema e a quantidade de usuários que o acessarão, de repente a Express 2005 ou a 2008 lhe atenderá perfeitamente []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: Infomarkin To: delphi-br@yahoogrupos.com.br Sent: Wednesday, November 18, 2009 7:17 PM Subject: [delphi-br] Ajuda com Microsoft Sql Server 6.5 Boa noite! Venho pedir ajuda aos amigos do grupo. Tenho um programa antigo, cujo banco de dados foi feito em SQL Server 6.5. Tenho o cd original de meu cliente mas o mesmo está com problemas e não pode ser lido. Já pedi ajuda pelo site da Microsoft, mas o mesmo diz não dar mais suporte a este produto, não tendo como me mandar outra cópia. Pediria a quem pudesse, me enviar uma cópia ou algum link onde eu pudesse baixar o mesmo, pois só tenho o backup do banco de dados e não tenho como abrir no SQL Server 2000, pois preciso do 6.5 para fazer a conversão. Já estou há mais de uma semana buscando uma solução e não encontro absolutamente NADA. Já tentei torrent, p2p e nada, o único site que consegui achar foi o www.vetusware.com, mas ele limita o download, o que impossibilita de baixar. Desde já agradeço muito a ajuda de todos! Um grande abraço, Marcos Paulo [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda - Dhelphi e MySql
Junio, Pode ser que o local onde esteja instalado o MySQL não permita acesso externo. Ai você teria que verificar junto ao administrador do banco de dados/servidor. Att, Marcos A. Ferreira São Paulo - Brasil MSN: maferre...@hotmail.it Google Talk: maf.decisiva Skype: m_abreuferreira Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o email e em seguida, apague-o. Agradecemos sua cooperação. This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose or take any action based on this message or any information herein. If you have received this message in error, please, advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation. Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE. ENVIRONMENT commitment and responsibility, think about Before Printing. _ From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Junio Domingues Sent: terça-feira, 10 de novembro de 2009 09:24 To: Grupo Delphi-Br Subject: [delphi-br] Ajuda - Dhelphi e MySql Pessoal Estou querendo desenvolver um aplicativo que gere relatórios usando dados que estão em um bd Mysql que está na internet, mas quando insiro as informações e testo, ele acusa que a senha ou usuário estão incorreta. Porque isto acontece e como resolver isto? Atenciosamente, Junio A. Domingues Santos (31)9163-7173 (31)3368-1193 [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] Ajuda Gravar Imagens
José, assim como você carrego a imagem em um TImage. Em seguida eu faço o seguinte: BS := TBlobStream.Create((TABELA.fieldByName('imagem') as TBlobField), BMWRITE); IMG := TBitMap.Create; IMG.LoadFromFile('caminhoDaImagem'); IMG.SaveToStream(BS); Sendo BS um TBlobStream, IMG um TBitMap e o campo imagem da minha tabela do tipo Blob. Espero ter ajudado, abraço, Júlio César Santiago Guiótti 2009/11/9 Jose Newton Araujo jose.new...@jnewton.com.br Moçada, aqui estou precisando de uma força (de novo) Tenho uma rotina que permite ao cabra escolher uma determinada imagem. O sistema carrega a imagem através de OpenDialog num Image. Agora preciso gravar esta imagem alterando o nome do arquivo. Estou tentando via SaveDialog e não estou tendo sucesso. Quem pode me dar uma força ? Obrigado, SDS, Jose Newton [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] Ajuda Gravar Imagens
Você pode usar a função abaixo: RenameFile(pathInicial, pathFinal); ---Original Message--- From: Júlio César Santiago Guiótti Date: 10/11/2009 18:04:07 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Ajuda Gravar Imagens José, assim como você carrego a imagem em um TImage. Em seguida eu faço o seguinte: BS := TBlobStream.Create((TABELA.fieldByName('imagem') as TBlobField), BMWRITE); IMG := TBitMap.Create; IMG.LoadFromFile('caminhoDaImagem'); IMG.SaveToStream(BS); Sendo BS um TBlobStream, IMG um TBitMap e o campo imagem da minha tabela do tipo Blob. Espero ter ajudado, abraço, Júlio César Santiago Guiótti 2009/11/9 Jose Newton Araujo jose.new...@jnewton.com.br Moçada, aqui estou precisando de uma força (de novo) Tenho uma rotina que permite ao cabra escolher uma determinada imagem. O sistema carrega a imagem através de OpenDialog num Image. Agora preciso gravar esta imagem alterando o nome do arquivo. Estou tentando via SaveDialog e não estou tendo sucesso. Quem pode me dar uma força ? Obrigado, SDS, Jose Newton [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] Ajuda - Importar TXT p/DB com delimitador
Caro Jose Nao posso explicar muito bem em Portugues, mas criei um exemplo que pode ajuda-lo: procedure TForm1.Button1Click(Sender: TObject); var s, st1,st2: string; oint: integer; f: textfile; begin AssignFile(f, 'CaminhoENomeDoTextoArquivo'); Reset(F); while not Eof(f) do ReadLn(f,s); s:= StringReplace(s,#34,'',[rfReplaceAll]); st1:= copy(s,1,pos(',',s)-1); ?? separador e uma virgula delete(s,1,pos(',',s)); oint:= strtoint(copy(s,1,pos(',',s)-1)); delete(s,1,pos(',',s)); st2:= s; // Aqui gravar os dados para o banco, por exemplo: // INSERT INTO Table(Col1,Col2,Col3) VALUES(:val1,:val2,:val3) // Parameters.ParamByName(;val1).Value:= st1; // Parameters.ParamByName(;val1).Value:= oint; // Parameters.ParamByName(;val1).Value:= st2; // ExecSQL; CloseFile(F); end; Atenciosamente Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Ferreira Sent: 04 November 2009 14:05 To: delphi-br@yahoogrupos.com.br Subject:[delphi-br] Ajuda - Importar TXT p/DB com delimitador Caros Colegas do Grupo. Preciso de uma ajuda na importação de dados de um arquivo TXT que tem delimitadores de texto, p/que eu possa gerar uma tabela temporária. Se o texto estivesse em um local determinado era beleza, mas está com delimitadores. Segue a baixo uma linha do arquivo para Vcs terem uma idéia. Obs.: Os dados do tipo varchar estão entre aspas duplas e numérico não, e estão separados por virgula. Grupo 90;1331;90.00 Grato, José Ferreira *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ** Please consider the environment before printing this email. ** ***
Re: [delphi-br] Ajuda
Oi Felipe, pelo que vi você está precisando atualizar os seus datasets, há outras maneiras de você fazer isso. Mas no caso de fechar o data module não funciona porque você não está atribuindo a instância criada a nenhuma variável. Você tem que fazer: exemplo := Tdmexemplo.Create(Self); E para destruir: FreeAndNil(exemplo); ou exemplo.Free; Abraço, Júlio César Santiago Guiótti 2009/10/27 Felipe Lopes felipearaujolo...@yahoo.com.br Galera, boa tarde Estou com uma dificuldade, quando chamo um form, eu crio um datamodulo(Tdmexemplo.Create(Self);). E quando fecho o meu formulário, eu faço o seguinte comando: FreeAndNil(exemplo); Eu reparei, que não esta fechando porque quando eu abro novamente esse form, os dados nos datasets estão desatualizados. Eles so atualizam quando eu termino o programa e abro novamente. Alguém pode me ajudar? [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] Ajuda
Eu tenho na minha casa um projeto que te da a linha do erro no sua unit.pas se voce tiver paciencia e esperar até segunda eu te passo. Joao Roberto Programador Delphi - Original Message - From: felipearaujolopes To: delphi-br@yahoogrupos.com.br Sent: Friday, October 02, 2009 3:27 PM Subject: [delphi-br] Ajuda Galera boa tarde Coloquei no meu projeto a seguinte estrutura para que possa guardar o erro ocorrido em um banco de dados. with qrygravaerro do begin ParamByName('iderrosistema').AsInteger := codigo; ParamByName('idlocalerrosistema').AsInteger := StrToInt(DmPrincipal.local); ParamByName('datahora').AsDateTime := Now; ParamByName('idusuario').AsInteger := DmPrincipal.qryusuarioidusuario.AsInteger; ParamByName('idlocalusuario').AsInteger := DmPrincipal.qryusuarioidlocal.AsInteger; ParamByName('formulario').AsString := Screen.ActiveForm.Name; ParamByName('controle').AsString := Screen.ActiveControl.Name; ParamByName('erro').AsString := e.Message; ExecSQL; end; Nisso consigo o nome do formulario e componente no qual ocorreu o erro. Alguem sabe como conseguir em qual linha do codigo o erro aconteceu? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda na instala��o do componente DTools
Aparentemente ele foi desenvolvido para o delphi 2.0 mais eu estou com os fontes de um projeto para manutenção que usa esse componente e não lembro como faz para instala-lo, pois sempre pede o caminnho dos arquivos .PAS e só tem os .DCU no projeto. Se vc quer instalar/usar em outro Delphi que não seja o 2, vc precisa dos fontes. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br
Re: [delphi-br] Ajuda(Registro 50 SINTEGRA)
se vc usa a dll da tks, reveja seu algoritmo pois, vc tem q gerar um registro 50 para cada cfop ou al[iquota de icms diferente, Se a nota tiver 2 produtos com icms ou cfop diferente, vc tem q gerar para cada produto um registro do tipo 50. Leia bem o manual, eu tbm pensei que era problema na dll, mas nela náo existe nada de problema. o problema es[tan oseu fonte. Valeu suelio Santos escreveu: Boa tarde galera, To com o seguinte problema e queria ver se alguém poderia me ajudar. To gerando o arquivo SINTEGRA e diz que não foi encontrado o registro correspondente, sei que o problema é que existe produtos com CFOP 5403 e no registro 50 correspondente não tem esse arquivo. Milha pergunta é, como faço para gerar esse arquivo que falta Alguém poderia me dar uma luz ai. Suélio Santos Focus Automação __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
Re: [delphi-br] Ajuda com SQL
Não entendi a necessidade de criar inclusive campo descrição do produto nas duas tabelas, afinal você pode pegar os dados da tabela pai utilizando os JOINS. Recomendo dar uma pesquisada sobre normatização de banco de dados. Sobre o seu problema, dá para resolver de diversas maneiras, uma maneira mais usada é através de trigger e você pode encontrar várias informações no site ou lista de discussão da firebase (www.firebase.com.br). Obrigado, Fabiano 2009/9/8 joao_jma joao_...@itelefonica.com.br mesmo erro Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 3, char 1. FROM. cara, eu acabei resolvendo de outra maneira... agradeço! Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a descrição do CADPRODUTOS: qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO, c.fornecedor'); qDados.SQL.Add(' from itensorc i'); qDados.SQL.Add(' inner join cadprodutos c on (i.produto = c.codloja)'); qDados.SQL.Add(' group by i.produto, c.descricao, c.fornecedor'); qDados.SQL.Add(' order by i.produto'); Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a descrição atual do CADPRODUTOS. Depois criei uma rotina para gerar um SCRIPT de atualização: qDados.First; While Not qDados.Eof Do Begin UPDATE ITENSORC SET DESCPRODUTO = qDadosDESCPRODUTO.Value FORNECEDOR = qDadosFORNECEDOR.AsString WHERE (PRODUTO = qDadosPRODUTO.Value) qDados.Next; End; Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde de registros na tabela ITENSORC. Valew pela força!!! João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:29 PM Subject: Re: [delphi-br] Ajuda com SQL UPDATE ITENSORC SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO FROM CADPRODUTOS WHERE CADPRODUTOS.codloja =itensorc.produto GO Cara, tenta assim, sem os Alias que eu tinha colocado aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to mandando agora funcionou UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO from itensorc INNER JOIN cadprodutos on (cadprodutos.codloja = itensorc.produto) - Original Message - From: joao_jma To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 9:30 AM Subject: Re: [delphi-br] Ajuda com SQL isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] [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] Ajuda com SQL
Expressão errada: Não é normatização é normalização. Rsrsrsrs, na correria escrevi errado, rsrsrs Fabiano 2009/9/8 Fabiano Moura mctbra...@gmail.com Não entendi a necessidade de criar inclusive campo descrição do produto nas duas tabelas, afinal você pode pegar os dados da tabela pai utilizando os JOINS. Recomendo dar uma pesquisada sobre normatização de banco de dados. Sobre o seu problema, dá para resolver de diversas maneiras, uma maneira mais usada é através de trigger e você pode encontrar várias informações no site ou lista de discussão da firebase (www.firebase.com.br). Obrigado, Fabiano 2009/9/8 joao_jma joao_...@itelefonica.com.br mesmo erro Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 3, char 1. FROM. cara, eu acabei resolvendo de outra maneira... agradeço! Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a descrição do CADPRODUTOS: qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO, c.fornecedor'); qDados.SQL.Add(' from itensorc i'); qDados.SQL.Add(' inner join cadprodutos c on (i.produto = c.codloja)'); qDados.SQL.Add(' group by i.produto, c.descricao, c.fornecedor'); qDados.SQL.Add(' order by i.produto'); Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a descrição atual do CADPRODUTOS. Depois criei uma rotina para gerar um SCRIPT de atualização: qDados.First; While Not qDados.Eof Do Begin UPDATE ITENSORC SET DESCPRODUTO = qDadosDESCPRODUTO.Value FORNECEDOR = qDadosFORNECEDOR.AsString WHERE (PRODUTO = qDadosPRODUTO.Value) qDados.Next; End; Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde de registros na tabela ITENSORC. Valew pela força!!! João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:29 PM Subject: Re: [delphi-br] Ajuda com SQL UPDATE ITENSORC SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO FROM CADPRODUTOS WHERE CADPRODUTOS.codloja =itensorc.produto GO Cara, tenta assim, sem os Alias que eu tinha colocado aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to mandando agora funcionou UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO from itensorc INNER JOIN cadprodutos on (cadprodutos.codloja = itensorc.produto) - Original Message - From: joao_jma To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 9:30 AM Subject: Re: [delphi-br] Ajuda com SQL isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] [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] Ajuda com SQL
Ae Fabiano, muito obrigado pela informação... Pode crer que conheço o uso de JOIN's ... Estou utilizando DESCRICAO na tabela por extrema necessidade... já resolvi meu problema como descrevi no outro email abaixo! EXCEÇÕES da empresa me levaram a isso... GRATO! João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 - Original Message - From: Fabiano Moura To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 7:31 PM Subject: Re: [delphi-br] Ajuda com SQL Expressão errada: Não é normatização é normalização. Rsrsrsrs, na correria escrevi errado, rsrsrs Fabiano 2009/9/8 Fabiano Moura mctbra...@gmail.com Não entendi a necessidade de criar inclusive campo descrição do produto nas duas tabelas, afinal você pode pegar os dados da tabela pai utilizando os JOINS. Recomendo dar uma pesquisada sobre normatização de banco de dados. Sobre o seu problema, dá para resolver de diversas maneiras, uma maneira mais usada é através de trigger e você pode encontrar várias informações no site ou lista de discussão da firebase (www.firebase.com.br). Obrigado, Fabiano 2009/9/8 joao_jma joao_...@itelefonica.com.br mesmo erro Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 3, char 1. FROM. cara, eu acabei resolvendo de outra maneira... agradeço! Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a descrição do CADPRODUTOS: qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO, c.fornecedor'); qDados.SQL.Add(' from itensorc i'); qDados.SQL.Add(' inner join cadprodutos c on (i.produto = c.codloja)'); qDados.SQL.Add(' group by i.produto, c.descricao, c.fornecedor'); qDados.SQL.Add(' order by i.produto'); Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a descrição atual do CADPRODUTOS. Depois criei uma rotina para gerar um SCRIPT de atualização: qDados.First; While Not qDados.Eof Do Begin UPDATE ITENSORC SET DESCPRODUTO = qDadosDESCPRODUTO.Value FORNECEDOR = qDadosFORNECEDOR.AsString WHERE (PRODUTO = qDadosPRODUTO.Value) qDados.Next; End; Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde de registros na tabela ITENSORC. Valew pela força!!! João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:29 PM Subject: Re: [delphi-br] Ajuda com SQL UPDATE ITENSORC SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO FROM CADPRODUTOS WHERE CADPRODUTOS.codloja =itensorc.produto GO Cara, tenta assim, sem os Alias que eu tinha colocado aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to mandando agora funcionou UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO from itensorc INNER JOIN cadprodutos on (cadprodutos.codloja = itensorc.produto) - Original Message - From: joao_jma To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 9:30 AM Subject: Re: [delphi-br] Ajuda com SQL isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR
Re: [delphi-br] Ajuda com SQL
isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] Ajuda com SQL
João, porque vc tem que gravar a descricao dos itens na tabela ITENSORC? 2009/9/8 joao_jma joao_...@itelefonica.com.br isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com SQL
UPDATE ITENSORC SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO FROM CADPRODUTOS WHERE CADPRODUTOS.codloja =itensorc.produto GO Cara, tenta assim, sem os Alias que eu tinha colocado aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to mandando agora funcionou UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO from itensorc INNER JOIN cadprodutos on (cadprodutos.codloja = itensorc.produto) - Original Message - From: joao_jma To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 9:30 AM Subject: Re: [delphi-br] Ajuda com SQL isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com SQL
mesmo erro Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 3, char 1. FROM. cara, eu acabei resolvendo de outra maneira... agradeço! Criei uma consulta SQL agrupando os produtos do ITENSORC e trazendo a descrição do CADPRODUTOS: qDados.SQL.Add('select i.produto, c.descricao as DESCPRODUTO, c.fornecedor'); qDados.SQL.Add(' from itensorc i'); qDados.SQL.Add(' inner join cadprodutos c on (i.produto = c.codloja)'); qDados.SQL.Add(' group by i.produto, c.descricao, c.fornecedor'); qDados.SQL.Add(' order by i.produto'); Resultado: Todos os itens da tabela ITENSORC agrupados e contendo a descrição atual do CADPRODUTOS. Depois criei uma rotina para gerar um SCRIPT de atualização: qDados.First; While Not qDados.Eof Do Begin UPDATE ITENSORC SET DESCPRODUTO = qDadosDESCPRODUTO.Value FORNECEDOR = qDadosFORNECEDOR.AsString WHERE (PRODUTO = qDadosPRODUTO.Value) qDados.Next; End; Vou rodar 1 vez por semana, demora uns 10 minutos, tudo depende da qtde de registros na tabela ITENSORC. Valew pela força!!! João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 1:29 PM Subject: Re: [delphi-br] Ajuda com SQL UPDATE ITENSORC SET ITENSORC.DESCPRODUTO =CADPRODUTOS.DESCRICAO FROM CADPRODUTOS WHERE CADPRODUTOS.codloja =itensorc.produto GO Cara, tenta assim, sem os Alias que eu tinha colocado aqui no sqlserver com o Alias não funcionou, mas assim do jeito que to mandando agora funcionou UPDATE ITENSORC SET ITENSORC.DESCPRODUTO = CADPRODUTOS.DESCRICAO from itensorc INNER JOIN cadprodutos on (cadprodutos.codloja = itensorc.produto) - Original Message - From: joao_jma To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 08, 2009 9:30 AM Subject: Re: [delphi-br] Ajuda com SQL isso não deu certo... alguem pode me ajudar? João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Guilherme Ventura de Souza To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:42 PM Subject: Re: [delphi-br] Ajuda com SQL Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] [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] Ajuda.....excel delphi
Ola Rodrigo Quais sao as condicoes, e que voce quer que aconteca quando a condicao for satisfeita? Abaixo ha um exemplo em que as celulas se tornam verde se o valor numa delas fique entre 2 e 5 procedure TForm1.Button1Click(Sender: TObject); var op,f1,f2:oleVariant; begin op:= xlBetween; f1:= 2; f2:=5; WS1.Range(qualquer intervalo de cells).FormatConditions.Add(xlCellValue,op,f1,f2); WS1.Range(qualquer intervalo de cells).FormatConditions[0].Interior.ColorIndex:= clGreen; end; Este hiper pode fornecer alguma ajuda se voce leia ingles - infelizmente nao esta disponivel em Portugues: http://msdn.microsoft.com/pt-br/library/aa174221(en-us,office.11).aspx Espero que isso faca sentido. Me desculpe pelo meu Portugues. Att. Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of rodrigoojapa Sent: 27 August 2009 20:50 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda.excel delphi Boa tarde Pessoal, tenho uma aplicação que verifica algumas condições no excel, e eu gostaria de pintar as celulas do excel quando a condição for satisfeita. Alguem pode me ajudar.. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
RE: [delphi-br] Ajuda.....excel delphi
.. Abaixo e o que eu estava procurando. Mais uma vez ele esta em ingles, mas eu acho que possa ser muito util: http://www.djpate.freeserve.co.uk/AutoExcl.htm#FormatRange Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of rodrigoojapa Sent: 27 August 2009 20:50 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda.excel delphi Boa tarde Pessoal, tenho uma aplicação que verifica algumas condições no excel, e eu gostaria de pintar as celulas do excel quando a condição for satisfeita. Alguem pode me ajudar.. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ***
Re: [delphi-br] Ajuda.....excel delphi
Bom dia! Da uma olhada nesse site. http://www.mvps.org/dmcritchie/excel/colors.htm Boa sorte. Ulisses - Original Message - From: rodrigoojapa To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 27, 2009 4:49 PM Subject: [delphi-br] Ajuda.excel delphi Boa tarde Pessoal, tenho uma aplicação que verifica algumas condições no excel, e eu gostaria de pintar as celulas do excel quando a condição for satisfeita. Alguem pode me ajudar.. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com SQL
update cadprodutos c, itensorc i set c.fornecedor = 'dfdk', i.forprod = 'dfdk' where c.codprod = '1' and i.codprod = '1' 2009/8/21 joao_jma joao_...@itelefonica.com.br Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com SQL
vc não entendeu a necessidade preciso atualizar na tabela itensorc os dados de descricao e fornecedor que estão no cadprodutos João M. de Amorim - Informática: Andreza Enxovais - Ibitinga/SP ((16) 3341-9000 È(16) 9239-0959 - Original Message - From: Leandro To: delphi-br@yahoogrupos.com.br Sent: Friday, August 21, 2009 3:49 PM Subject: Re: [delphi-br] Ajuda com SQL update cadprodutos c, itensorc i set c.fornecedor = 'dfdk', i.forprod = 'dfdk' where c.codprod = '1' and i.codprod = '1' 2009/8/21 joao_jma joao_...@itelefonica.com.br Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [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] Ajuda com SQL
Tenta isso aqui amigo, tenho quase certeza que funciona ;) UPDATE ItensSorc Is SET Is.DescProd=Cp.Descricao FROM CadProdutos Cp WHERE Is.CodProd=Cp.CodProd - Original Message - From: joao_jma To: Undisclosed-Recipient:; Sent: Friday, August 21, 2009 2:45 PM Subject: [delphi-br] Ajuda com SQL Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] Ajuda com SQL
Ops! Fiz confusão e achei q estava respondendo pra lista de Firebird. Qual BD vc está usando? 2009/8/21 Daniel Hiromy hirom...@gmail.com Faça uma trigger. set term ^ ; create or alter trigger AU_CADPRODUTOS for CADPRODUTOS active after update position 0 as begin update ITENSORC set descprod = new.descricao, fornprod = new.fornecedor where codprod = new.codprod; end ^ set term ; ^ 2009/8/21 joao_jma joao_...@itelefonica.com.br Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] Ajuda com SQL
Faça uma trigger. set term ^ ; create or alter trigger AU_CADPRODUTOS for CADPRODUTOS active after update position 0 as begin update ITENSORC set descprod = new.descricao, fornprod = new.fornecedor where codprod = new.codprod; end ^ set term ; ^ 2009/8/21 joao_jma joao_...@itelefonica.com.br Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [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] Ajuda com SQL
amigo aquele codigo q postei vc usa na hora q for atualizar a tabela cadprodutos assim qndo a atualizar ja ira atualizar a itensorc junto em um sql soh.. entendeu.. 2009/8/21 Daniel Hiromy hirom...@gmail.com Ops! Fiz confusão e achei q estava respondendo pra lista de Firebird. Qual BD vc está usando? 2009/8/21 Daniel Hiromy hirom...@gmail.com hiromyjp%40gmail.com Faça uma trigger. set term ^ ; create or alter trigger AU_CADPRODUTOS for CADPRODUTOS active after update position 0 as begin update ITENSORC set descprod = new.descricao, fornprod = new.fornecedor where codprod = new.codprod; end ^ set term ; ^ 2009/8/21 joao_jma joao_...@itelefonica.com.brjoao_jma%40itelefonica.com.br Tenho 2 tabelas CADPRODUTOS codprod descricao fornecedor ITENSORC (Gravo a descrição e o fornecedor do produto nessa tabela tb) codprod descprod forprod PRECISO DE UM SQL, PRA FAZER DE FORMA RAPIDA A ATUALIZAÇÃO DOS DADOS NA TABELA ITENSORC Eu preciso atualizar as descrições e fornecedor da tabela itensorc, pois quando existe alteração nesses dados na tabela cadprodutos, a tabela itensorc fica desatualizada. []'s João [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com webbrowser
Que tem, tem! Já vi na internet como remover um componente ou mudar a propriedade dele usando o TWebBrowser, só não me lembro onde foi (só sei que não era em sites do idioma português). Uma vez precisei fazer um controle para o Jogo Travian e para isso tinha de acessar o Login da conta, eu removia tudo na tela e deixava apenas os campos do login, e ainda por cima, colocava meu login dentro dos campos e simulava a tecla ENTER para entrar. Pode-se fazer diversas coisas com este componente, mas eu indico usar o componente free EmbeddedWB Component Pack, com ele se faz mais coisas ainda. rodrigoojapa escreveu: Boa tarde Pessoal, Tenho uma aplicação que localiza coordenadas de latitude e longitude no google maps, mas eu estou querendo que a pagina apareça apenas o campo de localização e o mapa e mais nada do site, principalmente aqueles link acima da página do gooogle. Tem como eu fazer isso?? _ .
Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Simples, logo após o SELECT de cada parte da instrução, insira CAST('CR' AS VARCHAR(02)) para CR e CAST('CP' AS VARCHAR(02)) para CP. Abs e boa sorte... Rodinei Amorim Programador Delphi (11) 8208-9503 rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br From: valdirdill Sent: Thursday, August 06, 2009 7:58 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda com Select Utilizando Union All e Cast Olá, Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o script: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou de CONTASRECEBIDAS Alguém pode me ajudar? Uso D7 e FB 2.0 Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
valdirdill, Acrescente uma coluna com o tipo: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL, Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL, Cast('QUITADO' as Varchar(10)) as TIPO FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Sucesso !! Moacir valdirdill escreveu: Olá, Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o script: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou de CONTASRECEBIDAS Alguém pode me ajudar? Uso D7 e FB 2.0 Obrigado
Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast
Obrigado. Valdir - Original Message - From: Rodinei To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 06, 2009 8:08 AM Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast Simples, logo após o SELECT de cada parte da instrução, insira CAST('CR' AS VARCHAR(02)) para CR e CAST('CP' AS VARCHAR(02)) para CP. Abs e boa sorte... Rodinei Amorim Programador Delphi (11) 8208-9503 rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br From: valdirdill Sent: Thursday, August 06, 2009 7:58 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Ajuda com Select Utilizando Union All e Cast Olá, Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o script: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou de CONTASRECEBIDAS Alguém pode me ajudar? Uso D7 e FB 2.0 Obrigado [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] Ajuda com Select Utilizando Union All e Cast
Obrigado. Valdir - Original Message - From: Moacir - GMail To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 06, 2009 8:09 AM Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast valdirdill, Acrescente uma coluna com o tipo: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL, Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL, Cast('QUITADO' as Varchar(10)) as TIPO FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Sucesso !! Moacir valdirdill escreveu: Olá, Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o script: SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim UNION ALL SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou de CONTASRECEBIDAS Alguém pode me ajudar? Uso D7 e FB 2.0 Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda para rodar aplicativo no wine
não sei muito de linux mas vou dar um chute, tenta incluir a ntdll no .exe, talvez resolva seu problema. 2009/7/27 Jorge Ericsson jericsson...@gmail.com Olá amigos, Tenho uma aplicação Delphi 7 + ADO + Access e um cliente está necessitando que eu coloque essa aplicação rodando no linux devido as licenças que ele não gostaria de pagar do windows. Bom eu já decide migrar o sistema todo para Java (iniciei as modelagem), mas como preciso de uma solução rápida, resolvi prepara uma máquina com o Linux (Ubuntu + Wine) e migrei toda a base de dados Access para MySQL 5.1 e mudei a forma de conexão para Zeos (MySQL 5.1) usando claro a libmysqld.dll. Está apresentando algum problemas ao rodar o aplicativo no Wine como acesso ao NTDLL e não encontrei até agora a solução para o meu problema. Desenvolvi uma pequena aplicação, já carreguei a calculadora do windows no linux e tudo certo, mas no caso da conexão ao banco está dando errro. Bom o que eu preciso é da ajuda de alguém experiente no grupo que me informe se já tentou este processo e como resolveu os problemas. Hoje eu tenho Delphi + Zeos (libmysqld.dll) + MySql 5.1 (nativo do linux). Espero ter sido o mais claro possível. Grande abraço Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@hotmail.com jericssonsup%40hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas]