Re: [delphi-br] Compactação de dll, b pl e executáveis
Adriano Santos (Y!) wrote: Concordo em gênero e número contigo. Sei muito bem como funcionam o UPX,VirtualCompress e o AsPack. Meu principal problema onde trabalhei, como mencionei, era distribuição do sistema e os usuários que eram bem ruins. Descompactar um arquivo .zip, vixi...era o maior trabalho cara. Isto é a realidade em quase todos os pequenos clientes (e boa parte dos grantes também). O que eu procurei colocar é que UPX não é solução, é paleativo, e dos problemáticos em máquinas com pouca memória. Quando falei descompactar no cliente, eu me referia à própria aplicação, ou um atualizador, fazer este trabalho. Joao Morais
Arquivo - [delphi-br] regras.txt
= TERMOS PARA PARTICIPAÇÃO NO GRUPO DELPHI-BR = I. CONSIDERAÇÕES GERAIS --- a) A concordância com os termos do presente documento é precondição para sua participação na lista de discussão delphi-br. b) O desconhecimento do presente documento não é motivo para o não cumprimento de qualquer de suas regras. c) A função dos moderadores é reguladora e suas principais atividades são: .observar que as mensagens enviadas ao grupo guardam tom amistoso; .observar que as mensagens enviadas ao grupo tratam de assuntos relacionados com o tema principal da lista, ou seja, Pascal, Delphi e Kylix; .aplicar medidas punitivas quando algum membro da lista infringe alguma das regras da lista, conforme disposto nos termos abaixo. d) A lista é mantida de forma gratuita. Não existem quaisquer garantias de continuidade ou qualidade no funcionamento da lista. Também não há garantias quanto ao teor ou validade técnica das mensagens enviadas à lista. II. FUNCIONAMENTO - a) MEMBROS MODERADOS: . Membros moderados têm suas mensagens submetidas à aprovação por um moderador antes de serem encaminhadas à lista. * Mensagens em desacordo com as regras da lista serão bloqueadas e jamais chegarão à lista. * O processo de moderação causará algum atraso na entrega das mensagens do membro moderado à lista. * O prazo de moderação é, por padrão, indeterminado. Porém, o tempo médio de moderação é uma semana. b) MEMBROS REGULARES: . Membros regulares são aqueles que participam da lista sem moderação. Suas mensagens são enviadas automaticamente à lista sem qualquer tipo de preprocessamento. . Membros regulares estão sujeitos às regras da lista e a infração de qualquer uma dessas regras resultará em medidas punitivas por parte dos moderadores. c) CAIXAS POSTAIS: . Usuários terão seu status de recepção modificado para 'No email' quando: sua caixa postal estiver cheia; sua caixa postal apresentar problemas que causem retorno de erro; ou, seu leitor de email tiver a propriedade aviso de recebimento de mensagens ativada. * Quando sanar o problema, o próprio usuário poderá entrar no site e alterar seu status: http://br.groups.yahoo.com/mygroups * Opcionalmente, um usuário poderá restaurar seu status para normal enviando uma mensagem para: [EMAIL PROTECTED] III. REGULAMENTO a) GERAL: 1. O idioma oficial da lista é o português. Mensagens em outros idiomas não serão permitidas. 2. Todas as mensagens enviadas à lista deverão usar de tom amigável. O uso de ironia, sarcasmo, linguagem vulgar, comentário preconceituoso, insulto ou tom ofensivo sob qualquer outra forma não será tolerado. 3. As regras de etiqueta da Rede (RFC 1855, Netiquette Guidelines) deverão ser observadas quando pertinentes ao tipo de comunicação estabelecida na lista (um para muitos). Para maiores detalhes sobre a RFC 1855, veja http://www.ietf.org/rfc/rfc1855.txt?number=1855 4. Não envie arquivos anexados (attachments). Arquivos anexados são automaticamente rejeitados pela lista. A lista oferece um espaço para arquivos em: http://br.groups.yahoo.com/group/delphi-br/files 5. Não faça cross-posting (envio da mesma mensagem para diversas listas). Essa prática é considerada anti-ética pela maioria das comunidades na Internet. b) PIRATARIA: 1. Não promova pirataria de qualquer material. 2. Será considerada promoção de pirataria a solicitação ou fornecimento de números seriais, senhas, cracks, warez, cópias eletrônicas ou links para download de produtos (ou qualquer uma de suas partes) sem autorização legal para distribuição gratuita na Internet. Qualquer menção de como obter acesso a esse tipo de material (redes P2P, newsgroups, listas de discussão, diretórios, anúncios, etc) será igualmente considerada promoção de pirataria. * Para que não seja considerada pirataria, o autor da da mensagem deverá indicar explicitamente tratar-se de versão livremente acessível pela Internet. Caso não proceda dessa forma e havendo versão comercial do produto mencionado, a mensagem será considerada promoção de pirataria. 3. Na dúvida, seja explícito em sua mensagem e indique com toda clareza estar solicitando ou fornecendo dados de uma versão gratuita de um material. 4. Os moderadores da lista procederão com o máximo rigor, comunicando a todos os provedores envolvidos (dos autores das mensagens e dos sites
[delphi-br] Microsoft Finger Print
Ola senhores, alguem sabe ou alguem tem o driber FingerCap USB para o leitor Microsoft Finger Print? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Bom Dia Ricardo,
Você pode fazer assim:
IF not DM.ibvendedor.isnull then
Begin
Bla,bla,bla;
End;
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de 2008 00:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir
form
Oi galera,
Gostaria de uma sugestão..
Eu preciso verificar se algumas tabelas tem registro antes de abrir um
determinado form...
Atualmente tenho todos os meus IBDataSet num data Modulo.estou tentando
fazer o codigo abaixo...
Mas não está funcionando conforme eu quero...
if not(DM.IBVendedor.Eof) then
begin
MessageDlg('Nenhum vendedor foi cadastrada ainda.'+#13+
#10+'Favor cadastrar vendedor para para continuar.', mtInformation, [mbOK],
0);
Exit;
end;
fico no aguardo de uma ajuda...
Obrigado...
Ricardo Mendes
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Corrige o meu outro código, é IF tabela.isnull, e não IF not tabela.isnull
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de 2008 00:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir
form
Oi galera,
Gostaria de uma sugestão..
Eu preciso verificar se algumas tabelas tem registro antes de abrir um
determinado form...
Atualmente tenho todos os meus IBDataSet num data Modulo.estou tentando
fazer o codigo abaixo...
Mas não está funcionando conforme eu quero...
if not(DM.IBVendedor.Eof) then
begin
MessageDlg('Nenhum vendedor foi cadastrada ainda.'+#13+
#10+'Favor cadastrar vendedor para para continuar.', mtInformation, [mbOK],
0);
Exit;
end;
fico no aguardo de uma ajuda...
Obrigado...
Ricardo Mendes
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Lazarus
Pessoal, alguém aqui utiliza Lazarus ? Estou afim de trocar algumas informações e dúvidas a respeito da IDE. Obrigado [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [OFF-TOPIC] Lazarus
Opa... Diga lá, Vinicius. Oq vc quer saber? --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Vinicius Santos - MSI [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 9:37:29 Assunto: [delphi-br] [OFF-TOPIC] Lazarus Pessoal, alguém aqui utiliza Lazarus ? Estou afim de trocar algumas informações e dúvidas a respeito da IDE. Obrigado [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compactação de dll, bpl e exec utáveis
Adriano, Me desculpe, mas, qual seria o empecilho no caso apresentado, de mandar os EXEs compactados com ZIP por exemplo?! O download seria menor de qualquer forma, sem ter que compactar o executável! --- Em ter, 30/9/08, Adriano Santos (Y!) [EMAIL PROTECTED] escreveu: De: Adriano Santos (Y!) [EMAIL PROTECTED] Assunto: Re: [delphi-br] Compactação de dll, bpl e executáveis Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 30 de Setembro de 2008, 22:42 João Morais, Não sei qual o nicho de mercado que trabalha e como são seus clientes em relação a tecnologia, mas te digo. Motivos tive de sobra. Imagine um sistema dividido em 5 arquivos de 20 Mb cada. 20 Mb de executável é bem difícil de atualizar quando não se tem banda larga e o micros dos clientes são lixo. Pra quem trabalha modularizado com arquivos de 400 Kb a 1Mb, não vale a pena, porém o nicho de mercado que trabalhei até bem pouco tempo exigia isso. A palavra chave era distribuição. Algumas das últimas empresa que trabalhei possuiam clientes bem fracos em infra. Falta de banda larga, usuários fracos de conhecimento e computadores sucateados. Pra nós que vivemos de tecnologia, pagar R$ 120,00, R$ 300,00 num HD é ridículo. Recentemente montei uma estrutura de trabalho em casa que é show de bola. Não economizei. Mas tem cliente que não gasta R$ 1,00 em equipamento. Uma das empresas que trabalhei tinha como clientes transportadoras. As mais fracas transportadoras. E acredite: tinha nego querendo trabalhar com Pentium 233, 333 e afins. Qdo muito compravam um micro mais novo para servidor pagando em 12x no Carrefour, porém as estaçõesah...prefiro não comentar. O sistema? Começaram mal. O sistema foi muito mal estruturado e eram 5 executáveis com 20Mb cada um. Convencer o cliente de baixar 100Mb por semana para atualizar o sistema dele era bem complicado. Com UPX os módulos ficavam com 5Mb cada. Bem mais fácil fazer atualização. Acho que tem mais de um motivo razoável ai né? rsrsrs Pois é, trabalhar com gente que tem conciência de que precisa gastar dinheiro é fácil. []s Adriano Santos Joao Morais respondeu: Adriano Santos (Y!) wrote: Só pra dar mais um pitaco: sempre utilizei o UPX em DLL, EXE e BPL, nunca tive qualquer problema. Pra tacar fogo na thread: com o preço e capacidade em que andam os HDs, você saberia dar um único motivo razoável para usar upx? Joao Morais -- Boa Leitura, Adriano Santos Director X-35 Consulting Development IT Manager SoftPark Chief Editor Magazines ClubeDelphi WebMobile www.delphitodelphi.blogspot.com www.adrianosantos.pro.br www.devmedia.com.br www.dug-sp.com -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses
RE: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Isto é um equívoco. O método IsNull() existe apenas para descendentes da classe
TField, e não existe para descendentes da classe TDataSet.
Para verificar se uma tabela está vazia, via SQL, melhor fazer um COUNT(*) dos
registros. Se retornar zero, é pq não tem registro nenhum. Agora, se for usar
um dataset de alguma camada de acesso, costumo fazer assim;
usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and
(not Query1.Eof))
usando dbExpress = not (Boolean(SQLQuery1.RecordCount) and (not
SQLQuery1.IsEmpty) and (not Query1.Eof))
usando ADO/dbGo = not (Boolean(ADOQuery1.RecordCount) and (not
ADOQuery1.IsEmpty) and (not ADOQuery1.Eof))
Ou seja, não checo somente uma propriedade, e sim todas as que indiquem que
existem registros no dataset.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 1 Oct 2008 07:38:46 -0300
Subject: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de
abrir form
Corrige o meu outro código, é IF tabela.isnull, e não IF not tabela.isnull
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo Mendes
Enviada em: quarta-feira, 1 de outubro de 2008 00:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir
form
Oi galera,
Gostaria de uma sugestão..
Eu preciso verificar se algumas tabelas tem registro antes de abrir um
determinado form...
Atualmente tenho todos os meus IBDataSet num data Modulo.estou tentando
fazer o codigo abaixo...
Mas não está funcionando conforme eu quero...
if not(DM.IBVendedor.Eof) then
begin
MessageDlg('Nenhum vendedor foi cadastrada ainda.'+#13+
#10+'Favor cadastrar vendedor para para continuar.', mtInformation, [mbOK],
0);
Exit;
end;
fico no aguardo de uma ajuda...
Obrigado...
Ricardo Mendes
_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
[delphi-br] Estrutura de um record
Bom dia pessoal, como faze para acessar a estrutura de um record? por exemplo tenho os seguintes records, Record1 = record Codigo : Integer; Name : String; Endereco : String; end; Record2 = record Codigo : Integer; Descricao : String; Situacao : String; end; Record3 = record Codigo : Integer; Descricao : String; end; Record4 = record Codigo : Integer; Descricao : String; Quantidade : Double; ValorUnitario : Double; ValorTotal : Double; end; Estou tentando fazer uma procedure mais ou menos assim procedure ObterListaDados(Lista : TStrings; Registro : record); var vCont : Integer; begin Lista.Clear; for vCont := 0 to Registro.QtdCampos do Lista.Add(Registrocampo); end; Alguem tem alguma sugestão? Atenc; Elazar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Estrutura de um record
Até onde me consta, não existe como verificar a estrutura de um record, pois um record não possui as mesmas características de uma classe contendo propriedades publicadas. Neste último caso, é possível, via RTTI, consultar as propriedades publicadas de um objeto e obter seus valores. Com um record, isso não existe. João Morais, mais algo para complementar/corrigir e q possa ajudar o colega? Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 05:57:25 -0700 Subject: [delphi-br] Estrutura de um record Bom dia pessoal, como faze para acessar a estrutura de um record? por exemplo tenho os seguintes records, Record1 = record Codigo : Integer; Name : String; Endereco : String; end; Record2 = record Codigo : Integer; Descricao : String; Situacao : String; end; Record3 = record Codigo : Integer; Descricao : String; end; Record4 = record Codigo : Integer; Descricao : String; Quantidade : Double; ValorUnitario : Double; ValorTotal : Double; end; Estou tentando fazer uma procedure mais ou menos assim procedure ObterListaDados(Lista : TStrings; Registro : record); var vCont : Integer; begin Lista.Clear; for vCont := 0 to Registro.QtdCampos do Lista.Add(Registrocampo); end; Alguem tem alguma sugestão? Atenc; Elazar _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] [OFF-TOPIC] Lazarus
Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows XP), instalei o Free Pascal 2.2.2, blzinha Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de exemplo, tudo blzinha... porém quando coloco um botão - ou qualquer componente - e dou 2 cliques no botão, ele não abre o evento, OnClick, ele da o seguinte erro: The Component editor of class TDefaultComponentEditor has created the error: Impossível localizar método. Por favor corrija o erro mostrado na janela de mensagem. não consegui encontrar essa classe...vc sabe como resolver o problema ?? Obrigado. -Mensagem Original- De: Willian Jhonnes Lara dos Santos Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 1 de outubro de 2008 09:40 Assunto: Res: [delphi-br] [OFF-TOPIC] Lazarus Opa... Diga lá, Vinicius. Oq vc quer saber? --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Vinicius Santos - MSI [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 9:37:29 Assunto: [delphi-br] [OFF-TOPIC] Lazarus Pessoal, alguém aqui utiliza Lazarus ? Estou afim de trocar algumas informações e dúvidas a respeito da IDE. Obrigado [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1701 - Release Date: 30/9/2008 19:08 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Só tem que cuidar para não misturar as propriedades e ter um resultado indesejado. Por exemplo, se você utilizar o Count(*), a propriedade Query1.IsEmpty não é util, porque mesmo sem registro, a Query1 retornará um registro com o valor zero. Melhor usar a propriedade adequada para cada situação. Cada um no seu quadrado. Luciano Calenzani Simões - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 9:55:41 Assunto: RE: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form Isto é um equívoco. O método IsNull() existe apenas para descendentes da classe TField, e não existe para descendentes da classe TDataSet. Para verificar se uma tabela está vazia, via SQL, melhor fazer um COUNT(*) dos registros. Se retornar zero, é pq não tem registro nenhum. Agora, se for usar um dataset de alguma camada de acesso, costumo fazer assim; usando BDE = not (Boolean(Query1. RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) usando dbExpress = not (Boolean(SQLQuery1. RecordCount) and (not SQLQuery1.IsEmpty) and (not Query1.Eof)) usando ADO/dbGo = not (Boolean(ADOQuery1. RecordCount) and (not ADOQuery1.IsEmpty) and (not ADOQuery1.Eof) ) Ou seja, não checo somente uma propriedade, e sim todas as que indiquem que existem registros no dataset. Sds. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Por isso q eu expliquei no meu comentário. Via SQL é de um jeito; usando um componente da DataSet é de outro jeito! Não reparou nisso? Sds. __ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 06:08:32 -0700 Subject: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form Só tem que cuidar para não misturar as propriedades e ter um resultado indesejado. Por exemplo, se você utilizar o Count(*), a propriedade Query1.IsEmpty não é util, porque mesmo sem registro, a Query1 retornará um registro com o valor zero. Melhor usar a propriedade adequada para cada situação. Cada um no seu quadrado. Luciano Calenzani Simões - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 9:55:41 Assunto: RE: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form Isto é um equívoco. O método IsNull() existe apenas para descendentes da classe TField, e não existe para descendentes da classe TDataSet. Para verificar se uma tabela está vazia, via SQL, melhor fazer um COUNT(*) dos registros. Se retornar zero, é pq não tem registro nenhum. Agora, se for usar um dataset de alguma camada de acesso, costumo fazer assim; usando BDE = not (Boolean(Query1. RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) usando dbExpress = not (Boolean(SQLQuery1. RecordCount) and (not SQLQuery1.IsEmpty) and (not Query1.Eof)) usando ADO/dbGo = not (Boolean(ADOQuery1. RecordCount) and (not ADOQuery1.IsEmpty) and (not ADOQuery1.Eof) ) Ou seja, não checo somente uma propriedade, e sim todas as que indiquem que existem registros no dataset. Sds. _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Compactação de dll, bpl e executáveis
Eu tinha o mesmo problema, 4 executáveis grandes, e cliente reclamando da demora de atualizar, na época eu usei Upx e tive muitos problemas em algumas máquinas, era violação de acesso para tudo quanto é lado. Hoje eu automatizei todo o processo de atualização, compacto do exe no padrão 7Zip, de 20MB vai para 3MB, o servidor do cliente baixa o arquivo compactado e todas as máquinas da rede copiam o arquivo .7ZIP e se auto atualizam. 2008/10/1 Joao Morais [EMAIL PROTECTED] Adriano Santos (Y!) wrote: Concordo em gênero e número contigo. Sei muito bem como funcionam o UPX,VirtualCompress e o AsPack. Meu principal problema onde trabalhei, como mencionei, era distribuição do sistema e os usuários que eram bem ruins. Descompactar um arquivo .zip, vixi...era o maior trabalho cara. Isto é a realidade em quase todos os pequenos clientes (e boa parte dos grantes também). O que eu procurei colocar é que UPX não é solução, é paleativo, e dos problemáticos em máquinas com pouca memória. Quando falei descompactar no cliente, eu me referia à própria aplicação, ou um atualizador, fazer este trabalho. Joao Morais -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Configurando DBGrid manualmente
Bom dia senhores! Eu tenho um método que retorna um DataSource e consequentemente o dbgrid recebe esse datasource porém não sei como fazer para habilitar os campos. Como configurar um dbgrid manualmente habilitando os campos desejados? Grato! Fabrício Veiga
Res: [delphi-br] Compactação de dll, bpl e exe cutáveis
Dando um pitaco de leve, encontrei uma solução mais interessante à época em que implementei. Também tinha problemas com executáveis enormes e atualização pela internet. O que fiz foi modularizar a aplicação em BPLs, mantendo em cada BPL os formulários com similaridade de função (cadastros, relatórios, manutenção, etc). Isso reduziu - e muito - o custo da atualização, pois, se fosse detectado um problema ou solicitado um ajuste, bastava alterar e recompilar a BPL e disponibilizar para o cliente. Mas, como falei, é só um pitaco de leve... []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 10:19:07 Assunto: Re: [delphi-br] Compactação de dll, bpl e executáveis Eu tinha o mesmo problema, 4 executáveis grandes, e cliente reclamando da demora de atualizar, na época eu usei Upx e tive muitos problemas em algumas máquinas, era violação de acesso para tudo quanto é lado. Hoje eu automatizei todo o processo de atualização, compacto do exe no padrão 7Zip, de 20MB vai para 3MB, o servidor do cliente baixa o arquivo compactado e todas as máquinas da rede copiam o arquivo .7ZIP e se auto atualizam. 2008/10/1 Joao Morais [EMAIL PROTECTED] com.br Adriano Santos (Y!) wrote: Concordo em gênero e número contigo. Sei muito bem como funcionam o UPX,VirtualCompress e o AsPack. Meu principal problema onde trabalhei, como mencionei, era distribuição do sistema e os usuários que eram bem ruins. Descompactar um arquivo .zip, vixi...era o maior trabalho cara. Isto é a realidade em quase todos os pequenos clientes (e boa parte dos grantes também). O que eu procurei colocar é que UPX não é solução, é paleativo, e dos problemáticos em máquinas com pouca memória. Quando falei descompactar no cliente, eu me referia à própria aplicação, ou um atualizador, fazer este trabalho. Joao Morais -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Configurando DBGrid manualmente
Vc tem duas opções: 1) (MAIS FÁCIL) Para cada campo do dataset apontado pelo datasource, define a propriedade Visible como false para os campos que vc não quer sejam visualizados no DBGrid. O DBGrid automaticamente saberá o que ele deve e não deve mostrar nele. Duvidas? Consulte o help do Delphi sobre a propriedade Visible da classe TField; 2) (MAIS HARDCORE) Criar as colunas 'no braço' na propriedade Columns do TDBGrid. Dúvidas? Consulte no help do Delphi sobre a propriedade Columns do TDBGrid e sobre as classes TDBGridColumns e TColumn. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 10:05:37 -0300 Subject: [delphi-br] Configurando DBGrid manualmente Bom dia senhores! Eu tenho um método que retorna um DataSource e consequentemente o dbgrid recebe esse datasource porém não sei como fazer para habilitar os campos. Como configurar um dbgrid manualmente habilitando os campos desejados? Grato! Fabrício Veiga _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: [delphi-br] Problema abertura form MDI
Bá... valeu Daniel muito obrigado Era só a proriedade Visible do frmDefault, estava como True... passei para false e foi blz... valeu mesmo - Original Message - From: Daniel Bastos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 30, 2008 10:35 PM Subject: Re: [delphi-br] Problema abertura form MDI Essa mensagem aparece quando vc tenta dar um ShowModal em um formulário que já está visível. Verifique se por engano isso não aconteceu 2008/9/30 leacarbonera2 [EMAIL PROTECTED] E ai pessoal blz... Seguinte tenho um sistema onde utilizo forms um form Principal como MDI e forms fsNormal, sendo que tenho um form padrao (frmDefault) que é do tipo fsNormal. A pedido de um cliente, alterie a propriedade FormStyle para MDIChild deste form padrao, mas não tivemos os resutlados esperados, ai resolvi voltar para fsNormal, porem agora todos os forms que são herdados do frmDefault não abrem mais, está aparecendo a mensagem Cannot make a visible window modal... oque eu faço -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Estrutura de um record
Rubem Nascimento da Rocha wrote: Até onde me consta, não existe como verificar a estrutura de um record, pois um record não possui as mesmas características de uma classe contendo propriedades publicadas. Neste último caso, é possível, via RTTI, consultar as propriedades publicadas de um objeto e obter seus valores. Com um record, isso não existe. João Morais, mais algo para complementar/corrigir e q possa ajudar o colega? Completo dizendo que record é uma estrutura que organiza um conjunto de dados apenas em tempo de compilação, não dá flexibilidade para trabalhar em tempo de execução, e não permite herança. Portanto ele é totalmente inviável para aproveitamento de código. Você pode vir a hackear uma coisa aqui outra ali, mas não terá suporte da linguagem e por consequência não terá produtividade. O ideal é seguir a idéia do Rubem e partir para classes desde o início. Não é tão complicado. Os únicos cuidados que você precisa ter é criar o objeto antes de usá-lo e destruí-lo depois que não precisar mais dele. No mais, é uma estrutura semelhante ao record. Informe-se sobre rtti, sobre a área published, e sobre as rotinas da unit typinfo. Para os seus primeiros testes, herde suas classes a partir da classe TPersistent, declarada na unit Classes. A partir daqui, FastMM será seu amigo. Use-o para descobrir se você está esquecendo de destruir algum objeto. Por fim, qual seu objetivo: faculdade, indicação de estudo, saco cheio do tdataset, necessidade no trabalho, ...? -- Joao Morais To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 05:57:25 -0700 Subject: [delphi-br] Estrutura de um record Bom dia pessoal, como faze para acessar a estrutura de um record? por exemplo tenho os seguintes records, Record1 = record Codigo : Integer; Name : String; Endereco : String; end; Record2 = record Codigo : Integer; Descricao : String; Situacao : String; end; Record3 = record Codigo : Integer; Descricao : String; end; Record4 = record Codigo : Integer; Descricao : String; Quantidade : Double; ValorUnitario : Double; ValorTotal : Double; end; Estou tentando fazer uma procedure mais ou menos assim procedure ObterListaDados(Lista : TStrings; Registro : record); var vCont : Integer; begin Lista.Clear; for vCont := 0 to Registro.QtdCampos do Lista.Add(Registrocampo); end; Alguem tem alguma sugestão? Atenc; Elazar _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Re: [delphi-br] [OFF-TOPIC] Lazarus
Vinicius Santos - MSI wrote: Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows XP), instalei o Free Pascal 2.2.2, blzinha Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de exemplo, tudo blzinha... porém quando coloco um botão - ou qualquer componente - e dou 2 cliques no botão, ele não abre o evento, OnClick, ele da o seguinte erro: The Component editor of class TDefaultComponentEditor has created the error: Impossível localizar método. Por favor corrija o erro mostrado na janela de mensagem. não consegui encontrar essa classe...vc sabe como resolver o problema ?? Ouvi falar de problemas com o code tools esses dias na lista oficial, pode estar relacionado. Aqui eu não consigo reproduzir o problema. Tente atualizar sua cópia e recompilar a IDE. Joao Morais
Re: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Rubem Nascimento da Rocha wrote: usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) Rapaiz... cast de inteiro pra boolean? É mais seguro comparar o resultado do recordcount com aquilo que você espera, ou não espera, que ele retorne. Meus $0,02 Joao Morais
Re: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Affee, essa solução do Rubem foi igual aquela que eu dei pra verificar se o valor era inteiro.. lembra João? 2008/10/1 Joao Morais [EMAIL PROTECTED] Rubem Nascimento da Rocha wrote: usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) Rapaiz... cast de inteiro pra boolean? É mais seguro comparar o resultado do recordcount com aquilo que você espera, ou não espera, que ele retorne. Meus $0,02 Joao Morais Mensagens neste tópico http://br.groups.yahoo.com/group/delphi-br/message/192477;_ylc=X3oDMTM4cTA5bDJkBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjUwMQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyMjI4NzAxNzQEdHBjSWQDMTkyNDc3( 7) Responder (através da web) http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZTdrcjBsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjUwMQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyMjI4NzAxNzQ-?act=replymessageNum=192501| Adicionar um novo tópico http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlNjZhZjJlBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTIyMjg3MDE3NA-- Mensagenshttp://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlam8wNGwxBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTIyMjg3MDE3NA--| Arquivoshttp://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmcXJnZzNmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzEyMjI4NzAxNzQ-| Fotoshttp://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlZmViNXJsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTIyMjg3MDE3NA--| Linkshttp://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmZ2M3YzFuBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzEyMjI4NzAxNzQ-| Banco de dadoshttp://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjM2VibzVsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzEyMjI4NzAxNzQ- -- -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Uso cast de inteiro pra boolean desde o Delphi 3 e sempre funcionou comigo! Se o valor do RecordCount for zero, retorna false; senão, retorna true! Sempre funcionou, e até q um dia isso falhe (o q acho difícil!), continuarei usando! É elegante, tem lógica e funciona! Outra coisa, não uso isso indiscriminadamente, sim com consultas que tenho certeza que retornam poucos dados e que não estão ligadas a controles data-aware. Quando uso controles data-aware, faço uso ostensivo de ClientDataset. Não é dessa vez que terá os seus R$0,02 de mim! HEHE! ;) Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 11:07:30 -0300 Subject: Re: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form Rubem Nascimento da Rocha wrote: usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) Rapaiz... cast de inteiro pra boolean? É mais seguro comparar o resultado do recordcount com aquilo que você espera, ou não espera, que ele retorne. Meus $0,02 Joao Morais _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Eduardo Silva dos Santos wrote: Affee, essa solução do Rubem foi igual aquela que eu dei pra verificar se o valor era inteiro.. lembra João? Mas pelo menos ele não esconde uma exception =) 2008/10/1 Joao Morais [EMAIL PROTECTED] Rubem Nascimento da Rocha wrote: usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) Rapaiz... cast de inteiro pra boolean? É mais seguro comparar o resultado do recordcount com aquilo que você espera, ou não espera, que ele retorne. Meus $0,02 Joao Morais Mensagens neste tópico http://br.groups.yahoo.com/group/delphi-br/message/192477;_ylc=X3oDMTM4cTA5bDJkBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjUwMQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyMjI4NzAxNzQEdHBjSWQDMTkyNDc3( 7) Responder (através da web) http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyZTdrcjBsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjUwMQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyMjI4NzAxNzQ-?act=replymessageNum=192501| Adicionar um novo tópico http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlNjZhZjJlBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTIyMjg3MDE3NA-- Mensagenshttp://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlam8wNGwxBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTIyMjg3MDE3NA--| Arquivoshttp://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmcXJnZzNmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzEyMjI4NzAxNzQ-| Fotoshttp://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlZmViNXJsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTIyMjg3MDE3NA--| Linkshttp://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmZ2M3YzFuBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzEyMjI4NzAxNzQ-| Banco de dadoshttp://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjM2VibzVsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzEyMjI4NzAxNzQ- --
Re: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form
Rubem Nascimento da Rocha wrote: Uso cast de inteiro pra boolean desde o Delphi 3 e sempre funcionou comigo! Se o valor do RecordCount for zero, retorna false; senão, retorna true! Sempre funcionou, e até q um dia isso falhe (o q acho difícil!), continuarei usando! É elegante, tem lógica e funciona! Outra coisa, não uso isso indiscriminadamente, sim com consultas que tenho certeza que retornam poucos dados e que não estão ligadas a controles data-aware. Quando uso controles data-aware, faço uso ostensivo de ClientDataset. Cast forçado nunca é elegante. Não é dessa vez que terá os seus R$0,02 de mim! HEHE! ;) Eu doei os $0,02 Sds. -- Joao Morais To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 11:07:30 -0300 Subject: Re: RES: [delphi-br] Verificar se a tabela encontra-se vazia antes de abrir form Rubem Nascimento da Rocha wrote: usando BDE = not (Boolean(Query1.RecordCount) and (not Query1.IsEmpty) and (not Query1.Eof)) Rapaiz... cast de inteiro pra boolean? É mais seguro comparar o resultado do recordcount com aquilo que você espera, ou não espera, que ele retorne. Meus $0,02 Joao Morais _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Res: [delphi-br] Estrutura de um record
Rubens, João. Obrigado pelas dicas. Conheco RTTImas como já existe tudo em record fica dificil mudar assim de cara...(embora estou achando que esta seja a saida) Acontece que tenho um monte destas estruturas para converter pra equivalentes em tabelas, tenho cerca de 600 records... então fazer na mão...puts.. rsss.. A ideia é q quando a aplicação estiver rodando e receber por parametro um destes records, automaticamente crie a tabela então, conseguindo pegar a lista da estrutura iria facilitar. E existe outro detalhe, é que pode ser geradas novas estruturas então o processo se encarregaria de criar automaticamente caso ainda não exista. Uma outra pergunta que deixo no ar, se o delphi consegue esta lista quando estamos lidando nos fontes ...porque não seria possivel, ou sera que ele usa alguma especie de parser pra estas estruturas??? Atenc; Elazar - Mensagem original De: Joao Morais [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 11:00:25 Assunto: Re: [delphi-br] Estrutura de um record Rubem Nascimento da Rocha wrote: Até onde me consta, não existe como verificar a estrutura de um record, pois um record não possui as mesmas características de uma classe contendo propriedades publicadas. Neste último caso, é possível, via RTTI, consultar as propriedades publicadas de um objeto e obter seus valores. Com um record, isso não existe. João Morais, mais algo para complementar/ corrigir e q possa ajudar o colega? Completo dizendo que record é uma estrutura que organiza um conjunto de dados apenas em tempo de compilação, não dá flexibilidade para trabalhar em tempo de execução, e não permite herança. Portanto ele é totalmente inviável para aproveitamento de código. Você pode vir a hackear uma coisa aqui outra ali, mas não terá suporte da linguagem e por consequência não terá produtividade. O ideal é seguir a idéia do Rubem e partir para classes desde o início. Não é tão complicado. Os únicos cuidados que você precisa ter é criar o objeto antes de usá-lo e destruí-lo depois que não precisar mais dele. No mais, é uma estrutura semelhante ao record. Informe-se sobre rtti, sobre a área published, e sobre as rotinas da unit typinfo. Para os seus primeiros testes, herde suas classes a partir da classe TPersistent, declarada na unit Classes. A partir daqui, FastMM será seu amigo. Use-o para descobrir se você está esquecendo de destruir algum objeto. Por fim, qual seu objetivo: faculdade, indicação de estudo, saco cheio do tdataset, necessidade no trabalho, ...? -- Joao Morais _ _ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com.br Date: Wed, 1 Oct 2008 05:57:25 -0700 Subject: [delphi-br] Estrutura de um record Bom dia pessoal, como faze para acessar a estrutura de um record? por exemplo tenho os seguintes records, Record1 = record Codigo : Integer; Name : String; Endereco : String; end; Record2 = record Codigo : Integer; Descricao : String; Situacao : String; end; Record3 = record Codigo : Integer; Descricao : String; end; Record4 = record Codigo : Integer; Descricao : String; Quantidade : Double; ValorUnitario : Double; ValorTotal : Double; end; Estou tentando fazer uma procedure mais ou menos assim procedure ObterListaDados( Lista : TStrings; Registro : record); var vCont : Integer; begin Lista.Clear; for vCont := 0 to Registro.QtdCampos do Lista.Add(Registro. ...campo) ; end; Alguem tem alguma sugestão? Atenc; Elazar _ _ _ _ _ _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn. com.br/emoticonp ack - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] meio off - MIgração pro Vista - Core2duo
Passa o link, também estou atualizando umas máquinas aqui. []´s Roberto Camoloze De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sergio cavalcante Enviada em: terça-feira, 30 de setembro de 2008 17:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo Valeu Vinicius e Escobar. Vi no site da Microsoft um Paper que mostrava isso bacaninha. Segue em anexo o arquivo Sérgio Cavalcante 2008/9/30 Luiz ESCobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br Tanto XP (SP3) como Vista, rodam, Core2Duo e Core2Quad. POREM: processador não é tudo.. boas memórias (dual-channel) e um boa motherboard é excencial... []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Vinicius Santos - MSI Sent: Tuesday, September 30, 2008 4:59 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo Até onde eu sei o XP, reconhece até 2 núcleos, em qualquer Service Pack. Vinicius dos Santos http://www.msisolucoes.com.br -Mensagem Original- De: sergio cavalcante Para: [EMAIL PROTECTED] mailto:NDDV%40yahoogrupos.com.br NDDV%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviada em: terça-feira, 30 de setembro de 2008 16:50 Assunto: [delphi-br] meio off - MIgração pro Vista - Core2duo Pessoal, Aqui na empresa vamos atualizar as máquinas e queria a opinião de vocês. Temos em mente comprar Máquinas Core2Duo com 2Ghz de Ram. Pro XP tá ótimo. Mas, pelo que vi, o XP não utiliza as maravilhas dos processadores multinucleados. Então, para isso, teríamos que utilizar o Vista, certo? no caso 2Ghz ficaria pouco pro Vista, para uma ótima performance. Então, compraríamos 4Ghz. Então pergunto: 1 - Utilizando o Delphi 6, teríamos algum problema em rodar os aplicativos compilados no Vista, nos nossos clientes que usam XP e Win 2K? Tenho quase certeza que não, mas, só pra me assegurar. O Vista seria o 32 bits. 2 - Com esse service pack 3 do Win XP, ele já suporta esses processadores?(me refiro a usar os recursos plenamente) 3 - Uma versão do Delphi mais atual utilizaria melhor esse benefício? Muito obrigado para quem responder algo... Atenciosamente, Sérgio Cavalcante [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1698 - Release Date: 29/9/2008 19:25 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1698 - Release Date: 29/09/2008 19:25 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Estrutura de um record
veja se isto ajuda... http://www.planetadelphi.com.br/ver_artigo.php?id=141 -- Att. -- José Benedito Software Developer [EMAIL PROTECTED] (19) 8116-7826
Re: Res: [delphi-br] Estrutura de um record
Elazar Dornelles Ceza wrote: Rubens, João. Obrigado pelas dicas. Conheco RTTImas como já existe tudo em record fica dificil mudar assim de cara...(embora estou achando que esta seja a saida) Acontece que tenho um monte destas estruturas para converter pra equivalentes em tabelas, tenho cerca de 600 records... então fazer na mão...puts.. rsss.. Você pode criar um parser para interpretar todos os seus records, gerar um xml, e usar esse xml como um metadado dos seus records em tempo de execução. =) A ideia é q quando a aplicação estiver rodando e receber por parametro um destes records, automaticamente crie a tabela então, conseguindo pegar a lista da estrutura iria facilitar. Infelizmente é impossível. O compilador descarta a estrutura do record, tudo o que você vê em tempo de projeto é convertido em endereço de memória e nada mais. O máximo que você consegue é descobrir o tamanho do record em bytes, o que não ajuda em nada. E existe outro detalhe, é que pode ser geradas novas estruturas então o processo se encarregaria de criar automaticamente caso ainda não exista. Uma outra pergunta que deixo no ar, se o delphi consegue esta lista quando estamos lidando nos fontes ...porque não seria possivel, ou sera que ele usa alguma especie de parser pra estas estruturas??? A ide interpreta seus fontes em tempo de projeto para gerar as informações para o code insight. Nada disso é transformado em código na sua aplicação. A idéia do parser é séria, há códigos prontos na net que podem te ajudar. E daí pra frente você verifica o que é mais viável, se manter essa geração do metadado em paralelo aos seus records, ou passar para uma estrutura mais inteligente como classes. Atenc; Elazar -- Joao Morais - Mensagem original De: Joao Morais [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 1 de Outubro de 2008 11:00:25 Assunto: Re: [delphi-br] Estrutura de um record Rubem Nascimento da Rocha wrote: Até onde me consta, não existe como verificar a estrutura de um record, pois um record não possui as mesmas características de uma classe contendo propriedades publicadas. Neste último caso, é possível, via RTTI, consultar as propriedades publicadas de um objeto e obter seus valores. Com um record, isso não existe. João Morais, mais algo para complementar/ corrigir e q possa ajudar o colega? Completo dizendo que record é uma estrutura que organiza um conjunto de dados apenas em tempo de compilação, não dá flexibilidade para trabalhar em tempo de execução, e não permite herança. Portanto ele é totalmente inviável para aproveitamento de código. Você pode vir a hackear uma coisa aqui outra ali, mas não terá suporte da linguagem e por consequência não terá produtividade. O ideal é seguir a idéia do Rubem e partir para classes desde o início. Não é tão complicado. Os únicos cuidados que você precisa ter é criar o objeto antes de usá-lo e destruí-lo depois que não precisar mais dele. No mais, é uma estrutura semelhante ao record. Informe-se sobre rtti, sobre a área published, e sobre as rotinas da unit typinfo. Para os seus primeiros testes, herde suas classes a partir da classe TPersistent, declarada na unit Classes. A partir daqui, FastMM será seu amigo. Use-o para descobrir se você está esquecendo de destruir algum objeto. Por fim, qual seu objetivo: faculdade, indicação de estudo, saco cheio do tdataset, necessidade no trabalho, ...? -- Joao Morais _ _ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] com.br Date: Wed, 1 Oct 2008 05:57:25 -0700 Subject: [delphi-br] Estrutura de um record Bom dia pessoal, como faze para acessar a estrutura de um record? por exemplo tenho os seguintes records, Record1 = record Codigo : Integer; Name : String; Endereco : String; end; Record2 = record Codigo : Integer; Descricao : String; Situacao : String; end; Record3 = record Codigo : Integer; Descricao : String; end; Record4 = record Codigo : Integer; Descricao : String; Quantidade : Double; ValorUnitario : Double; ValorTotal : Double; end; Estou tentando fazer uma procedure mais ou menos assim procedure ObterListaDados( Lista : TStrings; Registro : record); var vCont : Integer; begin Lista.Clear; for vCont := 0 to Registro.QtdCampos do Lista.Add(Registro. ...campo) ; end; Alguem tem alguma sugestão? Atenc; Elazar _ _ _ _ _ _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn. com.br/emoticonp ack - - -- Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ScrollBar some de DBGrid
Olá pessoal,
Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor
(Default $00FFEFDF). O pacote está disponível para download no link
http://www.4shared.com/file/65228674/7bb050bd/DB-Aware.html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link
http://www.4shared.com/dir/5679510/48848609/Uploads.html
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Willian Jhonnes L. dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar some de DBGrid
Bom dia!
Criei um componente descendente do TDBGrid que cria checkboxes para
campos booleanos. Até aí, tudo bem. O componente funciona que é uma
beleza. Porém, tenho um problema: quando mudo alguma propriedade de
QUALQUER componente do form em tempo de execução, a ScrollBar do
componente some, ficando oculta além da borda visível do componente.
Eis o código fonte onde o problema ocorre [1]. Notem que o componente
que apresenta o problema é o cdgbItensNota, não o que está no código.
Há, também, um link [2] para download do componente.
Quem tiver qualquer idéia ou sugestão, agradeço.
[]'s
[1] - procedure TFBPSI012PSI0003. rbtConferenciaCl ick(Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Conferência' ;
FieldName := 'DATARECEB';
end;
Application. ProcessMessages;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
procedure TFBPSI012PSI0003. rbtEmissaoClick( Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Emissão';
FieldName := 'DATANF';
end;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
[2] - http://www.4shared. com/file/ 65216330/ b9059ea8/ DB-Aware. html
--
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
.
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] JvDBTreeView Paleta: Jv DataControls. - Meio off..
Alguem utilizou esse componente..Montei ele para testar e minha decepção se deve a que fica extremamente lento para uma quantidade de registros pai de aprox. 500(de ai para mais, é impraticável). Tal vez nao estou configurando ele corretamente entao gostaria de saber se alguem tem mais experiencia com ele. Santiago NSR Informática. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Enc: DB-Aware (Silvio Clécio)
Olá pessoal, Pronto, o arquivo já está no link http://www.4shared.com/dir/5679510/48848609/Uploads.html Fiz só mais uma modificação minúscula no demo. Um abraço a todos! Silvio Clécio - Mensagem original De: Silvio Clécio [EMAIL PROTECTED] Para: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] Enviadas: Quarta-feira, 1 de Outubro de 2008 12:19:40 Assunto: Res: Res: DB-Aware (Silvio Clécio) Com certeza ñ! ;-) Um abraço! - Mensagem original De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] Para: Silvio Clécio [EMAIL PROTECTED] Enviadas: Quarta-feira, 1 de Outubro de 2008 12:18:08 Assunto: Res: DB-Aware (Silvio Clécio) Ok, Silvio... Pode tirar a senha. Não há problema nenhum em compartilhar, não é? --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Silvio Clécio [EMAIL PROTECTED] Para: [EMAIL PROTECTED] Enviadas: Quarta-feira, 1 de Outubro de 2008 12:01:23 Assunto: DB-Aware (Silvio Clécio) Olá, Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor (Default $00FFEFDF). O pacote está disponível para download no link http://www.4shared.com/file/65228674/7bb050bd/DB-Aware.html Se você permitir, removo a senha e disponibilizo para nossos colegas no link http://www.4shared.com/dir/5679510/48848609/Uploads.html Senha: dbawarebywillian25485963 Um abraço! Silvio Clécio Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Lazarus
Cara, ele está pedindo a unit, Classes.pp, porém eu não tenho esse arquivo, só tenho a classes.ppu, porém não está servindo... Parece que esse é o problema, eu preciso do arquivo Classes.pp, mas não veio no repositório do SVN...=( -Mensagem Original- De: Joao Morais Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 1 de outubro de 2008 11:05 Assunto: Re: [delphi-br] [OFF-TOPIC] Lazarus Vinicius Santos - MSI wrote: Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows XP), instalei o Free Pascal 2.2.2, blzinha Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de exemplo, tudo blzinha... porém quando coloco um botão - ou qualquer componente - e dou 2 cliques no botão, ele não abre o evento, OnClick, ele da o seguinte erro: The Component editor of class TDefaultComponentEditor has created the error: Impossível localizar método. Por favor corrija o erro mostrado na janela de mensagem. não consegui encontrar essa classe...vc sabe como resolver o problema ?? Ouvi falar de problemas com o code tools esses dias na lista oficial, pode estar relacionado. Aqui eu não consigo reproduzir o problema. Tente atualizar sua cópia e recompilar a IDE. Joao Morais -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1701 - Release Date: 30/9/2008 19:08 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida
Lista Em um projeto é possivel eu usar um arquivo .pas que esta em outro diretório ??? Como coloco no projeto... em uses ??? Wesley [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] Lazarus
Vinicius Santos - MSI wrote: Cara, ele está pedindo a unit, Classes.pp, porém eu não tenho esse arquivo, só tenho a classes.ppu, porém não está servindo... Parece que esse é o problema, eu preciso do arquivo Classes.pp, mas não veio no repositório do SVN...=( Ãn... certo. Você precisa dos fontes do fpc. Tem nos downloads do Lazarus, ou você pode baixar no svn do fpc. -- Joao Morais -Mensagem Original- De: Joao Morais Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 1 de outubro de 2008 11:05 Assunto: Re: [delphi-br] [OFF-TOPIC] Lazarus Vinicius Santos - MSI wrote: Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows XP), instalei o Free Pascal 2.2.2, blzinha Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de exemplo, tudo blzinha... porém quando coloco um botão - ou qualquer componente - e dou 2 cliques no botão, ele não abre o evento, OnClick, ele da o seguinte erro: The Component editor of class TDefaultComponentEditor has created the error: Impossível localizar método. Por favor corrija o erro mostrado na janela de mensagem. não consegui encontrar essa classe...vc sabe como resolver o problema ?? Ouvi falar de problemas com o code tools esses dias na lista oficial, pode estar relacionado. Aqui eu não consigo reproduzir o problema. Tente atualizar sua cópia e recompilar a IDE. Joao Morais -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1701 - Release Date: 30/9/2008 19:08 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida
Em um projeto é possivel eu usar um arquivo .pas que esta em outro diretório ??? Como coloco no projeto... em uses ??? Vc precisa adicionar o arquivo ao seu projeto. Project Add to Project. Depois é só incluir na uses normalmente. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] [OFF-TOPIC] Lazarus
Valew cara !! deu certinho... é que eu estava tentando baixar o código fonte direto do SVN, mas me parece que tem mais de 1Gb, então desisti...vou deixar baixando hj a noite =) Um abraço e obrigado pela ajuda ! -Mensagem Original- De: Joao Morais Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 1 de outubro de 2008 13:28 Assunto: Re: [delphi-br] [OFF-TOPIC] Lazarus Vinicius Santos - MSI wrote: Cara, ele está pedindo a unit, Classes.pp, porém eu não tenho esse arquivo, só tenho a classes.ppu, porém não está servindo... Parece que esse é o problema, eu preciso do arquivo Classes.pp, mas não veio no repositório do SVN...=( Ãn... certo. Você precisa dos fontes do fpc. Tem nos downloads do Lazarus, ou você pode baixar no svn do fpc. -- Joao Morais -Mensagem Original- De: Joao Morais Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 1 de outubro de 2008 11:05 Assunto: Re: [delphi-br] [OFF-TOPIC] Lazarus Vinicius Santos - MSI wrote: Eu baixei todo o código fonte do Lazarus por SVN, e compilei ele(Windows XP), instalei o Free Pascal 2.2.2, blzinha Eu abro o Lazarus Ok, compilo com o F9, inclusive compilei uns programas de exemplo, tudo blzinha... porém quando coloco um botão - ou qualquer componente - e dou 2 cliques no botão, ele não abre o evento, OnClick, ele da o seguinte erro: The Component editor of class TDefaultComponentEditor has created the error: Impossível localizar método. Por favor corrija o erro mostrado na janela de mensagem. não consegui encontrar essa classe...vc sabe como resolver o problema ?? Ouvi falar de problemas com o code tools esses dias na lista oficial, pode estar relacionado. Aqui eu não consigo reproduzir o problema. Tente atualizar sua cópia e recompilar a IDE. Joao Morais -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1701 - Release Date: 30/9/2008 19:08 [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1701 - Release Date: 30/9/2008 19:08 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida
vlw... Jackson... perfect... Wesley From: Jackson Gomes - ToolsComps Sent: Wednesday, October 01, 2008 1:31 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Duvida Em um projeto é possivel eu usar um arquivo .pas que esta em outro diretório ??? Como coloco no projeto... em uses ??? Vc precisa adicionar o arquivo ao seu projeto. Project Add to Project. Depois é só incluir na uses normalmente. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] __ Information from ESET NOD32 Antivirus, version of virus signature database 3485 (20081001) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] fast report , alguem me salva hehe.
Estou iniciando o uso do fast report, Gostaria de saca como usar o checkbox dele por exemplo: Tem um campo do frxdbdataset que quando for S o checkbox do relatório fica desemarcado, E quando for P fica marcado. E outra coisa, como passo um valor do Delphi para o relatório? Um abraço a todos. [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] ScrollBar some de DBGrid
Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq
acontece: a barra some por ficar oculta além do limite visível do componente,
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que
ela se move. Ou seja, atribuir um estado para a propriedade ScrollBars não
funciona.
Alguém aí tem mais alguma idéia???
[]'s
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---
- Mensagem original
De: Silvio Clécio [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 11:59:44
Assunto: Res: [delphi-br] ScrollBar some de DBGrid
Olá pessoal,
Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor
(Default $00FFEFDF). O pacote está disponível para download no link
http://www.4shared. com/file/ 65228674/ 7bb050bd/ DB-Aware. html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link
http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar some de DBGrid
Bom dia!
Criei um componente descendente do TDBGrid que cria checkboxes para
campos booleanos. Até aí, tudo bem. O componente funciona que é uma
beleza. Porém, tenho um problema: quando mudo alguma propriedade de
QUALQUER componente do form em tempo de execução, a ScrollBar do
componente some, ficando oculta além da borda visível do componente.
Eis o código fonte onde o problema ocorre [1]. Notem que o componente
que apresenta o problema é o cdgbItensNota, não o que está no código.
Há, também, um link [2] para download do componente.
Quem tiver qualquer idéia ou sugestão, agradeço.
[]'s
[1] - procedure TFBPSI012PSI0003. rbtConferenciaCl ick(Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Conferência' ;
FieldName := 'DATARECEB';
end;
Application. ProcessMessages;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
procedure TFBPSI012PSI0003. rbtEmissaoClick( Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Emissão';
FieldName := 'DATANF';
end;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
[2] - http://www.4shared. com/file/ 65216330/ b9059ea8/ DB-Aware. html
--
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
.
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara
@ymail.com ou @rocketmail. com.
http://br.new. mail.yahoo. com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] fast report , alguem me salva hehe.
Olá TI, você deve usar o evento OnBeforePrint do relatório para modificar o valor do checkbox.. assim como vc faz no ObjectPascal mesmo.. e para acessar qualquer objecto dentro do relatório faça assim (FrxReport1.FindObject( 'NomedoObjeto' ) as ClassedoObject).Memo.Text := 'XX'; 2008/10/1 TI - METALURGICA JANO [EMAIL PROTECTED] Estou iniciando o uso do fast report, Gostaria de saca como usar o checkbox dele por exemplo: Tem um campo do frxdbdataset que quando for 'S' o checkbox do relatório fica desemarcado, E quando for 'P' fica marcado. E outra coisa, como passo um valor do Delphi para o relatório? Um abraço a todos. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ScrollBar some de DBGrid
Olá pessoal,
Cara, quando peguei o pacote abri o demo dele e realmente ela sumia, mas
depois fiz as alterações e não deu mais o pró aqui não, queria que ela
sumisse para eu tentar resolver, mas a sacana fica inteirinha lá, até
aumentei a quantidade de records para ver, e nada.
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 14:36:22
Assunto: Res: Res: [delphi-br] ScrollBar some de DBGrid
Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq
acontece: a barra some por ficar oculta além do limite visível do componente,
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que
ela se move. Ou seja, atribuir um estado para a propriedade ScrollBars não
funciona.
Alguém aí tem mais alguma idéia???
[]'s
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
- Mensagem original
De: Silvio Clécio [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 11:59:44
Assunto: Res: [delphi-br] ScrollBar some de DBGrid
Olá pessoal,
Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor
(Default $00FFEFDF). O pacote está disponível para download no link
http://www.4shared. com/file/ 65228674/ 7bb050bd/ DB-Aware. html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link
http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar some de DBGrid
Bom dia!
Criei um componente descendente do TDBGrid que cria checkboxes para
campos booleanos. Até aí, tudo bem. O componente funciona que é uma
beleza. Porém, tenho um problema: quando mudo alguma propriedade de
QUALQUER componente do form em tempo de execução, a ScrollBar do
componente some, ficando oculta além da borda visível do componente.
Eis o código fonte onde o problema ocorre [1]. Notem que o componente
que apresenta o problema é o cdgbItensNota, não o que está no código.
Há, também, um link [2] para download do componente.
Quem tiver qualquer idéia ou sugestão, agradeço.
[]'s
[1] - procedure TFBPSI012PSI0003. rbtConferenciaCl ick(Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Conferência' ;
FieldName := 'DATARECEB';
end;
Application. ProcessMessages;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
procedure TFBPSI012PSI0003. rbtEmissaoClick( Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Emissão';
FieldName := 'DATANF';
end;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
[2] - http://www.4shared. com/file/ 65216330/ b9059ea8/ DB-Aware. html
--
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
.
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] meio off - MIgração pro Vista - Core2duo - instala o SP1 logo.
AH, quem tiver o VISTA, instala logo o SP1, a maquina é outra. parece que tudo fica mais leve e roda blz... achei até que tinha voltado pro XP... hehehehe []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Camoloze Sent: Wednesday, October 01, 2008 11:38 AM To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] meio off - MIgração pro Vista - Core2duo Passa o link, também estou atualizando umas máquinas aqui. []´s Roberto Camoloze De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sergio cavalcante Enviada em: terça-feira, 30 de setembro de 2008 17:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo Valeu Vinicius e Escobar. Vi no site da Microsoft um Paper que mostrava isso bacaninha. Segue em anexo o arquivo Sérgio Cavalcante 2008/9/30 Luiz ESCobar [EMAIL PROTECTED] mailto:escobar%40megasistema.com.br Tanto XP (SP3) como Vista, rodam, Core2Duo e Core2Quad. POREM: processador não é tudo.. boas memórias (dual-channel) e um boa motherboard é excencial... []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Vinicius Santos - MSI Sent: Tuesday, September 30, 2008 4:59 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo Até onde eu sei o XP, reconhece até 2 núcleos, em qualquer Service Pack. Vinicius dos Santos http://www.msisolucoes.com.br -Mensagem Original- De: sergio cavalcante Para: [EMAIL PROTECTED] mailto:NDDV%40yahoogrupos.com.br NDDV%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviada em: terça-feira, 30 de setembro de 2008 16:50 Assunto: [delphi-br] meio off - MIgração pro Vista - Core2duo Pessoal, Aqui na empresa vamos atualizar as máquinas e queria a opinião de vocês. Temos em mente comprar Máquinas Core2Duo com 2Ghz de Ram. Pro XP tá ótimo. Mas, pelo que vi, o XP não utiliza as maravilhas dos processadores multinucleados. Então, para isso, teríamos que utilizar o Vista, certo? no caso 2Ghz ficaria pouco pro Vista, para uma ótima performance. Então, compraríamos 4Ghz. Então pergunto: 1 - Utilizando o Delphi 6, teríamos algum problema em rodar os aplicativos compilados no Vista, nos nossos clientes que usam XP e Win 2K? Tenho quase certeza que não, mas, só pra me assegurar. O Vista seria o 32 bits. 2 - Com esse service pack 3 do Win XP, ele já suporta esses processadores?(me refiro a usar os recursos plenamente) 3 - Uma versão do Delphi mais atual utilizaria melhor esse benefício? Muito obrigado para quem responder algo... Atenciosamente, Sérgio Cavalcante [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1698 - Release Date: 29/9/2008 19:25 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, -- Sérgio Cavalcante Mitros Tecnologia [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1698 - Release Date: 29/09/2008 19:25 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compactar arquivo
Pessoal, estou em busca de componente para compactar arquivos.. qual vocês me recomendam..ja andei pesquisando alguns e gostaria de saber a opinião de vocês... []'s
RES: [delphi-br] fast report , alguem me salva hehe.
Primeiramente muito obrigado pela ajuda, É o seguinte, fiz uma comparação IF dsmastertipo.text = P then Checkbox1.checked := true Else Checkbox1.checked := false Isso foi no onbeforeprint do checkbox1, e não sei por qual motivo Não funcionou. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 1 de outubro de 2008 14:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] fast report , alguem me salva hehe. Olá TI, você deve usar o evento OnBeforePrint do relatório para modificar o valor do checkbox.. assim como vc faz no ObjectPascal mesmo.. e para acessar qualquer objecto dentro do relatório faça assim (FrxReport1.FindObject( 'NomedoObjeto' ) as ClassedoObject).Memo.Text := 'XX'; 2008/10/1 TI - METALURGICA JANO [EMAIL PROTECTED] mailto:cpd%40jano.ind.br br Estou iniciando o uso do fast report, Gostaria de saca como usar o checkbox dele por exemplo: Tem um campo do frxdbdataset que quando for 'S' o checkbox do relatório fica desemarcado, E quando for 'P' fica marcado. E outra coisa, como passo um valor do Delphi para o relatório? Um abraço a todos. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com.br/ mas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] select em planilha excel via ODBC.. funções?
Ola pessoal, tenho um programa que faz acesso a uma planilha excel via ODBC. estou tentando fazer alguns selects nessa planilha excel, mas sem sucesso... muitas funções que conheço do oracle e sql server não funcionam neste ODBC. Alguem possue uma lista das funções select que podem ser usadas no excel? Ou ainda sabe onde posso encontrar essa informação? É praticamente impossivel achar esse tipo de informação na internet.. por exemplo converter um campo em data (to_date no oracle) Estou fuçando em tudo quanto é lugar la na MSDN, na parte de driver ODBC e não encontro nada.. parece que a própria microsoft não disponibiliza as funções que você pode usar o select. Se alguem tiver interessado é http://msdn.microsoft.com/en-us/library/ms715373(VS.85).aspxhttp://msdn.microsoft.com/en-us/library/ms715373%28VS.85%29.aspx. Obrigado Alemão [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ScrollBar some de DBGrid
Olá pessoal,
Willian, fiz outras modificações:
*** No componente ***
constructor TDBAware.Create(AOwner: Tcomponent);
begin
inherited Create(AOwner);
ScrollBars := ssNone;
FColumnSort := True;
FOriginalOptions := Options;
FTrueColor := TrColor;
end;
*** No exemplo ***
procedure TfrmMain.btnCreateClick(Sender: TObject);
var
I: Byte;
begin
with dstMain do
begin
if Active then
begin
EmptyDataSet;
Close;
end;
CreateDataSet;
Open;
// DisableControls;
for I := 0 to edtRecords.Value - 1 do
begin
Append;
dstMainBoolean.Value := Odd(I);
dstMainText.Value := 'Line ' + IntToStr(I + 1);
Post;
end;
First;
// EnableControls;
end;
end;
Acho que agora resolve.
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 14:36:22
Assunto: Res: Res: [delphi-br] ScrollBar some de DBGrid
Silvio... Valeu cara, mas a sua alteração não resolveu o problema. Eis oq
acontece: a barra some por ficar oculta além do limite visível do componente,
mas ela ainda está lá, pois pode-se observar - olhando com muita atenção - que
ela se move. Ou seja, atribuir um estado para a propriedade ScrollBars não
funciona.
Alguém aí tem mais alguma idéia???
[]'s
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
- Mensagem original
De: Silvio Clécio [EMAIL PROTECTED] com.br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 11:59:44
Assunto: Res: [delphi-br] ScrollBar some de DBGrid
Olá pessoal,
Willian, resolvi seu problema e adicionei no componente a propriedade TrueColor
(Default $00FFEFDF). O pacote está disponível para download no link
http://www.4shared. com/file/ 65228674/ 7bb050bd/ DB-Aware. html
Se você permitir, removo a senha e disponibilizo para nossos colegas no link
http://www.4shared. com/dir/5679510/ 48848609/ Uploads.html
Um abraço a todos!
Silvio Clécio
- Mensagem original
De: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quarta-feira, 1 de Outubro de 2008 9:56:58
Assunto: [delphi-br] ScrollBar some de DBGrid
Bom dia!
Criei um componente descendente do TDBGrid que cria checkboxes para
campos booleanos. Até aí, tudo bem. O componente funciona que é uma
beleza. Porém, tenho um problema: quando mudo alguma propriedade de
QUALQUER componente do form em tempo de execução, a ScrollBar do
componente some, ficando oculta além da borda visível do componente.
Eis o código fonte onde o problema ocorre [1]. Notem que o componente
que apresenta o problema é o cdgbItensNota, não o que está no código.
Há, também, um link [2] para download do componente.
Quem tiver qualquer idéia ou sugestão, agradeço.
[]'s
[1] - procedure TFBPSI012PSI0003. rbtConferenciaCl ick(Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Conferência' ;
FieldName := 'DATARECEB';
end;
Application. ProcessMessages;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
procedure TFBPSI012PSI0003. rbtEmissaoClick( Sender: TObject);
begin
with cdbgNotas.Columns[ 1] do
begin
Title.Caption := 'Emissão';
FieldName := 'DATANF';
end;
proLimpaPesquisas;
if (edtData.DateValue = StrToDate('01/ 01/2008') ) and
(edtData.DateValue = Date) then
proCarregaDados( Sender);
end;
[2] - http://www.4shared. com/file/ 65216330/ b9059ea8/ DB-Aware. html
--
- - - - ---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolve dor Object/Free Pascal
willianjhonnes@ yahoo.com. br
- - - - ---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
- - - - ---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
- - - - ---
.
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compactar arquivo
Eu recomendo o ZipMaster 2008/10/1 deco0_07 [EMAIL PROTECTED]: Pessoal, estou em busca de componente para compactar arquivos.. qual vocês me recomendam..ja andei pesquisando alguns e gostaria de saber a opinião de vocês... []'s -- Att. -- José Benedito Software Developer [EMAIL PROTECTED] (19) 8116-7826
RES: [delphi-br] Compactar arquivo
Kr tem o zip32 e unzip 32, que trabalham blz. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de deco0_07 Enviada em: quarta-feira, 1 de outubro de 2008 15:23 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Compactar arquivo Pessoal, estou em busca de componente para compactar arquivos.. qual vocês me recomendam..ja andei pesquisando alguns e gostaria de saber a opinião de vocês... []'s [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] fast report , alguem me salva hehe.
Olá, faz o seguinte utilize o evento OnBeforePrint do MasterData procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if frxDBDataset1.Fl_SitSelo = 'S' then CheckBox1.Checked := True else CheckBox1.Checked := False; //ou CheckBox1.Checked := ( frxDBDataset1.Fl_SitSelo = 'S' ); end; 2008/10/1 TI - METALURGICA JANO [EMAIL PROTECTED] Primeiramente muito obrigado pela ajuda, É o seguinte, fiz uma comparação IF dsmastertipo.text = 'P' then Checkbox1.checked := true Else Checkbox1.checked := false Isso foi no onbeforeprint do checkbox1, e não sei por qual motivo Não funcionou. _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 1 de outubro de 2008 14:43 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] fast report , alguem me salva hehe. Olá TI, você deve usar o evento OnBeforePrint do relatório para modificar o valor do checkbox.. assim como vc faz no ObjectPascal mesmo.. e para acessar qualquer objecto dentro do relatório faça assim (FrxReport1.FindObject( 'NomedoObjeto' ) as ClassedoObject).Memo.Text := 'XX'; 2008/10/1 TI - METALURGICA JANO [EMAIL PROTECTED] cpd%40jano.ind. mailto: cpd%40jano.ind.br cpd%2540jano.ind.br br Estou iniciando o uso do fast report, Gostaria de saca como usar o checkbox dele por exemplo: Tem um campo do frxdbdataset que quando for 'S' o checkbox do relatório fica desemarcado, E quando for 'P' fica marcado. E outra coisa, como passo um valor do Delphi para o relatório? Um abraço a todos. [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.comeduardo.drd%2540gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com.br/ mas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compactar arquivo
Eu uso o Seven Zip, todos conhecem o poder de compactação dele.. quem ainda não conhece da ta na hora de conhecer: http://www.rg-software.de/rg/index.php?option=com_contenttask=viewid=29Itemid=51 2008/10/1 deco0_07 [EMAIL PROTECTED] Pessoal, estou em busca de componente para compactar arquivos.. qual vocês me recomendam..ja andei pesquisando alguns e gostaria de saber a opinião de vocês... []'s -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] XML
Pessoal,
Fiz uma unit para ler um arquivo XML, e para isto utilizei a classe
TXMLDocument. Este exemplo funcionou perfeitamente em uma maquina Windows
XP, mas o MESMO exemplo em uma maquina windows vista não funciona. Algum de
voces já trabalhou com o TXMLDocument que poderia dar uma ajuda? Segue o
metodo que fiz para ler o arquivo XML e o arquivo XML que estou usando para
testes.
O erro que ocorre no vista é que a linha entityManagerNode.HasChildNodes
retorna false, como se a TAG do xml não tivesse nenhum filho, o que
(olhando o arquivo XML) nao eh verdade. O mesmo ocorre para as linhas
entitiesNode.HasChildNodes e entitiesNode.ChildNodes.Count (esta ultima
o count retorna zero).
Qualquer ajuda sera bem vinda. Obrigado.
clayton
//
// Para usar este metodo eh necessario (na parte do uses) colocar as
units: XMLintf, XMLDoc;
//
procedure TForm1.Button1Click(Sender: TObject);
const
xmlFile = 'C:\teste.xml';
var
root : IXMLDocument;
entityManagerNode : IXMLNode;
entitiesNode : IXMLNode;
entityNode: IXMLNode;
i : integer;
entityName, entityTableName : OleVariant;
attributeNode : IXMLNode;
j : integer;
attributeName, attributeColumnName : OleVariant;
begin
root := TXMLDocument.Create(xmlFile);
try
root.Active := true;
entityManagerNode := root.ChildNodes.nodes['entity-manager'];
if Assigned(entityManagerNode) and entityManagerNode.HasChildNodes then
begin
entitiesNode := entityManagerNode.ChildNodes.nodes['entities'];
if Assigned(entitiesNode) and entitiesNode.HasChildNodes then
begin
for i := 0 to entitiesNode.ChildNodes.Count-1 do
begin
entityNode := entitiesNode.ChildNodes.nodes[i];
if Assigned(entityNode) then
begin
entityName := entityNode.Attributes['name'];
entityTableName := entityNode.Attributes['tableName'];
if (entityName null) and (entityTableName null) then
begin
showMessage('ENTIDADE: '+entityName+' '+entityTableName);
if entityNode.HasChildNodes then
begin
for j := 0 to entityNode.ChildNodes.Count-1 do
begin
attributeNode := entityNode.ChildNodes.Nodes[j];
if Assigned(attributeNode) then
begin
attributeName := attributeNode.Attributes['name'];
attributeColumnName :=
attributeNode.Attributes['column'];
if (attributeName null) and (attributeColumnName
null) then
begin
showMessage('ATRIBUTO: '+attributeName+'
'+attributeColumnName);
end;{if}
end;{if}
end;{for}
end;{if}
end;{if}
end;{if}
end;{for}
end;{if}
end;{if}
finally
root := nil;
end;
end;
//
// ARQUIVO TESTE.XML
//
entity-manager
entities
entity name=Estado tableName=tblEstado
atribute name=codigo column=cdEstado /
atribute name=nome column=nmEstado /
/entity
entity name=Cidade tableName=tblCidade
atribute name=codigo column=cdCidade/
atribute name=nome column=nmCidade /
atribute name=estado column=cdEstado/
/entity
entity name=Pessoa tableName=tblPessoa
atribute name=codigo column=cdPessoa /
atribute name=nome column=nmPessoa/
atribute name=cidade column=cdCidade/
atribute name=altura column=vlAltura/
atribute name=dataNascimento column=dtNascimento/
atribute name=observacao column=dePessoa/
/entity
/entities
/entity-manager
Clayton Bonelli
Tecnologia
mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]
AGRINESS - Gestão da Informação para Suinocultura
(48) 3028-0015 - www.agriness.com http://www.agriness.com/
Visite o BLOG DO BISTECA - www.agriness.com/blogdobisteca
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Compactar arquivo
7-ZIP sem duvida.. []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Eduardo Silva dos Santos Sent: Wednesday, October 01, 2008 3:54 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Compactar arquivo Eu uso o Seven Zip, todos conhecem o poder de compactação dele.. quem ainda não conhece da ta na hora de conhecer: http://www.rg-software.de/rg/index.php?option=com_contenttask=viewid=29Itemid=51 2008/10/1 deco0_07 [EMAIL PROTECTED] Pessoal, estou em busca de componente para compactar arquivos.. qual vocês me recomendam..ja andei pesquisando alguns e gostaria de saber a opinião de vocês... []'s -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Compactar arquivo
realmente muito bom..valeu pela dica... --- Em delphi-br@yahoogrupos.com.br, Luiz ESCobar [EMAIL PROTECTED] escreveu 7-ZIP sem duvida.. []s
[delphi-br] Definir propriedades de INPUT\OUTPUT na estrutura de uma classe
Amigos, só para ter certeza absoluta... Tem como informar à uma classe que tal parâmetro é INPUT ou OUTPUT ou até mesmo ambos? Acredito que isso não seja usual, mas me ajudaria em uma solução que estou implementando. Obrigado pela paciência, -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Definir propriedades de INPUT\OUTPUT na estrutura de uma classe
Parâmetro em classe??? Vc quer dizer na verdade propriedade ao invés de parâmetro, certo? Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 18:51:01 -0200 Subject: [delphi-br] Definir propriedades de INPUT\OUTPUT na estrutura de uma classe Amigos, só para ter certeza absoluta... Tem como informar à uma classe que tal parâmetro é INPUT ou OUTPUT ou até mesmo ambos? Acredito que isso não seja usual, mas me ajudaria em uma solução que estou implementando. Obrigado pela paciência, -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: [delphi-br] meio off - MIgração pro Vista - Core2duo
Com certeza se for um raid 5 melhor ainda... []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 --- From: Walter Chagas Jr (BOL) Sent: Tuesday, September 30, 2008 9:32 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo E HD.. De nada adianta ter 2GB de memória e processador ultima geração se o HD for lento. Vira um gargalo que cê nem imagina... []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: Luiz ESCobar To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 30, 2008 5:25 PM Subject: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo Tanto XP (SP3) como Vista, rodam, Core2Duo e Core2Quad. POREM: processador não é tudo.. boas memórias (dual-channel) e um boa motherboard é excencial... []s Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour 1.0.0 Intl. (Rev. 9175) xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26 -- From: Vinicius Santos - MSI Sent: Tuesday, September 30, 2008 4:59 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] meio off - MIgração pro Vista - Core2duo Até onde eu sei o XP, reconhece até 2 núcleos, em qualquer Service Pack. Vinicius dos Santos http://www.msisolucoes.com.br -Mensagem Original- De: sergio cavalcante Para: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Enviada em: terça-feira, 30 de setembro de 2008 16:50 Assunto: [delphi-br] meio off - MIgração pro Vista - Core2duo Pessoal, Aqui na empresa vamos atualizar as máquinas e queria a opinião de vocês. Temos em mente comprar Máquinas Core2Duo com 2Ghz de Ram. Pro XP tá ótimo. Mas, pelo que vi, o XP não utiliza as maravilhas dos processadores multinucleados. Então, para isso, teríamos que utilizar o Vista, certo? no caso 2Ghz ficaria pouco pro Vista, para uma ótima performance. Então, compraríamos 4Ghz. Então pergunto: 1 - Utilizando o Delphi 6, teríamos algum problema em rodar os aplicativos compilados no Vista, nos nossos clientes que usam XP e Win 2K? Tenho quase certeza que não, mas, só pra me assegurar. O Vista seria o 32 bits. 2 - Com esse service pack 3 do Win XP, ele já suporta esses processadores?(me refiro a usar os recursos plenamente) 3 - Uma versão do Delphi mais atual utilizaria melhor esse benefício? Muito obrigado para quem responder algo... Atenciosamente, Sérgio Cavalcante [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.173 / Virus Database: 270.7.5/1698 - Release Date: 29/9/2008 19:25 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3484 (20080930) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Oportunidade Profissional - Brasília/DF
Empresa de grande porte situada em Brasília-DF seleciona: Profissional com ensino médio e sólidos conhecimentos em desenvolvimento de sistemas utilizando Delphi 7 e experiência em criação e utilização de consultas complexas, functions e stored procedures no banco de dados SQL Server 2000 (programação T-SQL) . Conhecimentos na linguagem clipper serão bem vindos, aliados à experiência OBRIGATÓRIA em delphi. Buscamos um profissional competente, extremamente comprometido com prazos, com qualidade e vontade de trabalhar em equipe e enfrentar desafios. Terá oportunidade de trabalhar com Microsiga, PHP e outras tecnologias utilizadas na empresa. Daremos preferência para pessoas que estejam disponíveis para início imediato. Só serão considerados currículos dentro do perfil solicitado e COM PRETENSÃO SALARIAL. A modalidade de contratação é PJ ou poderá ser por Associação e o salário varia de acordo com a experiência/formação. Os currículos COM PRETENSÃO SALARIAL devem ser enviados para o e-mail: [EMAIL PROTECTED] Os candidatos que enviarem resposta para a lista, serão desclassificados. Obrigado!!! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] UPDATE com INNER JOIN em FIREBIRD como FAZER?
Pessoal Alguém sabe como faço um UPDATE usando inner JOIN em FIREBIRD ? Estou usando o comando abaixo, mas esta dando erro no inner Implantação da rotina de Quitação de vale Creditos no Setor de Pedidos update itenspa p set data_prev_troca = datavenda inner join cadpa c on c.numero_pa = p.numero_pa where (p.data_prev_troca is null) and (p.produto = 1) Abs Sérgio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] JvDBTreeView Paleta: Jv DataControls. - Meio off..
Pq vc optou por componente de terceiros, já que tem um Nativo? Abs 2008/10/1 Tatu [EMAIL PROTECTED] Alguem utilizou esse componente..Montei ele para testar e minha decepção se deve a que fica extremamente lento para uma quantidade de registros pai de aprox. 500(de ai para mais, é impraticável). Tal vez nao estou configurando ele corretamente entao gostaria de saber se alguem tem mais experiencia com ele. Santiago NSR Informática. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] JvDBTreeView Paleta: Jv DataControls. - Meio off..
Existe TreeView nativo, e não DBTreeView nativo, que é a necessidade do colega Tatu! Uma coisa é uma coisa, e outra coisa é outra coisa! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 16:32:37 -0300 Subject: Re: [delphi-br] JvDBTreeView Paleta: Jv DataControls. - Meio off.. Pq vc optou por componente de terceiros, já que tem um Nativo? Abs 2008/10/1 Tatu [EMAIL PROTECTED] Alguem utilizou esse componente..Montei ele para testar e minha decepção se deve a que fica extremamente lento para uma quantidade de registros pai de aprox. 500(de ai para mais, é impraticável). Tal vez nao estou configurando ele corretamente entao gostaria de saber se alguem tem mais experiencia com ele. Santiago NSR Informática. _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
RE: [delphi-br] UPDATE com INNER JOIN em FIREBIRD como FAZER?
Tá dando erro pq o FireBird não aceita essa sintaxe. Hj mexo mais com SQL Server 2005. Até o Setembro do ano passado, tava mexendo com FireBird, mas me lembro que nele era possível fazer isso. Tenta algo assim: update itenspa p set p.data_prev_troca = (select c.datavenda from cadpa c on c.numero_pa = p.numero_pa) where p.data_prev_troca is null and p.produto = 1 Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Wed, 1 Oct 2008 16:24:44 -0300 Subject: [delphi-br] UPDATE com INNER JOIN em FIREBIRD como FAZER? Pessoal Alguém sabe como faço um UPDATE usando inner JOIN em FIREBIRD ? Estou usando o comando abaixo, mas esta dando erro no inner Implantação da rotina de Quitação de vale Creditos no Setor de Pedidos update itenspa p set data_prev_troca = datavenda inner join cadpa c on c.numero_pa = p.numero_pa where (p.data_prev_troca is null) and (p.produto = 1) Abs Sérgio _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: Res: [delphi-br] Compactação de dll, bpl e executáveis
Silvio, sinceramente não entendi :D o executável não mostra a versão nas propriedades. Sendo assim não entendi prá que saber do q tem nos comentários se aquela tela .question.jpg não é mostrada. Acho que a compilação foi feita errada. Poderia ser mais específico no q vc quer? posso tentar decifrar, mas se eu entender o que é e para q serve... Onjahyr Silvio Clécio escreveu: Olá pessoal, Se alguém descobrir o comentário que coloquei nas propriedades do EXE, abandono definitivamente o PECompact2 GUI! Infelizmente não tenho um prêmio para oferecer, mas isso é só para descontrair um pouco, o arquivo Project1.res.zip está com o resource, não vale quebrar a senha deste arquivo, tem que pegar do EXE, rsrsrsrsrsr. Pessoal, sei que o tempo da maioria de vocês é curto, só que o software faz algo (pessoalmente não sei o que é) que já tentei de todas as formas acessar a versão, WAV, BMP etc., de um EXE compactado por ele e não consegui, então mesmo consumindo alguns % a mais de memória, às vezes vale a pena usá-lo, caso queira proteger algo do resource. Eu não compactei o ícone, somente a versão do EXE, onde tem um comentário X, compactei com senha o resource (Project1.res.zip) porque senão era só ver nele, vou esperara um tempo, se ninguém descobrir o suposto comentário, posto aqui a senha deste arquivo. Apesar disso soar como [OFF TOPIC], acho que vai esclarecer a dúvida de muitos colegas, e minha intenção não é desafiar ninguém, quem sou eu para isso? Só quero saber se posso esconder meu resource em alguns casos. O arquivo está disponível temporariamente para download no link: http://geocities.yahoo.com.br/silvioprog/Teste_com_PECompact2.zip http://geocities.yahoo.com.br/silvioprog/Teste_com_PECompact2.zip Um abraço a todos! Silvio Clécio - Mensagem original De: Daniel Bastos [EMAIL PROTECTED] mailto:danbastos%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 30 de Setembro de 2008 17:49:00 Assunto: Re: [delphi-br] Compactação de dll, bpl e executáveis Utilizei muito até ter problemas. Exatamente como o Walter diz no post dele :) No mais, hoje em dia nem sei se é necessário. Pois se o problema é distribuição, o algorítmo de compressão utilizado no Inno Setup e afins é excelente.E pra proteger a área de resources .. se eu quiser acessar o resource de algum exe, e não conseguir, a primeira coisa que iria tentar seria descompactar com o AsPack ou o UPX. 2008/9/30 Silvio Clécio [EMAIL PROTECTED] com.br Olá pessoal, Bom, cada um com sua opinião, eu removo as Units da(s) clausula(s) uses (dá trabalho) que não serão utilizadas pelo projeto, tem delas que insere um monte de imagens BMP (através de arquivos *.res) dentre outras coisas, como strings, cursores, WAV's e etc. Além disso, tem programas que você acessa parte do conteúdo do EXE, DLL enfim, como os XN Resource Editor e Resource Hacker, e em alguns casos eu não quero que alguém copie algo do meu digamos EXE. Utilizo o software PECompact2 GUI (http://www.bitsum. com/), na maioria dos programas simples que eu desenvolvo uso o PECompact2 GUI com suas propriedades em default, mas em alguns casos eu modifico suas configurações. É como o próprio Walter Chagas disse: ... E a polêmica começa a se arrastar pelos E-Mails, mas cabe ao colega analisar com calma, ver o motivo para a compactação e decidir qual ferramenta utilizar e que configuração usar nesta ferramenta se for usá-la. Bom amigos, espero mesmo sem ter sido de um modo 'explícito' ter colaborado aqui na lista. Um abraço a todos! Silvio Clécio - Mensagem original De: Ricardo Lima [EMAIL PROTECTED] com Para: [EMAIL PROTECTED] os.com.br Enviadas: Terça-feira, 30 de Setembro de 2008 9:24:07 Assunto: [delphi-br] Compactação de dll, bpl e executáveis Olá pessoal! Estou pensando em usar o AsPack para compactar as dll, bpl e executáveis do sistema, já vi que a redução do tamanho é muito grande. Alguem sabe me informar se essa compactação prejudica de alguma forma a performance do carregamento ou execução do sistema? Obrigado. At. Ricardo Lima . .
Re: [delphi-br] Conexão MS-SQL 2005 super lenta..
Fiz uns testes de performace com ADO e DBX, nem se compara a diferença, usa o DBX que é melhor... JM 2008/9/29 José Maria Campos Henriques [EMAIL PROTECTED] Boa tarde, Tentei um select usando ADO. Tem alguma configuração especial? Estou usando Delphi 7. Chegou a travar. Grato, José Maria -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] duvida sobre querys
Pelo que entendi você quer adicionar o Fields dinamicamente para cada select... bom isso eh quase simples, tenta algo do tipo class procedure TDMConn.AddFields(CDS: TDataSet); var intFor : integer; begin // Atualizando os tipos dos TFields, conforme tipos dos campos definidos no // banco de dados CDS.FieldDefs.Update; // Criar os TFields inserindo-os no DataSet. for intFor := 0 to CDS.FieldDefs.Count - 1 do begin if CDS.FindField(CDS.FieldDefs[intFor].Name) = nil then begin CDS.FieldDefs.Items[intFor].CreateField(CDS); end; end; end; antes de abrir o DataSet chama essa função JM 2008/9/30 Rubem Nascimento da Rocha [EMAIL PROTECTED] Esqueci de terminar a observação que estava digitando! Queria dizer que, dependendo do tipo de acesso q vc irá fazer (BDE, ADO/dbGo, dbExpress, etc.), pode ser que a referida camada de acesso introduza novas classes de objetos TField para peculiaridades e/ou funcionalidades que a camada de acesso forneça. Tem que prestar atenção nisso daí! Fora isso... boa sorte! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] djpardalrocha%40hotmail.com Date: Tue, 30 Sep 2008 14:23:30 + Subject: RE: [delphi-br] duvida sobre querys Tal método (AddAllFields) para definição de campos não existe! Isto realmente é apenas mera especulação! Se quiser que uma consulta tenha sempre todos os objetos TField criados de acordo com os campos que são retornados no SELECT, independente do que vc use como componente de consulta (TQuery, TADOQuery, TSQLQuery, etc.), o q vc tem que fazer é o seguinte: 1) Antes de abrir a consulta, criar uma outra consulta à parte que nao retorne registro algum, apenas os campos da consulta original; 2) Efetuar um open nessa outra consulta; 3) Para cada campo retornado dessa outra consulta, analisar o tipo de dados do mesmo e criar um objeto TField respectivo e adicioná-lo a lista de campos da consulta original. Uma observação: dependendo do tipo de acesso q vc irá fazer (BDE, ADO/dbGo, dbExpres A janela Fields Editor do IDE do Delphi já faz isso pra vc de bandeja. Portanto, em resumo, o q vc quer é fazer o trabalho do Fields Editor em tempo de execução. Teoricamente, o q vc tem que fazer é o que relatei nos passos anteriores. Não tenho exemplo disso, pois nunca tive necessidade de criar campos com esse nível de necessidade q vc tem. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] portaldoinferno%40gmail.com Date: Tue, 30 Sep 2008 11:06:37 -0300 Subject: Re: [delphi-br] duvida sobre querys query.addallfields; esse exmplo ta um poco bizarro, mais não achei jeito melhor de expressar o que estava precisando, gostaria que em tempo de execução dependendo da tabela selecionada a query assuma os campos na hora, no caso se eu do um OPEN ele assume os campos, mais necessito que esses campos ainda fiquem na query mesmo depois do CLOSE, sendo substuido apenas quando a tabela do selec for mudada e com isso assumindo os novos campos 2008/9/29 Rubem Nascimento da Rocha [EMAIL PROTECTED]djpardalrocha%40hotmail.com : Objetos TField ligados a um dataset que está consultando dados diretamente de um SGBD¹ devem, obrigatoriamente, ter seus respectivos campos fisicamente já definidos em tabelas do banco de dados. Para este tipo de dados, o máximo q vc pode fazer é criar um campo calculado (tipo fkCalculated) e definir um evento no seu formulário/data module para tratar tais campos. Mas a criação de campos calculados só deve acontecer com o dataset fechado. Procure que vc vai achar exemplos na Internet de como criar campos calculados. Agora, se o seu caso é criar campos temporários em um dataset, faça isso em um ClientDataSet, criando campos do tipo ftInternalCalc e configurando-os adequadamente para que, em uma atualização em um SGBD, as atualizações em tais campos não sejam aplicados ao banco de dados, pois tais campos no banco de dados realmente não existem. Se vc nunca usou ClientDataSet, eis uma boa oportunidade. Tem material a botão na Internet relacionado com este componente. Boa sorte. Sds. P.S.: (1) SGBD - Sistema Gerenciador de Banco de Dados To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] portaldoinferno%40gmail.com Date: Mon, 29 Sep 2008 15:04:44 -0300 Subject: [delphi-br] duvida sobre querys gostaria de saber se existe alguma maneira de eu inserir os campos de uma tabela numa query em tempo de execução -- Leonardo Carlos Baldino - The Highlander __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br --
