[delphi-br] Substituir BDE em toda aplicação: Sugestões
Bom dia a todos, Tenho um sistema no qual dou manutenção e que está dando muita dor de cabeça por causa do BDE. Então sugeri a empresa substituir o BDE por outro componente. Bem gostaria de sugestões de componentes para conectar no Oracle, no caso o sistema não usa ClientDataSet somente as querys. E também se alguém souber de algum método, quiser contar experiências para fazer este processo com menos impacto possível eu agradeço. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro BDE
Tenho uma aplicação que ainda usa BDE. Em uma determinada tela ocorre um problema que é intermitente: O usuário cria um registro e o salva. Depois quando o usuário volta a esta tela e altera o registro e salva em três campos os dados são perdidos. Como disse anteriormente, o problema é intermitente, Já conferi o object updade e não tem nada de anormal, no código, também não tem referencias para os campos que estão desaparecendo. Alguém já passou por algo parecido e pode me dar uma luz? ou pelo menos como eu posso monitorar este problema. Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro BDE
Componente é o TQuery da paleta BDE conectado a um TOBjectUpdate com instruções de Insert, updade, delete Os tipos de dados são dois campos TStringField correspondente a um VARCHAR2(60 BYTE) e um TBCDField correspondente a um NUMBER(5,2) Delphi é o 2007 BD Oracle por curiosidade, qual é o tipo de dados e o tipo de componente você esta usando nesses campos ? *Diego Garcia* Em 16 de agosto de 2010 10:47, Evaldo evaldoave...@yahoo.com.br escreveu: Tenho uma aplicação que ainda usa BDE. Em uma determinada tela ocorre um problema que é intermitente: O usuário cria um registro e o salva. Depois quando o usuário volta a esta tela e altera o registro e salva em três campos os dados são perdidos. Como disse anteriormente, o problema é intermitente, Já conferi o object updade e não tem nada de anormal, no código, também não tem referencias para os campos que estão desaparecendo. Alguém já passou por algo parecido e pode me dar uma luz? ou pelo menos como eu posso monitorar este problema. Obrigado! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Lazarus
Cara, fiz uma avaliação há pouco tempo se quiser da uma olhada: http://evaldoavelar.blogspot.com/ jorge takahashi escreveu: Ola pessoal do grupo, Alguém pode dar algumas opiniões sobre o Software Lazarus, sobre o PRÓS e CONTRA. Um abraço e-mail : jorgekenitetakaha...@yahoo.com.br informatica.ap...@terra.com.br site : www.informaticaapoio.bpg.com.br APOIO INFORMATICA S/C LTDA O apoio que a sua empresa necessita !!! [As partes desta mensagem que não continham texto foram removidas] -- [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] [OFF] - Motivação
Cara, passei a mesma situação que você no ano passado! Estava muito desmotivado Foram 2 anos e meio como estagiário, sem férias, dando manutenção em sistemas mau planejados e com clientes insatisfeitos. Com um gerente que nem sabia direito o que era informática Além de programar, ainda tinha que testar, da suporte e substituir a secretária quando ela faltava e ganhando uma micharia. No final, quando eu sai, meu chefe ainda disse que eu fui uma decepção. Mas valeu a pena, estou em outra empresa que valoriza o trabalho e que da a liberdade de chegar fazer meu horário. Sempre tem projetos desafiadores e pessoas competentes, sem contar que hoje fico apenas por conta da programação sem nenhuma outra amolação. Mudar o ambiente é uma boa saída. From: Iran Lima i...@sgisolution.com.br To: delphi-br@yahoogrupos.com.br Sent: Tue, July 27, 2010 4:04:47 PM Subject: RES: [delphi-br] [OFF] - Motivação Pessoal gostaria primeiramente de agradecer aos que responderam. Acho que o meu problema é serio mesmo, já cheguei a ficar catatônico com os olhos grudados na tela do Delphi. To cansado de fazer as mesmas tarefas, e o pior como a empresa é pequena tenho que fazer os testes também. To sem férias a mais de 2 anos. E nem tenho previsão para isso. Se eu pudesse procuraria outro emprego mas aqui no interior da Bahia na área de TI não é fácil. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fabiano Moura Enviada em: terça-feira, 27 de julho de 2010 14:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF] - Motivação *Boa tarde!* Irã, acredito que sua desmotivação é associado por falta de trabalhos interessantes, por isso, eu acho que primeiramente deve tentar na empresa que trabalha, caso não consiga nada para se motivar, procure outra empresa. Irá te ajudar! Bons programadores querem desafios, sem desafios se sentem desmotivados, então amigo, procura algo desafiador, ou como o companheiro Dirlei falou, consiga algo open-source para você contribuir e aumentar a motivação. *Obrigado,* * * *Fabiano* Em 27 de julho de 2010 14:03, Luis Alberto - Yahoo! luisalbertolo...@yahoo.com.br escreveu: Todos no mercado de trabalho, independente do segmento, está sujeito a isso. Ou a empresa tem que criar mecanismos de motivação ou você tem que procurar, na empresa, alguma motivação. Caso não seja possível, o melhor é mudar de ares mesmo. __ ___ Luis Lopes Belo Horizonte - MG luisalbertolo...@yahoo.com.br (31) 9741-7473 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de JhosefMarks Enviada em: terça-feira, 27 de julho de 2010 13:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF] - Motivação Se tu entende que não tem mais para onde crescer na empresa que vc esta atualmente, procura outra... rs Foi o que eu fiz até chegar em uma empresa que eu realmente tenho muito para aprender e crescer... Att, JhosefMarks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 27 de julho de 2010 13:33, Iran Lima i...@sgisolution.com.br escreveu: Olá pessoal, sei que estou fugindo do tema do grupo, porém acredito que este assunto seja de importância a todos. Trabalho no desenvolvimento de sistemas a 3 anos. Ultimamente meu rendimento caiu muito e anda muito abaixo do que já foi. Sempre gostei de programar e projetar sistemas, porem a rotina e o stress tornou meu trabalho um “saco”. Ainda gosto de programar e estudar porém da área que eu trabalho. Gostaria de saber a opinião de alguém que já passou ou esta passando por isso. Grato, Iran Lima. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Procurar Nome da tabela dentro da query
Alguém tem algum algoritimo para capturar o nome da tabela a que se refere uma query? por exemplo um objeto TsqlQuery com a instrução: ' select nome,telefone from CLIENTE where idcliente = :cliente '; o algoritimo iria retornar 'CLIENTE'. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Procurar Nome da tabela dentro da query
Obrigado, achei que alguém podesse ter um parser para fazer isto. From: Rubem Rocha rubem.ro...@dtmanaus.com.br To: delphi-br@yahoogrupos.com.br Sent: Thu, July 15, 2010 11:52:45 AM Subject: RES: [delphi-br] Procurar Nome da tabela dentro da query Não tem algoritmo ou fórmula mirabolante pra esse caso. Usando a função Pos(), peque a posição da palavra ‘FROM’ e a posição da próxima cláusula seguinte ao FROM (que pode ser WHERE, GROUP BY, HAVING, ORDER BY ou qualquer uma outra, dependendo do banco de dados que estejas usando). Recorte a string dentro desse faixa de posições e analise para obter o(s) nome(s) da(s) tabela(s) desejada(s). Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: quinta-feira, 15 de julho de 2010 10:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Procurar Nome da tabela dentro da query Alguém tem algum algoritimo para capturar o nome da tabela a que se refere uma query? por exemplo um objeto TsqlQuery com a instrução: ' select nome,telefone from CLIENTE where idcliente = :cliente '; o algoritimo iria retornar 'CLIENTE'. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Procurar Nome da tabela dentro da query
Simples, não acredito que seja por que pode haver algumas querys com muitos joins e querys sem a clausula where Obrigado. From: Rubem Rocha rubem.ro...@dtmanaus.com.br To: delphi-br@yahoogrupos.com.br Sent: Thu, July 15, 2010 3:29:19 PM Subject: RES: RES: [delphi-br] Procurar Nome da tabela dentro da query Pode ser que existam parsers mas, como podes constatar que isso é bem simples, nada impede que você possa construir o seu próprio parser. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: quinta-feira, 15 de julho de 2010 14:25 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Procurar Nome da tabela dentro da query Obrigado, achei que alguém podesse ter um parser para fazer isto. From: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thu, July 15, 2010 11:52:45 AM Subject: RES: [delphi-br] Procurar Nome da tabela dentro da query Não tem algoritmo ou fórmula mirabolante pra esse caso. Usando a função Pos(), peque a posição da palavra ‘FROM’ e a posição da próxima cláusula seguinte ao FROM (que pode ser WHERE, GROUP BY, HAVING, ORDER BY ou qualquer uma outra, dependendo do banco de dados que estejas usando). Recorte a string dentro desse faixa de posições e analise para obter o(s) nome(s) da(s) tabela(s) desejada(s). Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Evaldo Enviada em: quinta-feira, 15 de julho de 2010 10:41 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Procurar Nome da tabela dentro da query Alguém tem algum algoritimo para capturar o nome da tabela a que se refere uma query? por exemplo um objeto TsqlQuery com a instrução: ' select nome,telefone from CLIENTE where idcliente = :cliente '; o algoritimo iria retornar 'CLIENTE'. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] unit FastString delphi 2010
Alguém usa a unit FastString no delphi 2010? http://www.koders.com/delphi/fidFB386C5C240FD5E72013C882ADD7600FDF60E6C7.aspx?s=socket Parece que não exite uma versão para o delphi 2010. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Função Explode
Delphi tem alguma função explode nativa? ou vou ter que implementar? por exemplo: A string: str := teste,teste,teste,teste explode(str,','); retorna uma stringlist: teste teste teste tese [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Função Explode
Obrigado pessoal, vou ver qual a melhor opção aqui. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Código de Barras QuickReport
O QuickReport tem componente para impressão de código de barras nativo? ou preciso instalar outro? Delphi 2007 QuickReport 4 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Código de Barras QuickR eport
Testei aqui e funcionou perfeitamente com o delphi 2007. Obrigado! From: Rodrigo Alex Marchiori r.marchi...@uol.com.br To: delphi-br@yahoogrupos.com.br Sent: Tue, June 1, 2010 9:33:04 AM Subject: RES: [delphi-br] Código de Barras QuickReport Bom dia, eu estou utilizando o componente em anexo no Delphi 7 não sei se roda no 2007. Att Rodrigo Alex Marchiori De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evaldo Enviada em: terça-feira, 1 de junho de 2010 09:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Código de Barras QuickReport O QuickReport tem componente para impressão de código de barras nativo? ou preciso instalar outro? Delphi 2007 QuickReport 4 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF TOPIC - Segurança
Aqui na empresa temos uma máquina virtual que fica em um HD externo e quem for viajar leva o HD com a máquina de desenvolvimento completa. Eu não me sentiria bem trabalhando em um ambiente todo controlado, tanto é que dexei meu último emprego por causa disso. Lá tinha proxy, um firewall que barrava tudo, não podia levar pendriver e nem notebook. Um saco! Como o colega disse, quem tem criatividade não precisa copiar código, a pessoa desenvolve. E se não sabe vai atrás do googleou pede ajuda na lista. Hoje trabalho mais confortável e tranqüilo sem a paranóia de tudo controlado. - Atenciosamente: Evaldo Avelar Marques Desenvolvedor - Fala que eu programo! Tudo que não exige criatividade pode ser feito automaticamente. --~---~--~~--~--~-~--~~~---~--~~--~--~-~--~~-- Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação baseada nestas informações. Se você recebeu esta mensagem por engano, por favor, avise imediatamente o remetente, respondendo o e-mail e em seguida, apague-o. Agradeço sua cooperação. --~--~-~--~~~---~--~~--~--~-~--~~~---~--~~ From: Walter Chagas (Bol) wchag...@bol.com.br To: delphi-br@yahoogrupos.com.br Sent: Tue, March 30, 2010 10:22:13 AM Subject: Re: [delphi-br] OFFTOPIC - Segurança Olha, sinceramente, na minha humilde opinião, estas coisas não funcionam e eu acho isto é uma grande paranóia que vai lhe dar mais problemas do que soluções. Sempre, sempre há ou haverá um jeitinho de burlar o que for e levar. Há, voce bloqueia tudo, portas, acesso, teclado, monitor, etc... Blz. Primeiro que excesso de bloqueio começa a impactar na produtividade do profissinal e, na pior das hipóteses, ele arruma uma desculpa, fala que tem que ir na empresa no sábado ou ficar até depois do expediente, abre uma maquina, pega o HD, leva pra casa, copia o conteúdo e volta no mesmo dia ainda. Poe lá e pronto. Ou abre a maquina, espeta outro HD nela, liga, e faz espelhamento E aí? De que adiantou investir tanto em cercar o ladrão Em todos lugares que já trabalhei, e isto inclui aqui a Telemont, não há qualquer restrição em levar código pra casa não até porque quando a gente viaja, temos que colocar os codigos dos projetos todos em Pendrive pra levar pois caso não consigamos conectar na rede de cá, de onde estivermos, ou se não conseguirmos uma internet pra conectar via VPN, então temos o fonte disponível. Isto é muito crítico principalmente quando pegamos um novo estado e temos que montar a regional. Até a rede lá enxergar aqui, a internet estiver funcionando e tudo mais, não dá pra esperar. A solução é esta e não há muito o que discutir. O que é restrito aqui, são documentos de cunho estratégico e manuais de gestão. Estes ficam em servidores servidor e lugares separados que somente supervisores, diretores, gerentes tem acesso. Nós não não temos acesso algum e nem exergar estes servidores/compartilhamentos conseguimos. Para voce ter acesso a tais documentos, não precisa chover no molhado né. Só com autorização. São documentos que não podem sair daqui nem com a ordem do Papa. Agora e se amanhã o camarada aí, tiver que viajar a serviço e tiver que levar os fontes com ele pra dar manutenção em um cliente lá na cochinchina e lá não tem internet pra ele conectar, via VPN, e acessar os fontes da rede local??? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol. com.br http://delphitocorp orerm.blogspot. com/ http://twitter. com/wchagas MSN: whitesockets@ hotmail.com SKYPE: WalterChagasJr - Original Message - From: waldir To: delphi...@yahoogrup os.com.br Sent: Sunday, March 28, 2010 10:28 PM Subject: [delphi-br] OFFTOPIC - Segurança Tenho uma empresa que desenvolve um sistema específico, com código registrado no INPI, etc, e tenho 3 programadas, já companheiros antigos e altamente confiáveis, e por isso nunca me preocupei com a segurança do código fonte, mas atualmente estou pensando em recrutar novos programadores e alguns estagários e aí surgiu e muito fortemente a preocupação quanto a essa segurança. Posso desativar todas as portas da cpu, internet, etc, mas mesmo assim não sei se isso é o mais adequado, portanto estou recorrendo ao fórum para colher sugestões e se alguem passou por processo semelhante qual foi a solução adotada. Antecipadamente agradeço a quem se dispuser a me auxiliar. waldir silva [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBMemo com cara de Bloco de Anotaç ões
Eu criaria uma imagem de fundo nesse estilo do kde (http://www.urubatan.com.br/wp-content/uploads/2008/11/desktop.png) e colocaria a cor de fundo do dbmemo na cor da imagem e retiraria as bordas dele. From: Gilvan Costa info...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Thu, March 18, 2010 2:57:54 PM Subject: [delphi-br] DBMemo com cara de Bloco de Anotações Olá Srs. Tenho um DBMEMO que os usuários escrevem seus relatórios. Gostaria de dar uma melhorada e a idéia é deixar esse dbmemo com cara de um bloco de anotações, recurso esse que já vi em vários softwares. Alguém tem alguma idéia de como eu possa fazer isso? Certo da colaboração desde já agradeço Gilvan Costa [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF - Atividades mais estressantes do mundo
As 10 Atividades mais estressantes do mundo Em um levantamento, realizado pela SWNS a pedido da empresa irlandesa SkillSoft, envolveu mais de 3.000 pessoas de várias profissões e concluiu que os profissionais de tecnologia da informação são os que mais se estressam com suas atividades diárias. Ainda na pesquisa, as pessoas que não fazem nada da vida somaram 0% de estresse. 1º. TI 2º. Medicina 3º. Engenharia 4º. Vendas e marketing 5º. Educação 6º. Finanças 7º. Recursos humanos 8º. Operações 9º. Produção 10º. Religião Fonte: Consultoria SWNS http://lista10.org/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] 2 bandas detalhe no QuickReport
Bom dia! Estou precisando imprimir 2 querys em 2 bandas detalhes independentes em um mesmo relatório, porem o quick report não tem opção para linkar uma banda detalhe a um dataSet somente o próprio quick é que pode ser ligado a um dataset. O que eu posso fazer para imprimir as duas bandas detalhe? A estrutura seria esta: qry1 - itens SubDetalhe - itens qry2 - itens Uso delphi 2007 e QuickReport4 para acesso a dados uso ADO. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] 2 bandas detalhe no QuickReport
sim,como ChildBand mas não rodou... From: Rubem Rocha rubem.ro...@dtmanaus.com.br To: delphi-br@yahoogrupos.com.br Sent: Mon, March 15, 2010 9:52:33 AM Subject: RES: [delphi-br] 2 bandas detalhe no QuickReport Experimentou fazer essa banda ser filha da banda de detalhe? Ou seja, uma sub-banda? Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Evaldo Enviada em: segunda-feira, 15 de março de 2010 08:53 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] 2 bandas detalhe no QuickReport Bom dia! Estou precisando imprimir 2 querys em 2 bandas detalhes independentes em um mesmo relatório, porem o quick report não tem opção para linkar uma banda detalhe a um dataSet somente o próprio quick é que pode ser ligado a um dataset. O que eu posso fazer para imprimir as duas bandas detalhe? A estrutura seria esta: qry1 - itens SubDetalhe - itens qry2 - itens Uso delphi 2007 e QuickReport4 para acesso a dados uso ADO. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] 2 bandas detalhe no QuickReport
A solução (gambiarra) que achei foi criar outro relatório e juntar os 2 usando o QRCompositeReport. From: Evaldo evaldoave...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Mon, March 15, 2010 10:15:24 AM Subject: Re: RES: [delphi-br] 2 bandas detalhe no QuickReport sim,como ChildBand mas não rodou... _ _ __ From: Rubem Rocha rubem.rocha@ dtmanaus. com.br To: delphi...@yahoogrup os.com.br Sent: Mon, March 15, 2010 9:52:33 AM Subject: RES: [delphi-br] 2 bandas detalhe no QuickReport Experimentou fazer essa banda ser filha da banda de detalhe? Ou seja, uma sub-banda? Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi- b...@yahoogrup os.com.br] Em nome de Evaldo Enviada em: segunda-feira, 15 de março de 2010 08:53 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] 2 bandas detalhe no QuickReport Bom dia! Estou precisando imprimir 2 querys em 2 bandas detalhes independentes em um mesmo relatório, porem o quick report não tem opção para linkar uma banda detalhe a um dataSet somente o próprio quick é que pode ser ligado a um dataset. O que eu posso fazer para imprimir as duas bandas detalhe? A estrutura seria esta: qry1 - itens SubDetalhe - itens qry2 - itens Uso delphi 2007 e QuickReport4 para acesso a dados uso ADO. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Thread parece nao rodar em backgound
Estou desenvolvendo uma tela de Aguarde para usar em uma aplicação que faz processamento pesado. Para isso estou criando uma thread que exibe um form com um rxGifAnimator. Até aqui tubo bem, a thread exibe o form com o gif animado. Mas quando o processamento pesado na aplicação começa, a thread parece que para de processar: //Aplicacao threadv := TThreadAguarde.Create(true); threadv.FreeOnTerminate := true; threadv.Priority := tpHighest; threadv.Resume; //quando começa a processr a thread para for I := 0 to 90 do begin for k := 0 to 9000 do begin end; end; //termina a thread threadv.terminate; Execute da thread procedure TThreadAguarde.Execute; begin { Place thread code here } Synchronize(Showform); //cria e exibe o form while not Self.Terminated do begin sleep(100); end; Synchronize(Closeform);//fecha o formulario end; Estou usando o D delphi 2007 SO: Windows 7 32bits Porcessador: Turion Mobile 64x2 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FormatDateTime
Tentei assim também mas o da o mesmo problema. From: CRM Desenvolvimentos crmdesenvolvimen...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. [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] FormatDateTime
Na verdade estou usando sim. Consegui resolver. Acho que era um problema da query; Estava assim: stFormatoData = 'dd/mm/' ; query.ParamByName('data').AsString := FormatDateTime( stFormatoData, Now); Resolvi trocando o AsString por AsDate: stFormatoData = 'dd/mm/' ; query.ParamByName('data').AsDate := StrToDate ( FormatDateTime( stFormatoData, Now) ); Muito Obrigado pela ajuda de todos! From: Dirlei dir...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tue, January 19, 2010 11:25:01 AM Subject: Re: [delphi-br] FormatDateTime Evaldo, neste código, você não está utilizando o retorno da função FormatDateTime para nada. Foi por isso que o linker ignorou a chamada à função. A sua intenção não seria guardar o retorno da função numa variável ou exibir na tela? Dirlei. Evaldo escreveu: Ao usar a função no Delphi 2007: stFormatoData = 'dd/mm/' ; FormatDateTime( stFormatoData, Now); o compilador da o seguinte erro e não retorna nada: Function to be called, FormatDateTime, was eliminated by linker Alguém já passou por isso? Delphi 2007 __ !-- #ygrp-mkp { border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;} #ygrp-mkp hr { border:1px solid #d8d8d8;} #ygrp-mkp #hd { color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;} #ygrp-mkp #ads { margin-bottom:10px;} #ygrp-mkp .ad { padding:0 0;} #ygrp-mkp .ad a { color:#ff;text-decoration:none;} #ygrp-sponsor #ygrp-lc { font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd { margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad { margin-bottom:10px;padding:0 0;} a { color:#1e66ae;} #actions { font-family:Verdana;font-size:11px;padding:10px 0;} #activity { background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;} #activity span { font-weight:700;} #activity span:first-child { text-transform:uppercase;} #activity span a { color:#5085b6;text-decoration:none;} #activity span span { color:#ff7900;} #activity span .underline { text-decoration:underline;} .attach { clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;} .attach div a { text-decoration:none;} .attach img { border:none;padding-right:5px;} .attach label { display:block;margin-bottom:5px;} .attach label a { text-decoration:none;} blockquote { margin:0 0 0 4px;} .bold { font-family:Arial;font-size:13px;font-weight:700;} .bold a { text-decoration:none;} dd.last p a { font-family:Verdana;font-weight:700;} dd.last p span { margin-right:10px;font-family:Verdana;font-weight:700;} dd.last p span.yshortcuts { margin-right:0;} div.attach-table div div a { text-decoration:none;} div.attach-table { width:400px;} div.file-title a, div.file-title a:active, div.file-title a:hover, div.file-title a:visited { text-decoration:none;} div.photo-title a, div.photo-title a:active, div.photo-title a:hover, div.photo-title a:visited { text-decoration:none;} div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family:Verdana;font-size:10px;font-weight:normal;} .green { color:#628c2a;} .MsoNormal { margin:0 0 0 0;} o { font-size:0;} #photos div { float:left;width:72px;} #photos div div { border:1px solid #66;height:62px;overflow:hidden;width:62px;} #photos div label { color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;} #reco-category { font-size:77%;} #reco-desc { font-size:77%;} .replbq { margin:4px;} #ygrp-actbar div a:first-child { margin-right:2px;padding-right:5px;} #ygrp-mlmsg { font-size:13px;font-family:Arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table { font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea { font:99% Arial, Helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code { font:115% monospace;} #ygrp-mlmsg * { line-height:1.22em;} #ygrp-mlmsg #logo { padding-bottom:10px;} #ygrp-mlmsg a { color:#1E66AE;} #ygrp-msg p a { font-family:Verdana;} #ygrp-msg p#attach-count span { color:#1E66AE;font-weight:700;} #ygrp-reco #reco-head { color:#ff7900;font-weight:700;} #ygrp-reco { margin-bottom:20px;padding:0px;} #ygrp-sponsor #ov li a { font-size:130%;text-decoration:none;} #ygrp-sponsor #ov li { font-size:77%;list-style-type:square;padding:6px 0;} #ygrp-sponsor #ov ul { margin:0;padding:0 0 0 8px;} #ygrp-text { font-family:Georgia;} #ygrp-text p { margin:0 0 1em 0;} #ygrp-text tt { font-size:120%;} #ygrp-vital ul li:last-child { border-right:none !important; } -- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] FormatDateTime
Ao usar a função no Delphi 2007: stFormatoData = 'dd/mm/'; FormatDateTime(stFormatoData,Now); o compilador da o seguinte erro e não retorna nada: Function to be called, FormatDateTime, was eliminated by linker Alguém já passou por isso? Delphi 2007 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda array dinamico DLL
Bom dia! Estou com problemas em uma função de uma dll que estou criando. A função recebe um array dinamico de um tipo de dado. De acordo com a quantidade de informação, a dll altera o tamanho e preenche o array. Na aplicação pego o array e passo para outra função preencher preencher um item de um Mainmenu. consigo acessar e usar os dados do array que a dll alterou sem erros. Mas depois, quando a aplicação já carregou, quando eu clico no item que adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro não ocorre. Por exemplo : procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL); begin if length(Lista) = 0 then exit; Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi carregada end; procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL); begin if length(Lista) = 0 then exit; Menu.caption :='Teste' //sem erro end; Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada. Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao deveria ocorrer. Função da dll que me retorna o que preciso: procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ; var Item : TMenuDLL; begin item := TMenuDLL.Create('DLL','FunçõesCliente'); item.Caption := 'DLL Funções de Clientes'; SetLength( Lista ,( length(lista)+1) ); Lista[length(lista)-1] := (item); item := TMenuDLL.Create('DLL','CadastroCliente'); item.Caption := 'Cadastro de Cliente'; SetLength(Lista,length(lista)+1 ); Lista[length(lista)-1] := (item); end; //Array type TListaMenuDLL = array of TMenuDLL; //Tipo de dado TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; uso o delphi 2007 Se aguém puder dar alguma sugestão, Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado! vou tentar isso. From: Willian Jhonnes L. dos Santos willianjhon...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Deu certinho com WideStrings! Muito obrigado! From: Evaldo evaldoave...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:50:17 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado! vou tentar isso. _ _ __ From: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br To: delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Muito obrigado pela sugestão! Vai ser de grande valia. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:56:15 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi...@yahoogrup os.com.br From: evaldoavelar@ yahoo.com. br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. _ _ __ From: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com To: delphi-br delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ _ _ _ _ _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowsl ive.com.br/ public/product. aspx/view/ 5?ocid=CRM- WindowsLive: produtoSkyDrive: Tagline:WLCRM: On:WL:pt- BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Font x heigth
Estou desenvolvendo um componente para alterar a posição, largura e altura dos controles que estiverem em um formulário em runtime. O problema é que eu queria alterar o tamanho da font de acordo com a alteração do controle. ex: Supondo que eu tenha um edit na tela e este edit teve sua altura alterada, então a fonte seria aumentada proporcionalmente. Alguém pode dar uma luz de como eu faria essa proporção Font x Altura? ou qualquer outra sugestão? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Code Formatter
O Rad Studio 2007 tem um Code Formatter? Se tiver qual a tecla de atalho? Caso não tenha, existe um plugin para fazer o trabalho? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Code Formatter
O Rad Studio 2007 tem um Code Formatter? Se tiver qual a tecla de atalho? Caso não tenha, existe um plugin para fazer o trabalho? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Code Formatter
Tem alguma tecla de atalho pra acionar Code Formatter? não consegui encontrar. obrigado! Bom dia, utilizo o GExperts no 2007, ele possui um Code Formatter. 2009/11/24 Evaldo evaldoave...@yahoo.com.br O Rad Studio 2007 tem um Code Formatter? Se tiver qual a tecla de atalho? Caso não tenha, existe um plugin para fazer o trabalho? [As partes desta mensagem que não continham texto foram removidas] -- José Benedito Software Developer [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Code Formatter
Muito obrigado! A versão que estava usando não tinha. From: JB josebened...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tue, November 24, 2009 3:57:19 PM Subject: Re: [delphi-br] Code Formatter http://www.dummzeuch.de/delphi/gexperts/english.html 2009/11/24 Evaldo evaldoave...@yahoo.com.br Tem alguma tecla de atalho pra acionar Code Formatter? não consegui encontrar. obrigado! Bom dia, utilizo o GExperts no 2007, ele possui um Code Formatter. 2009/11/24 Evaldo evaldoave...@yahoo.com.br evaldoavelar%40yahoo.com.br O Rad Studio 2007 tem um Code Formatter? Se tiver qual a tecla de atalho? Caso não tenha, existe um plugin para fazer o trabalho? [As partes desta mensagem que não continham texto foram removidas] -- José Benedito Software Developer [As partes desta mensagem que não continham texto foram removidas] -- José Benedito Software Developer [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Desenhar Linha dentro do TabSheet
Preciso criar uma grade para posicionamento de controles, como aquela do tempo de projeto do delphi7, só que dentro de um tabsheet. Se fosse um form eu faria o seguinte: form1.canvas.LineTo(30,50); mas no tabsheet não da, Alguem pode dar um opinião? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desenhar Linha dentro do TabSheet
Obrigado! se consegui, posto aqui a solução. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desenhar Linha dentro do TabSheet
Deu certinho usando o panel. Muito obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Encontrei um vazamento de memória , e agora?
Muito obrigado pela dica. From: Fabricio Colombo fabricio.colombo@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thu, October 1, 2009 11:24:31 PM Subject: Re: [delphi-br] Encontrei um vazamento de memória, e agora? Vai em Project Options na aba Compiler e marca a opção Stack frames e na aba linker marca a opção Include TD32 debug info. Isso vai te dar informações mais amigáveis no arquivo de log. Mais só utilize essas opções para debug. [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} dd.last p a { font-family:Verdana;font-weight:bold;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-reco { margin-bottom:20px;padding:0px;} #ygrp-reco #reco-head { font-weight:bold;color:#ff7900;} #reco-category{ font-size:77%;} #reco-desc{ font-size:77%;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;font-weight:normal;color:#00;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} dd.last p span { margin-right:10px;font-family:Verdana;font-weight:bold;} dd.last p span.yshortcuts { margin-right:0;} div.photo-title a, div.photo-title a:active, div.photo-title a:hover, div.photo-title a:visited { text-decoration:none;} div.file-title a, div.file-title a:active, div.file-title a:hover, div.file-title a:visited { text-decoration:none;} #ygrp-msg p#attach-count { clear:both;padding:15px 0 3px 0;overflow:hidden;} #ygrp-msg p#attach-count span { color:#1E66AE;font-weight:bold;} div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family:Verdana;font-size:10px;font-weight:normal;} #ygrp-msg p a { font-family:Verdana;} #ygrp-mlmsg a { color:#1E66AE;} div.attach-table div div a { text-decoration:none;} div.attach-table { width:400px;} -- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Encontrei um vazamento de memória, e agora?
Estou com um projeto grande na mão feito no delphi7, onde está dando erro quando o sistema é fechado. Usei o FastMM4 para achar vazamentos, porem ele não indica o ponto exato onde ocorreu o problema. Alguém pode dar alguma dica de como eu poderia localizar o ponto do vazamento? Saída do FastMM: FastMM has detected an error during a FreeMem operation. The block header has been corrupted. The current thread ID is 0xDB0, and the stack trace (return addresses) leading to this error is: Current memory dump of 256 bytes starting at pointer address 2700B1C: 00 00 00 00 08 00 00 00 35 51 46 34 41 4E 35 46 00 00 00 00 16 00 00 00 00 00 00 00 B0 0D 00 00 FF FF FF 7F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 . . . . . . . . 5 Q F 4 A N 5 F . . . . . . . . . . . . ° . . . ÿ ÿ ÿ. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TToolbar e xpmanifest
Usar uma TToolbar com cor de fundo, junto do componente xpmanifest no delphi 7, é possível? Pesquisei na internet e só achei solução para o panel, mas para a Toolbar não. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tspeedbutton nao fica transparente em cima de um Timage
Tenho um Form com um Tspeedbutton, que está setado como Flat e Transparente, posicionado sobre um Timage. Porem a configuracao nao funciona. Alguem ja passou por isso? [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Tspeedbutton nao fica transparente em cima de um Timage
Estou usando Delphi 7 A hierarquia de componentes é : Form - Panel - Image - SpeedButton O código do SpeedButton no form esta assim: object SpeedButton1: TSpeedButton Left = 64 Top = 16 Width = 97 Height = 48 Action = ActionClientes BiDiMode = bdLeftToRight Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tw Cen MT' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentBiDiMode = False end Em tempo de projeto, ele fica transparente, mas em tempo de execução não. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Windows 7 x Delphi
Não consegui fazer funcionar rotinas que precisam de privilégio, como por exemplo aquela api do windows que lê o numero de serie do hd. Mesmo executando como administrador e modo de compatibilidade. No mais, funcionou. From: Claudiney - Listas claudiney-lis...@n2solutions.com.br To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 4, 2009 4:20:30 PM Subject: RES: [delphi-br] Windows 7 x Delphi Aqui na empresa instalamos o Delphi 7 e o Rad Studio 2007 no Windows 7 (tudo 7...) e tudo funcionou perfeitamente. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2solutions.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2.com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Luciano Calenzani Simões Enviada em: terça-feira, 4 de agosto de 2009 13:56 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Windows 7 x Delphi Algum colega já testou alguma versão de Delphi no Windows 7, preferialmente o D2006 e D2009? Caso sim, tem algum experiência para compartilhar? Muito obrigado. Luciano C. Simões [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] Urgente: Criando um Data Mining
Use o Decision cube, lembre se: o segredo está em gerar as visoes alguns links pra comecar http://www.planetadelphi.com.br/artigo/128/decision-cube---1a.-parte http://www.multicomp.com.br/Cont_Default.aspx?idnews=79 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente: Criando um Data Mining
ops, eu quis dizer: o segredo para gerar as visões está na clausula - group by Boa sorte! Use o Decision cube, lembre se: o segredo está em gerar as visoes alguns links pra comecar http://www.planetad elphi.com. br/artigo/ 128/decision- cube---1a. -parte http://www.multicom p.com.br/ Cont_Default. aspx?idnews= 79 [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] Arquivo de LOG Pasdoc
Na verdade eu quero um log mesmo do pasdoc, aquelas saidas que ele joga na tela: PasDoc 0.11.0 [2008-06-22|FPC 2.2.0|MSWindows|32] Documentation generator for Pascal source This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Info[1]:Starting Source File Parsing ... Info[2]:Now parsing file \Aguarde.pas... Info[2]:Now parsing file \AlterarSenha.pas... Info[2]:Now parsing file AlterarStatus.pas... Eu quero capturar essas informações ai. Tem como? Porque não encontrei nenhuma tag que faça com que ele gere um arquivo com essas saidas [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo de LOG Pasdoc
Consegui resolver da seguinte forma: inclui a unit JclSysUtils da JVCL, ela possui a seguinte função : { TODO -cHelp : RawOutput: Do not process isolated carriage returns (#13). That is, for RawOutput = False, lines not terminated by a line feed (#10) are deleted from Output. } function Execute(const CommandLine: string; var Output: string; RawOutput: Boolean = False; AbortPtr: PBoolean = nil): Cardinal; begin Result := InternalExecute(CommandLine, Output, nil, RawOutput, AbortPtr); end; e ultilizando mais uma função de apoio: procedure ShowPasDocMessage(const Text: string); const Misspell = 'Warning[2]: Word misspelled '; var MisspellLength : integer; WrongWord: string; begin MisspellLength := Length(Misspell); MemoLog.Lines.Add(Text); if Pos(Misspell, Text) = 1 then begin WrongWord := Copy(Text, MisspellLength+1, MAXINT); if Length(WrongWord) 0 then begin SetLength(WrongWord, Length(WrongWord)-1); // MisspelledWords.Add(WrongWord); end; end; Application.ProcessMessages; end; Consegui capturar a saída gerada pelo pasdoc. Execute(exe + ' ' +parametros,ShowPasDocMessage ); Obrigado pela atenção. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Arquivo de LOG Pasdoc
Alguém sabe como gerar um arquivo de log com a saida gerada pelo pasdoc? Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] PNGImage.pas
Alguem tem a PNGImage.pas e suas dependências para me enviar? ou sabe onde posso conseguir? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PNGImage.pas
Problema resolvido. Muito obrigado a todos que responderam! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro de Classe não registrada
Olá, Já passei por esse erro, no meu caso era um controle ocx do acrobat reader, o qual o sistema fazia uso, mas que não estava instalado na máquina do cliente. Veja se seu programa faz uso de algum activex ou ocx de algum outro sistema externo - [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com ClientdataSet
Ola, bom dia, Estou com um problema com ClientDataSet . Estou usando zquery + DataSetprovider + ClientDataSet . para conectar ao firebird. As operações de inserção e alteração, estão funcionando perfeitamente, porem a exclusão da o famoso erro unable to find record no key especified. Os providers flags estão configurados corretamente ate´ porque as outras operações nao funcionariam se ele nao estivesse. Investigando, descobrir que a sql que está indo para o banco no aplyupdates esta com aspas duplas como: delete from endereco where ID_ENDERECO = ? Conferir o dialect do banco e está como 3. O DataSetprovider está como whereKeyOnly, o ClientDataSet e a zquery estão com o campo chave como: ID_ENDERECO [pfInUpdate, pfInWhere, pfInKey] os demais campos estão como [pfInUpdate]. O que mais pode está causando isso? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] emulador de terminal telnet
Bom dia, alguém conhece algum componente que consiga emular um terminal telnet? Eu encontrei o TnEmulVT para conectar a um servidor linux, mas ele só funciona para linha de comando, quando você abre o vim por exemplo, ele não consegue mudar o cursor, Fica travado . Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexão SSH
Alguém conhece algum componente free no delphi para realizar fazer uma conexão ssh? obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sugestão leitorbiometrico (off-topic)
Alguém poderia sugeri algum leitor biométrico capacitivo ( o óptico não serve ) com sdk que de para desenvolver em delphi? grato [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Qual seria o equivalente do Intptr do C sharp no delphi?
Bom dia, Qual seria o equivalente do Intptr do C sharp no delphi 7? preciso usar uma dll escrita em C Sharp e me deparei com esse tipo. obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Qual seria o equivalente do Intptr do C sharp no delphi?
Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trying to modify read-only field
Sim, já fiz isso. Ôh programinha problemático. - From: Alisson Yahoo alss...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 7, 2009 9:16:01 PM Subject: Re: [delphi-br] Trying to modify read-only field Você já conferiu a propriedade ReadOnly no ClientDataset e no Dataset? [ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Trying to modify read-only field
Boa tarde, estou com esse problema em um sistema que estou dando manutenção :Trying to modify read-only field. Ocorre logo após o applyUpdates do ClientDataSet. Pesquisaando na net, não encontrei muita coisa para me ajudar. Bem na verdade eu queria saber como eu faço para descobrir qual o campo que está sendo modicado para gerar esse erro. Fiz o seguinte antes de dar o apply para descobrir quais eram os campos, mas não da para saber qual é o campo que gera o erro: for i := 0 to ClientDataSetPadrao.FieldCount -1 do begin if not ClientDataSetPadrao.Fields[i].CanModify then ShowMessage(dmPedido.ClientDataSetPadrao.Fields[i].FieldName); end; Qualquer ajuda é bem vinda, obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Interbase instalado?
Algúem tem alguma rotina, para saber se a máquina tem o interbase está instalado? - Atenciosamente: Evaldo Avelar Marques Desenvolvedor Debian GNU/Linux. Pelo Prazer de ser Livre evaldoave...@yahoo.com.br Belo Horizonte/MG Brazil [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Interbase instalado?
Não posso pesquisar pelas dll, porque por exemplo a gds32.dll , o firebird poderia usar para retrocompatibilidade, entao o fato dela estar la não me granate que quem vai estar instalado é o interbase; Mesmo assim obrigado pela resposta. - Atenciosamente: Evaldo Avelar Marques Desenvolvedor Debian GNU/Linux. Pelo Prazer de ser Livre evaldoave...@yahoo.com.br Belo Horizonte/MG Brazil [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Class + cdecl; + external
Bom dia. Porque o compilador não aceita colocar seguinte chamada de um metodo de uma dll dentro de uma classe? por exemplo: Teste = class (TObject) public function id_creat(Nome_Arquivo: PChar;Dados: Pchar;Tam_Dados: Integer):Integer; cdecl; external 'funcoes.dll'; end; Da um erro: [Error] OutrasFuncoes.PAS(96): Field definition not allowed after methods or properties Tem alguma forma de colocar essa chamada dentro da classe? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nome de Propriedade
Dado uma propriedade: objeto.estado, por exemplo, como eu consigo capturar o nome da propriedade? No caso, retornaria estado. Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2006 e Together
Boa tarde, meu delphi 2006 não possui a opção de Design Projects para criar diagramas UML, alguém sabe como eu habilito/instalo esta opção? Engraçado que o suporte do together ao projeto está funcionando, mas só com o diagrama de classe. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2006 e Together
A versão do delphi 2006 é a Professional. Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off Topic - C/C++ programar para Win dows é fácil?
meu sonho é poder programar em C++ em linux... e ganhar dinheiro com isso.. se eu conseguir, to feliz... Oh! É O meu sonho também! Soh que eu estudo C. Estava brincando com um servidor UDP de chat ontem, com o cliente windows, da pau igual água, mas é doido d+! =) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2006 e Together
Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colocar TDateTimePicker em célula do Dbgrid
È possível colocar um TDateTimePicker em célula do Dbgrid? Quando essa célula for clicada? __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Colocar TDateTimePicker em c élula do Dbgrid
Vou estudar, Obrigado! __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Problemas em armazenar arquivo, banco ou pasta de dados
Pegando um gancho: guardar o arquivo no servidor e no banco de dados teoricamente não seria a mesma coisa (em termos de tamanho)? Já que se você colocar um arquivo de 1 Gb numa pasta qualquer e o mesmo arquivo no banco, a diferença(em espaço ocupado) seria muito pouca . Em relação a performance, se você criasse uma tabela separada para os arquivos e uma tabela com os metadados do arquivo, não resolveria a lentidão para recuperar esse arquivo? Não tenho muita experiência com isso, mas não faz sentido? 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] Model maker10
Algum por favor sabe como eu faço para exibir os métodos e propriedades enquanto eu construo uma classe no model maker 10? Aquele paleta lateral eh muito ruim. Obrigado. 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] Alterar a cor da célula em um Str ingGrid
Aproveitando o gancho, quando eu preencho estou preenchendo o stringgrid e quero destacar uma célula de cor diferente, como devo fazer? Por exemplo: Preenchi a célula stringgrid[2,5] e agora quero que ela se destaque em amarelo e célula [2,6] em vermelho, como posso fazer isso? - Mensagem original De: fabio giro [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 28 de Agosto de 2008 15:28:49 Assunto: Re: [delphi-br] Alterar a cor da célula em um StringGrid Pinta a célula selecionada. procedure TForm1.StringGrid1D rawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState) ; const LM = 3; {each indiviual cell's left margin} TM = 2; {each indiviual cell's top margin} begin {puxemos o destaque do modo seguinte quando a celula for selecionada } if gdSelected in State then begin StringGrid1. Canvas.Brush. Color := clBlue; StringGrid1. Canvas.Font. Color := clHighlightText; end; {finalmente, faça o desenho de celula atual } StringGrid1. Canvas.TextRect( Rect, Rect.Left + LM, Rect.Top + TM,StringGrid1. Cells[acol, arow]); end; A parte do popup, dê uma pesquisada no help. --- Em qui, 28/8/08, Robson Tazinaffo robsontazinaffo@ hotmail.com escreveu: De: Robson Tazinaffo robsontazinaffo@ hotmail.com Assunto: [delphi-br] Alterar a cor da célula em um StringGrid Para: [EMAIL PROTECTED] os.com.br Data: Quinta-feira, 28 de Agosto de 2008, 15:06 Como alterar a cor de uma célula em um StringGrid clicando com o botão direito ( Usando um popup ), ou seja, quando clicar com o botao direito e no menu aparecer 3 cores (AZUL, AMARELO, VERMELHO)... como colocar uma cor para cada celula escolhida.. 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]
[delphi-br] DBLookupCombox nao exibe muitos registros
Ola a todos. Estou dando manutenção em um sistema onde existe um DBLookupCombox. Quando o sistema traz varios registros, o DBLookupCombox nao consegui exibi-los e fica tudo em branco. Existe alguma forma de resolver isso sem diminuir a quantidade de registro a ser exibido? o sistema usa Delphi 7 + zeos 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] Detalhe so funciona se ouver pelo menos um registro no detalhe
Bom dia a todos, Estou com um problema muito estranho. tenho duas tabelas da seguinte forma: FUNCIONARIO( id, nome,telefone,endereco ); IDENTIFICACAO_FUNC( ID, ID_FUNC, IMAGEM , BIOMETRIA, BIOMETRIA_OBRIGATORIA ) Ate ai tudo bem, mas esse relacionamento só funciona se houver pelo menos um registro na tabela IDENTIFICACAO_FUNC. Caso Contrário, caso contrario, quando a tabela IDENTIFICACAO_FUNC esta vazia, não consigo gravar nada e recebo a seguinte mensagem de erro: SQL Error: validation error for column ID_FUNC, value *** null ***. Error Code: -625. The insert failed because a column definition includes validation constraints. The SQL: INSERT INTO IDENTIFICACAO_FUNC (ID,ID_FUNC,IMAGEM,BIOMETRIA,BIOMETRIA_OBRIGATORIA) VALUES (?,?,?,?,?); Se houver pelo menos um registro , funciona perfeitamente. a estrutura é a seguinte: firebird 2.0, zeos e delphi 7 -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ 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: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe
Bom dia, A chave estrangeira eh criada da seguinte forma: ALTER TABLE IDENTIFICACAO_FUNC ADD CONSTRAINT FK_IDENTIFICACAO_FUNC FOREIGN KEY (ID_FUNC) REFERENCES FUNCIONARIO (ID) ON DELETE CASCADE; e a chave primaria: ALTER TABLE IDENTIFICACAO_FUNC ADD CONSTRAINT PK_IDENTIFICACAO_FUNC PRIMARY KEY (ID); Parte da primeira para a segunda tabela. Obrigado pela atenção. -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ - Mensagem original De: Willian Jhonnes Lara dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Junho de 2008 9:50:34 Assunto: Res: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Olá, Evaldo... Seguinte: existe uma definição para chave estrangeira? Como ela seria? Parte da primeira para a segunda tabela ou vice-versa? Não uso firebird, mas geralmente erros como este estão vinculados à violação de chaves em campos-filho mandatórios. Pode ser este o seu problema... []'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: Evaldo evaldoavelar@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Quinta-feira, 26 de Junho de 2008 9:32:10 Assunto: [delphi-br] Detalhe so funciona se ouver pelo menos um registro no detalhe Bom dia a todos, Estou com um problema muito estranho. tenho duas tabelas da seguinte forma: FUNCIONARIO( id, nome,telefone, endereco ); IDENTIFICACAO_ FUNC( ID, ID_FUNC, IMAGEM , BIOMETRIA, BIOMETRIA_OBRIGATOR IA ) Ate ai tudo bem, mas esse relacionamento só funciona se houver pelo menos um registro na tabela IDENTIFICACAO_ FUNC. Caso Contrário, caso contrario, quando a tabela IDENTIFICACAO_ FUNC esta vazia, não consigo gravar nada e recebo a seguinte mensagem de erro: SQL Error: validation error for column ID_FUNC, value *** null ***. Error Code: -625. The insert failed because a column definition includes validation constraints. The SQL: INSERT INTO IDENTIFICACAO_ FUNC (ID,ID_FUNC, IMAGEM,BIOMETRIA ,BIOMETRIA_ OBRIGATORIA) VALUES (?,?,?,?,?); Se houver pelo menos um registro , funciona perfeitamente. a estrutura é a seguinte: firebird 2.0, zeos e delphi 7 -- Atenciosamente: Evaldo Avelar Marques Debian GNU/Linux. Pelo Prazer de ser Livre .~. / v \ / ( ) \ ^^-^^ 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] 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] Delphi via wine
Bom dia, alguém tem experiência em rodar o Delphi via wine? caso positivo, teve algum problema? -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Delphi via wine
Grato a quem respondeu. Eh bom saber que que super Linux roda ate aquilo que não foi feito para ele e quase sem problemas. Estamos na hora de renovar as licenças com a M$, e se os teste aqui usando o wine der certo, será pouco provável que as licenças serão renovadas. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ _ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como remover o estilo xp de u m único painel?
Olá! No oncreate do seu formulário coloque Panel1.ParentBackground := false; Panel1.ParentColor := false; Dessa forma ele irá usar a cor que você definiu. -- Atenciosamente: Evaldo Avelar Marques Programador: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. Pelo Prazer de ser Livre [EMAIL PROTECTED] Belo Horizonte/MG Brazil .~. / v \ / ( ) \ ^^-^^ - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Domingo, 27 de Abril de 2008 9:53:56 Assunto: [delphi-br] Como remover o estilo xp de um único painel? Olá amigos, seguinte, tenho o XPMan na minha aplicação, até aí tudo bem, os Edits e etc, ficam no estilo do XP... porém no meu Form Principal, eu tenho um Painel, que eu não queria que pegasse este estilo, pois ele está ficando com a cor de fundo, e está feio... tentei por como False as seguintes propriedades: ParentBrackground, ParentBiDiMode, ParentColor, ParentCtrl3D, ParentFont e etc... e mesmo assim, ainda continua... Existe o jeito de eu fazer com que somente, este painel, não herde os dados do XP? Desde já agradeço. []s -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com Cansou do MercadoLivre como eu? Tente o www.uaileilão. com.br. [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] array no firebird
Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] array no firebird
O que eu quero eh manter uma lista de horários numa tabela, h1,h2,h3,h4,h5 ,h6. h1..h6 podem ter 7 horários. CREATE TABLE HORARIO ( ID INTEGER NOT NULL, H1 TIME [1:7], H2 TIME [1:7], H3 TIME [1:7], H4 TIME [1:7], H5 TIME [1:7], H6 TIME [1:7] ); Quando eu for associar uma pessoa a uma tabela de horarios, soh precisaria pegar o id da lista. 0 h1,h2,h3,h4,h5 ,h6. 1 h1,h2,h3,h4,h5 ,h6. 2 h1,h2,h3,h4,h5 ,h6. José possui a lista 0 e a 2 Entendeu? -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Alessandro DUARTE de Moraes [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 27 de Março de 2008 9:13:52 Assunto: Re: [delphi-br] array no firebird Me diga por que dizes: Estou tendo que trabalhar com tipo array Sinceramente, nunca vi aplicação de array que não possa ser resolvida com uma boa estrutura Entidade Relacionamento, isto é, uma tabela mãe e uma filha. Explica melhor tua necessidade. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacas arg.com.br - Original Message - From: Evaldo To: [EMAIL PROTECTED] os.com.br Sent: Thursday, March 27, 2008 8:31 AM Subject: [delphi-br] array no firebird Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] net Chave de Identifica��o: 54568,47eb858f33941 4716226009 [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-reco { margin-bottom:20px;padding:0px;} #ygrp-reco #reco-head { font-weight:bold;color:#ff7900;} #reco-grpname{ font-weight:bold;margin-top:10px;} #reco-category{ font-size:77%;} #reco-desc{ font-size:77%;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad
Res: [delphi-br] array no firebird
Obrigado! vou continuar a pesquisa. Postei a mesma duvida no freibird-br há duas semanas, mas ninguém respondeu. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Ricardo César Cardoso [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 27 de Março de 2008 11:25:35 Assunto: Re: [delphi-br] array no firebird Olá Evaldo, como vai? Por curiosidade fui fuçar numa edição em PDF do The Firebird Book de Helen Borrie pois não fazia idéia que o FB suportava arrays. E me surpreendi ao ver que suporta. Quanto aos seus questionamentos: * É seguro trabalhar com arrays? Até onde pude ver é seguro sim. Mas não parece ser algo tão comum de ser aplicado. * Por que é tão pouco utilizado? Não sei, mas talvez seja por conta de desconhecimento ou de não ser tão simples ou usual ter esse recurso. E pelo que li, há algumas limitações com instruções UPDATE e INSERT. * Quais componentes do Delphi o suportam? Acredito que os mesmos que vc já usa o suportam. Só que para trazer os dados e mantê-los, acredito que vc terá que fazer algum malabarismo, como por exemplo criar um array para reproduzir a estrutura que teve no banco ou tratar o array como um BLOB, apesar que o livro diz que um array não é um blob, mas tem algumas características de armazenamento similares. Talvez essa minha resposta seja vaga e um pouco confusa, o melhor seria postar essa dúvida tb em algum fórum voltado ao FB. Atte, Ricardo. Evaldo evaldoavelar@ yahoo.com. br escreveu: Olá a todos, Estou tendo que trabalhar com o tipo array no firebird, só que não sei nada sobre. No caso vou utilizar uma matriz de Time[ 1 , 7 ] e gostaria de tirar algumas duvidas: * È seguro trabalhar com array? * Porque é tão pouco utilizado? * Quais componentes do delphi o suportam? Grato a quem tiver a disponibilidade de responder. -- Atenciosamente: Evaldo Avelar Marques Programador Junior Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - - --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-reco { margin-bottom:20px;padding:0px;} #ygrp-reco #reco-head { font-weight:bold;color:#ff7900;} #reco-grpname{ font-weight:bold;margin-top:10px;} #reco-category{ font-size:77%;} #reco-desc{ font-size:77%;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square
[delphi-br] bug ao traballhar com horas, ou falta de conhecimento?
Olá a todos. Estou tentando fazer um simples calculo com horas, porem quando eu uso variáveis do tipo TTime, o calculo não funciona corretamente, mas se eu fizer a POG abaixo, a coisa passa a funcionar perfeitamente. Pergunto: tem alguma coisa que eu não esteja fazendo corretamente ou um detalhe que ficou para trás ou o Delphi 7 tem mesmo um bug? Obs:Todas as variáveis são do tipo TTime; Código que não funciona: if (TotalEntrada = TotalSaida )then MenorHorario := TotalEntrada Código POG que funciona: if StrToTime( TimeToStr( TotalEntrada)) = StrToTime( TimeToStr( TotalSaida ))then MenorHorario := TotalEntrada -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] bug ao traballhar com horas, ou falta de conhecimento?
Muito Obrigado pelo esclarecimento. Ficou muito claro a explicação. Vivendo e aprendendo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Março de 2008 14:34:25 Assunto: RE: [delphi-br] bug ao traballhar com horas, ou falta de conhecimento? Se vc consultar atentamente o help do Delphi, vai constatar que tanto TTime como TDate são, em essência, do tipo TDateTime. No seu caso, companheiro, um pouco de conhecimento a mais sobre esses tipos de dados se faria necessário. Para que essa sua verificação funcione, sabendo que um TTime é na verdade um TDateTime, vc deve 'zerar' a parte de data do valor para que a comparação (que não deixa de ser um cálculo) funcione. Veja a aplicação do tipo console abaixo que exemplifica este esclarecimento: program TesteDataHora; {$APPTYPE CONSOLE} uses Windows, SysUtils; var TotalEntrada, TotalSaida: TDateTime; function StringToOem( const s: string): string; begin SetLength(Result, Length(s)); AnsiToOem(PChar( s), PChar(Result) ); end; begin TotalEntrada := Now(); Sleep(1000); // atraso intencional! TotalSaida := Now(); // 'Zera' a parte de data dos valores ReplaceDate( TotalEntrada, 0); ReplaceDate( TotalSaida, 0); if TotalEntrada TotalSaida then WriteLn(StringToOem ('O menor horário é TotalEntrada. ')) else if TotalEntrada TotalSaida then WriteLn(StringToOem ('O menor horário é TotalSaida.' )) else WriteLn(StringToOem ('Os horários são iguais.')); Write('Tecle ENTER ...'); WriteLn(Eoln) ; end. Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: evaldoavelar@ yahoo.com. br Date: Tue, 11 Mar 2008 10:14:02 -0700 Subject: [delphi-br] bug ao traballhar com horas, ou falta de conhecimento? Olá a todos. Estou tentando fazer um simples calculo com horas, porem quando eu uso variáveis do tipo TTime, o calculo não funciona corretamente, mas se eu fizer a POG abaixo, a coisa passa a funcionar perfeitamente. Pergunto: tem alguma coisa que eu não esteja fazendo corretamente ou um detalhe que ficou para trás ou o Delphi 7 tem mesmo um bug? Obs:Todas as variáveis são do tipo TTime; Código que não funciona: if (TotalEntrada = TotalSaida )then MenorHorario := TotalEntrada Código POG que funciona: if StrToTime( TimeToStr( TotalEntrada) ) = StrToTime( TimeToStr( TotalSaida ))then MenorHorario := TotalEntrada -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps .com.br/index. aspx?tr=true !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font
[delphi-br] Capturar exceção gerada por uma thread
Boa Tarde a todos. Alguém saberia me dizer se é possível capturar uma uma exceção gerada por uma Thread? E como isso pode ser feito? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Capturar exceção gerada por uma thread
Você entendeu certo. Eu uso o seguinte código, mas nada é capturado. try HoraServidor := ThoraServidor.Create( ServidordeHora); HoraServidor.Resume; HoraServidor.WaitFor; except on e :Exception do begin MostraMessagem('Ponto',e.Message,1); end; end; -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: José Mário Silva Guedes [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 20 de Fevereiro de 2008 13:55:33 Assunto: Re: [delphi-br] Capturar exceção gerada por uma thread Eu simplesmente coloco o Execute em um bloco try except... Tem algum detalhe que não captei? [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] DataBase em run time
A dica funcionou perfeitamente para MySQl, só que para os demais SGDB não deu certo. Então pesquisando mais , encontrei a seguinte dica em um site alemão: ZConnection1.Database := 'd:\db1.fdb'; ZConnection1.Protocol := 'firebird-1.5'; ZConnection1.Properties.Add ('CreateNewDatabase=CREATE DATABASE ' + QuotedStr ('d:\db1.fdb') + ' USER ' + QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey') + ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'); ZConnection1.Connect; Fica registrado ai para mais alguém que precise, obrigado pela atenção e pela ajuda. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Evaldo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 18:52:23 Assunto: Res: [delphi-br] DataBase em rum time blz, obrigado. - Mensagem original De: Eduardo Silva dos Santos eduardo.drd@ gmail.com Para: [EMAIL PROTECTED] os.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 17:13:15 Assunto: Re: [delphi-br] DataBase em rum time no DataBase informe inicialmente o Banco MySQL, depois vc executa o create e depois um USE NomedoBanco para mudar de banco.. ou desconecta e muda no banco do zConnection. o zeos tb tem a opção de nao se conectar a database algum, da uma olhada na pasta do zeos onde ele mostra os parametros para cada Servidor de SQL.. blz?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: Res: [delphi-br] DataBase em run time
Só completando a informação anterior: ZConnection.Database := 'c:\db1.fdb'; ZConnection.Protocol := 'firebird-1.0'; //ZConnection.Protocol := 'mysql-4.1'; ZConnection.Properties.Text := 'CreateNewDatabase=CREATE DATABASE ' + QuotedStr ('c:\db1.fdb') + ' USER ' + QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey') ; ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'; ZConnection.User := 'sysdba'; ZConnection.Password := 'masterkey'; ZConnection.Connect; -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Evaldo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 17 de Fevereiro de 2008 20:46:12 Assunto: Res: Res: [delphi-br] DataBase em run time A dica funcionou perfeitamente para MySQl, só que para os demais SGDB não deu certo. Então pesquisando mais , encontrei a seguinte dica em um site alemão: ZConnection1. Database := 'd:\db1.fdb' ; ZConnection1. Protocol := 'firebird-1. 5'; ZConnection1. Properties. Add ('CreateNewDatabase =CREATE DATABASE ' + QuotedStr ('d:\db1.fdb' ) + ' USER ' + QuotedStr ('sysdba') + ' PASSWORD ' + QuotedStr ('masterkey' ) + ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1'); ZConnection1. Connect; Fica registrado ai para mais alguém que precise, obrigado pela atenção e pela ajuda. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil - Mensagem original De: Evaldo evaldoavelar@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 18:52:23 Assunto: Res: [delphi-br] DataBase em rum time blz, obrigado. - Mensagem original De: Eduardo Silva dos Santos eduardo.drd@ gmail.com Para: [EMAIL PROTECTED] os.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 17:13:15 Assunto: Re: [delphi-br] DataBase em rum time no DataBase informe inicialmente o Banco MySQL, depois vc executa o create e depois um USE NomedoBanco para mudar de banco.. ou desconecta e muda no banco do zConnection. o zeos tb tem a opção de nao se conectar a database algum, da uma olhada na pasta do zeos onde ele mostra os parametros para cada Servidor de SQL.. blz?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DataBase em rum time
Ok, valeu pela ajuda. Perdoe a minha ignorancia, mas como eu poderia passar esse script para o SGDB, ja que o Zconection obriga informa um database? - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 15 de Fevereiro de 2008 14:34:57 Assunto: Re: [delphi-br] DataBase em rum time para criar um banco de dados vc pode usar SQL puro.. no mysql por exemplo é assim: Create DataBase NomedoBanco; ao executar esse script o servidor cria o banco. Em 15/02/08, Evaldo evaldoavelar@ yahoo.com. br escreveu: Boa tarde, Estou desenvolvendo um DataBase explorer para meu uso, e dentre as funcionalidades, como a extração de metadados, preciso também de uma rotina para criar um DataBase em rum time . Utilizo a zeos lib, para manter a independencia do SGDB, Ouvir falar que existe um componente chamado TZIbSqlDatabase, mas não consegui encontra-lo, alguém por acaso teria esse componente e poderia me envia-lo? Ou poderia me dizer outra forma de criar o Database, utilizando a zeos lib? Grato pela atenção. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br evaldoavelar% 40yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- . . . . ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] DataBase em rum time
blz, obrigado. - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 16 de Fevereiro de 2008 17:13:15 Assunto: Re: [delphi-br] DataBase em rum time no DataBase informe inicialmente o Banco MySQL, depois vc executa o create e depois um USE NomedoBanco para mudar de banco.. ou desconecta e muda no banco do zConnection. o zeos tb tem a opção de nao se conectar a database algum, da uma olhada na pasta do zeos onde ele mostra os parametros para cada Servidor de SQL.. blz?? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DataBase em rum time
Boa tarde, Estou desenvolvendo um DataBase explorer para meu uso, e dentre as funcionalidades, como a extração de metadados, preciso também de uma rotina para criar um DataBase em rum time . Utilizo a zeos lib, para manter a independencia do SGDB, Ouvir falar que existe um componente chamado TZIbSqlDatabase, mas não consegui encontra-lo, alguém por acaso teria esse componente e poderia me envia-lo? Ou poderia me dizer outra forma de criar o Database, utilizando a zeos lib? Grato pela atenção. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Eu criei essa função ontem: procedure AlteraComponete(Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp(Form.Components[i], propiedade)then begin SetPropValue(Form.Components[I], propiedade,valor); end; end; end; pode usa-la assim AlteraComponete(FGerenciaUsuario,'ReadOnly',true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24 Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou selecionar, e caso tenha passe um valor para ela. Porém tem de ser genérico algo como: for i:=0 to ComponentsCount- 1 if Components[i] .PROPRIEDADE = True then Components[i] .PROPRIEDADE := OBJETO; Isso existe? Como eu faria? Obrigado desde já. -- _ _ ___ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] com [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Obrigado! Realmente não me lembrei desse detalhe. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:46:43 Assunto: RE: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua função, se faz necessário um uses da unit TypInfo. Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: evaldoavelar@ yahoo.com. br Date: Fri, 1 Feb 2008 06:39:32 -0800 Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Eu criei essa função ontem: procedure AlteraComponete( Form :TForm; propiedade : string; valor : variant); var i : integer; begin for I := 0 to Form.ComponentCount -1 do begin if IsPublishedProp( Form.Components[ i], propiedade)then begin SetPropValue( Form.Components[ I], propiedade,valor) ; end; end; end; pode usa-la assim AlteraComponete( FGerenciaUsuario ,'ReadOnly' ,true); -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. evaldoavelar@ yahoo.com. br Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime?
Já passei por esse erro mas foi com o tipo Double e resolvi como abaixo: It's of type Double, but a Variant is expected. That should be no problem, but the compiler needs to have the Variants unit added to the uses clause. - Add the Variants unit to the uses clause of the implementation section of unit - Press Shift+F2 to Save All files in the project, and then press Shift+F9 to rebuild the project. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 1 de Fevereiro de 2008 13:13:19 Assunto: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade, em runtime? Pessoal, através da dica fiz o seguinte: if IsPublishedProp( Components[ i], 'FrameController' ) then SetPropValue( Components[ I], 'FrameController' , DM.RzFrameControlle r1); tá dando o seguinte erro: Incompatible types: 'Variant' and 'TRzFrameController ' Como transformo TRzFrameController pra variant? OBrigado Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] scripts de instalação do Firebird
Alguém teria um Script em inno Setup que verificasse se o firebird já está instalado na máquina? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Componente UserControl
Só uma pergunta, esse componente está estável? ouvi de um amigo que ele não era estável. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] - Mensagem original De: Apoio [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:52:41 Assunto: Re: [delphi-br] Componente UserControl http://www.usercont rol.net/index. php?option= com_content task=view id=22Itemid= 46 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar1
Até daria, mas o efeito não seria o mesmo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Ao invés de colocar um statusbar não daria pra colocar um panel com a propriedade align = alBottom? [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar
olá Marcelo , A ProgressBar na StatusBar, eu já usei uma vez, e é bem interessante. Mas, senão me engano, a barra era pintada para a um painel da StatusBar. Vou pesquisar mais sobre essa propriedade psOwnerDraw. Na verdade o que eu precisava era manter um botão visível, para que a qualquer momento o aplicativo pudesse ser minimizado para a perto do relógio, e o melhor lugar que layout do sistema permite é a StatusBar. Pose ter certeza que se conseguir, enviarei o código. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] - Mensagem original De: Marcelo - Kappesberg [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:45:57 Assunto: Re: [Spam] [delphi-br] Colocar Botão na StatusBar1 Ola Evaldo... Procure na net pela propriedade psOwnerDraw do panel do statusbar... Encontrei exemplos de se colocar uma progressbar no statusbar a algum tempo, e pelo que entendi setando esta propriedade pode-se colocar qualquer tipo de objeto... Avise de der certo!! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Colocar Botão na StatusBar
Efeito Estético. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Alisson Costa Resende [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 16 de Janeiro de 2008 9:59:33 Assunto: Re: [delphi-br] Colocar Botão na StatusBar Evaldo, Você disse que se colocasse um panel o efeito não seria o mesmo. Que efeito seria esse? [As partes desta mensagem que não continham texto foram removidas] __._,_ Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colocar Botão na StatusBar1
Por favor, Alguém tem um exemplo ou link, de como posso colocar um botão em uma StatusBar? -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] [OFF] retorno de mensagem est á incomodando
Eu também estou recebendo. -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil - Mensagem original De: Davi Eduardo Borges Wall [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 28 de Dezembro de 2007 14:27:40 Assunto: [delphi-br] [OFF] retorno de mensagem está incomodando Olá, Toda vez que alguém faz um post com palavra OFF no assunto (subject) estou recebendo um email desta pessoa [EMAIL PROTECTED] doeste.local Mensagem não autorizada - - - - Palavra (off) proibida no campo Subject E isso ta incomodando, pq cada vez que alguém faz um post com OFF vem este e-mail pra mim. Alguém mais ta recebendo isso? Obrigado. [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF TOPIC - Apostila de ClientDataSet Avançado
Olá a todos, Por gentileza, alguém teria alguma apostila ou curso com ClientDataSet Avançado ou algum link na web, que poderia me enviar? Dicas, truques e livros também são bem vindos. Obrigado. conhecimento não ocupa espaço, só os livros -- Atenciosamente: Evaldo Avelar Marques Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++ Debian GNU/Linux. [EMAIL PROTECTED] Belo Horizonte/MG Brazil Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]