Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco?
laureanonunes, qual o driver ODBC você ta usando pra conectar ao Pg? o metodo clear deveria funcionar. se você ta iniciando um projeto, considere usar um componente com acesso direto banco, isso vai te proporcionar 100% de compatibilidade e desempenho fora de série. http://www.devart.com/pgdac/ 2009/2/12 laureanonu...@yahoo.com.br Colega Moacir, query.Parameters.ParamByName('dt_inclusao').clear Não funciona mesmo, em BDE tranquilo, em ADO/DBGO não vai. Estou utilizando ADO/DBGO Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Moacir - GMail prism...@gmail.com prismars%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 8:33 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? query.Parameters.ParamByName('dt_inclusao').clear jrsilvas...@yahoo.com.br jrsilvasjrp%40yahoo.com.br escreveu: Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null; - Original Message - From: laureanonu...@yahoo.com.br laureanonunes%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 9:32 AM Subject: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Colegas, Eu estou com um problema para passar datas nulas ao banco via ADO/DBGO. O ADO ( DBGO ) nao aceita: query.Parameters.ParamByName('dt_inclusao').clear. nem tampouco... query.Parameters.ParamByName('dt_inclusao').value := null; Como devo proceder para passar a data para o banco com valor nulo? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Faça liga�ões para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Conexao com o banco
Entendi sim, mas ele não tratou essa msg de erro do jeito q vc me falou! Qdo eu mando conectar ao banco errado, ele dá uma tela de erro e não trata o except. A não ser q eu tenha q criar um código que trate esse erro tb! Obrigado! ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 12/02/2009 22:06:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Conexao com o banco Bom Bruno então eu não entendi o que voce quis rs... os blocos try except end ou try finally end São blocos de instrução assim como begin end porém quando você coloca o except significa que qualquer erro dentro do bloco try o curso de execução será redirecionado para o except dai é possível fazer tratamento personalizados com mensagens de erro e etc ex: try except on e:exception do begin ShowMessage(e.message); end end No caso acima será exibido o erro dentro de um dialogo de mensagem. Já no finally você utiliza quando independente de qualquer coisa sempre queria que passe em determinadas instruções como no exemplo abaixo: try c := TClientDataSet.Create(nil); finally FreeAndNil(c); end Neste caso independente do que acontecer dentro do bloco try sempre será zerada a variavel c e liberada da memória.. Abraços, Daniel 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.br Não deu certo Daniel! Pra q server o try e o except? Obrigado! ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 02/12/09 17:12:22 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Isso é resolvido com um simples bloco de tratamento de erros da seguinte forma : try System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; except ShowMessage('Erro ao conectar, por favor tente novamente !'); end; Abraços, Daniel 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução, [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a soluçã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] ADO ( DBGO ) - C omo passar data nula ao banco? ( Sem solução ainda)
Colega Eduardo, O driver ODBC, no meu caso, não tem a ver com o problema, o problema está na utilização do componente ADO/DBGO, mais especificamente na ADOQuery. Alguns colegas deram sugestões de uso, inclusive você, baseados na query do BDE, que aceita .clear e null. No caso eu utilizo o ADO/DBGO e está muito difícil de resolver, não existe material sobre o tema na web. Faz três dias busco esta informação de diferentes maneiras no Google, mas nada. Entendi sua sugestão de utilização de um componente de acesso direito, inclusive antes utilizei em Delphi 4 o Zeos que era fantástico e fazia isso, mas... minha intenção é através do ODBC ter flexibilidade e possibilidade de utilizar outros geradores de relatório além do Rave, Quick Report, mas também usar o Crystal Reports. Muito obrigado pela sugestão, mas o problema persiste. Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Eduardo Silva dos Santos eduardo@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 12, 2009 11:22 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? laureanonunes, qual o driver ODBC você ta usando pra conectar ao Pg? o metodo clear deveria funcionar. se você ta iniciando um projeto, considere usar um componente com acesso direto banco, isso vai te proporcionar 100% de compatibilidade e desempenho fora de série. http://www.devart.com/pgdac/ 2009/2/12 laureanonu...@yahoo.com.br Colega Moacir, query.Parameters.ParamByName('dt_inclusao').clear Não funciona mesmo, em BDE tranquilo, em ADO/DBGO não vai. Estou utilizando ADO/DBGO Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Moacir - GMail prism...@gmail.com prismars%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 8:33 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? query.Parameters.ParamByName('dt_inclusao').clear jrsilvas...@yahoo.com.br jrsilvasjrp%40yahoo.com.br escreveu: Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null; - Original Message - From: laureanonu...@yahoo.com.br laureanonunes%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 9:32 AM Subject: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Colegas, Eu estou com um problema para passar datas nulas ao banco via ADO/DBGO. O ADO ( DBGO ) nao aceita: query.Parameters.ParamByName('dt_inclusao').clear. nem tampouco... query.Parameters.ParamByName('dt_inclusao').value := null; Como devo proceder para passar a data para o banco com valor nulo? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Faça liga�ões para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Res: Re: [delphi-br] Conexao com o banco
Ok... Eduardo, mas e se o banco estiver em outro computador! Como que ele vai saber o caminho? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 12/02/2009 22:25:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Bruno, com mysql a coisa é diferente.. vc não informa o caminho do banco como no FireBird.. no Mysql basta você informar o Nome do mesmo.. com isso vai funcionar numa boa.. e graças ao Mysql ser assim, é possivel vc fazer um select em bancos distintos. qual componente de acesso você ta usando? 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [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] ADO ( DBGO ) - C omo passar data nula ao banco? A inda não não deu!!!
Colega Emanuel, Ao utilizar a query do BDE funciona a sua sugestão, mas... estou utilizando a query da paleta DBGO/ADO, dai é diferente e não da a opção de declarar .asstring. A propósito em ADOQuery é obrigado a declarar query.parameters.parambyname... Muito obrigado pela atenção, mas ainda não deu mesmo. Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO/DBGO - Original Message - From: Coutinho - Yahoo emanuelcouti...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 1:50 AM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Ainda não não deu!!! Se não me falha a memória, Consegui uma vez passar algo tpo assim: query.parambyname('dt_inclusao').asstring := ''; Acho que foi isso... testa aí mano!!! A propósito, porque vc está usando query.parameters.parambyname... não precisa desse parameters, só o query.parambyname('').as... Sds __ Emanuel Coutinho Salvador-Ba-Brasil *laureanonu...@yahoo.com.br escreveu:* *Colega, O ADO ( DBGO ) nao aceita: query.Parameters. **ParamByName(**'dt_inclusao'**).clear. nem query.Parameters.**ParamByName(**'dt_inclusao'**).value := null; nem query.Parameters.**ParamByName(**'dt_inclusao'**).asvariant := null; Bah, essa tá difícil, na web não achei nada sobre o tema. Valeu pela tentativa. Mais sugestões? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO * . -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] ADO ( DBGO ) - C omo passar data nula ao banco? ( ainda sem solução)
Colega Moacir, Sua solução vai funcionar, mas estou iniciando um projeto grande, onde utilizarei vários campos de data nos forms, esse tipo de técnica de IF, vai ser trabalhosa por demais, pois se eu considerar que além de tratar os Inserts também deverei tratar os Updates e para dar manutenção não vai ser prático. Acredito que deva existir uma maneira simples de declarar via parametro o valor nulo, mas a três dias busco no Google de maneiras diferentes e nada. Sinceramente agradeço pelos emails e pela boa vontade em ajudar. Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Moacir - GMail prism...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 12, 2009 9:41 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Quem sabe um IF não te ajuda nisto ?? Tipo, With MeuComponenteADO do begin sql.text:=' Insert into tabela (campo1, campo2'+ IfThen(DATAEHNULA, '',',CampoData')+ ') values (:campo1,:campo2'+ IfThen(DATAEHNULA, '',',:CampoData')+ ')'; If not DATAEHNULA then ParamByName('CampoData').AsDateTime:= EditQueTemA Data; end; ??? Abraços, espero ter ajudado !! Moacir laureanonu...@yahoo.com.br escreveu: Colega Moacir, query.Parameters.ParamByName('dt_inclusao').clear Não funciona mesmo, em BDE tranquilo, em ADO/DBGO não vai. Estou utilizando ADO/DBGO Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Moacir - GMail prism...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 12, 2009 8:33 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? query.Parameters.ParamByName('dt_inclusao').clear jrsilvas...@yahoo.com.br escreveu: Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null; - Original Message - From: laureanonu...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 12, 2009 9:32 AM Subject: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Colegas, Eu estou com um problema para passar datas nulas ao banco via ADO/DBGO. O ADO ( DBGO ) nao aceita: query.Parameters.ParamByName('dt_inclusao').clear. nem tampouco... query.Parameters.ParamByName('dt_inclusao').value := null; Como devo proceder para passar a data para o banco com valor nulo? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com ___ Yahoo! Mail - Sempre a melhor op��o para voc�! Experimente j� e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] OFF TOPIC - Campo date esta armazenando sempre 1899-12-30, porque?
Antes de gravar o campo do tipo data pergunta se o que esta atribuindo NÃO esta Nulo, se estiver nulo você nem grava nada no campo. ex: if not TabelaCampoData.IsNull then begin Tabela2CampoData.Value := TabelaCampoData.Value; end; Espero ter ajudado, Renan Serrano. laureanonu...@yahoo.com.br escreveu: Utilizando os componentes da paleta DGBO não é possvel dar um clear antes, alguma sugestao? Obrigado. []´s Nunes.
Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Ainda não não deu!!!
Nunes, Eu também tive este mesmo problema e solucionei da seguinte forma. Acesse a propriedade Parameters do seu componente. Para cada parâmetro expanda a propriedade Value. Na propriedade Type escolha Null. No código, antes de atribuir algum valor ao parâmetro verifique se realmente há esta necessidade, caso não exista não atribua nada a este parâmetro. Assim ao executar a ADOQuery será transmitido NULL neste parâmetro. Espero que ajude. Abraço 2009/2/13 laureanonu...@yahoo.com.br Colega Emanuel, Ao utilizar a query do BDE funciona a sua sugestão, mas... estou utilizando a query da paleta DBGO/ADO, dai é diferente e não da a opção de declarar .asstring. A propósito em ADOQuery é obrigado a declarar query.parameters.parambyname... Muito obrigado pela atenção, mas ainda não deu mesmo. Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO/DBGO - Original Message - From: Coutinho - Yahoo emanuelcouti...@yahoo.com.bremanuelcoutinho%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, February 13, 2009 1:50 AM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Ainda não não deu!!! Se não me falha a memória, Consegui uma vez passar algo tpo assim: query.parambyname('dt_inclusao').asstring := ''; Acho que foi isso... testa aí mano!!! A propósito, porque vc está usando query.parameters.parambyname... não precisa desse parameters, só o query.parambyname('').as... Sds __ Emanuel Coutinho Salvador-Ba-Brasil *laureanonu...@yahoo.com.br %2Alaureanonunes%40yahoo.com.br escreveu:* *Colega, O ADO ( DBGO ) nao aceita: query.Parameters. **ParamByName(**'dt_inclusao'**).clear. nem query.Parameters.**ParamByName(**'dt_inclusao'**).value := null; nem query.Parameters.**ParamByName(**'dt_inclusao'**).asvariant := null; Bah, essa tá difícil, na web não achei nada sobre o tema. Valeu pela tentativa. Mais sugestões? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO * . -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Faça liga�ões para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro Relacionado a ntdll.dll
Olá, Preciso de ajuda sobre um problema que vem ocorrendo em meu sistema: access violantion in module ntdll.dll. Pelo que me parece é alguma exceção durante a execução de alguma função dessa .dll. Estou há mais de dois mês pesquisando e encontrei alguns tópicos na net sobre esse erro, mas nada que tenha ajudado muito. A única coisa que encontrei e que parece coerente com o que ocorre no meu sistema é que isso poderia ser algum erro durante a utilização (pelo Windows/programa) de algum recurso da placa de vídeo. Vamos supor que o problema seja realmente esse, ou seja, no momento que o meu programa requisita esse recurso da placa de vídeo, ocorre a exceção. Pergunto aos colegas e até imploro para que me ajudem: como faço para detectar qual a rotina/componente/momento do programa que isso ocorre. Não uso muitos componente de terceiros, justamente por causa dessas coisas inexplicáveis que acontecem. Os únicos componentes que desconfio possam estar relacionados são TAdvPanel, TAdvToolBar e TdvToolButton da TMS. Além desses, também utilizo os nativos TActionManager (para menu da tela principal), conjugado com TXpColorMap. De cada 100 usuários que utilizam o sistema o problema acontece com 5, mas não é sempre que ocorre. É aleatório, mas sempre ao voltar de algum módulo qualquer para o form principal que é onde estão os componentes acima. A grande dificuldade de analisar é que, como já mencionei, não é sempre que a situação acontece e aqui em laboratório, em 3 máquinas o problena nunca ocorreu. Se você tiver qualquer dica que possa me ajudar, agradeceria muito se me repassasse. Obrigado Valdir
[delphi-br] Re: Erro Relacionado a ntdll.dll
Para descobrir a linha e a unit que provoca o erro vc precisará do programa free chamado AVFinder (google nele) depois vc precisa alterar uma configuração na compilação do seu projeto para que crie o arquivo .map que é nele que o AVFinder irá se basear. Então vamos lá: -Bá em Project-Options-Linker e selecione a opção Map File = Detailed. -Build no projeto e vc verá um arquivo com o mesmo nome do seu .exe mas com .map. Aponte esse arquivo .map no AVFinder e informe o endereço de memória que deu o erro, o AVFinder irá lhe mostrar a unit e a linha que provocou a violação. Já é uma dica do que pode estar acontecendo. Quanto ao motivo real da violação na ntdll.dll tive isso também, e achava que era fantasma mas não é. É alguma coisa que vc está fazendo com ponteiros ou liberando objetos que não estão mais lá, num processo muito rápido, recursivo e descentralizado. Espero ter ajudado, Higor Ganzoto --- Em delphi-br@yahoogrupos.com.br, valdirdill valdird...@... escreveu Olá, Preciso de ajuda sobre um problema que vem ocorrendo em meu sistema: access violantion in module ntdll.dll. Pelo que me parece é alguma exceção durante a execução de alguma função dessa .dll. Estou há mais de dois mês pesquisando e encontrei alguns tópicos na net sobre esse erro, mas nada que tenha ajudado muito. A única coisa que encontrei e que parece coerente com o que ocorre no meu sistema é que isso poderia ser algum erro durante a utilização (pelo Windows/programa) de algum recurso da placa de vídeo. Vamos supor que o problema seja realmente esse, ou seja, no momento que o meu programa requisita esse recurso da placa de vídeo, ocorre a exceção. Pergunto aos colegas e até imploro para que me ajudem: como faço para detectar qual a rotina/componente/momento do programa que isso ocorre. Não uso muitos componente de terceiros, justamente por causa dessas coisas inexplicáveis que acontecem. Os únicos componentes que desconfio possam estar relacionados são TAdvPanel, TAdvToolBar e TdvToolButton da TMS. Além desses, também utilizo os nativos TActionManager (para menu da tela principal), conjugado com TXpColorMap. De cada 100 usuários que utilizam o sistema o problema acontece com 5, mas não é sempre que ocorre. É aleatório, mas sempre ao voltar de algum módulo qualquer para o form principal que é onde estão os componentes acima. A grande dificuldade de analisar é que, como já mencionei, não é sempre que a situação acontece e aqui em laboratório, em 3 máquinas o problena nunca ocorreu. Se você tiver qualquer dica que possa me ajudar, agradeceria muito se me repassasse. Obrigado Valdir
[delphi-br] Documentação de Regras de Negócio do Sistema
Tenho uma questão acho que todos se deparam com esse trabalho meio que braçal. Como documentar as regras de negócio de um sistema. Por exemplo tenho determinadas regras em determinados campos de minhas telas qual a melhor alterantiva que vocês usam para documentar essas regras. Regras essas muitas as vezes internas do sistema que auxiliam o programador a endender o codigo. Estamos montando aqui na empresa tabelas com os campos de cada tela com as regras em word ou excel, mais não acho isso legal. Que alternativas podemos usar podem ser melhores ? Existes ferramentas proprias pra isso ? Alguem que utiliza alguma que pode indicar ? -- Reginaldo D. Felix regife...@hotmail.com -- Reginaldo D. Felix regife...@hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Biomatria + Banco de dados Firebird
Robson já trabalhei com bancos de dados firebird e biometria. Explique melhor seu problema, talvez possa ajudá-lo. abraços 2009/2/12 Robson Tazinaffo robsontazina...@hotmail.com Estou usando o SDK da Griaule com o leitor Microsoft FingerPrint Reader...Os exemplos usam banco de dados access...tentei portar par usar com firebird mais achei muito complicado...alguém pode me ajudar?? Alguem na lista usa banco de dados firebird e biometria -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Documentação de Regras de Ne gócio do Sistema
Fora a munheca, voce pode usar ferramentas de modelagem de dados para documentar a conversão de processos para linhas de código. Aqui na telemont, os processos (que nada mais são do que regras de negocios) são todos documentados em um documento que chamamos de POP (Procedimento Operacional Padrão). Cada área, cada setor, cada segmento na regional tem um, ou quantos forem necessários POPs para desempenhar tal atividade. Se entra um novo funcionario, ele vai ser treinado com base no Pop. Se implantamos uma nova regional em outro estado, ela irá trabalhar com base no Pop. E, como não vai ser diferente, se te pedirem pra fazer um sistema que atenda uma determinada área na regional, O escopo deste sistema já tá pronto. E é aí que eu vivo, desde que tou aqui, numa busca incessante, de como pegar esse POP e jogá-lo dentro de um UML, por exemplo... Mas o POP é feito manualmente mesmo, escrito em um documento Word e anexado ao nosso Manual de Sistema de Gestão que é o manual de como se trabalha na empresa. Aqui é assim que é feito e é assim que funciona. Tudo que se quer fazer, quer inovar, quer adicionar ou melhorar, o ponto de partida para tal e o POP. Voce pode inovar? Sim, mas tem que ser analisado o que voce quer inovar e confrontar sua ideia com o POP pra ver se o que voce propoe não irá impactar em outras atividades da empresa. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Reginaldo Donizete Felix To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 10:19 AM Subject: [delphi-br] Documentação de Regras de Negócio do Sistema Tenho uma questão acho que todos se deparam com esse trabalho meio que braçal. Como documentar as regras de negócio de um sistema. Por exemplo tenho determinadas regras em determinados campos de minhas telas qual a melhor alterantiva que vocês usam para documentar essas regras. Regras essas muitas as vezes internas do sistema que auxiliam o programador a endender o codigo. Estamos montando aqui na empresa tabelas com os campos de cada tela com as regras em word ou excel, mais não acho isso legal. Que alternativas podemos usar podem ser melhores ? Existes ferramentas proprias pra isso ? Alguem que utiliza alguma que pode indicar ? -- Reginaldo D. Felix regife...@hotmail.com -- Reginaldo D. Felix regife...@hotmail.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] Re: Erro Relacionado a ntdll.dll
Como se usa esse programa? Coloquei a opção Map File = Detailed, apontei esse arquivo .map no AVFinder. Informei o endereço de memória no campo Adress do AVFinder e sempre mostra a mensagem : Adress for module not found. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Res: Re: [delphi-br] Conexao com o banco
Bom dia meu camarada! O que o Eduardo citou anteriormente é fato, não há necessidade de informar o caminho do banco, vc informa apenas o nome ou ip da máquina onde se encontra instalado o mysql. Nos sistemas que desenvolvo, faço a coneção com o banco através de um arquivo .ini, e quando o sistema carrega pega as informações neste arquivo. Segue abaixo um exemplo do que uso: //declare na uses entre outras : uses IniFiles; Exemplo de .INI [BaseDados] Servidor= NomeDaMaquina ou IPdaMaquina Usuario=LoginDeAcessoAoBanco Senha=senhaDeAcessoAoBanco Base=NomeDaBaseDeDados No create do datamodule no delphi: var sServidor, sUsuario, sSenha, sBase : String; iniFile : TIniFile; // da um uses IniFiles begin iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini'); with iniFile do begin sServidor := ReadString('BaseDados', 'Servidor', ''); sUsuario := ReadString('BaseDados', 'Usuario', ''); sSenha := Desencripta(ReadString('BaseDados', 'Senha', '')); sBase := ReadString('BaseDados', 'Base', ''); Free; end; sqlBase.Connected := false; sqlBase.Params.Clear; sqlBase.DriverName := NomeDoDriverDeConexao; sqlBase.ConnectionName := sBase; sqlBase.Params.Values['Database'] := sServidor; sqlBase.Params.Values['User_Name'] := sUsuario; sqlBase.Params.Values['Password'] := sSenha; sqlBase.Connected := true; end; Como a minha preocupação é apenas com o nome da máquina, não passo esse monte de configuração pelo *.ini, já declarando direto. Espero ter ajudado, mas qualquer dúvida, poste ai! Fraterno abraço, Carlos
[delphi-br] Identificar o S.O. que esta instalado na estação
Alguém sabe se existe uma forma de identificar através do delphi qual o sistema operacional que a estação esta utilizando ( windows ou linux)? Alguma função ou propriedade? Grato pela atenção.
[delphi-br] Impressora Fiscal Zantus
Algum colega poderia compartilhar o código da finalização do cupom fiscal da impressora Zantus, é que estou precisando informar no rodapé do cupom os dados do cliente (nome, cpf, etc...) e não estou conseguindo. Já procurei na net mas não encontrei nada a respeito. Ou seja, consigo finalizar o cupom mas não consigo inserir estas informações no rodapé. Fico grato a quem puder ajudar. PS: Utilizo Delphi 7 com Firebird 1.5 Atenciosamente, Gilson [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] NFe
Olá Pessoal, bom dia. Alguém saberia informar se existe um grupo de discussão sobre nota fiscal eletrônica com Delphi? []s Topolniak. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Identificar o S.O. que esta inst alado na estação
Dá uma olhada nesse artigo: [ http://www.clubedainformatica.com.br/site/2004/01/18/diretivas-de-compilacao/ ] []'s Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em sex, 13/2/09, maurino_urbano maurino_urb...@yahoo.com.br escreveu: Alguém sabe se existe uma forma de identificar através do delphi qual o sistema operacional que a estação esta utilizando ( windows ou linux)? Alguma função ou propriedade? Grato pela atenção. __._,_._ 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]
[delphi-br] URGENTE: Tempo decorrido
Olá amigos Delphianos. Estou precisando implementar urgente na minha rotina de atualização de banco o tempo decorrido de cada processo. Por exemplo eu tenho os processos de criação do banco, correção de banco, carga de dados no banco. Resultado seria mais ou menos assim: Criação de Banco 05:06:45 Correção de Banco03:30:20 Carga de Dados no Banco 10:03:30 18:40:35 Total em hora:minutos:segundos Eu preciso criar se possível uma threading ou 3 no caso que registre no formulário o tempo decorrido de cada processo. Alguém poderia me ajudar com uma diga boa ? Abraços Jorge Ericsson S. Pinheiro [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TIBBackupService
Boa tarde... estou usando o TIBBackupService pra executar backup do firebird pela minha aplicação, mas só consigo gerar o backup local... pela rede não vai... alguem que ja usou pode me ajudar?
Fw: [delphi-br] Re: Erro Relacionado a ntdll.dll
Obrigado pela resposta Higor, Acho que o caminho que você me indicou (AVFinder), se eu conseguir fazer funcionar, vai ajudar bastante. Não conhecia o AVFinder, mas parece bem simples de usar. Contudo, não consegui fazer ele me dizer onde está o erro. Para testar o AVFinder eu fiz o seguinte: criei um novo projeto com 2 forms (form1 e form2). No form 1 coloquei um botão que ao clicá-lo executa Form2.show, mas como nesse momento o form2 ainda não foi criado, gera a violação de chave com com endereço 004458A6. Ao testar .map desse projeto no AVFinder, dá um erro, conforme tela anexa. No projeto/Delphi, só precisa colocar opção Map File = Detailed, certo? Podes me ajudar? Obrigado Valdir - Original Message - From: higorrg To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 9:15 AM Subject: [delphi-br] Re: Erro Relacionado a ntdll.dll Para descobrir a linha e a unit que provoca o erro vc precisará do programa free chamado AVFinder (google nele) depois vc precisa alterar uma configuração na compilação do seu projeto para que crie o arquivo .map que é nele que o AVFinder irá se basear. Então vamos lá: -Bá em Project-Options-Linker e selecione a opção Map File = Detailed. -Build no projeto e vc verá um arquivo com o mesmo nome do seu .exe mas com .map. Aponte esse arquivo .map no AVFinder e informe o endereço de memória que deu o erro, o AVFinder irá lhe mostrar a unit e a linha que provocou a violação. Já é uma dica do que pode estar acontecendo. Quanto ao motivo real da violação na ntdll.dll tive isso também, e achava que era fantasma mas não é. É alguma coisa que vc está fazendo com ponteiros ou liberando objetos que não estão mais lá, num processo muito rápido, recursivo e descentralizado. Espero ter ajudado, Higor Ganzoto --- Em delphi-br@yahoogrupos.com.br, valdirdill valdird...@... escreveu Olá, Preciso de ajuda sobre um problema que vem ocorrendo em meu sistema: access violantion in module ntdll.dll. Pelo que me parece é alguma exceção durante a execução de alguma função dessa .dll. Estou há mais de dois mês pesquisando e encontrei alguns tópicos na net sobre esse erro, mas nada que tenha ajudado muito. A única coisa que encontrei e que parece coerente com o que ocorre no meu sistema é que isso poderia ser algum erro durante a utilização (pelo Windows/programa) de algum recurso da placa de vídeo. Vamos supor que o problema seja realmente esse, ou seja, no momento que o meu programa requisita esse recurso da placa de vídeo, ocorre a exceção. Pergunto aos colegas e até imploro para que me ajudem: como faço para detectar qual a rotina/componente/momento do programa que isso ocorre. Não uso muitos componente de terceiros, justamente por causa dessas coisas inexplicáveis que acontecem. Os únicos componentes que desconfio possam estar relacionados são TAdvPanel, TAdvToolBar e TdvToolButton da TMS. Além desses, também utilizo os nativos TActionManager (para menu da tela principal), conjugado com TXpColorMap. De cada 100 usuários que utilizam o sistema o problema acontece com 5, mas não é sempre que ocorre. É aleatório, mas sempre ao voltar de algum módulo qualquer para o form principal que é onde estão os componentes acima. A grande dificuldade de analisar é que, como já mencionei, não é sempre que a situação acontece e aqui em laboratório, em 3 máquinas o problena nunca ocorreu. Se você tiver qualquer dica que possa me ajudar, agradeceria muito se me repassasse. Obrigado Valdir -- Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 8.0.237 / Banco de dados de vírus: 270.10.23/1951 - Data de Lançamento: 02/13/09 06:51:00 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente
Boa tarde a todos, Estou com uma duvida tenho o componente TextData, mas eu acho que falta alguma coisa para instala-lo e o componente ZEOS, alguem pode me ajudar . GratoRodrigo Yoshikazu Sahara _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sistema Ordem Serviço
Alguém poderia me indicar algum sistema com fontes ordem serviço? Encontrei alguns na internet para estudo. Mas preciso adpatá-lo para vender a um cliente. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] SyBase com Dbexpress
Amigos, não consigo encontrar o client do sybase 5.0 para o dbexpress, alguém sabe onde posso encontrar ?
Re: [delphi-br] DBExpress + SQL Server 2000/2005
Caro colega, utilize o instalador do client que está dentro do cd de intalaçao mssql (sqlncli.msi) onde contém os drives necessários para o funcionamento do dbexpress. - Original Message - From: deco0_07 To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 12, 2009 8:41 AM Subject: [delphi-br] DBExpress + SQL Server 2000/2005 Bom dia pessoal. Utilizo a dbexpmss.dll para conexão. Acabei vendo pela internet, que essa dll precisa do MDAC compativel instalado... isso é verdade?que tipo de problema pode dar por nao estar instalado, caso seja... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Integração com o MS-Word
Pessoal, Boa tarde. Seguinte, preciso criar uma interface para abrir um documento do word no próprio formulário dentro de um componente container qualquer, ao lado deste componente container terei uma lista de strings que poderão ser utilizadas dentro do documento ora aberto pelo usuário. Exemplo, o usuário faz um contrato ou uma carta padrão e deixa os espaços para preencher como os dados do clientes. Bom, estou criando uma solução para automatizar esse processo onde o usuário abrirá o documento matriz do word na aplicação e clicará na lista para arrastar o campo desejado para dentro do documento do word e o resultado ficaria com o exemplo abaixo. Exemplo: Prezados Sr. [NOME_CLIENTE] Referente ao contrato nº [NUMERO_CONTRATO], informamos que estamos fazendo um desconto para a quitação de seus débitos no valor de R$ [VALOR_DEBITO] ... E por ai vai... Depois de ter o documento matriz configurado, vou rodar um processo na minha aplicação para substituir estes sufixos pelos valores que estarão no meu DataSet Isso já sei como fazer, com matriz preenchida terei que gerar um pdf apartir do documento do Word Isso estou pesquisando e ainda não sei fazer ou mandar direto para impressora Tranquilo. Já fiz algumas experiências com o componente TOLEContainer da paleta System para embarcar o documento do word na minha aplicação mas não obtive sucesso. Meu maior problema é que não consigo fazer o drag and drop do texto/itemindex que foi selecionado na lista para dentro do documento do word. Se alguém puder contribuir compartilhando experiências relacionadas será muito bem vindo. Atenciosamente, André Geraldo dos Santos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] 3 Vagas em aberto
Programador Delphi e ASP Jr. Empresa Contratante: Cast Informática S.A. Superior Completo ou Cursando em TI. Irá atuar com desenvolvimento de sistemas em delphi e asp ** é obrigatório experiência nas duas linguagens - delphi e asp. Gentileza encaminhar currículo atualizado. Faixa Salarial: ATÉ R$ 1.000,00 Cidade: BRASILIA-DF Quantidade de vaga(s): 2 Data do Anúncio: 12/02/2009 ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: http://www.ceviu.com.br/vaga/?view=vgextvg=8e23c74a0b2781b7d47744d0ca013913fromAccess=1267 --- Analista Delphi Empresa Contratante: Cast Informática S.A. Experiência pleno em desenvolvimento de sistemas WEB e Desktop, 3 camadas, criação de componentees e serviços Windows e levantamento de requisitos. dompinio: Java,Asp, Delphi, java script, Coldfunsion, UML 2.0, banco de dados oracle e SQL Server. Desejável certificação Delphi. Faixa Salarial: À COMBINAR Cidade: BRASILIA-DF Quantidade de vaga(s): 2 Data do Anúncio: 12/02/2009 ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: http://www.ceviu.com.br/vaga/?view=vgextvg=10c8b0e04cb9de6494a84f2af9e59d55fromAccess=1267 --- Analista de Sistemas Delphi Empresa Contratante: H2M Sólidos conhecimentos em analise Delphi Atuação com banco de dados SQL Server Superior Completo em áreas afins Desejável conhecimento em Delphi a partir da versão 5 Local: Lapa Contratação PJ ou CLT Flex Faixa Salarial: À COMBINAR Cidade: SAO PAULO-SP Quantidade de vaga(s): 1 Data do Anúncio: 12/02/2009 ACESSE O LINK ABAIXO PARA CONCORRER GRATUITAMENTE A ESTA VAGA: http://www.ceviu.com.br/vaga/?view=vgextvg=2f165dc3bf83040513ee594704271bbcfromAccess=1267 --- CONCORRA GRATUITAMENTE A MILHARES DE VAGAS EM INFORMÁTICA. ACESSE: http://www.ceviu.com.br/index.php?view=mainfromAccess=1267
Re: Re: [delphi-br] Conexao com o banco
Se o banco estiver em outro computador é necessario que você informe o endereço de IP da outra máquina !!! 2009/2/13 Bruno Lepesqueur brunolbra...@yahoo.com.br Ok... Eduardo, mas e se o banco estiver em outro computador! Como que ele vai saber o caminho? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 12/02/2009 22:25:49 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Bruno, com mysql a coisa é diferente.. vc não informa o caminho do banco como no FireBird.. no Mysql basta você informar o Nome do mesmo.. com isso vai funcionar numa boa.. e graças ao Mysql ser assim, é possivel vc fazer um select em bancos distintos. qual componente de acesso você ta usando? 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo.com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução, [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? (ainda sem solução)
laureanonunes, seu problema é com o driver ODBC ou alguma configuração.. eu já usei DBgo com SQL Server e o método clear funciona.. outra coisa.. cara.. esquece ADO/ODBC, usa algo nativo e se você precisar para algum engine de relatório como o Crystal... faz só a parte de relatorios. quanto ao resto do sistema.. usa Zeos, UniDac, PgDac;;; qualquer coisa menos ADO/ODBC DbExpress e afins... você vai ver.. vai ser só tranquilidade e desempenho. 2009/2/13 laureanonu...@yahoo.com.br Colega Moacir, Sua solução vai funcionar, mas estou iniciando um projeto grande, onde utilizarei vários campos de data nos forms, esse tipo de técnica de IF, vai ser trabalhosa por demais, pois se eu considerar que além de tratar os Inserts também deverei tratar os Updates e para dar manutenção não vai ser prático. Acredito que deva existir uma maneira simples de declarar via parametro o valor nulo, mas a três dias busco no Google de maneiras diferentes e nada. Sinceramente agradeço pelos emails e pela boa vontade em ajudar. Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Moacir - GMail prism...@gmail.com prismars%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 9:41 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Quem sabe um IF não te ajuda nisto ?? Tipo, With MeuComponenteADO do begin sql.text:=' Insert into tabela (campo1, campo2'+ IfThen(DATAEHNULA, '',',CampoData')+ ') values (:campo1,:campo2'+ IfThen(DATAEHNULA, '',',:CampoData')+ ')'; If not DATAEHNULA then ParamByName('CampoData').AsDateTime:= EditQueTemA Data; end; ??? Abraços, espero ter ajudado !! Moacir laureanonu...@yahoo.com.br laureanonunes%40yahoo.com.br escreveu: Colega Moacir, query.Parameters.ParamByName('dt_inclusao').clear Não funciona mesmo, em BDE tranquilo, em ADO/DBGO não vai. Estou utilizando ADO/DBGO Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO - Original Message - From: Moacir - GMail prism...@gmail.com prismars%40gmail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 8:33 PM Subject: Re: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? query.Parameters.ParamByName('dt_inclusao').clear jrsilvas...@yahoo.com.br jrsilvasjrp%40yahoo.com.br escreveu: Tenta query.Parameters.ParamByName('dt_inclusao').asvariant := null; - Original Message - From: laureanonu...@yahoo.com.br laureanonunes%40yahoo.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, February 12, 2009 9:32 AM Subject: [delphi-br] ADO ( DBGO ) - Como passar data nula ao banco? Colegas, Eu estou com um problema para passar datas nulas ao banco via ADO/DBGO. O ADO ( DBGO ) nao aceita: query.Parameters.ParamByName('dt_inclusao').clear. nem tampouco... query.Parameters.ParamByName('dt_inclusao').value := null; Como devo proceder para passar a data para o banco com valor nulo? Qualquer ajuda é bem-vinda, muito obrigado. []´s Nunes. Pg 8.2, Delphi 2007 + ADO -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Informao do ESET NOD32 Antivirus, verso da vacina 3846 (20090211) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com ___ Yahoo! Mail - Sempre a melhor op�ão para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: Re: [delphi-br] Conexao com o banco
No caso do firebird, não é necessario saber em que diretorio a base de dados está no servidor, usa-se o alias, criado no arquivo aliases.conf, que se encontrano diretorio de instalação do firebird. Abaixo o conteudo do arquivo aliases.conf # # List of known database aliases # -- # # Examples: # # dummy = c:\data\dummy.fdb # Sistema = e:\Sistema\Base\Base.fdb Ai, na string de conexão ao banco, você trocará o e:\Sistema\Base\Base.fdb por NomeDaMaquinaServidora:Sistema É bem simples e funciona legal. Ramon A. Korber Jr MSN - ramon15061...@hotmail.com Skype - ramon15061959 Harbour 1.1.0 - MiniGUI Extended 1.61 xMate - BCC 5.5 - Firebird 2.1 - OleDB-AdoDB Lazarus 0.9.26 - ZeosDBO 6.6.4 - Firebird 2.1 - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2008 - Ubuntu 8.04 Linux User Number 404280 - Original Message - From: Bruno Lepesqueur To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 7:52 AM Subject: Res: Re: [delphi-br] Conexao com o banco Ok... Eduardo, mas e se o banco estiver em outro computador! Como que ele vai saber o caminho? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 12/02/2009 22:25:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Bruno, com mysql a coisa é diferente.. vc não informa o caminho do banco como no FireBird.. no Mysql basta você informar o Nome do mesmo.. com isso vai funcionar numa boa.. e graças ao Mysql ser assim, é possivel vc fazer um select em bancos distintos. qual componente de acesso você ta usando? 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [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: Re: [delphi-br] Conexao com o banco
Uses Conexão ODBC e aponto para o nome do servidor ou IP da máquina Bruno. Qual componente e o tipo de conexão que você está utilizando ? 2009/2/13 Bruno Lepesqueur brunolbra...@yahoo.com.br Ok... Eduardo, mas e se o banco estiver em outro computador! Como que ele vai saber o caminho? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 12/02/2009 22:25:49 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Bruno, com mysql a coisa é diferente.. vc não informa o caminho do banco como no FireBird.. no Mysql basta você informar o Nome do mesmo.. com isso vai funcionar numa boa.. e graças ao Mysql ser assim, é possivel vc fazer um select em bancos distintos. qual componente de acesso você ta usando? 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo.com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Att, Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 3244-8689 / 9227 4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@hotmail.com skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Documentação de Regras de Negócio do Sistema
Uma alternativa seria documentar o código através de comentários e utilizar o PasDoc http://pasdoc.sipsolutions.net/ ou algo do tipo para gerar uma documentação em HTML ou PDF. Rodrigo 2009/2/13 Walter Chagas (Bol) wchag...@bol.com.br Fora a munheca, voce pode usar ferramentas de modelagem de dados para documentar a conversão de processos para linhas de código. Aqui na telemont, os processos (que nada mais são do que regras de negocios) são todos documentados em um documento que chamamos de POP (Procedimento Operacional Padrão). Cada área, cada setor, cada segmento na regional tem um, ou quantos forem necessários POPs para desempenhar tal atividade. Se entra um novo funcionario, ele vai ser treinado com base no Pop. Se implantamos uma nova regional em outro estado, ela irá trabalhar com base no Pop. E, como não vai ser diferente, se te pedirem pra fazer um sistema que atenda uma determinada área na regional, O escopo deste sistema já tá pronto. E é aí que eu vivo, desde que tou aqui, numa busca incessante, de como pegar esse POP e jogá-lo dentro de um UML, por exemplo... Mas o POP é feito manualmente mesmo, escrito em um documento Word e anexado ao nosso Manual de Sistema de Gestão que é o manual de como se trabalha na empresa. Aqui é assim que é feito e é assim que funciona. Tudo que se quer fazer, quer inovar, quer adicionar ou melhorar, o ponto de partida para tal e o POP. Voce pode inovar? Sim, mas tem que ser analisado o que voce quer inovar e confrontar sua ideia com o POP pra ver se o que voce propoe não irá impactar em outras atividades da empresa. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Reginaldo Donizete Felix To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, February 13, 2009 10:19 AM Subject: [delphi-br] Documentação de Regras de Negócio do Sistema Tenho uma questão acho que todos se deparam com esse trabalho meio que braçal. Como documentar as regras de negócio de um sistema. Por exemplo tenho determinadas regras em determinados campos de minhas telas qual a melhor alterantiva que vocês usam para documentar essas regras. Regras essas muitas as vezes internas do sistema que auxiliam o programador a endender o codigo. Estamos montando aqui na empresa tabelas com os campos de cada tela com as regras em word ou excel, mais não acho isso legal. Que alternativas podemos usar podem ser melhores ? Existes ferramentas proprias pra isso ? Alguem que utiliza alguma que pode indicar ? -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com [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: Res: [delphi-br] Impressão VDOPrint
Esse exemplo eu criei uma procedure e depois eu chamo ele no onclik de um botão veja procedure TForm015CadastroPCaminhao.Imprimir; begin with VDODmPrinter1 do begin BeginDoc; Font.Pitch := fp12cpp; LineSpacing := ls8lpp; Font.FontType := ftDraft; Font.NLQFont := ntSansSerif; Font.Size := fsCondensed; Print(01, '', True); Print(01, '', True); Print(01, '', True); Font.Size := fsLargeCondensed; Print(29, Trim('Cliente'), True); Print(22, Trim('Endereço'), True); Print(28, Trim('CNPJ'), True); Print(28, Trim('FONE/FAX: '), True); NewLine(5); txtCliente.Text := StrLeft(txtCliente.Text,35); Print(03, Trim('FORNECEDOR: '+semAcentos(txtCliente.Text)), False); Print(52, Trim('DATA..: '+txtDTEntrada.Text), True); Print(03, Trim('STATUS: ENTRADA'), False); Print(52, Trim('HORA..: '+txtHoraE.Text), True); Print(03, Trim('MOTORISTA.: '), False); txtCod.Text := Zeros(txtCod.Text,6); Print(52, Trim('N. PESAGEM: '+txtCod.Text), True); Print(03, Trim('OPERADOR..: Nome'), False); Print(52, Trim('PLACA.: '+txtPlaca.Text), True); NewLine(5); txtPEntrada.Text := Zeros(txtPEntrada.Text,5); Print(03, Trim('PESO ENTRADA: '+txtPEntrada.Text+' Kg'), False); Print(45, Trim(txtDTEntrada.Text+' '+txtHoraE.Text), True); Print(03, Trim('PESO SAIDA..: 0 Kg'), False); Print(45, Trim(txtDTEntrada.Text+' '+txtHoraE.Text), True); NewLine(5); Print(03, Trim('BRUTO...: 0 Kg'), True); Print(03, Trim('TARA: 0 Kg'), True); Print(03, Trim('LIQUIDO.: 0 Kg'), True); EndDoc; end; end; procedure TForm015CadastroPCaminhao.Button1Click(Sender: TObject); begin Imprimir; end; --- Em sex, 13/2/09, Silvio Clécio silviop...@yahoo.com.br escreveu: De: Silvio Clécio silviop...@yahoo.com.br Assunto: Res: [delphi-br] Impressão VDOPrint Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 13 de Fevereiro de 2009, 4:23 Olá pessoal, O pacote tem um fórum, não sei se está ativo em relação a solução de dúvidas de usuários, mas, não custa nada tentar: [http://vdo.sourcefo rge.net/forum/]. _ _ __ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo. com.br Gmail, GTalk: silviop...@gmail. com Hotmail, MSN: silviop...@hotmail. com BlogSpot: http://silvioclecio .blogspot. com/ BlogSite: http://silvioprog. blogspot. com/ °oO| Seja livre, use Linux! |Oo° _ _ __ De: Bruno Lepesqueur brunolbrasil@ yahoo.com. br Para: delphi...@yahoogrup os.com.br Enviadas: Quinta-feira, 12 de Fevereiro de 2009 20:23:34 Assunto: [delphi-br] Impressão VDOPrint Pessoal, eu consegui instalar o VDOPrint em meu micro e uso o delphi 7. Ta barra de ferramentas existem 3 opções: VDOPrinter VDOCaPrinter VDODmPrinter O problema é q eu estou começando agora e já consegui até alguns exemplos de códigos na internet, mas não sei como dar o pontapé inicial! Não encontrei nada que me mostrasse como iniciar e como usar esses componetes. Se alguém tiver algum apostila ensinando a usar com o delphi ou algum código como exemplo eu lhes agradeço! Um abraço! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [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] Re: Erro Relacionado a ntdll.dll
higor, o .map aponta para a unit que ocorreu o erro, mas pelo que já mexi com ele ele não aponta o erro diretamente na unit que voce programou e gerou o erro. Por exemplo, um erro de banco de dados, ele aponta ou na unit db.pas ou na dbctrls.pas mas na unit do seu projeto não. A não ser que eu estivesse configurando o .map de forma errada e eu é que tava usando ele errado. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: higorrg higo...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 10:15 AM Subject: [delphi-br] Re: Erro Relacionado a ntdll.dll Para descobrir a linha e a unit que provoca o erro vc precisará do programa free chamado AVFinder (google nele) depois vc precisa alterar uma configuração na compilação do seu projeto para que crie o arquivo .map que é nele que o AVFinder irá se basear. Então vamos lá: -Bá em Project-Options-Linker e selecione a opção Map File = Detailed. -Build no projeto e vc verá um arquivo com o mesmo nome do seu .exe mas com .map. Aponte esse arquivo .map no AVFinder e informe o endereço de memória que deu o erro, o AVFinder irá lhe mostrar a unit e a linha que provocou a violação. Já é uma dica do que pode estar acontecendo. Quanto ao motivo real da violação na ntdll.dll tive isso também, e achava que era fantasma mas não é. É alguma coisa que vc está fazendo com ponteiros ou liberando objetos que não estão mais lá, num processo muito rápido, recursivo e descentralizado. Espero ter ajudado, Higor Ganzoto --- Em delphi-br@yahoogrupos.com.br, valdirdill valdird...@... escreveu Olá, Preciso de ajuda sobre um problema que vem ocorrendo em meu sistema: access violantion in module ntdll.dll. Pelo que me parece é alguma exceção durante a execução de alguma função dessa .dll. Estou há mais de dois mês pesquisando e encontrei alguns tópicos na net sobre esse erro, mas nada que tenha ajudado muito. A única coisa que encontrei e que parece coerente com o que ocorre no meu sistema é que isso poderia ser algum erro durante a utilização (pelo Windows/programa) de algum recurso da placa de vídeo. Vamos supor que o problema seja realmente esse, ou seja, no momento que o meu programa requisita esse recurso da placa de vídeo, ocorre a exceção. Pergunto aos colegas e até imploro para que me ajudem: como faço para detectar qual a rotina/componente/momento do programa que isso ocorre. Não uso muitos componente de terceiros, justamente por causa dessas coisas inexplicáveis que acontecem. Os únicos componentes que desconfio possam estar relacionados são TAdvPanel, TAdvToolBar e TdvToolButton da TMS. Além desses, também utilizo os nativos TActionManager (para menu da tela principal), conjugado com TXpColorMap. De cada 100 usuários que utilizam o sistema o problema acontece com 5, mas não é sempre que ocorre. É aleatório, mas sempre ao voltar de algum módulo qualquer para o form principal que é onde estão os componentes acima. A grande dificuldade de analisar é que, como já mencionei, não é sempre que a situação acontece e aqui em laboratório, em 3 máquinas o problena nunca ocorreu. Se você tiver qualquer dica que possa me ajudar, agradeceria muito se me repassasse. Obrigado Valdir
RES: [delphi-br] SyBase com Dbexpress
Cara, posso te dar quase que certeza absoluta que não existe. De qualquer forma, tenta ver com o pessoal da visoco. Eles fazem drivers para DBX. -- José Henrique (Zote) Analista de TI Bludata Software De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de ajama_1 Enviada em: sexta-feira, 13 de fevereiro de 2009 09:18 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] SyBase com Dbexpress Amigos, não consigo encontrar o client do sybase 5.0 para o dbexpress, alguém sabe onde posso encontrar ? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi + JasperReports
Procurar já procurei bastante, por isso estou postando aqui :) Se existisse essa possibilidade seria uma mão na roda pra muita gente. abs. 2009/2/11 Rubem Nascimento da Rocha djpardalro...@hotmail.com Teoricamente, isso seria possível usando JNI. Acho q aí valeria uma pesquisa mais apurada e minuciosa à grande teia (Ex.: Google, AltaVista, etc.) pra saber se existe algo nesse sentido. Sds. To: delphi-bra...@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: pa...@prsolucoes.com paulo%40prsolucoes.com Date: Wed, 11 Feb 2009 15:10:31 -0300 Subject: [delphi-br] Delphi + JasperReports Alguém ai sabe como usar no Delphi 7+, relatórios do jasper ou os criados pelo iReport ? Existem alguma forma de integrar os relatórios do jasper com o Delphi? -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Fortes Report
o que devo fazer para que a opçao ENVIAR(ao lado de Salvar) apareça para que eu consiga clicar e evidentemente enviar um email, quando entro em PREVIEW do relatório, pois para mim aparece como não disponível, tudo isto é claro no Fortes Report ? grato Stainle
Re: [delphi-br] Documentação de Regras de Ne gócio do Sistema
Pasdoc gera documentação de código fonte. O que ele pediu foi da regra de negócio. Se for pra documentar a regra de negócio convertida em lógica de programação, ainda é mais negócio fazê-lo via UML []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Rodrigo Ramalho rodrigoxav...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Friday, February 13, 2009 10:44 AM Subject: Re: [delphi-br] Documentação de Regras de Negócio do Sistema Uma alternativa seria documentar o código através de comentários e utilizar o PasDoc http://pasdoc.sipsolutions.net/ ou algo do tipo para gerar uma documentação em HTML ou PDF. Rodrigo 2009/2/13 Walter Chagas (Bol) wchag...@bol.com.br Fora a munheca, voce pode usar ferramentas de modelagem de dados para documentar a conversão de processos para linhas de código. Aqui na telemont, os processos (que nada mais são do que regras de negocios) são todos documentados em um documento que chamamos de POP (Procedimento Operacional Padrão). Cada área, cada setor, cada segmento na regional tem um, ou quantos forem necessários POPs para desempenhar tal atividade. Se entra um novo funcionario, ele vai ser treinado com base no Pop. Se implantamos uma nova regional em outro estado, ela irá trabalhar com base no Pop. E, como não vai ser diferente, se te pedirem pra fazer um sistema que atenda uma determinada área na regional, O escopo deste sistema já tá pronto. E é aí que eu vivo, desde que tou aqui, numa busca incessante, de como pegar esse POP e jogá-lo dentro de um UML, por exemplo... Mas o POP é feito manualmente mesmo, escrito em um documento Word e anexado ao nosso Manual de Sistema de Gestão que é o manual de como se trabalha na empresa. Aqui é assim que é feito e é assim que funciona. Tudo que se quer fazer, quer inovar, quer adicionar ou melhorar, o ponto de partida para tal e o POP. Voce pode inovar? Sim, mas tem que ser analisado o que voce quer inovar e confrontar sua ideia com o POP pra ver se o que voce propoe não irá impactar em outras atividades da empresa. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Reginaldo Donizete Felix To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, February 13, 2009 10:19 AM Subject: [delphi-br] Documentação de Regras de Negócio do Sistema Tenho uma questão acho que todos se deparam com esse trabalho meio que braçal. Como documentar as regras de negócio de um sistema. Por exemplo tenho determinadas regras em determinados campos de minhas telas qual a melhor alterantiva que vocês usam para documentar essas regras. Regras essas muitas as vezes internas do sistema que auxiliam o programador a endender o codigo. Estamos montando aqui na empresa tabelas com os campos de cada tela com as regras em word ou excel, mais não acho isso legal. Que alternativas podemos usar podem ser melhores ? Existes ferramentas proprias pra isso ? Alguem que utiliza alguma que pode indicar ? -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com -- Reginaldo D. Felix regife...@hotmail.com regifelix%40hotmail.com [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]
[delphi-br] Re: Programa clique e pinte - infantil
Perdoem reativar tópico antigo, mas estou atrás disso fazem alguns dias. Meu problema está sendo interpretar as cores de cada pixel. Preciso mudar de branco para vermelho e vice-versa. Os contornos limitadores são pretos. Agradeço qualquer ajuda ou idéia. [ ]'s Dirceu Portéla --- Em delphi-br@yahoogrupos.com.br, Anderson Marques Ferraz cacom...@... escreveu O algoritmo é simples sim. É só você analisar os vizinhos de cada pixel em uma função recursiva. Se esse pixel estiver em branco, analise cada um dos seus vizinhos. Se estes vizinhos também estiverem em branco, faça assim sucessivamente. Como definição primária de uma função recursiva, estabeleça um caso-base não recursivo, de solução direta. Depois da chamada recursiva de análise de cada um dos vizinhos, verifique se o pixel atual é branco e pinte da nova cor. Se não for branco, simplesmente saia. Não testei esse raciocínio, mas é semelhante a um jogo de campo minado que fiz no pascal =D Uma solução não-recursiva (iterativa) para esse exemplo poderia ser você fazer o seguinte: 1 - ao clicar em um pixel, ver algum pixel da borda do desenho localizado acima ou abaixo, à esquerda ou à direita do ponto clicado. 2 - a partir desse ponto da borda, localizar todos os outros pontos da borda (supondo que os pontos da borda estão lado a lado) 3 - analisar toda a área do desenho, cada um dos pontos; se a coordenada X do ponto analisado estiver entre os dois pontos da borda mais próximos com mesma coordenada Y do ponto analisado (o ponto analisado deve ter mesma coordenada Y dos pontos da borda mais próximos a esse ponto); 4 - analisar esse ponto novamente, mas verificando se a coordenada Y desse ponto está entre entre dois pontos da borda mais próximos com a mesma coordenada X. 5 - se 3 e 4 forem verdadeiras, então o ponto analisado está dentro da borda. Logo, deve ser pintado. Não testei essa solução, mas acho que deve funcionar. Qualquer coisa, manda email aí pra ver o resultado. Eu prefiro a solução recursiva. []'s Em 01/08/07, Benn Alle benna...@... escreveu: Luiz Acho que dá sim, Veja só, se a figura original for somente com linhas pretas você pode pegar a cor de pixel que ela clicou e ir ir verificando cada pixel ao redor, se não for preto você pinta da nova cor, e se for preto você para naquele sentido. Só que só vai funcionar se as figuras forem fechadas, se tiver uma conexão entre duas áreas ele vai pintar também, como ocorre no paint, porém você não vai poder permitir que ela pinte com a cor preta, o que você pode fazer é usar para a borda da imagem uma cor que não seja bem preto e não colocar esta cor na paleta de cores que você vai disponibilizar para ela. Acho que o algoritmo para verificar as bordas não vai ser muito fácil de fazer, mas não é impossível. Se você quizer entrar nesta impreitada eu te ajudo. Um Abraço, Benn Em 01/08/07, esco...@... escobar%40megasistema.com.br esco...@... escobar%40megasistema.com.br escreveu: até tentei mas pelo tempo, ou melhor falta dele, mandei usar o paint do windows mesmo, as vezes corel, photoshop... hoje ela tem 7 anos e se vira heheheee... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLER/MySQL/xBase SERVIDORES - IntraNetWare4.11, LINUX-RedHat9, Windows - Original Message - From: [DirectWeb] - Marcio To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 01, 2007 11:22 AM Subject: [delphi-br] Programa clique e pinte - infantil Olá ... Estou tentando fazer um software estilo clique e pinte para meus filhos, porém não achei uma forma de fazer o preenchimento das partes da figura ... uma figura inicialmente branca contornada em preto ... alguém já fez algo desse tipo ? tem alguma idéia pra me dar ? []s Marcio
Res: [delphi-br] Componente
Olá pessoal, Acho que o TextData é um componente que acompanha o Delphi7, pode ter como base de dados um TXT, e que sua instalação é opcional, já o Zeos eu sei que é um _cara_ 0800 que acessa vários tipos de bancos de dados, agora só não entendi o que o brother quer :( []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo° De: Rodrigo Yoshikazu Sahara rodrigooj...@hotmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Fevereiro de 2009 15:13:01 Assunto: [delphi-br] Componente Boa tarde a todos, Estou com uma duvida tenho o componente TextData, mas eu acho que falta alguma coisa para instala-lo e o componente ZEOS, alguem pode me ajudar . GratoRodrigo Yoshikazu Sahara 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]