Re: [delphi-br] Som
Kra cho que vc pode me ajudar entaum... baixei o trial do MMtols...preciso fazer q nem em programa de gravação... tipo o soundforge da sony q quando vc fala no microfone.. tem um monitor ( gauge ) que mostra o volume que esta sendo o audio vc sabe como faz isso ??? vlw... Wesley From: Claudio Marconi Sent: Wednesday, April 02, 2008 5:44 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Som Esqueci de mencionar, qualquer duvida que tiver quanto ao MMTools pode me falar. Se quiser alguma coisa mais pé duro pode ser feito tb usando DirectShow, onde posso dar uma ajuda tb, se precisar. Em 02/04/08, BandaLemuel [EMAIL PROTECTED] escreveu: O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai enchendo o gauge tipo aqueles programas que gravam sons mas mesmo vlw pela atenção Wesley From: Ricardo César Cardoso Sent: Wednesday, April 02, 2008 10:07 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Som Nunca usei, mas já ouvi falar bem do Audio Component Suite. Dá uma vasculhada no torry.net que vc acha ele facim, facim. O melhor é que é free e vem com os fontes. Atte, Ricardo. BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br escreveu: Lista Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como manipular arquivo wav .. por exemplo pegar a quantidade de bits de som etc... ??? e como faço para saber se a pessoa esta falando no microfone do PCé possível saber isso ??? qualquer ajuda é bem vinda vlw Wesley [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] __ Informação do NOD32 IMON 2995 (20080402) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Cláudio Marconi Delphi/DirectShow Developer 55 61 8406-6451 [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2997 (20080403) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Som
isso só da pra fazer se vc estiver capturando wav puro, caso esteja capturando em mp3 ou outro formato, tem que converter para wav e fazer os calculos pra formar o seu gauge ou seja VU vai ter que aprender sobre dB, cada 3 dB o volume do audio dobra, então vamos lá... wav 44.1Khz 16bits stereo... cada segundo vai ter exatamente 44.100 x 2 x 2 = 176.400 bytes por segundo.. sendo 4 bytes 1 sample sendo 2 bytes left, 2 bytes right, ai é só saber quanto é o seu buffer de captura, normalmente 1/10 para fazer um vu de 10x por segundo... ta bom... então no seu samples de 1/10 segundo, vc vai pegar os 2 primeiros bytes para o lado esquerdo e os dois segundos para o lado direito e assim sussecivamente, até o ultimo e ver qual é o maior valor e calcular a porcentagem... valores em HEX ::: 0x = 1 sample e este valor ta estourando vai distorcer o som, 0x = 1 sample o trem ta mudo, sendo 0x para left 0x para right 0 - 655535 = 0 - 100% , procura no google que vai achar muita coisa hoje, na época q precisei num encontrei quase nada, principalmente em delphi, tinha algumas em C, C++, mas na hora da conversão por falta de um conhecimento maior na linguagem quase sempre num dava certo... heheheh uma dica: vai em: http://www.neurophys.wisc.edu/auditory/riff-format.txt agora se for MP3, boa sorte eu desisti... rsrsrsrsrs []s Luiz Escobar Wed, 2 Apr 2008 17:44:16 -0300, Claudio Marconi escreveu: Esqueci de mencionar, qualquer duvida que tiver quanto ao MMTools pode me falar. Se quiser alguma coisa mais pé duro pode ser feito tb usando DirectShow, onde posso dar uma ajuda tb, se precisar. Em 02/04/08, BandaLemuel [EMAIL PROTECTED] escreveu: O ACS eu testeiaki, mas não estou conseguindo fazer o que preciso tipo eu preciso pegar o que esta falando no microfone do PC e colocar em um gráfico , como se fosse um gauge, quanto mais auto a pessoa fala ele vai enchendo o gauge tipo aqueles programas que gravam sons mas mesmo vlw pela atenção Wesley From: Ricardo César Cardoso Sent: Wednesday, April 02, 2008 10:07 AM To: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Som Nunca usei, mas já ouvi falar bem do Audio Component Suite. Dá uma vasculhada no torry.net que vc acha ele facim, facim. O melhor é que é free e vem com os fontes. Atte, Ricardo. BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br escreveu: Lista Me desculpe mas ja procurei no google mas não achei nada, alguem sabe como manipular arquivo wav .. por exemplo pegar a quantidade de bits de som etc... ??? e como faço para saber se a pessoa esta falando no microfone do PCé possível saber isso ??? qualquer ajuda é bem vinda vlw Wesley [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] __ Informação do NOD32 IMON 2995 (20080402) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Cláudio Marconi Delphi/DirectShow Developer 55 61 8406-6451 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] IBSQL
Usei o IBQery assim pra fazer uma pesquisa e apontar no DBDGrid: IBQuery1.close; IBQuery1.SQL.Text:='select * from cad_v where nomev like :nome ORDER BY cod_v'; IBQuery1.ParamByName('nome').AsString:=edtbusca.text+'%'; IBQuery1.Open; Mas não tá acontecendo nada.. Não da erro mas tbm não pesquisa. Tenho que colocar algo em algum outro lugar?? Att. Maycon Sanches Amaro humberto sales escreveu: IBSQL nao e um dataset... usa o IBQUERY Geralmente uso o IBSQL pra fazer correções (criar e alterar tabelas, trigger e outros) no meu banco de dados Maycon Sanches Amaro [EMAIL PROTECTED] mailto:mayconsan%40gmail.com escreveu: Pessoal to tentando efetuar uma query através do IBSQL mas não estou conseguindo. Alguém poderia me dar uma força.. Coloquei a query no SQL mas e agora.. como faço pra executa-la e jogar o resultado em um combo?? Valeu. -- Att. Maycon Sanches Amaro - 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]
[delphi-br] CODIGO DE BARRA 128C
Alguem já utilizou essa fonte? Uso delphi 2005 e crystal report X
[delphi-br] Delphi com Excel
Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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]
[delphi-br] Delphi, IntraWeb/ASP.NET e streaming de áudio
Pessoal, Procurei por vários locais (Google, AltaVista, CodeGear CodeCentral, SwissDelphiCenter, Torry Delphi Pages, etc.) e até agora não encontrei nada. Vou continuar procurando mas se algum colega tiver uma luz sobre como fazer streaming de áudio e execução dos sons local na estação em aplicações web feitas em Delphi, seja IntraWeb (VCL for The Web) ou ASP.NET. Grato, Rubem Rocha Manaus, AM _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br
Re: [delphi-br] Delphi com Excel
// mesclar celulas // excel.Workbooks[1].WorkSheets[1].Range['A1:I2'].Merge; Você pode encontrar mais recursos em: www.devmedia.com.br/articles/viewcomp.asp?comp=5092hl= www.devmedia.com.br/articles/viewcomp.asp?comp=5092 www.delphi.eti.br/ver_dica.php?id=5329 Espero ter ajudado. Adjalma Costa [EMAIL PROTECTED] escreveu: Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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] - 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]
RE: [delphi-br] Ajuda em select
Quando se usa a cláusula IN com uma consulta SQL, a mesma deve retornar apenas uma coluna, e vc está retornando duas. Ao invés de IN, tente usar EXISTS. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 10:00:57 -0300 Subject: [delphi-br] Ajuda em select Pessoal, Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir clientes repetidos nesta tabela. Através do select abaixo trago as possívies ocorrências que provavelmente estão repetidos. select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente) Necessito de um outro select para listar os nomes e fazer uma conferência e excluir os repedidos de fato, algo do tipo: select cliente.nome from cliente where cliente.dt_nascimento in (select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente)) Mais é exibida a seguinte mensagem de erro: Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Agradeço antecipadamente a ajuda dos colegas. Um forte abraço, Odail _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Delphi com Excel
Beleza amigão. Obrigado. sds Adjalma fabio giro [EMAIL PROTECTED] escreveu: // mesclar celulas // excel.Workbooks[1].WorkSheets[1].Range['A1:I2'].Merge; Você pode encontrar mais recursos em: www.devmedia.com.br/articles/viewcomp.asp?comp=5092hl= www.devmedia.com.br/articles/viewcomp.asp?comp=5092 www.delphi.eti.br/ver_dica.php?id=5329 Espero ter ajudado. Adjalma Costa [EMAIL PROTECTED] escreveu: Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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] - 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] - 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]
Re: [delphi-br] Ajuda em select
Já q é Firebird 2.0 tem algo +/- assim. SELECT CLIENTE.NOME FROM CLIENTE WHERE CLIENTE.DT_NASCIMENTO IN ( SELECT T.DT_NASCIMENTO FROM ( SELECT CLIENTE.DT_NASCIMENTO, COUNT( CLIENTE.ID_CLIENTE ) FROM CLIENTE GROUP BY CLIENTE.DT_NASCIMENTO HAVING COUNT(CLIENTE.ID_CLIENTE) 1 ORDER BY COUNT(CLIENTE.ID_CLIENTE) ) T ) Em 03/04/2008 10:58, Odail Della Niesi Junior escreveu: Pessoal, Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir clientes repetidos nesta tabela. Através do select abaixo trago as possívies ocorrências que provavelmente estão repetidos. select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente) Necessito de um outro select para listar os nomes e fazer uma conferência e excluir os repedidos de fato, algo do tipo: select cliente.nome from cliente where cliente.dt_nascimento in (select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente)) Mais é exibida a seguinte mensagem de erro: Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Agradeço antecipadamente a ajuda dos colegas. Um forte abraço, Odail --
RES: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32)
Tem um link para o formulário de download na página que você passou mesmo: HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/downlo ad.aspApply to download the VCL now - To download either version of the VCL, fill in this form and provide your Crystal Reports registration number. To obtain a registration number, HYPERLINK http://www.businessobjects.com/register/content.aspregister Crystal Reports. Tem que ver a versão que você tem aí do crystal antes né... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 17:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) Vitor, encontrei no site link ( HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/defaul t.asphttp://www.business-objects.com/-products/-reporting/-crystalreports/- vcl/default.-asp) apenas para delphi 7... você tem algum link com os arquivos da VCL? Obrigado! 2008/4/2 Vitor Yahoo HYPERLINK mailto:vredesredsystem%40yahoo.com.br[EMAIL PROTECTED]: O Crystal possui uma vcl para acesso, procure por VCL Crystal Reports, para delphi 2005, veja no site da Business Objects que você vai achar, é bem mais fácil do que mexer com esse activeX. Vitor. _ De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br [mailto: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 13:20 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) João Paulo, consegui instalar o componente 'CrystalActiveXRepo--rtViewer'--, não sei se estou no caminho certo... através dele consegui abrir um arquivo '.rpt' utilizando o seguinte código... var oApp, oRpt: Variant; begin oApp := CreateOleObject(--'CrystalRuntime-.-Application'--); oRpt := oApp.OpenReport(--'C:\Report1.--rpt', 1); CrystalActiveXRepor--tViewer1.--ReportSource := oRpt; CrystalActiveXRepor--tViewer1.--ViewReport; end; mas acho que assim eu obrigo o usuário a ter o Crystal Reports instalado na máquina, o que não posso fazer... sabe outro forma de utilizar esse componente, ou devo utilizar outro componente? valeu! 2008/4/2 Açaí HYPERLINK mailto:joaopaulo.-jpo%40gmail.-com joaopaulo.jpo%-2540gmail.-com [EMAIL PROTECTED]-: Olá. Verifique se vc não está usando a versão do crystal report para web. Caso esteja com a versão win32 então vc precisa importar um activex do crystal report para o seu Delphi. Em 01/04/08, Paulo Pontes HYPERLINK mailto:pontespaulo-%40gmail.-com pontespaulo%-2540gmail.-com[EMAIL PROTECTED] gmail.com pontespaulo%--40gmail.-com- escreveu: fala galera, como faço para rodar um relatório do Crystal no Delphi 2005 Win32... ou só é possível mesmo com WinForms... valeu! [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] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com FortesReport, RlBoleto.
Olá amigos, estou usando o RLBoleto pra imprimir boletos,, mas estou vendo problemas no FortesReport. Todos os TRLLabel que possuem o Alignment diferente de taLeftJustify, ele imprime errado... tipo.. vou tentar exemplificar, com um RLLabel com Right |RLLabel | | = Fim da pagina Certo: | 300,00 | Ele imprime assim: |30|0,00 Ou seja, ele pega onde o label deveria começar, porém ao invés de ser Right, ele continua com o Left... Alguém já passou por isso? Desde já agradeço. []s -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda em select
Outra dica para achar mais fácil os prováveis repetidos: select cliente.dt_nascimento, SUBSTRING(cliente.nome FROM 1 FOR 5) AS nome5, count(*) as qtd from cliente group by 1,2 having count(*)1 order by 3 desc Dessa forma vc vai agrupar além da data de nascimento, também pela inicial do nome (5 primeiro caracteres). Para evitar que dois clientes que tenham a mesma data de nascimento com nomes completamente diferentes não entrem na jogada. Esse testa ajuda em casos como este: 1) ALESSANDRO DUARTE DE MORAES - 29/06/1973 2) ALESSANDRO D. DE MORAES - 29/06/1973 3) FULANO DE TAL - 26/06/1973 nesse caso o 1 e o 2 seriam agrupados juntos e o 3 separado. Espero ter ajudado. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 10:13 AM Subject: RE: [delphi-br] Ajuda em select Quando se usa a cláusula IN com uma consulta SQL, a mesma deve retornar apenas uma coluna, e vc está retornando duas. Ao invés de IN, tente usar EXISTS. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 10:00:57 -0300 Subject: [delphi-br] Ajuda em select Pessoal, Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir clientes repetidos nesta tabela. Através do select abaixo trago as possívies ocorrências que provavelmente estão repetidos. select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente) Necessito de um outro select para listar os nomes e fazer uma conferência e excluir os repedidos de fato, algo do tipo: select cliente.nome from cliente where cliente.dt_nascimento in (select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente)) Mais é exibida a seguinte mensagem de erro: Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Agradeço antecipadamente a ajuda dos colegas. Um forte abraço, Odail __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47f4d865618711731228608 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro Mascara
eu uso '!99/99/;1; ', é claro que se ficar em branco vai dar ' / / ' is not a valida date and time. ai vc tem que tratar isso. Em 03/04/08, Thiago gmail [EMAIL PROTECTED] escreveu: Bom Dia Pessoal! Acho que esse deve ser um problema geral mas pesquisei em vários lugares e não achei a solução ainda. É o seguinte: Utilizo em todos os campos date do meu sistema uma máscara. O problema que após o usuário ter digitado a data se ele quizer apagar dá erro: !99/99/;1; - ' / / ' is not a valida date and time. ou !99/99/;1;_ - Invalid input value. Use escape key to abandon changes. Precisaria de uma solução para que ele pudesse excluir a data sem dar erro. Grato [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda em select
Não funcionou ! Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. COLUMN 2 is specified without a name Renato escreveu: Já q é Firebird 2.0 tem algo +/- assim. SELECT CLIENTE.NOME FROM CLIENTE WHERE CLIENTE.DT_NASCIMENTO IN ( SELECT T.DT_NASCIMENTO FROM ( SELECT CLIENTE.DT_NASCIMENTO, COUNT( CLIENTE.ID_CLIENTE ) FROM CLIENTE GROUP BY CLIENTE.DT_NASCIMENTO HAVING COUNT(CLIENTE.ID_CLIENTE) 1 ORDER BY COUNT(CLIENTE.ID_CLIENTE) ) T ) Em 03/04/2008 10:58, Odail Della Niesi Junior escreveu: Pessoal, Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir clientes repetidos nesta tabela. Através do select abaixo trago as possívies ocorrências que provavelmente estão repetidos. select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente) Necessito de um outro select para listar os nomes e fazer uma conferência e excluir os repedidos de fato, algo do tipo: select cliente.nome from cliente where cliente.dt_nascimento in (select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente)) Mais é exibida a seguinte mensagem de erro: Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Agradeço antecipadamente a ajuda dos colegas. Um forte abraço, Odail --
Re: [delphi-br] Erro Mascara
Isso está acontecendo porque vc está utilizando DBEdits, certo? Utilize o TJvDBDateEdit da suite Jedi ( http://www.delphi-jedi.org/ ) -- Marcos Douglas 2008/4/3 Thiago gmail [EMAIL PROTECTED]: Bom Dia Pessoal! Acho que esse deve ser um problema geral mas pesquisei em vários lugares e não achei a solução ainda. É o seguinte: Utilizo em todos os campos date do meu sistema uma máscara. O problema que após o usuário ter digitado a data se ele quizer apagar dá erro: !99/99/;1; - ' / /' is not a valida date and time. ou !99/99/;1;_ - Invalid input value. Use escape key to abandon changes. Precisaria de uma solução para que ele pudesse excluir a data sem dar erro. Grato [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] PageControl + ScaleBy
Bom Dia a Todos... No meu projeto eu tenho um formulario basico, todos herdam deste formulario, neste forumulario basico eu uso o comando ScaleBy, para simular 800 X 600 em qualquer resolucao, ate ai tudo bem. Quando eu coloco um PageControl, fica tudo destorcido o formulario, parece que o ScaleBy perdeu seu efeito. Alguem pode me ajudar para que nao aconteça isso ? Obrigado
Re: [delphi-br] Ajuda em select
Vlw Alessandro, Um forte abraço, Odail Alessandro DUARTE de Moraes escreveu: Outra dica para achar mais fácil os prováveis repetidos: select cliente.dt_nascimento, SUBSTRING(cliente.nome FROM 1 FOR 5) AS nome5, count(*) as qtd from cliente group by 1,2 having count(*)1 order by 3 desc Dessa forma vc vai agrupar além da data de nascimento, também pela inicial do nome (5 primeiro caracteres). Para evitar que dois clientes que tenham a mesma data de nascimento com nomes completamente diferentes não entrem na jogada. Esse testa ajuda em casos como este: 1) ALESSANDRO DUARTE DE MORAES - 29/06/1973 2) ALESSANDRO D. DE MORAES - 29/06/1973 3) FULANO DE TAL - 26/06/1973 nesse caso o 1 e o 2 seriam agrupados juntos e o 3 separado. Espero ter ajudado. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br http://www.santacasarg.com.br - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, April 03, 2008 10:13 AM Subject: RE: [delphi-br] Ajuda em select Quando se usa a cláusula IN com uma consulta SQL, a mesma deve retornar apenas uma coluna, e vc está retornando duas. Ao invés de IN, tente usar EXISTS. Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:dellaniesi%40gmail.com Date: Thu, 3 Apr 2008 10:00:57 -0300 Subject: [delphi-br] Ajuda em select Pessoal, Tenho uma tabela de clientes em uma banco firebird 2.0, e podem existir clientes repetidos nesta tabela. Através do select abaixo trago as possívies ocorrências que provavelmente estão repetidos. select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente) Necessito de um outro select para listar os nomes e fazer uma conferência e excluir os repedidos de fato, algo do tipo: select cliente.nome from cliente where cliente.dt_nascimento in (select cliente.dt_nascimento, count(cliente.id_cliente) from cliente group by cliente.dt_nascimento having count(cliente.id_cliente) 1 order by count(cliente.id_cliente)) Mais é exibida a seguinte mensagem de erro: Invalid token. Dynamic SQL Error. SQL error code = -104. Invalid command. count of column list and variable list do not match. Agradeço antecipadamente a ajuda dos colegas. Um forte abraço, Odail __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br http://video.msn.com/?mkt=pt-br -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net Chave de Identificação: 54568,47f4d865618711731228608 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Erro Mascara
http://delphi.about.com/od/adptips2005/a/bltip0305_3.htm Neste link tem uma dica muito boa de como tratar o erro Invalid input value. Use escape key to abandon changes em TMaskEdits e mostra tb como customizar o método ValidateEdit() de um TDBEdit para essa situação. Pra quem não sabe, tanto o componente TDBEdit como o TMaskEdit descendentem de TCustomMaskEdit. Por isso, o que tem nessa dica agrada a gregos(os que usam componentes data-aware) e troianos(os que não usam componentes data-aware)! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 10:30:12 -0300 Subject: [delphi-br] Erro Mascara Bom Dia Pessoal! Acho que esse deve ser um problema geral mas pesquisei em vários lugares e não achei a solução ainda. É o seguinte: Utilizo em todos os campos date do meu sistema uma máscara. O problema que após o usuário ter digitado a data se ele quizer apagar dá erro: !99/99/;1; - ' / / ' is not a valida date and time. ou !99/99/;1;_ - Invalid input value. Use escape key to abandon changes. Precisaria de uma solução para que ele pudesse excluir a data sem dar erro. Grato [As partes desta mensagem que não continham texto foram removidas] _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
Res: [delphi-br] Ajuda em select
select cliente.nome from cliente where cliente.dt_nascimen to in (select cliente.dt_nascimen to from cliente group by cliente.dt_nascimen to having count(cliente. id_cliente) 1 order by count(cliente. id_cliente) ) 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] [OOF-TOPIC]
Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas datas para alguns usuários do sistema. 21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que retorne facilmente o número de dias existentes entre essas duas datas? Lembrando mais uma vez pessoal, é na caneta, nada de programação. Obrigado pela atenção. []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adjalma Costa Enviada em: quinta-feira, 3 de abril de 2008 08:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi com Excel Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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] __ Informação do NOD32 IMON 1928 (20061219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Erro Mascara
Retificação: onde se lê descendentem, leia-se descendem. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 14:21:49 + Subject: RE: [delphi-br] Erro Mascara http://delphi.about.com/od/adptips2005/a/bltip0305_3.htm Neste link tem uma dica muito boa de como tratar o erro Invalid input value. Use escape key to abandon changes em TMaskEdits e mostra tb como customizar o método ValidateEdit() de um TDBEdit para essa situação. Pra quem não sabe, tanto o componente TDBEdit como o TMaskEdit descendentem de TCustomMaskEdit. Por isso, o que tem nessa dica agrada a gregos(os que usam componentes data-aware) e troianos(os que não usam componentes data-aware)! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 10:30:12 -0300 Subject: [delphi-br] Erro Mascara Bom Dia Pessoal! Acho que esse deve ser um problema geral mas pesquisei em vários lugares e não achei a solução ainda. É o seguinte: Utilizo em todos os campos date do meu sistema uma máscara. O problema que após o usuário ter digitado a data se ele quizer apagar dá erro: !99/99/;1; - ' / / ' is not a valida date and time. ou !99/99/;1;_ - Invalid input value. Use escape key to abandon changes. Precisaria de uma solução para que ele pudesse excluir a data sem dar erro. Grato [As partes desta mensagem que não continham texto foram removidas] __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
[delphi-br] Erro iniciar delphi
Instalei o Delphi 6 Professional em minha máquina, quando foi iniciar o Delphi dá a seguinte mensagem: Your Just-in-Time Debugger is currently set to . In order for Just-in- Time Debugging and Distributed Debugging features to work correctly, it needs to be changed to: C:\Arquivos de programas\Borland\Delphi6 \Bin\bordbg60.exe -aeargs %ld %ld. Do you want to change this setting? Quando instalei o Delphi no usuario da minha maquina funcionou, quando coloquei a máquina no dominio começou a aparecer esse erro.
Re: [delphi-br] [OOF-TOPIC]
Caraca, para isso terias que efetuar alguns cálculos referentes a ano bissexto. Não vele tentar mostra dentro do Excel? Daí tu podes colocar o seguinte: celula A1: informar a data inicial - formato Data celula B1: informa a data final - formato Data celula A2: =A1 (fórmula) - formato Numérico celula B2: =B1 (fórmula) - formato Numérico Daí podes fazer B2-A2 ... podes explicar que as datas no Excel começam em 01/01/1900, isto é, o número 1 corresponde a 01/01/1900, o 2 seria 02/01/1900 e assim por diante. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Luciano Topolniak To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 10:26 AM Subject: [delphi-br] [OOF-TOPIC] Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas datas para alguns usuários do sistema. 21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que retorne facilmente o número de dias existentes entre essas duas datas? Lembrando mais uma vez pessoal, é na caneta, nada de programação. Obrigado pela atenção. []'s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adjalma Costa Enviada em: quinta-feira, 3 de abril de 2008 08:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi com Excel Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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] __ Informação do NOD32 IMON 1928 (20061219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [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] Chave de Identificação: 54568,47f4ead9912477643768508 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro iniciar delphi
Isso não é erro, é um pedido de confirmação, vai nesse site aqui http://babelfish.altavista.com/tr e traduz Em 03/04/08, aoliveira_sys [EMAIL PROTECTED] escreveu: Instalei o Delphi 6 Professional em minha máquina, quando foi iniciar o Delphi dá a seguinte mensagem: Your Just-in-Time Debugger is currently set to . In order for Just-in- Time Debugging and Distributed Debugging features to work correctly, it needs to be changed to: C:\Arquivos de programas\Borland\Delphi6 \Bin\bordbg60.exe -aeargs %ld %ld. Do you want to change this setting? Quando instalei o Delphi no usuario da minha maquina funcionou, quando coloquei a máquina no dominio começou a aparecer esse erro. -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Componentes - Posicionamento de TImage
1) te aconselho a tirar o LogoPJ.Parent := Self; de dentro AtualizarLogotipos ... não DEVE ser necessário; 2) Tente atribuir a imagem utilizando LogoPJ.Picture.Assign( Picture Obrigado pela resposta, mas já fiz isso e nao funcionou. O que acontece é que o LogoPJ (TImage) que criei, perde a referência Parent quando em runtime, retornando Nil. Assim, perde o posicionamento. Como manter em runtime o parent atribuído em design time? Obrigado Paulo Jorge.
[delphi-br] Componentes - Posicionamento errado em runtime
Criei um componente baseado no TPanel; Criei outro Panel nesse componente e um TImage cujo posicionamento se baseia nesse panel; Atribuí o Parent do Panel := Self, referenciando o próprio componente; Atribuí o Parent do Image := Panel, referenciando o Panel criado no componente. Posicionei o TImage em relação ao Panel criado. Em design time, quando seleciono o componente da paleta e coloco sobre um form, ele está perfeito, mas quando rodo a Imagem perde o posicionamento. Constatei que tanto a propriedade Parent do Panel quanto da Imagem retornam nulo em runtime. Como manter os respectivos Parents? Agradecido. Paulo Jorge.
Re:[delphi-br] Delphi com Excel
Eu faço na mão. Veja o comando que uso: Xlws := TExcelWorksheet.Create(nil); ... ... Xlws.Range['B1', 'B5'].MergeCells := true; Este comando manda mesclar as celulas de 1 a 5 da coluna B []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr -- Início da mensagem original --- De: delphi-br@yahoogrupos.com.br Para: delphi-br@yahoogrupos.com.br Cc: Data: Thu, 3 Apr 2008 09:15:50 -0300 (ART) Assunto: [delphi-br] Delphi com Excel Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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]
RE: [delphi-br] [OOF-TOPIC]
A explicação do final da thread desse link estaria perfeita não fosse a forma simplista de verificar se um ano é bissexto. Neste caso, sugiro verificar o código fonte da função IsLeapYear() presente na unit SysUtils. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 13:45:12 -0300 Subject: Re: [delphi-br] [OOF-TOPIC] Isso aqui resolve? [ http://forum.imasters.uol.com.br/index.php?showtopic=276672 ] Sds, Ricardo. Luciano Topolniak [EMAIL PROTECTED] escreveu: Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas datas para alguns usuários do sistema. 21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que retorne facilmente o número de dias existentes entre essas duas datas? Lembrando mais uma vez pessoal, é na caneta, nada de programação. Obrigado pela atenção. []’s Topolniak. - 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] _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] [OOF-TOPIC]
Rubem, na verdade a thread referida no link assim como a solicitação inicial requerem/fazem uso apenas de fundamentos de lógica e estruturas de dados. Assim sendo, usar a função indicada estaria fora do proposto, e fazer uma declaração de um procedimento usando os fundamentos de lógica e estruturas de dados tornaria a solução mais extensa. Atte, Ricardo. Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: A explicação do final da thread desse link estaria perfeita não fosse a forma simplista de verificar se um ano é bissexto. Neste caso, sugiro verificar o código fonte da função IsLeapYear() presente na unit SysUtils. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 13:45:12 -0300 Subject: Re: [delphi-br] [OOF-TOPIC] Isso aqui resolve? [ http://forum.imasters.uol.com.br/index.php?showtopic=276672 ] Sds, Ricardo. Luciano Topolniak escreveu: Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas datas para alguns usuários do sistema. 21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que retorne facilmente o número de dias existentes entre essas duas datas? Lembrando mais uma vez pessoal, é na caneta, nada de programação. Obrigado pela atenção. []s Topolniak. - 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] - 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]
RE: [delphi-br] [OOF-TOPIC]
Concordo, mas seria _realmente_ necessário, se o objetivo é apenas explicar para alguns usuários do sistema? Agora, se fosse para algum trabalho acadêmico ou até mesmo para incluir na documenção de um sistema, seria indispensável fazer isso. Atte, Ricardo. Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Eu quis dizer apenas para pegar o algoritmo da função IsLeapYear() e adaptá-la ao pseudo-algoritmo proposto na thread de forma a corrigir o procedimento ilustrado para saber se um ano é bissexto. Acredito que não há nada de tão mirabolante nisso! Sds. - 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]
RE: [delphi-br] [OOF-TOPIC]
OK. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 3 Apr 2008 14:26:19 -0300Subject: RE: [delphi-br] [OOF-TOPIC] Concordo, mas seria _realmente_ necessário, se o objetivo é apenas explicar para alguns usuários do sistema?Agora, se fosse para algum trabalho acadêmico ou até mesmo para incluir na documenção de um sistema, seria indispensável fazer isso.Atte,Ricardo.Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Eu quis dizer apenas para pegar o algoritmo da função IsLeapYear() e adaptá-la ao pseudo-algoritmo proposto na thread de forma a corrigir o procedimento ilustrado para saber se um ano é bissexto. Acredito que não há nada de tão mirabolante nisso!Sds.-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] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [OOF-TOPIC]
Pior que não, o Excel ira suprimir a fórmula também, entende? E o pior é que teria que ser uma fórmula meio que fácil, alguns usuários teriam dificuldades. Eu encontrei uma em um site de um professor de matemática, até eu achei meio complicado, nem tentaria explicar aos demais. []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: quinta-feira, 3 de abril de 2008 11:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OOF-TOPIC] Caraca, para isso terias que efetuar alguns cálculos referentes a ano bissexto. Não vele tentar mostra dentro do Excel? Daí tu podes colocar o seguinte: celula A1: informar a data inicial - formato Data celula B1: informa a data final - formato Data celula A2: =A1 (fórmula) - formato Numérico celula B2: =B1 (fórmula) - formato Numérico Daí podes fazer B2-A2 ... podes explicar que as datas no Excel começam em 01/01/1900, isto é, o número 1 corresponde a 01/01/1900, o 2 seria 02/01/1900 e assim por diante. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Luciano Topolniak To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, April 03, 2008 10:26 AM Subject: [delphi-br] [OOF-TOPIC] Olá Pessoal, bom dia. Eu estou com um problema aqui e preciso da ajuda de vocês. Preciso demonstrar matematicamente o cálculo da diferença entre duas datas para alguns usuários do sistema. 21/12/1978 a 15/10/2008 quantos dias tem? Há uma fórmula matemática que retorne facilmente o número de dias existentes entre essas duas datas? Lembrando mais uma vez pessoal, é na caneta, nada de programação. Obrigado pela atenção. []'s Topolniak. 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 Adjalma Costa Enviada em: quinta-feira, 3 de abril de 2008 08:16 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Delphi com Excel Amigos da lista, Estou exportando dados para planilhas do Excel, usando os componentes tExcelApplication E ExcelWorksheet. Gostaria de saber como fazer para enviar células mescladas. Se alguém puder me ajudar ficarei muito grato. sds Adjalma - 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] __ Informação do NOD32 IMON 1928 (20061219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [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] mailto:spam%40vetorial.net Chave de Identificação: 54568,47f4ead9912477643768508 [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1928 (20061219) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32)
Não consigo identificar quais arquivos devo liberar para rodar o relatório no cliente... 2008/4/3 Vitor Yahoo [EMAIL PROTECTED]: Tem um link para o formulário de download na página que você passou mesmo: HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/downlo ad.aspApply to download the VCL now - To download either version of the VCL, fill in this form and provide your Crystal Reports registration number. To obtain a registration number, HYPERLINK http://www.businessobjects.com/register/content.aspregister Crystal Reports. Tem que ver a versão que você tem aí do crystal antes né... _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 17:24 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) Vitor, encontrei no site link ( HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/defaul t.asp http://www.business-objects.com/-products/-reporting/-crystalreports/- vcl/default.-asp) apenas para delphi 7... você tem algum link com os arquivos da VCL? Obrigado! 2008/4/2 Vitor Yahoo HYPERLINK mailto:vredesredsystem%40yahoo.com.br vredesredsystem%2540yahoo.com.br [EMAIL PROTECTED]: O Crystal possui uma vcl para acesso, procure por VCL Crystal Reports, para delphi 2005, veja no site da Business Objects que você vai achar, é bem mais fácil do que mexer com esse activeX. Vitor. _ De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [EMAIL PROTECTED] delphi-br%40yahoogrup-os.com.br delphi-br%40yahoog-rupos.com.-br [mailto: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [EMAIL PROTECTED] delphi-br%40yahoogrup-os.com.br delphi-br%40yahoog-rupos.com.-br] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 13:20 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [EMAIL PROTECTED] delphi-br%40yahoogrup-os.com.br delphi-br%40yahoog-rupos.com.-br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) João Paulo, consegui instalar o componente 'CrystalActiveXRepo--rtViewer'--, não sei se estou no caminho certo... através dele consegui abrir um arquivo '.rpt' utilizando o seguinte código... var oApp, oRpt: Variant; begin oApp := CreateOleObject(--'CrystalRuntime-.-Application'--); oRpt := oApp.OpenReport(--'C:\Report1.--rpt', 1); CrystalActiveXRepor--tViewer1.--ReportSource := oRpt; CrystalActiveXRepor--tViewer1.--ViewReport; end; mas acho que assim eu obrigo o usuário a ter o Crystal Reports instalado na máquina, o que não posso fazer... sabe outro forma de utilizar esse componente, ou devo utilizar outro componente? valeu! 2008/4/2 Açaí HYPERLINK mailto:joaopaulo.-jpo%40gmail.-com joaopaulo.-jpo%2540gmail.-comjoaopaulo.jpo%-2540gmail.-com [EMAIL PROTECTED]-: Olá. Verifique se vc não está usando a versão do crystal report para web. Caso esteja com a versão win32 então vc precisa importar um activex do crystal report para o seu Delphi. Em 01/04/08, Paulo Pontes HYPERLINK mailto:pontespaulo-%40gmail.-com pontespaulo-%2540gmail.-com pontespaulo%-2540gmail.-com[EMAIL PROTECTED] gmail.com pontespaulo%--40gmail.-com- escreveu: fala galera, como faço para rodar um relatório do Crystal no Delphi 2005 Win32... ou só é possível mesmo com WinForms... valeu! [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] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 No virus found in this outgoing message. Checked by AVG. Version: 7.5.519 / Virus Database: 269.22.4/1355 - Release Date: 1/4/2008 17:37 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] TSQLQuery
query.fetch; query.RecordCount; Dependendo da quantidade de registros vai demorar um pouco o fetch. - Mensagem original De: dhsb [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 3 de Abril de 2008 14:49:00 Assunto: [delphi-br] TSQLQuery Pessoal como faco para fazer uma simples consulta de quantos registros retornou de um SQL Uso delphi 7 e TSQLQuery. Ja tentei com o data set com a query mas sempre retorna 1 Olha o que estou fazendo. Qry.RecordCount Valeu !-- #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{ 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]
RE: [delphi-br] TSQLQuery
Até onde me consta (e até que me provem o contrário), componentes de consulta (sejam eles da camada que for - BDE, ADO, dbExpress, Zeos, etc.) nunca indicam em uma propriedade de contagem de registros (RecordCount, por exemplo) quantas linhas uma sentença SQL SELECT retorna. Motivo: o fetch dos dados acontece sob demanda, à medida que vc navega pela consulta e/ou à medida que os controles data-aware relacionados com a consulta solicitarem dados para exibição. Se o seu componente de consulta tiver algum método para 'puxar' todos os registros da consulta (como por exemplo o método FetchAll de um TQuery), aí sim a propriedade de contagem de registros retornará a quantidade de registros do conjunto de dados consultado. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 17:49:00 + Subject: [delphi-br] TSQLQuery Pessoal como faco para fazer uma simples consulta de quantos registros retornou de um SQL Uso delphi 7 e TSQLQuery. Ja tentei com o data set com a query mas sempre retorna 1 Olha o que estou fazendo. Qry.RecordCount Valeu _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Delphi com Excel
Pessoal, consegui mesclar as células...agora gostaria de saber como configurar uma célula com retorno automático. Desde já agradeço. sds Adjalma - 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]
[delphi-br] Como Fazer Perguntas Inteligentes
VALE A PENA LER... Introdução No mundo dos hackers, o tipo de resposta que você obtém as suas perguntas técnicas depende muito mais de como você faz a pergunta do que da dificuldade em preparar a resposta. Este guia ensinará a você como fazer perguntas do jeito mais indicado para conseguir uma resposta satisfatória. Agora que o uso do open source está bastante difundido, é mais comum você encontrar respostas de outros usuários, mais experientes, do que dos hackers. Isto é uma Coisa Boa: usuários tendem a ser um pouco mais tolerantes com os tipos de problemas que os novatos enfrentam. E ainda, tratar estes usuários como hackers, da maneira como recomendamos aqui é, geralmente, a maneira mais efetiva de conseguir respostas úteis deles também. A primeira coisa que você deve saber é que hackers realmente gostam de problemas difíceis e questões boas e intrigantes sobre estes problemas. Senão, nós não estaríamos aqui. Se você nos der uma questão interessante para mastigar nós ficaremos gratos à você; boas perguntas são um estímulo e um presente. Boas perguntas nos ajudam a desenvolver nosso entendimento, e freqüentemente revela problemas que não conhecíamos ou sobre os quais nunca pensamos. Entre hackers, boa pergunta é um forte e sincero elogio. Apesar disso, hackers têm a reputação de encarar perguntas simples com arrogância e hostilidade. De vez em quando aparentamos ser rudes com novatos e ignorantes. Mas isto não é verdade. Nós somos, sim, hostis com pessoas que não querem pensar nem fazer seu dever de casa antes de fazer perguntas. Pessoas assim são dissipadoras de tempo - elas pegam e não devolvem, elas desperdiçam tempo que pode ser usado em questões de gente que que merece uma resposta. Nós chamamos pessoas assim de losers (e por uma razão histórica, algumas vezes grafamos como lusers). N.T.: Luser é um trocadilho com as palavras user (usuário) e loser (perdedor, otário). Nós percebemos que existem muitas pessoas que querem apenas usar os softwares que escrevemos e não têm nenhum interesse em aprender detalhes técnicos. Para muitas pessoas, um computador é apenas uma ferramenta, um meio para um fim; eles têm coisas mais importantes para fazer nas suas vidas. Nós reconhecemos isso e não esperamos que todos tenham interesse nas questões técnicas que nos fascinam. Entretanto, nosso estilo de resposta é ajustado para aqueles que possuem este tipo de interesse e que desejam participar da solução de problemas. Isto não vai mudar. Nem deveria; se isso acontecesse, nós nos tornaríamos menos eficazes naquilo que sabemos fazer de melhor. Nós somos (na maioria dos casos) voluntários. Nós reservamos um tempo nas nossas ocupadas vidas para responder perguntas e, às vezes, ficamos sobrecarregados delas. Então nós as filtramos sem dó nem piedade. Em particular, nós jogamos fora questões de pessoas que aparentam ser losers, para que possamos gastar nosso tempo de forma mais eficiente, em questões de winners. (N.T.: vencedores) Se você acha essa atitude condenável ou arrogante, reveja seus conceitos. Nós não estamos pedindo que se curve diante de nós - na verdade, o que muitos de nós mais queremos é tratá-lo como igual e recebê-lo em nossa cultura, se você fizer o esforço necessário para que isso seja possível. Mas é simplesmente inútil para nós tentar ajudar pessoas que não estão dispostas a ajudar a si mesmas. Tudo bem ser ignorante; mas não é legal bancar o estúpido. Portanto, mesmo que não seja necessário ser tecnicamente competente para receber nossa atenção, você precisa apresentar atitudes que te levem a esta competência - mostrar-se preparado, atencioso, observador e disposto a ser um participante ativo no desenvolvimento de soluções. Se você não suporta este tipo de discriminação, sugerimos que você pague a alguém por um suporte comercial ao invés de pedir ajuda através de doações de hackers. Se você decidir vir até nós para pedir ajuda, você não quer ser um perdedor. Você não quer nem se parecer com um perdedor. A melhor maneira de conseguir uma resposta rápida e precisa é perguntar como uma pessoa que possui confiança, inteligência e dicas, e que precisa de ajuda em um problema bem específico. Antes de perguntar Antes de fazer uma pergunta por email, em um newsgroup ou em um fórum na web, faça o seguinte: 1.. Tente achar uma reposta pesquisando na Web. 2.. Tente achar uma reposta lendo o manual. 3.. Tente achar uma reposta lendo o FAQ. 4.. Tente achar uma reposta por tentativa e erro. 5.. Tente achar uma reposta perguntando a um amigo experiente. 6.. Se você é programador, tente achar uma reposta lendo o código-fonte. ...continua em http://www.istf.com.br/?page=perguntas#intro
RE: [delphi-br] Como Fazer Perguntas Inteligentes
Excelente indicação de texto, Jackson! Parabéns! Faço minhas todas as ponderações contidas neste texto! Ele bem que poderia ser um README.1ST para todos os usuários deste e de outras listas técnicas. Fiz questão de baixar o texto na íntegra pra gaurdar no meu notebook! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 16:08:20 -0300 Subject: [delphi-br] Como Fazer Perguntas Inteligentes VALE A PENA LER... Introdução No mundo dos hackers, o tipo de resposta que você obtém as suas perguntas técnicas depende muito mais de como você faz a pergunta do que da dificuldade em preparar a resposta. Este guia ensinará a você como fazer perguntas do jeito mais indicado para conseguir uma resposta satisfatória. Agora que o uso do open source está bastante difundido, é mais comum você encontrar respostas de outros usuários, mais experientes, do que dos hackers. Isto é uma Coisa Boa: usuários tendem a ser um pouco mais tolerantes com os tipos de problemas que os novatos enfrentam. E ainda, tratar estes usuários como hackers, da maneira como recomendamos aqui é, geralmente, a maneira mais efetiva de conseguir respostas úteis deles também. A primeira coisa que você deve saber é que hackers realmente gostam de problemas difíceis e questões boas e intrigantes sobre estes problemas. Senão, nós não estaríamos aqui. Se você nos der uma questão interessante para mastigar nós ficaremos gratos à você; boas perguntas são um estímulo e um presente. Boas perguntas nos ajudam a desenvolver nosso entendimento, e freqüentemente revela problemas que não conhecíamos ou sobre os quais nunca pensamos. Entre hackers, boa pergunta é um forte e sincero elogio. Apesar disso, hackers têm a reputação de encarar perguntas simples com arrogância e hostilidade. De vez em quando aparentamos ser rudes com novatos e ignorantes. Mas isto não é verdade. Nós somos, sim, hostis com pessoas que não querem pensar nem fazer seu dever de casa antes de fazer perguntas. Pessoas assim são dissipadoras de tempo - elas pegam e não devolvem, elas desperdiçam tempo que pode ser usado em questões de gente que que merece uma resposta. Nós chamamos pessoas assim de losers (e por uma razão histórica, algumas vezes grafamos como lusers). N.T.: Luser é um trocadilho com as palavras user (usuário) e loser (perdedor, otário). Nós percebemos que existem muitas pessoas que querem apenas usar os softwares que escrevemos e não têm nenhum interesse em aprender detalhes técnicos. Para muitas pessoas, um computador é apenas uma ferramenta, um meio para um fim; eles têm coisas mais importantes para fazer nas suas vidas. Nós reconhecemos isso e não esperamos que todos tenham interesse nas questões técnicas que nos fascinam. Entretanto, nosso estilo de resposta é ajustado para aqueles que possuem este tipo de interesse e que desejam participar da solução de problemas. Isto não vai mudar. Nem deveria; se isso acontecesse, nós nos tornaríamos menos eficazes naquilo que sabemos fazer de melhor. Nós somos (na maioria dos casos) voluntários. Nós reservamos um tempo nas nossas ocupadas vidas para responder perguntas e, às vezes, ficamos sobrecarregados delas. Então nós as filtramos sem dó nem piedade. Em particular, nós jogamos fora questões de pessoas que aparentam ser losers, para que possamos gastar nosso tempo de forma mais eficiente, em questões de winners. (N.T.: vencedores) Se você acha essa atitude condenável ou arrogante, reveja seus conceitos. Nós não estamos pedindo que se curve diante de nós - na verdade, o que muitos de nós mais queremos é tratá-lo como igual e recebê-lo em nossa cultura, se você fizer o esforço necessário para que isso seja possível. Mas é simplesmente inútil para nós tentar ajudar pessoas que não estão dispostas a ajudar a si mesmas. Tudo bem ser ignorante; mas não é legal bancar o estúpido. Portanto, mesmo que não seja necessário ser tecnicamente competente para receber nossa atenção, você precisa apresentar atitudes que te levem a esta competência - mostrar-se preparado, atencioso, observador e disposto a ser um participante ativo no desenvolvimento de soluções. Se você não suporta este tipo de discriminação, sugerimos que você pague a alguém por um suporte comercial ao invés de pedir ajuda através de doações de hackers. Se você decidir vir até nós para pedir ajuda, você não quer ser um perdedor. Você não quer nem se parecer com um perdedor. A melhor maneira de conseguir uma resposta rápida e precisa é perguntar como uma pessoa que possui confiança, inteligência e dicas, e que precisa de ajuda em um problema bem específico. Antes de perguntar Antes de fazer uma pergunta por email, em um newsgroup ou em um fórum na web, faça o seguinte: 1.. Tente achar uma reposta pesquisando na Web. 2.. Tente achar uma reposta lendo o manual. 3.. Tente achar uma reposta lendo o FAQ. 4.. Tente achar uma reposta por tentativa e erro. 5.. Tente achar uma reposta perguntando a um
Re: [delphi-br] Como faço para ligar 2 ou mais forms
Tipo, do form1 chamar o form2? No evento que você quiser coloque form2.show; Quando compilar o Delphi vai dizer que não encontrou e perguntar se você quer adicionar a unit onde está o form2 na cláusula uses da unit do form1, responda sim e rode novamente. [] Andrei 2008/4/3, danilo cerqueira [EMAIL PROTECTED]: Pessoal sou iniciante no delphi e gostaria de saber como ligar dois ou mais forms.
[delphi-br] Como faço para ligar 2 ou mais forms
Pessoal sou iniciante no delphi e gostaria de saber como ligar dois ou mais forms. - 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]
RE: [delphi-br] Como faço para ligar 2 ou mais forms
Explique-se melhor, pq seu questionamento está muito vago e abre margem pra muitas interpretações. O que vc quer dizer com 'ligar 2 ou mais forms'? Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 15:01:45 -0300 Subject: [delphi-br] Como faço para ligar 2 ou mais forms Pessoal sou iniciante no delphi e gostaria de saber como ligar dois ou mais forms. - 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] _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
[delphi-br] MASTER/DETAIL com campos mistos... HELP-ME! PLZ!... ;-)
Olá gente, seguinte posso fazer um master detail assim: Porque preciso que os itens fiquem numa ordem de código tipo: o cada cadastra assim: BBB DDD EEE AAA CCC e no programa ja cadastra na ordem certa conforme ele vai inserindo... AAA BBB CCC DDD EEE exemplo do que tentei MAS num deu muito certo não. TTABLE: name: t_notas IndexName: NUM_NOTA (cujo o campo é NUM_NOTA) TTALBE: onde tem dois indices: NUM_NOTA que tem só o campo NUM_NOTA do t_itens NOTA_CODIG que tem os campos (NUM_NOTA+CODIGO) name: t_itens IndexName: NOTA_CODIG (cujo os campos são: NUM_NOTA+CODIGO) MasterFields: NUM_NOTA (cujo na seleção selecionei o indece NUM_NOTA dos t_intes) []s e obrigado à todos... Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31 - -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Bloquear teclado no delphi
Boa Tarde Alguem sabe algum comando no delphi, para bloquear o teclado para o usuário? Tenho um form, com 2 abas, em uma, vou passar um leitor de código de barras que aparecerá o número no edit, e quero bloquear o teclado para que o usuário não digite nada nesse edit. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bloquear teclado no delphi
quero bloquear o teclado para que o usuário não digite nada nesse edit. Porque não desabilitar apenas o Edit ? (Enabled := False) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
[delphi-br] Delphi 7 no Vista funciona ? (urgente)
Desculpe passar essa dúvida como urgente, tenho 1 oferta quase imperdível até amanhã de um notebook porém vem com o Vista Original (ou seja estou pagando por ele.. já está no custo) vou usaar Delphi 7 nele, vai funcionar perfeitamente ? Agradeço e novamente desculpas. Alcione Guimarães e-mail: [EMAIL PROTECTED] Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn:[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Remover caracteres de arquivo txt
vc consegue acessar o conteudo completo do arquivo quando carregado em um objeto TStringList diretamente? Em 03/04/08, Andrei Luís [EMAIL PROTECTED] escreveu: Boa tarde, Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse componente faz uso de writeln pra criar um arquivo txt e depois copia esse arquivo para a porta da impressora. Esse componente tem um preview, que nada mais é que um form com um Tmemo onde o arquivo gerado é carregado. O problema, é que os primeiros caracteres que envio são caracteres de config da impressora Epson: printNF.put(#27+'@'); printNF.put(#27+#120+#0); printNF.put(#27+#15); E quando o preview é visualizado, aparece apenas os primeiros 4 caracteres. A impressão funciona perfeitamente, só o preview que tá zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê mais nada daí pra diante. Se eu abrir o arquivo que o componente gera no bloco de notas, tá lá todo o arquivo certinho. Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do arquivo em um StringList para tirar os primeiros caracteres e obtive os mesmos 4 caracteres iniciais. Alguém teria alguma idéia? Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro txt, e tentei copiando do 10º caracter até o final. wArqTmp := TStringList.Create; wArqTmp.LoadFromFile(printNF.TempFile); // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); wArqTmp.SaveToFile('C:\Teste.txt'); []s Andrei Delphi 2006 Pro -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
Procure no histórico da lista, já foi discutido diversas vezes. O Google também tem a resposta pra isso. E se mesmo assim a preguiça não deixar a resposta é SIM, funciona perfeitamente. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alcistemas Informática Enviada em: quinta-feira, 3 de abril de 2008 16:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi 7 no Vista funciona ? (urgente) Desculpe passar essa dúvida como urgente, tenho 1 oferta quase imperdível até amanhã de um notebook porém vem com o Vista Original (ou seja estou pagando por ele.. já está no custo) vou usaar Delphi 7 nele, vai funcionar perfeitamente ? Agradeço e novamente desculpas. Alcione Guimarães e-mail: [EMAIL PROTECTED] mailto:alcistemas%40yahoo.com.br Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn: [EMAIL PROTECTED] mailto:alcistemas%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi com Excel
Adjalma, Como assim retorno automático? Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adjalma Costa Enviada em: quinta-feira, 3 de abril de 2008 15:57 Para: delphi-br Assunto: [delphi-br] Delphi com Excel Pessoal, consegui mesclar as células... agora gostaria de saber como configurar uma célula com retorno automático. Desde já agradeço. sds Adjalma - 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]
Re: [delphi-br] Bloquear teclado no delphi
Se eu colocar somente leitura, o leitor de código de barras não vai funcionar. Em 03/04/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] escreveu: quero bloquear o teclado para que o usuário não digite nada nesse edit. Porque não desabilitar apenas o Edit ? (Enabled := False) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
Veja o arquivo de mensagens da lista. Isso foi discutido semana passada Atte, Ricardo. Alcistemas Informática [EMAIL PROTECTED] escreveu: Desculpe passar essa dúvida como urgente, tenho 1 oferta quase imperdível até amanhã de um notebook porém vem com o Vista Original (ou seja estou pagando por ele.. já está no custo) vou usaar Delphi 7 nele, vai funcionar perfeitamente ? Agradeço e novamente desculpas. Alcione Guimarães e-mail: [EMAIL PROTECTED] Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn:[EMAIL PROTECTED] [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]
Res: [delphi-br] Problemas com FortesReport, RlBoleto.
onde consigo o FortesReport para baixar - Mensagem original De: Fellipe Henrique [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 3 de Abril de 2008 10:32:12 Assunto: [delphi-br] Problemas com FortesReport, RlBoleto. Olá amigos, estou usando o RLBoleto pra imprimir boletos,, mas estou vendo problemas no FortesReport. Todos os TRLLabel que possuem o Alignment diferente de taLeftJustify, ele imprime errado... tipo.. vou tentar exemplificar, com um RLLabel com Right | RLLabel | | = Fim da pagina Certo: | 300,00 | Ele imprime assim: | 30|0,00 Ou seja, ele pega onde o label deveria começar, porém ao invés de ser Right, ele continua com o Left... Alguém já passou por isso? 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]
Re: [delphi-br] Como Fazer Perguntas Inteligentes
Excelente indicação de texto, Jackson! Parabéns! Faço minhas todas as ponderações contidas neste texto! Ele bem que poderia ser um README.1ST para todos os usuários deste e de outras listas técnicas. Fiz questão de baixar o texto na íntegra pra gaurdar no meu notebook! Pois é... acho que muita gente aqui poderia ler esse texto e reconsiderar muitas coisas. Isso faria dessa lista um lugar muito melhor. Sinceramente, as vezes desanima responder a algumas perguntas feitas de formas tolas e sem lógica, sem objetivos claros, sem muitos detalhes e sem um pingo de criatividade. Por mais que você seja novato ou inexperiente no assunto, um pouco de esforço em escrever uma boa pergunta sempre vai bem. Não é à toa que tínhamos aulas de redação. Justamente pra nos ajudar a escrever melhor. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Como Fazer Perguntas Inteligentes
jaja perguntam porque a extensão do arquivo é 1ST, heheheh Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Excelente indicação de texto, Jackson! Parabéns! Faço minhas todas as ponderações contidas neste texto! Ele bem que poderia ser um README.1ST para todos os usuários deste e de outras listas técnicas. Fiz questão de baixar o texto na íntegra pra gaurdar no meu notebook! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] jackson%40toolsandcomps.com Date: Thu, 3 Apr 2008 16:08:20 -0300 Subject: [delphi-br] Como Fazer Perguntas Inteligentes VALE A PENA LER... Introdução No mundo dos hackers, o tipo de resposta que você obtém as suas perguntas técnicas depende muito mais de como você faz a pergunta do que da dificuldade em preparar a resposta. Este guia ensinará a você como fazer perguntas do jeito mais indicado para conseguir uma resposta satisfatória. Agora que o uso do open source está bastante difundido, é mais comum você encontrar respostas de outros usuários, mais experientes, do que dos hackers. Isto é uma Coisa Boa: usuários tendem a ser um pouco mais tolerantes com os tipos de problemas que os novatos enfrentam. E ainda, tratar estes usuários como hackers, da maneira como recomendamos aqui é, geralmente, a maneira mais efetiva de conseguir respostas úteis deles também. A primeira coisa que você deve saber é que hackers realmente gostam de problemas difíceis e questões boas e intrigantes sobre estes problemas. Senão, nós não estaríamos aqui. Se você nos der uma questão interessante para mastigar nós ficaremos gratos à você; boas perguntas são um estímulo e um presente. Boas perguntas nos ajudam a desenvolver nosso entendimento, e freqüentemente revela problemas que não conhecíamos ou sobre os quais nunca pensamos. Entre hackers, boa pergunta é um forte e sincero elogio. Apesar disso, hackers têm a reputação de encarar perguntas simples com arrogância e hostilidade. De vez em quando aparentamos ser rudes com novatos e ignorantes. Mas isto não é verdade. Nós somos, sim, hostis com pessoas que não querem pensar nem fazer seu dever de casa antes de fazer perguntas. Pessoas assim são dissipadoras de tempo - elas pegam e não devolvem, elas desperdiçam tempo que pode ser usado em questões de gente que que merece uma resposta. Nós chamamos pessoas assim de losers (e por uma razão histórica, algumas vezes grafamos como lusers). N.T.: Luser é um trocadilho com as palavras user (usuário) e loser (perdedor, otário). Nós percebemos que existem muitas pessoas que querem apenas usar os softwares que escrevemos e não têm nenhum interesse em aprender detalhes técnicos. Para muitas pessoas, um computador é apenas uma ferramenta, um meio para um fim; eles têm coisas mais importantes para fazer nas suas vidas. Nós reconhecemos isso e não esperamos que todos tenham interesse nas questões técnicas que nos fascinam. Entretanto, nosso estilo de resposta é ajustado para aqueles que possuem este tipo de interesse e que desejam participar da solução de problemas. Isto não vai mudar. Nem deveria; se isso acontecesse, nós nos tornaríamos menos eficazes naquilo que sabemos fazer de melhor. Nós somos (na maioria dos casos) voluntários. Nós reservamos um tempo nas nossas ocupadas vidas para responder perguntas e, às vezes, ficamos sobrecarregados delas. Então nós as filtramos sem dó nem piedade. Em particular, nós jogamos fora questões de pessoas que aparentam ser losers, para que possamos gastar nosso tempo de forma mais eficiente, em questões de winners. (N.T.: vencedores) Se você acha essa atitude condenável ou arrogante, reveja seus conceitos. Nós não estamos pedindo que se curve diante de nós - na verdade, o que muitos de nós mais queremos é tratá-lo como igual e recebê-lo em nossa cultura, se você fizer o esforço necessário para que isso seja possível. Mas é simplesmente inútil para nós tentar ajudar pessoas que não estão dispostas a ajudar a si mesmas. Tudo bem ser ignorante; mas não é legal bancar o estúpido. Portanto, mesmo que não seja necessário ser tecnicamente competente para receber nossa atenção, você precisa apresentar atitudes que te levem a esta competência - mostrar-se preparado, atencioso, observador e disposto a ser um participante ativo no desenvolvimento de soluções. Se você não suporta este tipo de discriminação, sugerimos que você pague a alguém por um suporte comercial ao invés de pedir ajuda através de doações de hackers. Se você decidir vir até nós para pedir ajuda, você não quer ser um perdedor. Você não quer nem se parecer com um perdedor. A melhor maneira de conseguir uma resposta rápida e precisa é perguntar como uma pessoa que possui confiança, inteligência e dicas, e que precisa de ajuda em um problema bem específico. Antes de perguntar Antes de fazer uma pergunta por
RE: [delphi-br] Bloquear teclado no delphi
O 'buffer' do teclado já estará ocupado recebendo a informação do código de barras digitado. Não vejo fundamento para bloquear o teclado. Só se fosse uma ocasião em que se estivesse fazendo um TEF na aplicação, mas acredito que não seja este o caso! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 16:42:51 -0300 Subject: [delphi-br] Bloquear teclado no delphi Boa Tarde Alguem sabe algum comando no delphi, para bloquear o teclado para o usuário? Tenho um form, com 2 abas, em uma, vou passar um leitor de código de barras que aparecerá o número no edit, e quero bloquear o teclado para que o usuário não digite nada nesse edit. [As partes desta mensagem que não continham texto foram removidas] _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
[delphi-br] Problemas com Tecla de Atalho
Meus amigos, Estou tendo um problema com os atalhos, tenho botoes com o na frente como de costume, o do gravar esta Gravar, porem, qdo estou em qualquer componente que nao seja edit´s (ou seja de digitacao) uma TStringGrid por exemplo e aperto a tecla G ele dispara o botao de gravar, eu intercepto no OnKeyDown a var Key, porem nao estou conseguindo abortar o processo, mesmo zerando a Key com 0. Alguma ideia ? Grato. Marcus Welby
Re: [delphi-br] Bloquear teclado no delphi
São 2 portas seriais nas máquinas, com entrada p/ o leitor e teclado respectivamente. Ai que está o problema. Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: O 'buffer' do teclado já estará ocupado recebendo a informação do código de barras digitado. Não vejo fundamento para bloquear o teclado. Só se fosse uma ocasião em que se estivesse fazendo um TEF na aplicação, mas acredito que não seja este o caso! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] emanoeldiego%40gmail.com Date: Thu, 3 Apr 2008 16:42:51 -0300 Subject: [delphi-br] Bloquear teclado no delphi Boa Tarde Alguem sabe algum comando no delphi, para bloquear o teclado para o usuário? Tenho um form, com 2 abas, em uma, vou passar um leitor de código de barras que aparecerá o número no edit, e quero bloquear o teclado para que o usuário não digite nada nesse edit. [As partes desta mensagem que não continham texto foram removidas] __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Remover caracteres de arquivo txt
Confesso que nunca ouvi falar desse componente. Quem é o fabricante dele? Onde tem pra baixar a demonstração do mesmo? Quanto à visualização, isto quer dizer que seu bloco de impressão não consegue ser visto em TMemo em função de ele reconhecer no caracter nulo ('#0') uma espécie de fim de texto. TRichEdit não consegue visualizar isso pq o conteúdo de um RichText segue um padrão de marcações(tags) inerentes ao padrão RTF. Pode esquecer RichText. A sugestão bem simples seria criar blocos diferenciados, um para impressão e outro para visualização sem o caracter nulo ('#0')! Não conheço este componente, mas deduzo eu que ele deveria tratar isto. Se ele não trata, além de considerar isso um bug, vai ter que remediar da forma semelhante a que eu sugeri. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 14:41:30 -0300 Subject: [delphi-br] Remover caracteres de arquivo txt Boa tarde, Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse componente faz uso de writeln pra criar um arquivo txt e depois copia esse arquivo para a porta da impressora. Esse componente tem um preview, que nada mais é que um form com um Tmemo onde o arquivo gerado é carregado. O problema, é que os primeiros caracteres que envio são caracteres de config da impressora Epson: printNF.put(#27+'@'); printNF.put(#27+#120+#0); printNF.put(#27+#15); E quando o preview é visualizado, aparece apenas os primeiros 4 caracteres. A impressão funciona perfeitamente, só o preview que tá zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê mais nada daí pra diante. Se eu abrir o arquivo que o componente gera no bloco de notas, tá lá todo o arquivo certinho. Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do arquivo em um StringList para tirar os primeiros caracteres e obtive os mesmos 4 caracteres iniciais. Alguém teria alguma idéia? Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro txt, e tentei copiando do 10º caracter até o final. wArqTmp := TStringList.Create; wArqTmp.LoadFromFile(printNF.TempFile); // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); wArqTmp.SaveToFile('C:\Teste.txt'); []s Andrei Delphi 2006 Pro _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
[delphi-br] Como mesclar 4 arquivos bmps em um só arquivo
Pessoal: Alguém sabe como fazer o seguinte ? Tenho que mesclar 4 arquivos BMP em um único arquivo (também BMP). Imaginem que os 4 arquivos eram uma foto grande, que foi dividida em 4 pedaços iguais (com um corte em forma de cruz, bem na parte central da foto). Assim: - O PARTE1.BMP deve ficar no canto superior esquerdo do novo BMP - O PARTE2.BMP deve ficar no canto superior direito do novo BMP - O PARTE3.BMP deve ficar no canto inferior esquerdo do novo BMP - O PARTE4.BMP deve ficar no canto inferior direito do novo BMP Eu sei como ler os 4 arquivos, usando o objeto TBitMap, mas não sei como gerar o novo arquivo Grato pela atenção de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] QrChart.
Oi pessoal, Tenho um relatório que muda de tabela, de acordo com o que é pedido. Como fazer para adicionar dados das tabelas dinamicamente, em um QrChart? Antecipadamente agradeço, Domingos Neto [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]
Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto.
Sergioinfo SP wrote: onde consigo o FortesReport para baixar No google. -- Joao Morais
Re: RES: [delphi-br] Delphi com Excel
No Excel, em formatar célula, podemos configurar uma célula com retorno automático, que faz com que o seja quebrado o texto, caso seja maior que o tamanho da célula. sds Adjalma Douglas Uesato - Depto. de Informática [EMAIL PROTECTED] escreveu: Adjalma, Como assim retorno automático? Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Adjalma Costa Enviada em: quinta-feira, 3 de abril de 2008 15:57 Para: delphi-br Assunto: [delphi-br] Delphi com Excel Pessoal, consegui mesclar as células... agora gostaria de saber como configurar uma célula com retorno automático. Desde já agradeço. sds Adjalma - 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] - 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]
RE: [delphi-br] Como Fazer Perguntas Inteligentes
Assino embaixo e em caixa alta, meu caro! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 16:29:25 -0300 Subject: Re: [delphi-br] Como Fazer Perguntas Inteligentes Excelente indicação de texto, Jackson! Parabéns! Faço minhas todas as ponderações contidas neste texto! Ele bem que poderia ser um README.1ST para todos os usuários deste e de outras listas técnicas. Fiz questão de baixar o texto na íntegra pra gaurdar no meu notebook! Pois é... acho que muita gente aqui poderia ler esse texto e reconsiderar muitas coisas. Isso faria dessa lista um lugar muito melhor. Sinceramente, as vezes desanima responder a algumas perguntas feitas de formas tolas e sem lógica, sem objetivos claros, sem muitos detalhes e sem um pingo de criatividade. Por mais que você seja novato ou inexperiente no assunto, um pouco de esforço em escrever uma boa pergunta sempre vai bem. Não é à toa que tínhamos aulas de redação. Justamente pra nos ajudar a escrever melhor. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Res: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
eu iinstalei em casa e funcionou corretamente... coloquei o delphi 7 e o delphi 2007 - Mensagem original De: Alcistemas Informática [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 3 de Abril de 2008 16:46:11 Assunto: [delphi-br] Delphi 7 no Vista funciona ? (urgente) Desculpe passar essa dúvida como urgente, tenho 1 oferta quase imperdível até amanhã de um notebook porém vem com o Vista Original (ou seja estou pagando por ele.. já está no custo) vou usaar Delphi 7 nele, vai funcionar perfeitamente ? Agradeço e novamente desculpas. Alcione Guimarães e-mail: [EMAIL PROTECTED] com.br Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn: [EMAIL PROTECTED] 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! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Imagem com Rave
Paulo, ainda está em tempo, vou testar e imagino que será de grande valia. Fico grato. Celio. psdias2 (Yahoo) [EMAIL PROTECTED] escreveu: Célio: Existe alguma configuração no objeto RvSystem ou outra forma para que ao montar minhas paginas de relatorios, possa conseguir mais desempenho. Li tardiamente sua mensagem, e também não sei se irá ajudar, mas aqui vai um palpite: - Antes de começar a impressão, mude a propriedade SystemFiler.StreamMode do seu RvSystem para smTempFile: RvSystem1.SystemFiler.StreamMode := smTempFile; - O default dessa propriedade é smMemory, o que significa que o RvSystem irá criar o relatório na própria memória da máquina. Mudando para smTempFile, o relatório será criado em disco, deixando a memória mais livre. Você terá que testar, pois é possível que, no seu caso, em vez de melhorar a performance, ela piore. Eu uso essa dica para resolver um outro tipo de problema: se os dados geram um relatório muito grande (várias páginas), ocorre erro de falta de memória. Obs.: Você também pode usar RvSystem1.SystemFiler.StreamMode := smFile; Mas, neste caso, terá de fornecer um nome específico para o arquivo, na propriedade SystemFiler.FileName: RvSystem1.SystemFiler.FileName := 'c:\sistema\relat.NDR'; Boa sorte ! Paulo [As partes desta mensagem que não continham texto foram removidas] - Célio Bernardo de Lima Diretor de Projetos e Novas Tecnologias siatech.com.br - - 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]
Re: [delphi-br] Como Fazer Perguntas Inteligentes
Sugiro que seja enviado periodicamente pelos adms junto com as regras da lista. Abs. Daniel A. Bastos Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Assino embaixo e em caixa alta, meu caro! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] jackson%40toolsandcomps.com Date: Thu, 3 Apr 2008 16:29:25 -0300 Subject: Re: [delphi-br] Como Fazer Perguntas Inteligentes Excelente indicação de texto, Jackson! Parabéns! Faço minhas todas as ponderações contidas neste texto! Ele bem que poderia ser um README.1ST para todos os usuários deste e de outras listas técnicas. Fiz questão de baixar o texto na íntegra pra gaurdar no meu notebook! Pois é... acho que muita gente aqui poderia ler esse texto e reconsiderar muitas coisas. Isso faria dessa lista um lugar muito melhor. Sinceramente, as vezes desanima responder a algumas perguntas feitas de formas tolas e sem lógica, sem objetivos claros, sem muitos detalhes e sem um pingo de criatividade. Por mais que você seja novato ou inexperiente no assunto, um pouco de esforço em escrever uma boa pergunta sempre vai bem. Não é à toa que tínhamos aulas de redação. Justamente pra nos ajudar a escrever melhor. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
ô Animal, tenho mais confiança neste grupo, por isso não fui no google, segundo, onde estou agora, não tenho liberação para uso de browser só outlook mesmo. Ats - Original Message - From: Gerhard Roger Nack To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 4:54 PM Subject: RES: [delphi-br] Delphi 7 no Vista funciona ? (urgente) Procure no histórico da lista, já foi discutido diversas vezes. O Google também tem a resposta pra isso. E se mesmo assim a preguiça não deixar a resposta é SIM, funciona perfeitamente. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alcistemas Informática Enviada em: quinta-feira, 3 de abril de 2008 16:46 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi 7 no Vista funciona ? (urgente) Desculpe passar essa dúvida como urgente, tenho 1 oferta quase imperdível até amanhã de um notebook porém vem com o Vista Original (ou seja estou pagando por ele.. já está no custo) vou usaar Delphi 7 nele, vai funcionar perfeitamente ? Agradeço e novamente desculpas. Alcione Guimarães e-mail: [EMAIL PROTECTED] mailto:alcistemas%40yahoo.com.br Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn: [EMAIL PROTECTED] mailto:alcistemas%40hotmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
Obrigado amigo, - Original Message - From: Sergioinfo SP To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 5:03 PM Subject: Res: [delphi-br] Delphi 7 no Vista funciona ? (urgente) eu iinstalei em casa e funcionou corretamente... coloquei o delphi 7 e o delphi 2007 - Mensagem original De: Alcistemas Informática [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 3 de Abril de 2008 16:46:11 Assunto: [delphi-br] Delphi 7 no Vista funciona ? (urgente) Desculpe passar essa dúvida como urgente, tenho 1 oferta quase imperdível até amanhã de um notebook porém vem com o Vista Original (ou seja estou pagando por ele.. já está no custo) vou usaar Delphi 7 nele, vai funcionar perfeitamente ? Agradeço e novamente desculpas. Alcione Guimarães e-mail: [EMAIL PROTECTED] com.br Cel: 11-9515-8707 SIP VOIP: 3301040 SKYPE: alcistemas msn: [EMAIL PROTECTED] 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! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bloquear teclado no delphi
Não, se vc colocar ReadOnly := True, ele não irá funcionarmas se vc fizer Edit1.Enabled := False; Edit1.text := 'Ola Mundo'; Isso irá funcionar sim !! Vinicius dos Santos Analista de Desenvolvimento Júnior MSI SOLUÇÕES Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br - Original Message - From: emanoel diego To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 4:54 PM Subject: Re: [delphi-br] Bloquear teclado no delphi Se eu colocar somente leitura, o leitor de código de barras não vai funcionar. Em 03/04/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] escreveu: quero bloquear o teclado para que o usuário não digite nada nesse edit. Porque não desabilitar apenas o Edit ? (Enabled := False) Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto.
no google, procurar fortes report : http://www.google.com.br/search?hl=pt-BRq=fortesreportmeta= primeiro resultado da pagina: http://www.fortesreport.com.br/ Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31 --- From: Joao Morais Sent: Thursday, April 03, 2008 5:23 PM To: delphi-br@yahoogrupos.com.br Subject: Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto. Sergioinfo SP wrote: onde consigo o FortesReport para baixar No google. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto.
[EMAIL PROTECTED] wrote: no google, procurar fortes report : http://www.google.com.br/search?hl=pt-BRq=fortesreportmeta= primeiro resultado da pagina: http://www.fortesreport.com.br/ Cara, cê é um exemplo de bondade. -- Joao Morais Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31 --- From: Joao Morais Sent: Thursday, April 03, 2008 5:23 PM To: delphi-br@yahoogrupos.com.br Subject: Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto. Sergioinfo SP wrote: onde consigo o FortesReport para baixar No google. -- Joao Morais
Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto.
Bom, a versão desse site, está desatualizada, foi quando resolveram abrir os fontes.. o mais atual se encontra: http://forum.produsys.com.br/ []s Em 03/04/08, Joao Morais [EMAIL PROTECTED] escreveu: [EMAIL PROTECTED] escobar%40megasistema.com.br wrote: no google, procurar fortes report : http://www.google.com.br/search?hl=pt-BRq=fortesreportmeta= primeiro resultado da pagina: http://www.fortesreport.com.br/ Cara, cê é um exemplo de bondade. -- Joao Morais Luiz Escobar - Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/ASSEMBLY/MySQL/xBase SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP HARBOUR -- Borland C++ 5.5.1 (32 bit) Harbour Devel build 1.1-1 Intl. xHarbour Compile build 1.1.0 (Simplex) Harbour MiniGUI 1.5 Extended Edition (Build 50a) - 2008.03.31 -- From: Joao Morais Sent: Thursday, April 03, 2008 5:23 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: Res: [delphi-br] Problemas com FortesReport, RlBoleto. Sergioinfo SP wrote: onde consigo o FortesReport para baixar No google. -- Joao Morais -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Cansou do MercadoLivre como eu? Tente o www.uaileilão.com.br. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
Chamar de preguiçoso alguém que acorda as 04:30 am pega 3 onibus e chega em casa as 22:00 é o q ? - Original Message - From: Jackson Gomes - ToolsComps To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 5:45 PM Subject: Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente) ô Animal, tenho mais confiança neste grupo, por isso não fui no google, Agressividade totalmente desnecessária para essa lista de discussão segundo, onde estou agora, não tenho liberação para uso de browser só outlook mesmo. Você deveria ter esclarecido isso na sua pergunta. Pessoal, estou impossibilitado de acessar o google ou mesmo o histórico de mensagens do yahoo e gostaria de perguntar se ... Seria muito melhor. Vamos tentar fazer com que essa lista seja mais produtiva? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como mesclar 4 arquivos bmps em um só arquivo
MODO CHUTE ON Não testei, mas é um caminho. Defina o tamanho do bitmap final, com as propriedades width e height. * Essa parte é feia, e deve haver outra maneira bem mais elegante, mas foi o que me ocorreu agora. Faça um duplo loop em cada bitmap origem (carregue-os antes) para varrer todos os pixels (x,y) acessando suas propriedades Canvas.Pixels e copiando para o Canvas.Pixels do Bitmap final. Para o bitmap 1, não precisa alterar o offset. Para o 2, some a largura do bitmap1 ao x do bitmap final Para o 3, some a altura do bitmap1 ao y do bitmap final Para o 4, some a altura do bitmap1 ao y e a largura do bitmap1 ao x do bitmap final. Confuso? Deve funcionar se todos os 4 bitmaps forem do mesmo tamanho. Aquele abraço. Em 03/04/08, psdias2 (Yahoo) [EMAIL PROTECTED] escreveu: Pessoal: Alguém sabe como fazer o seguinte ? Tenho que mesclar 4 arquivos BMP em um único arquivo (também BMP). Imaginem que os 4 arquivos eram uma foto grande, que foi dividida em 4 pedaços iguais (com um corte em forma de cruz, bem na parte central da foto). Assim: - O PARTE1.BMP deve ficar no canto superior esquerdo do novo BMP - O PARTE2.BMP deve ficar no canto superior direito do novo BMP - O PARTE3.BMP deve ficar no canto inferior esquerdo do novo BMP - O PARTE4.BMP deve ficar no canto inferior direito do novo BMP Eu sei como ler os 4 arquivos, usando o objeto TBitMap, mas não sei como gerar o novo arquivo -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
ô Animal, tenho mais confiança neste grupo, por isso não fui no google, Agressividade totalmente desnecessária para essa lista de discussão segundo, onde estou agora, não tenho liberação para uso de browser só outlook mesmo. Você deveria ter esclarecido isso na sua pergunta. Pessoal, estou impossibilitado de acessar o google ou mesmo o histórico de mensagens do yahoo e gostaria de perguntar se ... Seria muito melhor. Vamos tentar fazer com que essa lista seja mais produtiva? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente)
Alcistemas Informática wrote: Chamar de preguiçoso alguém que acorda as 04:30 am pega 3 onibus e chega em casa as 22:00 é o q ? Continuar o assunto em private, ok? -- Joao Morais - Original Message - From: Jackson Gomes - ToolsComps To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 03, 2008 5:45 PM Subject: Re: [delphi-br] Delphi 7 no Vista funciona ? (urgente) ô Animal, tenho mais confiança neste grupo, por isso não fui no google, Agressividade totalmente desnecessária para essa lista de discussão segundo, onde estou agora, não tenho liberação para uso de browser só outlook mesmo. Você deveria ter esclarecido isso na sua pergunta. Pessoal, estou impossibilitado de acessar o google ou mesmo o histórico de mensagens do yahoo e gostaria de perguntar se ... Seria muito melhor. Vamos tentar fazer com que essa lista seja mais produtiva? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Fazer Perguntas Inteligentes
Daniel Bastos wrote: Sugiro que seja enviado periodicamente pelos adms junto com as regras da lista. Será sugerido. No entanto, algo me diz que quem precisa ler vai continuar não lendo e cometendo os mesmos erros. -- Joao Morais
RES: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32)
Ah sim... são muitos... A business objects também tem um pacote de instalação de client run-time, é distribution pack, alguma coisa do gênero... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Pontes Enviada em: quinta-feira, 3 de abril de 2008 14:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) Não consigo identificar quais arquivos devo liberar para rodar o relatório no cliente... 2008/4/3 Vitor Yahoo HYPERLINK mailto:vredesredsystem%40yahoo.com.br[EMAIL PROTECTED]: Tem um link para o formulário de download na página que você passou mesmo: HYPERLINK HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/downlo http://www.business-objects.com/-products/-reporting/-crystalreports/-vcl/d ownlo ad.aspApply to download the VCL now - To download either version of the VCL, fill in this form and provide your Crystal Reports registration number. To obtain a registration number, HYPERLINK HYPERLINK http://www.businessobjects.com/register/content.asphttp://www.business-obj ects.com/-register/-content.aspregister Crystal Reports. Tem que ver a versão que você tem aí do crystal antes né... _ De: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br [mailto: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 17:24 Para: HYPERLINK mailto:delphi-br%40yahoogrupos.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rupos.com.-br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) Vitor, encontrei no site link ( HYPERLINK HYPERLINK http://www.businessobjects.com/products/reporting/crystalreports/vcl/defaul http://www.business-objects.com/-products/-reporting/-crystalreports/-vcl/d efaul t.asp HYPERLINK http://www.business-objects.com/-products/-reporting/-crystalreports/-http ://www.business--objects.-com/-products/--reporting/--crystalreports/-- vcl/default.--asp) apenas para delphi 7... você tem algum link com os arquivos da VCL? Obrigado! 2008/4/2 Vitor Yahoo HYPERLINK mailto:vredesredsy-stem%40yahoo.-com.br vredesredsystem%-2540yahoo.-com.br [EMAIL PROTECTED]: O Crystal possui uma vcl para acesso, procure por VCL Crystal Reports, para delphi 2005, veja no site da Business Objects que você vai achar, é bem mais fácil do que mexer com esse activeX. Vitor. _ De: HYPERLINK mailto:delphi--br%40yahoogrupos-.com.br delphi-br%2540yaho-ogrupos.com.-br HYPERLINK mailto:delphi-br%40yahoogrup-os.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rup-os.com.-br delphi-br%40yahoog--rupos.com.--br [mailto: HYPERLINK mailto:delphi--br%40yahoogrupos-.com.br delphi-br%2540yaho-ogrupos.com.-br HYPERLINK mailto:delphi-br%40yahoogrup-os.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rup-os.com.-br delphi-br%40yahoog--rupos.com.--br] Em nome de Paulo Pontes Enviada em: quarta-feira, 2 de abril de 2008 13:20 Para: HYPERLINK mailto:delphi--br%40yahoogrupos-.com.br delphi-br%2540yaho-ogrupos.com.-br HYPERLINK mailto:delphi-br%40yahoogrup-os.com.br[EMAIL PROTECTED] delphi-br%40yahoog-rup-os.com.-br delphi-br%40yahoog--rupos.com.--br Assunto: Re: [delphi-br] DELPHI 2005 + CRYSTAL REPORTS XI (WIN32) João Paulo, consegui instalar o componente 'CrystalActiveXRepo---rtViewer'---, não sei se estou no caminho certo... através dele consegui abrir um arquivo '.rpt' utilizando o seguinte código... var oApp, oRpt: Variant; begin oApp := CreateOleObject(---'CrystalRuntim-e-.-Application'---); oRpt := oApp.OpenReport(---'C:\Report1.---rpt', 1); CrystalActiveXRepor---tViewer1.---ReportSource := oRpt; CrystalActiveXRepor---tViewer1.---ViewReport; end; mas acho que assim eu obrigo o usuário a ter o Crystal Reports instalado na máquina, o que não posso fazer... sabe outro forma de utilizar esse componente, ou devo utilizar outro componente? valeu! 2008/4/2 Açaí HYPERLINK mailto:joaopaulo.--jpo%40gmail.--com joaopaulo.--jpo%2540gmail.--comjoaopaulo.-jpo%-2540gmail.--com [EMAIL PROTECTED]--: Olá. Verifique se vc não está usando a versão do crystal report para web. Caso esteja com a versão win32 então vc precisa importar um activex do crystal report para o seu Delphi. Em 01/04/08, Paulo Pontes HYPERLINK mailto:pontespaulo--%40gmail.--com pontespaulo--%2540gmail.--com pontespaulo%--2540gmail.--com[EMAIL PROTECTED] gmail.com pontespaulo%---40gmail.--com- escreveu: fala galera, como faço para rodar um relatório do Crystal no Delphi 2005 Win32... ou só é possível mesmo com WinForms... valeu! [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] Como Fazer Perguntas Inteligentes
E eu, com base no que excelente texto indicado, vou responder: pesquise no Google o significado! ;-) Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 16:31:31 -0300 Subject: Re: [delphi-br] Como Fazer Perguntas Inteligentes jaja perguntam porque a extensão do arquivo é 1ST, heheheh Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Excelente indicação de texto, Jackson! Parabéns! Faço minhas todas as ponderações contidas neste texto! Ele bem que poderia ser um README.1ST para todos os usuários deste e de outras listas técnicas. Fiz questão de baixar o texto na íntegra pra gaurdar no meu notebook! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 16:08:20 -0300 Subject: [delphi-br] Como Fazer Perguntas Inteligentes VALE A PENA LER... Introdução No mundo dos hackers, o tipo de resposta que você obtém as suas perguntas técnicas depende muito mais de como você faz a pergunta do que da dificuldade em preparar a resposta. Este guia ensinará a você como fazer perguntas do jeito mais indicado para conseguir uma resposta satisfatória. Agora que o uso do open source está bastante difundido, é mais comum você encontrar respostas de outros usuários, mais experientes, do que dos hackers. Isto é uma Coisa Boa: usuários tendem a ser um pouco mais tolerantes com os tipos de problemas que os novatos enfrentam. E ainda, tratar estes usuários como hackers, da maneira como recomendamos aqui é, geralmente, a maneira mais efetiva de conseguir respostas úteis deles também. A primeira coisa que você deve saber é que hackers realmente gostam de problemas difíceis e questões boas e intrigantes sobre estes problemas. Senão, nós não estaríamos aqui. Se você nos der uma questão interessante para mastigar nós ficaremos gratos à você; boas perguntas são um estímulo e um presente. Boas perguntas nos ajudam a desenvolver nosso entendimento, e freqüentemente revela problemas que não conhecíamos ou sobre os quais nunca pensamos. Entre hackers, boa pergunta é um forte e sincero elogio. Apesar disso, hackers têm a reputação de encarar perguntas simples com arrogância e hostilidade. De vez em quando aparentamos ser rudes com novatos e ignorantes. Mas isto não é verdade. Nós somos, sim, hostis com pessoas que não querem pensar nem fazer seu dever de casa antes de fazer perguntas. Pessoas assim são dissipadoras de tempo - elas pegam e não devolvem, elas desperdiçam tempo que pode ser usado em questões de gente que que merece uma resposta. Nós chamamos pessoas assim de losers (e por uma razão histórica, algumas vezes grafamos como lusers). N.T.: Luser é um trocadilho com as palavras user (usuário) e loser (perdedor, otário). Nós percebemos que existem muitas pessoas que querem apenas usar os softwares que escrevemos e não têm nenhum interesse em aprender detalhes técnicos. Para muitas pessoas, um computador é apenas uma ferramenta, um meio para um fim; eles têm coisas mais importantes para fazer nas suas vidas. Nós reconhecemos isso e não esperamos que todos tenham interesse nas questões técnicas que nos fascinam. Entretanto, nosso estilo de resposta é ajustado para aqueles que possuem este tipo de interesse e que desejam participar da solução de problemas. Isto não vai mudar. Nem deveria; se isso acontecesse, nós nos tornaríamos menos eficazes naquilo que sabemos fazer de melhor. Nós somos (na maioria dos casos) voluntários. Nós reservamos um tempo nas nossas ocupadas vidas para responder perguntas e, às vezes, ficamos sobrecarregados delas. Então nós as filtramos sem dó nem piedade. Em particular, nós jogamos fora questões de pessoas que aparentam ser losers, para que possamos gastar nosso tempo de forma mais eficiente, em questões de winners. (N.T.: vencedores) Se você acha essa atitude condenável ou arrogante, reveja seus conceitos. Nós não estamos pedindo que se curve diante de nós - na verdade, o que muitos de nós mais queremos é tratá-lo como igual e recebê-lo em nossa cultura, se você fizer o esforço necessário para que isso seja possível. Mas é simplesmente inútil para nós tentar ajudar pessoas que não estão dispostas a ajudar a si mesmas. Tudo bem ser ignorante; mas não é legal bancar o estúpido. Portanto, mesmo que não seja necessário ser tecnicamente competente para receber nossa atenção, você precisa apresentar atitudes que te levem a esta competência - mostrar-se preparado, atencioso, observador e disposto a ser um participante ativo no desenvolvimento de soluções. Se você não suporta este tipo de discriminação, sugerimos que você pague a alguém por um suporte comercial ao invés de pedir ajuda através de doações de hackers. Se você decidir vir até nós para pedir ajuda, você não quer ser um perdedor. Você não quer nem se parecer com um perdedor. A
RE: [delphi-br] Bloquear teclado no delphi
Se vc usa um leitor de código de barras serial e vc tem um componente que intercepta essa leitura e 'joga' o conteúdo lido dentro do TEdit, sem problemas! Neste caso, vc poderá usar a função BlockInput da API do Windows (pesquisa mais sobre ela na Internet!). Agora, se vc usa um leitor de teclado, não tem realmente sentido bloqueá-lo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 17:09:03 -0300 Subject: Re: [delphi-br] Bloquear teclado no delphi São 2 portas seriais nas máquinas, com entrada p/ o leitor e teclado respectivamente. Ai que está o problema. Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: O 'buffer' do teclado já estará ocupado recebendo a informação do código de barras digitado. Não vejo fundamento para bloquear o teclado. Só se fosse uma ocasião em que se estivesse fazendo um TEF na aplicação, mas acredito que não seja este o caso! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 16:42:51 -0300 Subject: [delphi-br] Bloquear teclado no delphi Boa Tarde Alguem sabe algum comando no delphi, para bloquear o teclado para o usuário? Tenho um form, com 2 abas, em uma, vou passar um leitor de código de barras que aparecerá o número no edit, e quero bloquear o teclado para que o usuário não digite nada nesse edit. [As partes desta mensagem que não continham texto foram removidas] __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: [delphi-br] Remover caracteres de arquivo txt
Usa o RsPrint, é Free e tem um Preview ótimo, nada de TMemo. Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Confesso que nunca ouvi falar desse componente. Quem é o fabricante dele? Onde tem pra baixar a demonstração do mesmo? Quanto à visualização, isto quer dizer que seu bloco de impressão não consegue ser visto em TMemo em função de ele reconhecer no caracter nulo ('#0') uma espécie de fim de texto. TRichEdit não consegue visualizar isso pq o conteúdo de um RichText segue um padrão de marcações(tags) inerentes ao padrão RTF. Pode esquecer RichText. A sugestão bem simples seria criar blocos diferenciados, um para impressão e outro para visualização sem o caracter nulo ('#0')! Não conheço este componente, mas deduzo eu que ele deveria tratar isto. Se ele não trata, além de considerar isso um bug, vai ter que remediar da forma semelhante a que eu sugeri. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] compuvale.software%40gmail.com Date: Thu, 3 Apr 2008 14:41:30 -0300 Subject: [delphi-br] Remover caracteres de arquivo txt Boa tarde, Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse componente faz uso de writeln pra criar um arquivo txt e depois copia esse arquivo para a porta da impressora. Esse componente tem um preview, que nada mais é que um form com um Tmemo onde o arquivo gerado é carregado. O problema, é que os primeiros caracteres que envio são caracteres de config da impressora Epson: printNF.put(#27+'@'); printNF.put(#27+#120+#0); printNF.put(#27+#15); E quando o preview é visualizado, aparece apenas os primeiros 4 caracteres. A impressão funciona perfeitamente, só o preview que tá zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê mais nada daí pra diante. Se eu abrir o arquivo que o componente gera no bloco de notas, tá lá todo o arquivo certinho. Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do arquivo em um StringList para tirar os primeiros caracteres e obtive os mesmos 4 caracteres iniciais. Alguém teria alguma idéia? Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro txt, e tentei copiando do 10º caracter até o final. wArqTmp := TStringList.Create; wArqTmp.LoadFromFile(printNF.TempFile); // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); wArqTmp.SaveToFile('C:\Teste.txt'); []s Andrei Delphi 2006 Pro __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Units não usadas
Puts, é esse mesmo. Só tem que tem um problema. Meu projeto na empresa é enorme, tem .pas pra caramba. Tentei rodar o Uses Cleaner nele e esquece, demora pra dedel e trava. Nem consegui rodar. Alguém usa no dia a dia esse esquema? -- Adriano Santos - Editor Técnico Revista ClubeDelphi http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp Eduardo Silva dos Santos respondeu: o CnPack http://www.cnpack.org/index.php?lang=en http://www.cnpack.org/index.php?lang=en tem um wizard que faz isso. chama-se Uses Cleaner. na verdade o CnPack tem muita coisa, o bom é que da pra desativar oque você não for usar. o impacto dele no desempenho do Delphi é mínino, é claro que isso é diretamente proporcional e quantidade de opções ativas. vale a pena conferir. Em 01/04/08, Vinicius Santos - MSI [EMAIL PROTECTED] mailto:vinicius%40msisolucoes.com.br escreveu: Pessoal, alguém sabe de algum plug-in, que apaga as uses não usadas dentro de uma Unit. Por exemplo, eu não chamo nenhuma função da Dialogs.pas, não faz sentido declará-la, queria um programa para apagar essas Unit's não usadas. Isso é muito útil na construção de componentes, alguém se arrisca ? Vinicius dos Santos Analista de Desenvolvimento Júnior MSI SOLUÇÕES Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bloquear teclado no delphi
O problema é que o leitor de código de barras simula o teclado, mais caso vc queira segue abaixo: vc coloca esta procedure antes do Var das variaveis globais. procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL'; depois pra usar basta: BlockInput(True); //bloqueia BlockInput(False); //desbloqueia Em 03/04/08, emanoel diego [EMAIL PROTECTED] escreveu: Boa Tarde Alguem sabe algum comando no delphi, para bloquear o teclado para o usuário? Tenho um form, com 2 abas, em uma, vou passar um leitor de código de barras que aparecerá o número no edit, e quero bloquear o teclado para que o usuário não digite nada nesse edit. [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] Units não usadas
Usa a opção opened units in Current ProjectGroup e abre de 10 em 10 units, melhor que fazer na mão. viu como é massa o Uses Clear? Em 03/04/08, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu: Puts, é esse mesmo. Só tem que tem um problema. Meu projeto na empresa é enorme, tem .pas pra caramba. Tentei rodar o Uses Cleaner nele e esquece, demora pra dedel e trava. Nem consegui rodar. Alguém usa no dia a dia esse esquema? -- Adriano Santos -- Editor Técnico Revista ClubeDelphi http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp Eduardo Silva dos Santos respondeu: o CnPack http://www.cnpack.org/index.php?lang=en http://www.cnpack.org/index.php?lang=en tem um wizard que faz isso. chama-se Uses Cleaner. na verdade o CnPack tem muita coisa, o bom é que da pra desativar oque você não for usar. o impacto dele no desempenho do Delphi é mínino, é claro que isso é diretamente proporcional e quantidade de opções ativas. vale a pena conferir. Em 01/04/08, Vinicius Santos - MSI [EMAIL PROTECTED]vinicius%40msisolucoes.com.br mailto:vinicius%40msisolucoes.com.br vinicius%2540msisolucoes.com.br escreveu: Pessoal, alguém sabe de algum plug-in, que apaga as uses não usadas dentro de uma Unit. Por exemplo, eu não chamo nenhuma função da Dialogs.pas, não faz sentido declará-la, queria um programa para apagar essas Unit's não usadas. Isso é muito útil na construção de componentes, alguém se arrisca ? Vinicius dos Santos Analista de Desenvolvimento Júnior MSI SOLUÇÕES Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com mailto: eduardo.drd%40gmail.com eduardo.drd%2540gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /JLPSay.zip Carregado por : andrei_luis [EMAIL PROTECTED] Descrição : Componente para impressão matricial Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/JLPSay.zip Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, andrei_luis [EMAIL PROTECTED]
Re: [delphi-br] Remover caracteres de arquivo txt
E ae Eduardo, Conversamos na semana passada sobre o RSPrint, estou com ele instalado aqui, mas não tive tempo de fuçar nele ainda. E como disse pro Rubem, pra usar ele tenho que mexer em toda a rotina que tenho hoje, e que está funcionando legal. Vou fazer uns testes com esse RSPrint, e se não tiver jeito com o JLPSay, vou partir pra ele. Valeu pela (re) dica. [] Andrei Em 03/04/08, Eduardo Silva dos Santos[EMAIL PROTECTED] escreveu: Usa o RsPrint, é Free e tem um Preview ótimo, nada de TMemo. Em 03/04/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu: Confesso que nunca ouvi falar desse componente. Quem é o fabricante dele? Onde tem pra baixar a demonstração do mesmo? Quanto à visualização, isto quer dizer que seu bloco de impressão não consegue ser visto em TMemo em função de ele reconhecer no caracter nulo ('#0') uma espécie de fim de texto. TRichEdit não consegue visualizar isso pq o conteúdo de um RichText segue um padrão de marcações(tags) inerentes ao padrão RTF. Pode esquecer RichText. A sugestão bem simples seria criar blocos diferenciados, um para impressão e outro para visualização sem o caracter nulo ('#0')! Não conheço este componente, mas deduzo eu que ele deveria tratar isto. Se ele não trata, além de considerar isso um bug, vai ter que remediar da forma semelhante a que eu sugeri. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] compuvale.software%40gmail.com Date: Thu, 3 Apr 2008 14:41:30 -0300 Subject: [delphi-br] Remover caracteres de arquivo txt Boa tarde, Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse componente faz uso de writeln pra criar um arquivo txt e depois copia esse arquivo para a porta da impressora. Esse componente tem um preview, que nada mais é que um form com um Tmemo onde o arquivo gerado é carregado. O problema, é que os primeiros caracteres que envio são caracteres de config da impressora Epson: printNF.put(#27+'@'); printNF.put(#27+#120+#0); printNF.put(#27+#15); E quando o preview é visualizado, aparece apenas os primeiros 4 caracteres. A impressão funciona perfeitamente, só o preview que tá zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê mais nada daí pra diante. Se eu abrir o arquivo que o componente gera no bloco de notas, tá lá todo o arquivo certinho. Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do arquivo em um StringList para tirar os primeiros caracteres e obtive os mesmos 4 caracteres iniciais. Alguém teria alguma idéia? Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro txt, e tentei copiando do 10º caracter até o final. wArqTmp := TStringList.Create; wArqTmp.LoadFromFile(printNF.TempFile); // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); wArqTmp.SaveToFile('C:\Teste.txt'); []s Andrei Delphi 2006 Pro __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ...
Re: [delphi-br] Remover caracteres de arquivo txt
Grande Rubem, O JLPSay é um componente bem, bem simples. Mas que tem funcionado legal comigo, a única ressalva é o preview. É freeware, o 'fabricante' acho que é esse cara aqui: http://jlpascoal.sites.uol.com.br/ , mas o site tá meio bugado, nenhum link tá funcionando, por isso mandei o componente pra lista. Aos moderadores, desculpe enviar um arquivo desse tamanho, se estourar o limite da lista excluam-no sem dó. :-) Depois que mandei a msg pra lista hoje a tarde, cheguei a mesma solução que você: o que seria de nós programadores sem o If, não? hehehe Na falta de outra forma, vou de If por enquanto. O problema que vejo em tentar tratar os códigos, é que o preview é chamado depois que o arquivo txt foi criado e fechado. Não dá pra simplesmente deixar os códigos de fora do arquivo txt que é gerado, pois o componente não sabe se será chamado o preview, ou se será chamado a impressão. A solução talvez seja criar outro arquivo txt independente para o preview, sem os tais códigos. De qualquer forma, obrigado pelas dicas Rubem. Quero dar uma olhada ainda no componente que o Eduardo sugeriu, só que aí vou ter que mudar toda a minha rotina de impressão, que está funcionando redondinha. :-( [] Andrei Em 03/04/08, Rubem Nascimento da Rocha[EMAIL PROTECTED] escreveu: Confesso que nunca ouvi falar desse componente. Quem é o fabricante dele? Onde tem pra baixar a demonstração do mesmo? Quanto à visualização, isto quer dizer que seu bloco de impressão não consegue ser visto em TMemo em função de ele reconhecer no caracter nulo ('#0') uma espécie de fim de texto. TRichEdit não consegue visualizar isso pq o conteúdo de um RichText segue um padrão de marcações(tags) inerentes ao padrão RTF. Pode esquecer RichText. A sugestão bem simples seria criar blocos diferenciados, um para impressão e outro para visualização sem o caracter nulo ('#0')! Não conheço este componente, mas deduzo eu que ele deveria tratar isto. Se ele não trata, além de considerar isso um bug, vai ter que remediar da forma semelhante a que eu sugeri. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 14:41:30 -0300 Subject: [delphi-br] Remover caracteres de arquivo txt Boa tarde, Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse componente faz uso de writeln pra criar um arquivo txt e depois copia esse arquivo para a porta da impressora. Esse componente tem um preview, que nada mais é que um form com um Tmemo onde o arquivo gerado é carregado. O problema, é que os primeiros caracteres que envio são caracteres de config da impressora Epson: printNF.put(#27+'@'); printNF.put(#27+#120+#0); printNF.put(#27+#15); E quando o preview é visualizado, aparece apenas os primeiros 4 caracteres. A impressão funciona perfeitamente, só o preview que tá zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê mais nada daí pra diante. Se eu abrir o arquivo que o componente gera no bloco de notas, tá lá todo o arquivo certinho. Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do arquivo em um StringList para tirar os primeiros caracteres e obtive os mesmos 4 caracteres iniciais. Alguém teria alguma idéia? Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro txt, e tentei copiando do 10º caracter até o final. wArqTmp := TStringList.Create; wArqTmp.LoadFromFile(printNF.TempFile); // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); wArqTmp.SaveToFile('C:\Teste.txt'); []s Andrei Delphi 2006 Pro
[delphi-br] Data Module
Boa noite tenho um datamodulo onde faço a conecção com o banco. No formulário quando faço novos lançamentos nao esta sendo ordenado pois a ordenação e feita quando abro a ADOQuery... Como posso fazer para a cada lançamento fazer a ordenação na minha ADO Query ---Mensagem original--- De: Andrei Luís Data: 04/03/08 21:03:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Remover caracteres de arquivo txt Grande Rubem, O JLPSay é um componente bem, bem simples. Mas que tem funcionado legal comigo, a única ressalva é o preview. É freeware, o 'fabricante' acho que é esse cara aqui: http://jlpascoal.sites.uol.com.br/ , mas o site tá meio bugado, nenhum link tá funcionando, por isso mandei o componente pra lista. Aos moderadores, desculpe enviar um arquivo desse tamanho, se estourar o limite da lista excluam-no sem dó. :-) Depois que mandei a msg pra lista hoje a tarde, cheguei a mesma solução que você: o que seria de nós programadores sem o If, não? hehehe Na falta de outra forma, vou de If por enquanto. O problema que vejo em tentar tratar os códigos, é que o preview é chamado depois que o arquivo txt foi criado e fechado. Não dá pra simplesmente deixar os códigos de fora do arquivo txt que é gerado, pois o componente não sabe se será chamado o preview, ou se será chamado a impressão. A solução talvez seja criar outro arquivo txt independente para o preview, sem os tais códigos. De qualquer forma, obrigado pelas dicas Rubem. Quero dar uma olhada ainda no componente que o Eduardo sugeriu, só que aí vou ter que mudar toda a minha rotina de impressão, que está funcionando redondinha. :-( [] Andrei Em 03/04/08, Rubem Nascimento da Rocha[EMAIL PROTECTED] escreveu: Confesso que nunca ouvi falar desse componente. Quem é o fabricante dele? Onde tem pra baixar a demonstração do mesmo? Quanto à visualização, isto quer dizer que seu bloco de impressão não consegue ser visto em TMemo em função de ele reconhecer no caracter nulo ('#0') uma espécie de fim de texto TRichEdit não consegue visualizar isso pq o conteúdo de um RichText segue um padrão de marcações(tags) inerentes ao padrão RTF. Pode esquecer RichText A sugestão bem simples seria criar blocos diferenciados, um para impressão e outro para visualização sem o caracter nulo ('#0')! Não conheço este componente, mas deduzo eu que ele deveria tratar isto. Se ele não trata, além de considerar isso um bug, vai ter que remediar da forma semelhante a que eu sugeri. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 3 Apr 2008 14:41:30 -0300 Subject: [delphi-br] Remover caracteres de arquivo txt Boa tarde, Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse componente faz uso de writeln pra criar um arquivo txt e depois copia esse arquivo para a porta da impressora. Esse componente tem um preview, que nada mais é que um form com um Tmemo onde o arquivo gerado é carregado. O problema, é que os primeiros caracteres que envio são caracteres de config da impressora Epson: printNF.put(#27+'@'); printNF.put(#27+#120+#0); printNF.put(#27+#15); E quando o preview é visualizado, aparece apenas os primeiros 4 caracteres. A impressão funciona perfeitamente, só o preview que tá zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê mais nada daí pra diante. Se eu abrir o arquivo que o componente gera no bloco de notas, tá lá todo o arquivo certinho. Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do arquivo em um StringList para tirar os primeiros caracteres e obtive os mesmos 4 caracteres iniciais. Alguém teria alguma idéia? Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro txt, e tentei copiando do 10º caracter até o final. wArqTmp := TStringList.Create; wArqTmp.LoadFromFile(printNF.TempFile); // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); wArqTmp.SaveToFile('C:\Teste.txt'); []s Andrei Delphi 2006 Pro [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Data Module
Como posso fazer para a cada lançamento fazer a ordenação na minha ADO Query Se você não quiser dar um refresh nos dados no banco novamente, uma forma é usar um Grid que já faça a ordenação, como os da DevExpress, ou usar um ClientDataset para isso, ou seja, inserir os dados na sua ADOQuery via CDS, ordenado pelo campo que vc deseja, via índice... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED]
Res: Re: [delphi-br] Data Module
Obrigado ---Mensagem original--- De: Jackson Gomes - ToolsComps Data: 03/04/2008 21:51:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Data Module Como posso fazer para a cada lançamento fazer a ordenação na minha ADO Query Se você não quiser dar um refresh nos dados no banco novamente, uma forma é usar um Grid que já faça a ordenação, como os da DevExpress, ou usar um ClientDataset para isso, ou seja, inserir os dados na sua ADOQuery via CDS, ordenado pelo campo que vc deseja, via índice... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores Borland/CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: [EMAIL PROTECTED] Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Borland http://www.devhost.com.br [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]