Re: [delphi-br] duplica itens
bom , me disserem que o open; last first, eh pra corrigir o bug do recordcount, vou testar sem. Abraços Elton Adriano Pering Brusque - Santa Catarina - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 9:14 PM Subject: Re: [delphi-br] duplica itens with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; // pra que fazer isso??? nao precisa.. First; // pra que fazer isso??? nao precisa.. end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); // ta faltando um where nesse SQL... ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; // nao precisa fazer isso First; // nao precisa fazer isso end; Preview; finally free; end; Em 21/06/06, Elton [EMAIL PROTECTED] escreveu: SEGUINTE : Temos um relatorio de pedidos. Ao visulizar o pedido ,(quickreport), as de forma aleartória aparece os itens do pedido duplicado. Vejam se conseguem ver alguma coisa errada na montagem : // with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; Preview; finally free; end; // aguardo alguma sugestão . Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] bordbk70.dll + access + violation
Gostaria de saber dos colegas se alguem já teve este erro, e especialmente do Andreano Lanusse, e como resolver. Já li no Quality Central que pode ser relacionado ao SP2 do XP. Embora o erro ocorra tb no Win2K. Por isso fica a minha pergunta seria um erro ocorrido pelas atualizações do Windows ? Se for o que fazer ? ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] duplica itens
Nao uso IBQuery, se tem esse bug no recordcout tudo bem, mas normalmente nao precisa de last / First, apenas do Open que abre a query.. boa sorte aeee Em 22/06/06, Elton [EMAIL PROTECTED] escreveu: bom , me disserem que o open; last first, eh pra corrigir o bug do recordcount, vou testar sem. Abraços Elton Adriano Pering Brusque - Santa Catarina - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 9:14 PM Subject: Re: [delphi-br] duplica itens with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; // pra que fazer isso??? nao precisa.. First; // pra que fazer isso??? nao precisa.. end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); // ta faltando um where nesse SQL... ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; // nao precisa fazer isso First; // nao precisa fazer isso end; Preview; finally free; end; Em 21/06/06, Elton [EMAIL PROTECTED] escreveu: SEGUINTE : Temos um relatorio de pedidos. Ao visulizar o pedido ,(quickreport), as de forma aleartória aparece os itens do pedido duplicado. Vejam se conseguem ver alguma coisa errada na montagem : // with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; Preview; finally free; end; // aguardo alguma sugestão . Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi 2006 - atualizações (Hotfixes)
Andreano, Aquele erro da formatação com casas decimais (R$ 50,00 = 50,00 / 0,99 = ,99) permaneceu mesmo depois do Update 2)? Aliás um outro problema é que quando vou filtrar algum componente na Tool Pallete ou procurar alguma propriedade na Object Inspector digitando o nome da mesma o foco alterna para alguns controles ou outras propriedades. Braytiner [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Acessando aplicação na rede!
já tentou ao invés de colocar o nome do servidor, colocar o IP dele? --- Em delphi-br@yahoogrupos.com.br, André de Araujo Garcia [EMAIL PROTECTED] escreveu Bom dia... Senhores estou enfrentando o seguinte problema, a minha aplicação não acessa a rede, da o seguinte erro: is not a valid database Estou usando Delphi 7 + Firebird 1.5 Componente de acesso DBexpress A propriedade Database vai receber srvsae:c:\sae40\banco\banco.fdb Estacao cliente WinXP Servidora Win2000 Server O engraçado q ate ontem a aplicacao estava funcionando normalmente na rede com as configurações aprensentadas mas jah hj naum está mais! Alguém pode me apontar aonde eu possa estar errado? [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] duplica itens
Bug do RecordCount Quando voce da um First, o dataset move o ponteiro para o primeiro registro, registro a registro, Quando voce da um Last, o dataset move se para o ultimo registro, registro a registro. É esse o comportamento que voce quer ali Bem, mas voce sabia que ir do primeiro ao ultimo registro pode ser bem oneroso nehimagine Com uns 1000 ate vai, 10, registros (mestre detalhe), vai demorar um bocado...(nem todos os clientes gostam de esperar). Outro. Pelo que sei o recordcount não tem problemas, o que acontece quando voce da um Open, é que ele traz apenas os registros necessários para os componentes dataaware (normamente 1 registro) a não ser que voce tenha um dbgrid, onde ele vai trazer (fetch (se não me engano)) de registros suficientes para preencher o dbgrid...e contando do primeiro ao ultimo registro (visivel no dbgrid) vai ser a quantidade do count. Se voce quer outra solucao para saber quantos registros vem, eu sugiro utilizar um FetchAll. Embora não sei te responder se e melhor ou pior (acho que e melhor pois não movimenta registro a registro) alem de ficar mais elegante Sobre o seu problema Realvoce poderia nos passar o codigo da procedure PEGA_ITENSPEDIDO porque aqui ta parecendo correto. Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elton Enviada em: quinta-feira, 22 de junho de 2006 08:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] duplica itens bom , me disserem que o open; last first, eh pra corrigir o bug do recordcount, vou testar sem. Abraços Elton Adriano Pering Brusque - Santa Catarina - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 9:14 PM Subject: Re: [delphi-br] duplica itens with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; // pra que fazer isso??? nao precisa.. First; // pra que fazer isso??? nao precisa.. end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); // ta faltando um where nesse SQL... ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; // nao precisa fazer isso First; // nao precisa fazer isso end; Preview; finally free; end; Em 21/06/06, Elton [EMAIL PROTECTED] escreveu: SEGUINTE : Temos um relatorio de pedidos. Ao visulizar o pedido ,(quickreport), as de forma aleartória aparece os itens do pedido duplicado. Vejam se conseguem ver alguma coisa errada na montagem : //-- -- with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; Preview; finally free; end; //-- -- aguardo alguma sugestão . Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE
Re: [delphi-br] VirtualTreeView - Alguem usa?
Olá Felipe, eu uso até excessivamente a virtualtree em um sistema, ela é muito mais rápida que qualquer treeview que eu já tenha visto e agora uso ela pra tudo. O problema está em encontrar alguma documentação, na internet não encontrei nada, mesmo em inglês, tem apenas o arquivo de ajuda da pasta Help do diretório de extração do componente. Tente dar uma lida no tópico Virtual TreeView step by step. Seus nós só podem ser definidos via código (run-time) e através dos eventos que ela disponibiliza. Basicamente cada nó (Node) da treeview guarda uma estrutura (record ou um objeto) que você recupera através da função GetNodeData. Você deve hookar no mínimo os eventos: OnInitNode : Aqui você carrega os dados do nó da treeview que vem como parâmetro. Este nó já vem criado e o evento é disparado pra cada nó, sob demanda. OnInitChildren : Aqui você altera o parâmetro ChildCount indicando quantos filhos o Node passado tem OnGetNodeDataSize : Altere NodeDataSize para o tamanho da estrutura armazenada no Node , com SizeOf OnGetText : Modifique o valor do caption que representará o Node na TreeView. Altere a propriedade RootNodeCount do componente para o número de nós raiz e os eventos serão disparados.. É um pouco complicado de se aprender de princípio, além de não possuir automações para acesso a banco de dados, mas garanto que vale a pena aprender. Existem muitas outras opções de configuração, como você pode ver nos demos que acompanham o componente. Boa diversão :D. Qualquer dúvida, estamos aí.. Flávio Maltempe SpeedCASE Team - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 2:22 PM Subject: [delphi-br] VirtualTreeView - Alguem usa? Olá, estou pensando em usar o VirtualTreeView, visto que ele é um poderoso componente, usado até pela própria borland no proprio Delphi. Porém como na vida nada é fácil... to levando uma surra pra mexer nele... precisa que ficasse assim: Projeto | | Usuários | |--- Todos os usuarios (tabela user) | | Requisitos | |--- Todos os requisitos (tabela requisitos) etc... Ou seja.. teria um Root, e uns Filhos.. e cada Neto de Cada filho, seria um registro de uma tabela.. como mostrada acima.. Alguém sabe como fazer isso? Ou alguem tem algum tutorial em portugues para o VirtualTreeView? Desde já agradeço.. []s -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Componentes ASTA
Pessoal, Alguém usa os componentes ASTA (http://www.astatech.com/index.asp) para aplicações multi-tier? Achei-os interessante e gostaria da opinião de quem já usou. Abraços. -- Álvaro Vieira [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Acessando aplicação na rede!
André, Verifique se o firewall da maquina servidora não esta impedindo o acesso das máquinas clientes habilite sua aplicação e o firebird nas restrições do firewall... Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de André de Araujo Garcia Enviada em: quinta-feira, 22 de junho de 2006 05:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Acessando aplicação na rede! Bom dia... Senhores estou enfrentando o seguinte problema, a minha aplicação não acessa a rede, da o seguinte erro: is not a valid database Estou usando Delphi 7 + Firebird 1.5 Componente de acesso DBexpress A propriedade Database vai receber srvsae:c:\sae40\banco\banco.fdb Estacao cliente WinXP Servidora Win2000 Server O engraçado q ate ontem a aplicacao estava funcionando normalmente na rede com as configurações aprensentadas mas jah hj naum está mais! Alguém pode me apontar aonde eu possa estar errado? [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Usar o Boneco Mago
sim... eu consegui isso aqui. Muito louco... mas tem q baixar os drivers vai lá e baixa tudo... instala e manda brasa. tem até um recurso de reconhecimento de nossa voz, mas não vi como funciona... mas vou ver depois.. T+ - Original Message - From: José Roberto To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 3:51 PM Subject: RES: [delphi-br] Usar o Boneco Mago Tem como fazer com que ele fale(voz) ? José Roberto _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Odair Enviada em: terça-feira, 20 de junho de 2006 14:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Usar o Boneco Mago Já sim. veja se isso o ajuda: == Quem nunca viu os tão tradicionais Agentes da Microsoft que são instalados com o Word ou com excel? Agora quem nunca pensou em utilizar essa tecnologia em seus programas? Pensando nisso... fiz uma vasta busca pela internet. E essa busca resultou nesse resumão de como utilizar os agentes em programas delphi. Antes de começar a utilizar os agentes e seus programas delphi e necessário a instalação de alguns componentes em seu pc. Alguns desses componentes são opcionais. Ah! Você ira perder um bom tempo com Downloads. 1. Faça o Download do arquivo MSAgent.exe, pois este é o componente essencial. Observação Se o seu Sistema for Windows 2000 ou superior ignore esse Dica, pois os componentes essenciais do Microsoft Agent já Foram instalados. Local de Download: http://activex.microsoft.com/activex/controls/agent2/MSagent.exe 2. Se você quer ouvir seu agenter falar, faça o download do arquivo tv_enua.exe e o instale. Local de Download: http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe Para que nosso agente Fale em português é necessária a instalação de mais dois arquivos. http://www.htmlbible.com/MicrosoftSpeechComponents/ Role a pagina Ate ver a opção Português (Brasil) e baixe os dois Arquivos: O lhttsptb.exe e o AgtX0416. 3. Para ele receber Comandos de Voz faça o Download de mais um Arquivo. (Você precisa falar os comandos através do microfone). Faça o download do arquivo o Microsoft Speech Recognition Engine. Local de Download: http://activex.microsoft.com/activex/controls/agent2/actcnc.exe 4. Em nosso pc configuramos quase tudo através do painel de controle para você ter a opção de controlar, habilitar e gerenciar todas as Engines de Reconhecimento e de Speech instaladas em seu sistema, Baixe e instale o seguinte arquivo: spchcpl.exe. Local de Download: http://agent.microsoft.com/agent2/spchcpl.exe 5. Agora você só precisa baixar o character (Agentes) do Microsoft Agent. Você pode encontrar vários Agentes no endereço abaixo. http://www.msagentring.org/chars.htm Muito Bem, agora você precisa importar o controle ActiveX dos agentes para o Delphi: 1) Abra o Delphi 2) Clique em Component - Import ActiveX Control 3) Selecione o componente Microsoft Agent Control 2.0 4) Clique no botão Install... , OK...,Yes 5) Prossiga a instalação do controle Um novo componente TAgent vai ser adicionado à palheta de componentes do Delphi, na aba ActiveX. Após a Instalação dos Arquivos Necessários Para controle do Agente, No meu Caso Com Windows 98 SE, MSAgent.exe, tv_enua.exe, lhttsptb.exe e o AgtX0416 e Instalação do Componente TAgent. REINICIE SEU COMPUTADOR: Crie um novo projeto para testar a programação com agente. O programa vai mostrar alguns comportamentos do personagem Peedy e fazê-lo falar. No formulário coloque um componente Tagent, e um Tedit para digitar o texto que o personagem vai falar. Declare a Seguinte Variável na Opção Private da unit. Agente: IAgentCtlCharacter; No Evento FormCreate escreva: Agent1.Connected := True; Agent1.Characters.Load('Papagaio', 'Peedy.acs'); // Associar o agente à variável Agente Agente := Agent1.Characters[' Papagaio ']; Agente.Show(0); // Aparecer 0-lentamente 1-instantaneamente // Encenação de abertura Agente.Play('Greet'); // Cumprimentar Agente.Play('Announce'); // Anunciar Agente.Speak('Ola Tudo Bem', EmptyStr); // Falar Sleep(700); // Da uma pausa ao programa Agente.Speak('Escreva um texto e clique no botão', EmptyStr); Agente.Play('RestPose'); // Descansar No Evento FormDestroy escreva: Agente.Hide(0); Agent1.Connected:=false; No evento OnClick do Botão escreva: Agente.Speak(edit1.Text,EmptyStr); Prontinho Seu Programa Agora tem um agente que Fala e se move, igual ao da Microsoft. Abaixo segue algumas animações e sua descrição. Animação Descrição * Acknowledge Balança a Cabeça Alert Endireita a cabeça e levanta as sobrancelhas Announce Levanta a mão Blink Pisca os olhos Confused Passa a mão na cabeça
RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] duplica itens
Elton, Não sei se entendi muito bem o problema, mas um distinct no select ñ ajudaria? Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elton Enviada em: quinta-feira, 22 de junho de 2006 05:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] duplica itens SEGUINTE : Temos um relatorio de pedidos. Ao visulizar o pedido ,(quickreport), as de forma aleartória aparece os itens do pedido duplicado. Vejam se conseguem ver alguma coisa errada na montagem : // with TQuickReportPedido.Create(self) do try with IBQueryPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_PEDIDOS WHERE NUMPED = :NUMPED'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; {configuracoes} with IBQueryItensPedidos do begin Database:= Self.EIBDatabase; Transaction:= Self.EIBTransaction; SQL.CLEAR; SQL.Add('select * from PEGA_ITENSPEDIDO(:NUMPED)'); ParamByName('NUMPED').AsInteger := strToInt(TypeEditPedido.Text); Open; Last; First; end; Preview; finally free; end; // aguardo alguma sugestão . Obrigado [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro ao inserir imagem
Pessoal, estou com um pequeno problema mais não estou conseguindo resolver, parece fácil mais deu um branco. Ao cadastrar uma imagem (usando o DBImage) do produto no programa e clicar em gravar, aparece uma mensagem de erro Não foi possivel focar uma janela invisível ou não permitida. Só que ao fechar a janela com a mensagem a imagem esta lá e assim acontece com todas sucessivamente, será que alguem pode me dar uma dica pra resolver isso? Obrigado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] VirtualTreeView - Alguem usa?
Onde posso baixar esse componente?? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Flávio Granero Maltempe Enviada em: quinta-feira, 22 de junho de 2006 08:50 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] VirtualTreeView - Alguem usa? Olá Felipe, eu uso até excessivamente a virtualtree em um sistema, ela é muito mais rápida que qualquer treeview que eu já tenha visto e agora uso ela pra tudo. O problema está em encontrar alguma documentação, na internet não encontrei nada, mesmo em inglês, tem apenas o arquivo de ajuda da pasta Help do diretório de extração do componente. Tente dar uma lida no tópico Virtual TreeView step by step. Seus nós só podem ser definidos via código (run-time) e através dos eventos que ela disponibiliza. Basicamente cada nó (Node) da treeview guarda uma estrutura (record ou um objeto) que você recupera através da função GetNodeData. Você deve hookar no mínimo os eventos: OnInitNode : Aqui você carrega os dados do nó da treeview que vem como parâmetro. Este nó já vem criado e o evento é disparado pra cada nó, sob demanda. OnInitChildren : Aqui você altera o parâmetro ChildCount indicando quantos filhos o Node passado tem OnGetNodeDataSize : Altere NodeDataSize para o tamanho da estrutura armazenada no Node , com SizeOf OnGetText : Modifique o valor do caption que representará o Node na TreeView. Altere a propriedade RootNodeCount do componente para o número de nós raiz e os eventos serão disparados.. É um pouco complicado de se aprender de princípio, além de não possuir automações para acesso a banco de dados, mas garanto que vale a pena aprender. Existem muitas outras opções de configuração, como você pode ver nos demos que acompanham o componente. Boa diversão :D. Qualquer dúvida, estamos aí.. Flávio Maltempe SpeedCASE Team - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 2:22 PM Subject: [delphi-br] VirtualTreeView - Alguem usa? Olá, estou pensando em usar o VirtualTreeView, visto que ele é um poderoso componente, usado até pela própria borland no proprio Delphi. Porém como na vida nada é fácil... to levando uma surra pra mexer nele... precisa que ficasse assim: Projeto | | Usuários | |--- Todos os usuarios (tabela user) | | Requisitos | |--- Todos os requisitos (tabela requisitos) etc... Ou seja.. teria um Root, e uns Filhos.. e cada Neto de Cada filho, seria um registro de uma tabela.. como mostrada acima.. Alguém sabe como fazer isso? Ou alguem tem algum tutorial em portugues para o VirtualTreeView? Desde já agradeço.. []s -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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 * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] como imprimir so os dado que estao no formulario
eu sou novo em dlphi e crie um programa muito simples e queria imprimir so dado que estao no formulario pois eu baixi o VDOPrint mas no cosigo usar nao sei se poderiam me passar um codogo de exemplo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Poderia informar o tamanho dessa base em GB? Somente curiosidade mesmo. []'s Topolniak. - Original Message - From: romerofartura [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:04 AM Subject: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criptografia com função do Delphi
Fala aí pessoal, td blz? Tenho uma aplicação D2006 em ASP.NET, na qual utilizo a função FormsAuthentication.HashPasswordForStoringInConfigFile(senha,'SHA1') para encriptar as senhas dos usuários. Só que agora estou desenvolvendo uma aplicação também em D2006 só que WIN32 e não tô achando essa função, alguém sabe se tem isso para WIN32. Grato Murillo Proença -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] como imprimir so os dado que estao no formulario
Na boa cara, aprende a escrever... que desgraça ler isso aí... boa sorte. - Original Message - From: siqueira1978 To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 9:32 AM Subject: [delphi-br] como imprimir so os dado que estao no formulario eu sou novo em dlphi e crie um programa muito simples e queria imprimir so dado que estao no formulario pois eu baixi o VDOPrint mas no cosigo usar nao sei se poderiam me passar um codogo de exemplo [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] VirtualTreeView - Alguem usa?
Muito obrigado Flávio, Você já deu um boa idéia... rsrs... não entendi esse OnInitChildren, coloquei lá. if (Sender.GetNodeLevel(Node) = 0) then ChildCount := 8; Ou seja, acrescenta 8 filhos no Root... tá certo? como eu teria a estrutura base definida, sempre UM root, e OITO filhos... eu nao preciso usar um record, ou preciso? Ms pra cada filho, deverá mostrar algo.. mas aí já é outra coisa... não to conseguindo mostrar o root e os filhos... []s Em 22/06/06, Flávio Granero Maltempe [EMAIL PROTECTED] escreveu: Olá Felipe, eu uso até excessivamente a virtualtree em um sistema, ela é muito mais rápida que qualquer treeview que eu já tenha visto e agora uso ela pra tudo. O problema está em encontrar alguma documentação, na internet não encontrei nada, mesmo em inglês, tem apenas o arquivo de ajuda da pasta Help do diretório de extração do componente. Tente dar uma lida no tópico Virtual TreeView step by step. Seus nós só podem ser definidos via código (run-time) e através dos eventos que ela disponibiliza. Basicamente cada nó (Node) da treeview guarda uma estrutura (record ou um objeto) que você recupera através da função GetNodeData. Você deve hookar no mínimo os eventos: OnInitNode : Aqui você carrega os dados do nó da treeview que vem como parâmetro. Este nó já vem criado e o evento é disparado pra cada nó, sob demanda. OnInitChildren : Aqui você altera o parâmetro ChildCount indicando quantos filhos o Node passado tem OnGetNodeDataSize : Altere NodeDataSize para o tamanho da estrutura armazenada no Node , com SizeOf OnGetText : Modifique o valor do caption que representará o Node na TreeView. Altere a propriedade RootNodeCount do componente para o número de nós raiz e os eventos serão disparados.. É um pouco complicado de se aprender de princípio, além de não possuir automações para acesso a banco de dados, mas garanto que vale a pena aprender. Existem muitas outras opções de configuração, como você pode ver nos demos que acompanham o componente. Boa diversão :D. Qualquer dúvida, estamos aí.. Flávio Maltempe SpeedCASE Team - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 21, 2006 2:22 PM Subject: [delphi-br] VirtualTreeView - Alguem usa? Olá, estou pensando em usar o VirtualTreeView, visto que ele é um poderoso componente, usado até pela própria borland no proprio Delphi. Porém como na vida nada é fácil... to levando uma surra pra mexer nele... precisa que ficasse assim: Projeto | | Usuários | |--- Todos os usuarios (tabela user) | | Requisitos | |--- Todos os requisitos (tabela requisitos) etc... Ou seja.. teria um Root, e uns Filhos.. e cada Neto de Cada filho, seria um registro de uma tabela.. como mostrada acima.. Alguém sabe como fazer isso? Ou alguem tem algum tutorial em portugues para o VirtualTreeView? Desde já agradeço.. []s -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes ASTA
Simplesmente otimo! E muito dificil de mexer... hehe... ele me tirou do sufoco quando o Midas do delphi nao funcionava.. :o) mas ele eh muito, muito dificil de mexer... []s 2006/6/22, Álvaro Vieira [EMAIL PROTECTED]: Pessoal, Alguém usa os componentes ASTA (http://www.astatech.com/index.asp) para aplicações multi-tier? Achei-os interessante e gostaria da opinião de quem já usou. Abraços. -- Álvaro Vieira [EMAIL PROTECTED] -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes ASTA
Já usei em projetos anteriores, é muito bom. O único problema é que (ao menos quando usei) havia um custo por servidor que vc distribuísse, foi quando passei a utiilzar com o mesmo fim (app multi-tier) o kbmMw - www.componets4developers.com , é tão bom quanto (ou melhor) e vc paga apenas pelo componente e não tem custo por servidor que vc distribui. []s Paulo Botelho - Original Message - From: Álvaro Vieira [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 8:51 AM Subject: [delphi-br] Componentes ASTA Pessoal, Alguém usa os componentes ASTA (http://www.astatech.com/index.asp) para aplicações multi-tier? Achei-os interessante e gostaria da opinião de quem já usou. Abraços. -- Álvaro Vieira [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Caramba, mas 10 horas tem certeza ??? bom exporta os dados. importa num MySQL versão 3.x.x. ou acima, cria um campo autoincremente, ele vai ser criado já com a numeração certinha... exporta e importa no FireBird, tempo ? uns 15 minutos.. para instalar o mysql, e fazer o processo... ;-) cara deve ter algo muito errado nesse firebird ai.. eu num sei nada de firebird, mas em mysql isso levaria alguns segundos para 85000 regsitros abraços Luiz Escobar - Segue mensagem original! - De: romerofartura Data: Thu, 22 Jun 2006 11:32:38 - Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Tive muitos problemas com um banco firebird com relacao a performance. O mesmo estava lotado de indices desnecessarios (o cara que criou veio do Clipper e achou que teria de ficar criando indice pra tudo qto era pesquisa). O que fiz ? Desativei TUDO. Deixei o banco liso. Fui refazendo as chaves e etc. Melhorou 1000% !!! Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ romerofartura escreveu: Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Ainda é pequena esta com 62MB. --- Em delphi-br@yahoogrupos.com.br, Topolniak [EMAIL PROTECTED] escreveu Poderia informar o tamanho dessa base em GB? Somente curiosidade mesmo. []'s Topolniak. - Original Message - From: romerofartura [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:04 AM Subject: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
é MB mesmo e não GB, por isso estou achando muito lento. --- Em delphi-br@yahoogrupos.com.br, Topolniak [EMAIL PROTECTED] escreveu Poderia informar o tamanho dessa base em GB? Somente curiosidade mesmo. []'s Topolniak. - Original Message - From: romerofartura [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:04 AM Subject: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
É uma boa dica herdei este sistema, de programadores cobol/clipper vou fazer isso também. Valeu! --- Em delphi-br@yahoogrupos.com.br, Vinicius S. L. Ribeiro [EMAIL PROTECTED] escreveu Tive muitos problemas com um banco firebird com relacao a performance. O mesmo estava lotado de indices desnecessarios (o cara que criou veio do Clipper e achou que teria de ficar criando indice pra tudo qto era pesquisa). O que fiz ? Desativei TUDO. Deixei o banco liso. Fui refazendo as chaves e etc. Melhorou 1000% !!! Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ romerofartura escreveu: Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] VirtualTreeView - Alguem usa?
Cara, consegui fazer.. coloquei os 8 elementos lá... segue como eu fiz: type PtvItensPrincipais = ^TtvItensPrincipais; TtvItensPrincipais = record Texto: string[30]; ImageIdx: integer; end; procedure TFrmPrincipal.tvProjetoInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); var DadosPri: PtvItensPrincipais; Level: integer; begin //== //= Monto a estrutura da TreeList //== DadosPri := Sender.GetNodeData(Node); if not Assigned(DadosPri) then Exit; Level := Sender.GetNodeLevel(Node); with DadosPri^ do begin if Level = 0 then begin Texto := 'Projeto de TESTE'; ImageIdx := 0; end else begin case Node.Index of 0: begin Texto := 'Propriedades do Projeto'; ImageIdx := 8; end; 1: begin Texto := 'Requisitos'; ImageIdx := 1; end; 2: begin Texto := 'Erros (Bugs)'; ImageIdx := 10; end; 3: begin Texto := 'Validações'; ImageIdx := 6; end; 4: begin Texto := 'Fórum de Discussão'; ImageIdx := 5; end; 5: begin Texto := 'Rastreabilidade'; ImageIdx := 3; end; 6: begin Texto := 'Histórico'; ImageIdx := 2; end; 7: begin Texto := 'Aprovações'; ImageIdx := 7; end; end; end; end; end; procedure TFrmPrincipal.tvProjetoGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString); var DadosPri: PtvItensPrincipais; begin DadosPri := Sender.GetNodeData(Node); if Assigned(DadosPri) then with DadosPri^ do begin CellText := Texto; end; end; procedure TFrmPrincipal.tvProjetoGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer); var DadosPri: PtvItensPrincipais; begin DadosPri := Sender.GetNodeData(Node); ImageIndex := DadosPri.ImageIdx; end; Só que tem um probleminha.. ao fazer isso, blz.. jogou lá meus 8 filhos.. com as imagens blz.. soh que simplemente nao sei porque algumas imagens, a imagem do root fica sobreposta a ela.. ou seja... alguns filhos ficam com a imagem perfeita, outros ficam com as imagens deles, mas com a do root em cima... Estranho... To fazendo algo errado? []s [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Res:Como melhorar performance do update em tabela com 85000 registros
Gente valeu pela dica e agradeçoa a todos que perderam tempo comigo, resolvi o problema, comeceia apagar uns indices, procedures e triggers e achei uma trigger com um nome bem diferente da tabela que estava atualizando e não é que ela executava no update da tabela e refazia um calculo em que tem em alguns campos, desabilitei, usei as dicas passadas por vocês inclusive tirar fk e pk, e pronto, foi rapidinho. Muito obrigado a todos! Valeu mesmo. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu É uma boa dica herdei este sistema, de programadores cobol/clipper vou fazer isso também. Valeu! --- Em delphi-br@yahoogrupos.com.br, Vinicius S. L. Ribeiro [EMAIL PROTECTED] escreveu Tive muitos problemas com um banco firebird com relacao a performance. O mesmo estava lotado de indices desnecessarios (o cara que criou veio do Clipper e achou que teria de ficar criando indice pra tudo qto era pesquisa). O que fiz ? Desativei TUDO. Deixei o banco liso. Fui refazendo as chaves e etc. Melhorou 1000% !!! Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ romerofartura escreveu: Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Carregar dados sob demanda
E se for no ADO, alguem tem uma dica? Em 19/06/06, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Se você tiver usando ClientDataset, é tranquilo tranquilo. Basta setar o packetRecords do cds para a quantidade que você quiser trazer por demanda. Se fizer isto pro query, é mais complicado. Vai ter que fazer a demanda toda na mão. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Rafael Enviada em: segunda-feira, 19 de junho de 2006 15:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Carregar dados sob demanda Boa tarde galera, Alguém saberia me dizer se existe alguma forma ou algum componente que faça que quando eu faço uma select no meu programa, ao invés de ele trazer todos os dados ele carrega os dados sob demanda, mais ou menos como funciona no ib expert, quando se faz uma select nele ele só traz os dados que estão sendo mostrado na tela quando se gostaria de ver um dado nas linhas de baixo ai sim que ele carregava esses dados. Desde já Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes ASTA
O Que é este componente ASTA, é componente visual ? Abraços Elton Adriano Pering Brusque - Santa Catarina - Original Message - From: Álvaro Vieira To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 8:51 AM Subject: [delphi-br] Componentes ASTA Pessoal, Alguém usa os componentes ASTA (http://www.astatech.com/index.asp) para aplicações multi-tier? Achei-os interessante e gostaria da opinião de quem já usou. Abraços. -- Álvaro Vieira [EMAIL PROTECTED] [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ASPERCOM: Curso on-line grátis Entendendo Casos de Uso / Curso UML 2.0 UP
Amigos(as) da lista, Ainda não tinha divulgado aqui. A ASPERCOM está oferecendo um curso on-line grátis chamado Entendendo Casos de Uso*. Como o nome diz o assunto abordado no curso é a escrita e diagramação de casos de uso. O curso Entendendo Casos de Uso é baseado no Capítulo 1 da nossa apostila do curso presencial UML 2.0 Unified Process que está disponível no nosso site, porém, o conteúdo das lições é mais dinâmico, didático e completo. Mesmo quem já leu a apostila é aconselhável fazer o curso, principalmente pelas atividades práticas! O conhecimento prático é um dos valores mais importantes da nossa empresa. Para acessar o curso e já começar fazer as lições basta se cadastrar no site da ASPERCOM e acessar o link na lista de cursos da home: www.aspercom.com.br A avaliação dos nossos mais de 450 alunos inscritos foi excelente, mas queremos melhorar ainda mais. Conto com as sugestões e críticas de vocês! Aproveito para divulgar que a nossa próxima turma aberta do curso UML 2.0 Unified Process inicia no dia 10/julho, noturno, na Av. Berrini em São Paulo. Este curso de análise apresenta conceitos da orientação a objetos com a UML, dentro de um processo de desenvolvimento independente da plataforma de codificação. Recentemente agregamos no conteúdo a apresentação de alguns Design Patterns importantes para a análise UML. Maiores informações também no nosso site... Obrigado! Rodrigo Yoshima OMG UML 2.0 Certified Professional ASPERCOM - A sua Escola de Análise de Sistemas - APRENDA! www.aspercom.com.br *Custos de emissão do certificado são cobrados, mas só se você quiser o certificado. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Versão OS
Opa... Alguem sabe como q eu faço para descobrir a versão do sistema operacional??? Desde já agradeço, Att, Eduardo [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
Cara. Testei aqui com 422212 registros, LEVOU 6 SEGUNDOS Estrutura da table CODIGO, DATA, DATAENTREGA, CLIENTE, USUARIO, OBS Sql UPDATE ORDEMSERVICO SET CODIGO = GEN_ID(GTESTE, 1); Testei aqui com 2111054 registros (copiei de um select count...pra não escrever errado...rs..) e levou 1 minuto e 2segundos Estrutura da table CODIGO, ORDEM, PRODUTO, QUANTIDADE, TOTAL, OBS O banco tem ~300MB P4, 2.4Ghz, 256 Ram, 40Gh hd ISSO QUE EU TO TESTANDO AQUI com delphi aberto, sistema rodando...outlook..e outros...se fosse dedicado acho que não demoraria tanto... Assim senao for pedir demaisposso fazer um teste aqui pra ti, tira uma backup do teu banco E envia para [EMAIL PROTECTED] Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 10:54 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros é MB mesmo e não GB, por isso estou achando muito lento. --- Em delphi-br@yahoogrupos.com.br, Topolniak [EMAIL PROTECTED] escreveu Poderia informar o tamanho dessa base em GB? Somente curiosidade mesmo. []'s Topolniak. - Original Message - From: romerofartura [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:04 AM Subject: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Valeu pela dica já melhorou bem passou de 175 registros por min. p/ 275, teria mais algo que eu poderia estar vendo para melhorar mais um pouquinho, não considerando a troca da cpu, numa outra cpu um pouco melhor é 20% mais rápido, no dia da atualização no cliente vou levar outra, mas melhorar utilizando outros meios via update ou configuração do firebird ou alguma mudança na tabela, etc. Agradeço desde já a atenção dispensada. --- Em delphi-br@yahoogrupos.com.br, Elazar Dornelles Ceza [EMAIL PROTECTED] escreveu RomeroFartura; O Motivo de demora pode ocorrer caso tenha chaves primarias, estrangeiras e ate mesmos indices para algum campo da tabela, a sujestao que deixo, e que voce desative tudo, e volte a ativar depois de gerar os codigos. Outra sugestao seria de não usar o where, CONSIDERANDO que voce quer criar um novo campo CODIGO. UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1); COMMIT WORK; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de romerofartura Enviada em: quinta-feira, 22 de junho de 2006 08:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros Desculpe pessoal o banco é firebird 1.5, o caso é que nesta tabela tem 25 campos adicionei um codigo integer para ser a chave, pois a chave anterior começou a dar um problema por relacionamento errado, então preciso fazer este update usando o generator para ele atualizar numerando um a um o campo da tabela sem repetir o número. --- Em delphi-br@yahoogrupos.com.br, romerofartura [EMAIL PROTECTED] escreveu Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros
As vezes só com um simples Backup / Restore já resolve. O firebird precisa disso de tempos em tempos. Uma dica é na hora de fazer o restore, chekar a opção 'use all space' e aumentar o tamanho dá página para o máximo (16384) - Original Message - From: romerofartura To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:56 AM Subject: RES: [delphi-br] Re: Como melhorar performance do update em tabela com 85000 registros É uma boa dica herdei este sistema, de programadores cobol/clipper vou fazer isso também. Valeu! [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes ASTA
Não ele é um ClientDataSet... voltado exclusivamente para internet... dá um banho no Midas da Borland... porém tem perdido espaço para um componente da RemObjects, me esqueci o nome agora, ou seja, é um Midas muito, muito melhorado... []s Em 22/06/06, Elton [EMAIL PROTECTED] escreveu: O Que é este componente ASTA, é componente visual ? Abraços Elton Adriano Pering Brusque - Santa Catarina - Original Message - From: Álvaro Vieira To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 8:51 AM Subject: [delphi-br] Componentes ASTA Pessoal, Alguém usa os componentes ASTA (http://www.astatech.com/index.asp) para aplicações multi-tier? Achei-os interessante e gostaria da opinião de quem já usou. Abraços. -- Álvaro Vieira [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro ao inserir imagem
Você provavelmente está executando um SetFocus para um componente com Visible ou Enabled igual a falso, ou em uma janela que não está visivel no momento. Em 22/06/06, Bruno [EMAIL PROTECTED] escreveu: Pessoal, estou com um pequeno problema mais não estou conseguindo resolver, parece fácil mais deu um branco. Ao cadastrar uma imagem (usando o DBImage) do produto no programa e clicar em gravar, aparece uma mensagem de erro Não foi possivel focar uma janela invisível ou não permitida. Só que ao fechar a janela com a mensagem a imagem esta lá e assim acontece com todas sucessivamente, será que alguem pode me dar uma dica pra resolver isso? Obrigado [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campo Virtual
Galera boa Tarde, Como faço para criar um campo virtual (Somente na execução query), em uma sql, no caso quero criar um campo na minha sql, onde eu nao tenho esse campo, mas gostaria de cria-lo só para listar o mod-11, pq eu gravo somente o codigo sem o digito. ib_Pro.FieldByName('digito').AsString := ib_Pro.FieldByName('CODIGO').AsString + '-' + Mod11(ib_Pro.FieldByName('CODIGO').AsInteger); Onde Mod11 é a função para calcular o digito verificador. -- Grato pelo atenção Luís ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Como fazer uma barra de tarefas ?
queria fazer a MINHA barra de tarefas, vou explicar quero fazer um aplicativos, que seja uma barra de tarefas, igual ao do windows, que fica vinculado ao DESKTOP, que se eu abrir um aplicativo ela ainda continua aparecendo ficando do lado direito/esquerdo/acima... ALLguem sabe onde posso encontrar documentação/componente para isso ? Luiz Escobar - Original Message - From: Fellipe Henrique To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 1:19 PM Subject: Re: [delphi-br] Componentes ASTA Não ele é um ClientDataSet... voltado exclusivamente para internet... dá um banho no Midas da Borland... porém tem perdido espaço para um componente da RemObjects, me esqueci o nome agora, ou seja, é um Midas muito, muito melhorado... []s Em 22/06/06, Elton [EMAIL PROTECTED] escreveu: O Que é este componente ASTA, é componente visual ? Abraços Elton Adriano Pering Brusque - Santa Catarina - Original Message - From: Álvaro Vieira To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 8:51 AM Subject: [delphi-br] Componentes ASTA Pessoal, Alguém usa os componentes ASTA (http://www.astatech.com/index.asp) para aplicações multi-tier? Achei-os interessante e gostaria da opinião de quem já usou. Abraços. -- Álvaro Vieira [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] como imprimir so os dado que estao no formulario
--- siqueira1978 escreveu: eu sou novo em dlphi e crie um programa muito simples e queria imprimir so dado que estao no formulario pois eu baixi o VDOPrint mas no cosigo usar nao sei se poderiam me passar um codogo de exemplo [--x--] [Welson] Se o que você quer é um exemplo, junto com o arquivo compactado contendo o componente, vem um exemplo na pasta DEMO. É tranquilinho de aprender. []s. = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Criar Frame Dinamicamente em Panel.
O frame é criado sempre junto com o form, se vc ja tem o frame pronto, como vc falou é so mudar o visible dele, e use tambem o bringtofront e sendtoback para jogar ele pra frente e pra traz dos outros componentes --- FILIPE GMAIL [EMAIL PROTECTED] escreveu: Pessoal preciso criar um frame dentro de um panel de forma dinamica. O frame já está pornto e preciso criá-lo dentro de um Panel que está em outro form... Como faço isso? Obrigado a todos, Filipe Ferrarini. [As partes desta mensagem que não continham texto foram removidas] ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Carregar dados sob demanda
Se for no ADO?? []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Gabriel Filho Enviada em: quinta-feira, 22 de junho de 2006 11:18 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Carregar dados sob demanda E se for no ADO, alguem tem uma dica? Em 19/06/06, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Se você tiver usando ClientDataset, é tranquilo tranquilo. Basta setar o packetRecords do cds para a quantidade que você quiser trazer por demanda. Se fizer isto pro query, é mais complicado. Vai ter que fazer a demanda toda na mão. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Rafael Enviada em: segunda-feira, 19 de junho de 2006 15:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Carregar dados sob demanda Boa tarde galera, Alguém saberia me dizer se existe alguma forma ou algum componente que faça que quando eu faço uma select no meu programa, ao invés de ele trazer todos os dados ele carrega os dados sob demanda, mais ou menos como funciona no ib expert, quando se faz uma select nele ele só traz os dados que estão sendo mostrado na tela quando se gostaria de ver um dado nas linhas de baixo ai sim que ele carregava esses dados. Desde já Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [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 Links do Yahoo! Grupos [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird e Windows 2003 Server
Olá a todos. Gostaria de compartilhar um problema que vem acontecendo já há algum tempo e ver se alguém já passou por isso e encontrou solução. Tenho alguns servidores 2003 instalados em cliente e nele rodam sistemas em Delphi 7 com Firebird 1.5, que não são meus. O que acontece é que antes do 2003 essa máquina era XP. Tudo normal. Depois que foi instalado e configurado o 2003 nela estes sistemas tendem a ficar lentos, bem mais do que no xp, principalmente quando colocam alguma rotina pra executar no servidor. Não acredito em problemas com o 2003, pois tenho outros rodando sistemas com outros bancos diversos e isso não acontece. Acredito que seja alguma configuração do firebird, porém não conheço a fundo este banco. Alguém já teve problemas desse tipo, ou sabe me informar a causa disso? O cliente já está falando em voltar ao XP, o que seria um retrocesso no caso dele, já que o servidor executa outros serviços que no xp não seriam possíveis. Obrigado pela atenção. Claudiney Cogo N2 Solutions. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro de conexao usando o FB e dbXpress_somente no cliente_
--- André Moraes - DJSystem escreveu: Verifique se o arquivo services contém a linha tcp_gb 3050/TCP [--x--] [Welson] Arquivo services !? Eu procurei por esse arquivo aqui, mas não encontrei um que fosse relacionado ao FB. Se você se refere ao services, dentro de Ferramentas Administrativas, lá está com o FB sendo iniciado automaticamente. Obrigado pela atenção. Té mais. ;-) = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Inserir e deletar usuario MAX TIBSecurityService ou TMDOSecurityService
Inserir e deletar usuário com o componente TIBSecurityService ou TMDOSecurityService: IBSecurityService1.UserName := 'MAX'; MDOSecurityService1.UserName := 'MAX'; Se o usuário possui o nome MAX que é palavra reservada ocorre a mensagem de erro abaixo: --- Teste --- Erro no servidor: Token unknown - line 1, char 28 MAX. --- OK --- Já tentei: IBSecurityService1.UserName := QuoteStr('MAX'); IBSecurityService1.UserName := #39 + #34 + #39 + 'MAX' + #39 + #34 + #39; Alguma sugestão? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro de conexao usando o FB e dbXpress_somente no cliente_
Se vc estiver usando WIN98 este arquivo está dentro da pasta c:\windows\; se for XP ele está em c:\windows\system32\drivers\etc. Procure nele a linha gds_db 3050/tcp, e caso não exista, acrescente. - Original Message - From: Welson Avelar To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 2:35 PM Subject: Re: [delphi-br] Erro de conexao usando o FB e dbXpress_somente no cliente_ --- André Moraes - DJSystem escreveu: Verifique se o arquivo services contém a linha tcp_gb 3050/TCP [--x--] [Welson] Arquivo services !? Eu procurei por esse arquivo aqui, mas não encontrei um que fosse relacionado ao FB. Se você se refere ao services, dentro de Ferramentas Administrativas, lá está com o FB sendo iniciado automaticamente. Obrigado pela atenção. Té mais. ;-) = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Erro ao inserir imagem
Galera to recebendo as msg duplicadas sempre, alguém sabe me dizer o motivo?? _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Roque Enviada em: quinta-feira, 22 de junho de 2006 13:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro ao inserir imagem Você provavelmente está executando um SetFocus para um componente com Visible ou Enabled igual a falso, ou em uma janela que não está visivel no momento. Em 22/06/06, Bruno [EMAIL PROTECTED] escreveu: Pessoal, estou com um pequeno problema mais não estou conseguindo resolver, parece fácil mais deu um branco. Ao cadastrar uma imagem (usando o DBImage) do produto no programa e clicar em gravar, aparece uma mensagem de erro Não foi possivel focar uma janela invisível ou não permitida. Só que ao fechar a janela com a mensagem a imagem esta lá e assim acontece com todas sucessivamente, será que alguem pode me dar uma dica pra resolver isso? Obrigado [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como melhorar performance do update em tabela com 85000 registros
Uma curiosidade : Você fez um programa em delphi pra fazer essa atualização ou está executando esse comando na console do SGDB ? On 21/06/06, romerofartura [EMAIL PROTECTED] wrote: Estou com problemas em um cliente preciso fazer uma select para gerar o codigo da tabela criei o seguinte script, foi o mais rápido que consegui, mas mesmo assim vão 10 horas para atualizar, queria saber se alguém poderia me ajudar e ver se tem como melhorar mais, ou se vou precisar trocar a máquina do cliente ela é um Cel. 2.8/512MB/HD80GB/PCCHIPS, segue o script: UPDATE CONREC SET CODIGO = GEN_ID(GEN_CONREC,1) WHERE CODIGO IS NULL O generator não vai deixar repetir o código, que tiver alguma idéia agradeço, Ricardo Romero. Saudações, Zunga. [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Versão OS
Iniciar / Executar e digita WinVer e da enter abraços -- Mensagem Original -- To: delphi-br@yahoogrupos.com.br From: Eduardo Buffara [EMAIL PROTECTED] Date: Thu, 22 Jun 2006 11:30:47 -0300 Subject: [delphi-br] Versão OS Reply-To: delphi-br@yahoogrupos.com.br Opa... Alguem sabe como q eu faço para descobrir a versão do sistema operacional??? Desde já agradeço, Att, Eduardo [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SSH
Temos uma aplicação que é um servidor Telnet. Usamos o componente TIdTelnetServer da suite Indy. Um cliente pediu para usarmos SSH. Alguém já fez algo parecido? Detalhe : componentes e servidor SSH devem ser freeware. -- Saudações, Zunga. [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Relatorio quase impossivel... (desenhei)
Olá pessoal, Estou precisando de uma ajuda em um relatorio que preciso fazer e nem tenho ideia de como. O relatorio é um mapa de cotação de preços. Ele é como um grid, as linhas sao os produtos e as colunas os fornecedores. Eu tenho n produtos e n fornecedores. É mais ou menos assim como tentei desenhar aqui em baixo: |---| |_|___Fornecedores___| |Items| Fornec 01 | Fornec 02 | Fornec 03 | ... | | Computador | 1.000,00 | 990,00 | 1.200,00 | | | Impressora | 500,00 |490,00 | 399,90 | | | Mouse | 5,50 | 4,50 | 3,30 | | | : | | | | | | : | | | | | |__|_|_|__|___| |Total |1.505,50 | 1.484,50 | 1.603,20 |- Se alguem puder me ajudar, agradeceria muito. Att, Eduardo Damasceno - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Firebird e Windows 2003 Server
Amigo, eu utilizo o Firebird 1.5 aqui na minha estação 2003 Server e a velocidade é a mesma que em XP, eu nao altererei nada da configuracao default do Fire, nem nas configuracoes do 2003Server - Original Message - From: nemmga [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 2:12 PM Subject: [delphi-br] Firebird e Windows 2003 Server Olá a todos. Gostaria de compartilhar um problema que vem acontecendo já há algum tempo e ver se alguém já passou por isso e encontrou solução. Tenho alguns servidores 2003 instalados em cliente e nele rodam sistemas em Delphi 7 com Firebird 1.5, que não são meus. O que acontece é que antes do 2003 essa máquina era XP. Tudo normal. Depois que foi instalado e configurado o 2003 nela estes sistemas tendem a ficar lentos, bem mais do que no xp, principalmente quando colocam alguma rotina pra executar no servidor. Não acredito em problemas com o 2003, pois tenho outros rodando sistemas com outros bancos diversos e isso não acontece. Acredito que seja alguma configuração do firebird, porém não conheço a fundo este banco. Alguém já teve problemas desse tipo, ou sabe me informar a causa disso? O cliente já está falando em voltar ao XP, o que seria um retrocesso no caso dele, já que o servidor executa outros serviços que no xp não seriam possíveis. Obrigado pela atenção. Claudiney Cogo N2 Solutions. No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.394 / Virus Database: 268.9.2/370 - Release Date: 20/06/2006 ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Relatorio quase impossivel... (desenhei)
Ja pensou em gerar uma planilha do Excel? --- Em delphi-br@yahoogrupos.com.br, Eduardo Damasceno [EMAIL PROTECTED] escreveu Olá pessoal, Estou precisando de uma ajuda em um relatorio que preciso fazer e nem tenho ideia de como. O relatorio é um mapa de cotação de preços. Ele é como um grid, as linhas sao os produtos e as colunas os fornecedores. Eu tenho n produtos e n fornecedores. É mais ou menos assim como tentei desenhar aqui em baixo: |- --| |_|___Fornecedores___| |Items| Fornec 01 | Fornec 02 | Fornec 03 | ... | | Computador | 1.000,00 | 990,00 | 1.200,00 | | | Impressora | 500,00 |490,00 | 399,90 | | | Mouse | 5,50 | 4,50 | 3,30 | | | : | | | | | | : | | | | | |__|_|_|__|___| |Total |1.505,50 | 1.484,50 | 1.603,20 |- Se alguem puder me ajudar, agradeceria muito. Att, Eduardo Damasceno - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Relatorio quase impossivel... (desenhei)
Eduardo, Tenho este tipo de relatório em funcionamento em um cliente. foi feito em QuickReport e deu um senhor trabalho. Quando eu for no cliente, vou ver se consigo te mostrar o jeitão da coisa. Roberto Wazen (RJ) - Original Message - From: Eduardo Damasceno To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:35 AM Subject: [delphi-br] Relatorio quase impossivel... (desenhei) Olá pessoal, Estou precisando de uma ajuda em um relatorio que preciso fazer e nem tenho ideia de como. O relatorio é um mapa de cotação de preços. Ele é como um grid, as linhas sao os produtos e as colunas os fornecedores. Eu tenho n produtos e n fornecedores. É mais ou menos assim como tentei desenhar aqui em baixo: |---| |_|___Fornecedores___| |Items| Fornec 01 | Fornec 02 | Fornec 03 | ... | | Computador | 1.000,00 | 990,00 | 1.200,00 | | | Impressora | 500,00 |490,00 | 399,90 | | | Mouse | 5,50 | 4,50 | 3,30 | | | : | | | | | | : | | | | | |__|_|_|__|___| |Total |1.505,50 | 1.484,50 | 1.603,20 |- Se alguem puder me ajudar, agradeceria muito. Att, Eduardo Damasceno - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Impressão matricial
Olá! Estou usando o componente VDODmPrinter para imprimir notas [Delphi5]. Quando sai a primeira impressão da nota... OK! Mas quando mando a segunda impressão, a fonte sai maior, desconfigurando a nota! Todavia, se eu fechar o sistema e mandar imprimir novamente, a fonte aparece normal! Poderiam ajudar nessa dica! está faltando apenas isso! Grato, Almir __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Impressão matricial
Almir, para este tipo de consulta, acho que vc teria melhor atendimento dos colegas da lista, se informasse por exemplo o sistema operacional que usa, e qual a marca modelo da impressora. Aposto que win XP, acertei? - Original Message - From: almir cruz To: Grupo Sent: Thursday, June 22, 2006 6:13 PM Subject: [delphi-br] Impressão matricial Olá! Estou usando o componente VDODmPrinter para imprimir notas [Delphi5]. Quando sai a primeira impressão da nota... OK! Mas quando mando a segunda impressão, a fonte sai maior, desconfigurando a nota! Todavia, se eu fechar o sistema e mandar imprimir novamente, a fonte aparece normal! Poderiam ajudar nessa dica! está faltando apenas isso! Grato, Almir __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Relatorio quase impossivel... (desenhei)
Muito obrigado Roberto, estarei no aguardo. Murillo ainda nao pensei em gerar uma planilha, pois os clientes sao meio arredios a coisas 'fora' do sistema mas estarei olhando essa possibilidade, obrigado pela dica. Roberto Wazen (RJ) [EMAIL PROTECTED] escreveu: Eduardo, Tenho este tipo de relatório em funcionamento em um cliente. foi feito em QuickReport e deu um senhor trabalho. Quando eu for no cliente, vou ver se consigo te mostrar o jeitão da coisa. Roberto Wazen (RJ) - Original Message - From: Eduardo Damasceno To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:35 AM Subject: [delphi-br] Relatorio quase impossivel... (desenhei) Olá pessoal, Estou precisando de uma ajuda em um relatorio que preciso fazer e nem tenho ideia de como. O relatorio é um mapa de cotação de preços. Ele é como um grid, as linhas sao os produtos e as colunas os fornecedores. Eu tenho n produtos e n fornecedores. É mais ou menos assim como tentei desenhar aqui em baixo: |---| |_|___Fornecedores___| |Items| Fornec 01 | Fornec 02 | Fornec 03 | ... | | Computador | 1.000,00 | 990,00 | 1.200,00 | | | Impressora | 500,00 |490,00 | 399,90 | | | Mouse | 5,50 | 4,50 | 3,30 | | | : | | | | | | : | | | | | |__|_|_|__|___| |Total |1.505,50 | 1.484,50 | 1.603,20 |- Se alguem puder me ajudar, agradeceria muito. Att, Eduardo Damasceno - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Erro ao inserir imagem
Alexandre, valeu a atenção mais ainda não consegui tem outra sugestão? obrigado Alexandre Roque [EMAIL PROTECTED] escreveu: Você provavelmente está executando um SetFocus para um componente com Visible ou Enabled igual a falso, ou em uma janela que não está visivel no momento. Em 22/06/06, Bruno [EMAIL PROTECTED] escreveu: Pessoal, estou com um pequeno problema mais não estou conseguindo resolver, parece fácil mais deu um branco. Ao cadastrar uma imagem (usando o DBImage) do produto no programa e clicar em gravar, aparece uma mensagem de erro Não foi possivel focar uma janela invisível ou não permitida. Só que ao fechar a janela com a mensagem a imagem esta lá e assim acontece com todas sucessivamente, será que alguem pode me dar uma dica pra resolver isso? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Relatorio quase impossivel... (desenhei)
Ó... voce poderia fazer um tabela temporaria em memória mesmo Onde voce faz a leitura dos dados e adiciona na tabela... ver numeros de produtos = numeros de registros ver numeros de fornecedores = numero de campos + campo_nome_produto while not tabPRODUTOS.eof do begin procura_na_tabela_temporaria_o_item if not achou_NA_tabela_temporaria them begin adiciona_nome_produto if produto_formec1 then campo_formec1 := valor; etc... etc... etc... end tabPRODUTOS.NEXT; end IMPRIME ou montar uma array, também +/- o mesmo esquema... ou tentar fazer uma QUERY meio que contralada..., mas não sei se iria dar certo... porque na montagem da query ja teria que saber quantos fornecedores tem no maximo... coisa meio complicado vamos esperar o que o nosso amigo, Roberto Wazen (RJ), tem pra oferecer, e aproveitando, manda pra lista, pois parece ser algo bem util... ou coloca na seção dos arquivos ;-) abraços a todos... Luiz Escobar - Segue mensagem original! - De: Eduardo Damasceno Data: Thu, 22 Jun 2006 21:48:48 + (GMT) Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Relatorio quase impossivel... (desenhei) Muito obrigado Roberto, estarei no aguardo. Murillo ainda nao pensei em gerar uma planilha, pois os clientes sao meio arredios a coisas 'fora' do sistema mas estarei olhando essa possibilidade, obrigado pela dica. Roberto Wazen (RJ) escreveu: Eduardo, Tenho este tipo de relatório em funcionamento em um cliente. foi feito em QuickReport e deu um senhor trabalho. Quando eu for no cliente, vou ver se consigo te mostrar o jeitão da coisa. Roberto Wazen (RJ) - Original Message - From: Eduardo Damasceno To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 22, 2006 10:35 AM Subject: [delphi-br] Relatorio quase impossivel... (desenhei) Olá pessoal, Estou precisando de uma ajuda em um relatorio que preciso fazer e nem tenho ideia de como. O relatorio é um mapa de cotação de preços. Ele é como um grid, as linhas sao os produtos e as colunas os fornecedores. Eu tenho n produtos e n fornecedores. É mais ou menos assim como tentei desenhar aqui em baixo: |---| |_|___Fornecedores___| |Items | Fornec 01 | Fornec 02 | Fornec 03 | ... | | Computador | 1.000,00 | 990,00 | 1.200,00 | | | Impressora | 500,00 | 490,00 | 399,90 | | | Mouse | 5,50 | 4,50 | 3,30 | | | : | | | | | | : | | | | | |__|_|_|__|___| |Total | 1.505,50 | 1.484,50 | 1.603,20 |- Se alguem puder me ajudar, agradeceria muito. Att, Eduardo Damasceno - Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Manipulação de XML
Boa noite galera, Estou fazendo um pequeno aplicativo com a seguinte função: 1. Ira se conectar em uma base na Web(MySql)---OK 2. Irá pegar as tabelas e salvar em arquivos internos XML 3. É possível em XML instruções SQL DML? Tabelas Cliente(cli_id, cli_nome, cli_endereco,...) Pedido(ped_id, cli_id, ped_valor, ped_status, ...) Itenspedido(itp_id, ped_id, prod_nome,...) Como funciona essa parte de manipulação de XML no Delphi..se alguém tiver algum material...ou site Enquanto isso estou no google...ja achei alguns artigos...mas ainda nda! Abs. Rodrigo Mota. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Componente VDODmPrinter
Olá! Estou usando o componente VDODmPrinter para imprimir notas [Delphi5], SO win98 com uma impressora EpsonLX300. Quando sai a primeira impressão da nota... OK! Mas quando mando a segunda impressão, a fonte sai maior, desconfigurando a nota! Todavia, se eu fechar o sistema e mandar imprimir novamente, a fonte aparece normal! Poderiam ajudar nessa dica! está faltando apenas isso! Grato, Almir __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Impressão matricial
Olá Roberto! Estou usando o win98 e minha impressora é uma EpsonLX300! Grato Almir Roberto Wazen (RJ) [EMAIL PROTECTED] escreveu:Almir, para este tipo de consulta, acho que vc teria melhor atendimento dos colegas da lista, se informasse por exemplo o sistema operacional que usa, e qual a marca modelo da impressora. Aposto que win XP, acertei? - Original Message - From: almir cruz To: Grupo Sent: Thursday, June 22, 2006 6:13 PM Subject: [delphi-br] Impressão matricial Olá! Estou usando o componente VDODmPrinter para imprimir notas [Delphi5]. Quando sai a primeira impressão da nota... OK! Mas quando mando a segunda impressão, a fonte sai maior, desconfigurando a nota! Todavia, se eu fechar o sistema e mandar imprimir novamente, a fonte aparece normal! Poderiam ajudar nessa dica! está faltando apenas isso! Grato, Almir __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] - Yahoo! doce lar. Faça do Yahoo! sua homepage. [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componente VDODmPrinter
O forum do VDOPrint tem um monte de informação e macete... da uma olhada lá;;; vc fale diretamento com quem desenvolve o componente. Em 22/06/06, almir cruz [EMAIL PROTECTED] escreveu: Olá! Estou usando o componente VDODmPrinter para imprimir notas [Delphi5], SO win98 com uma impressora EpsonLX300. Quando sai a primeira impressão da nota... OK! Mas quando mando a segunda impressão, a fonte sai maior, desconfigurando a nota! Todavia, se eu fechar o sistema e mandar imprimir novamente, a fonte aparece normal! Poderiam ajudar nessa dica! está faltando apenas isso! Grato, Almir __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] SSH
Da uma olhada nestes componentes SSH http://www.torry.net/quicksearchd.php?String=sshTitle=Yes On 6/22/06, Zunga Vei [EMAIL PROTECTED] wrote: Temos uma aplicação que é um servidor Telnet. Usamos o componente TIdTelnetServer da suite Indy. Um cliente pediu para usarmos SSH. Alguém já fez algo parecido? Detalhe : componentes e servidor SSH devem ser freeware. -- Saudações, Zunga. [As partes desta mensagem que não continham texto foram removidas] -- Luiz Eduardo D. de Araujo [EMAIL PROTECTED] - Rio de Janeiro - RJ - Brasil Linux User: 381565 [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: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html