RES: [delphi-br] Formulário lento para Abrir
Olá Rodrigo, Quando você usa o comando SELECT * FROM tabela, dependendo da quantidade de registros que a tabela possui, pode ocasionar uma certa lentidão. Nesse caso você poderia utilizar uma clausula no SQL para trazer somente os 50 primeiros registros (ou quanto você quiser), e depois inserir um campo para que o usuário possa procurar esse os demais registros através de uma pesquisa no evento OnChange de um edit. A sintaxe no SQL acredito que ficaria assim: select first 50 * from clientes Colegas, por favor, faz um tempo que não trabalho com Firebird, se esse comando estiver incorreto, por favor me corrija. Abraços!! Ricardo Ravelli De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de rodrigo Enviada em: quarta-feira, 10 de março de 2010 16:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Formulário lento para Abrir Olá, tenho uma tabela grande, quando mando abrir o formulário para lançar mais registros, o formulário está lento para abrir, uso DbExpress e firebird 2.1, quando abro o formulário, abro junto no on create o clientdataset que tem o sql 'selec * from tabela', gostaria de saber o que devo fazer para dar uma melhorada no desempenho do sistema, abro junto 3 tabelas menores, de onde uso os dados para preencher os DBLookupComboBox. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problemas com a centuação Delphi e MySQL
Alguém tem alguma ajuda? Preciso finalizar o desenvolvimento o sistema e está faltando corrigir esse problema. Obrigado. Att. Ricardo Ravelli. -Mensagem original- De: Ricardo Ravelli [mailto:ricardorave...@gmail.com] Enviada em: quarta-feira, 27 de janeiro de 2010 16:33 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Problemas com acentuação Delphi e MySQL Eu fiz a alteração do banco e das tabelas da seguinte maneira: Character set: latin1 (ISO 8859-1 West European) Collation: latin1_swedish_ci Para: Character set: utf8 (UTF-8 Unicode) Collation: utf8_general_ci Mesmo assim não funcionou o programa. Ele continua gravando José (José). O mais engraçado é que sempre usei o MySQL e o Delphi e nunca deu o problema. É a primeira vez que estou utilizando o D2010 e DbExpress para fazer a conexão. Alguém consegue me ajudar com esse problema. Obrigado Att. Ricardo Ravelli. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 27 de janeiro de 2010 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você pode usar o EMS SQL Manager for MySQL Freeware http://sqlmanager.net/en/products/mysql/manager/download nele você vai conseguir facilmente mudar as propriedades da tabela e do banco. No DBExpress, já não sei te informar pois não uso o mesmo. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 27 de janeiro de 2010 12:56, Ricardo Ravelli escreveu: > > > Eduardo, bom dia. > > Como eu faço para fazer a alteração das tabelas para esse formato? > > Eu uso o DbExpress para fazer a conexão, tem alguma alteração que deve ser > feito na conexão também? > > Obrigado. > > Att. > Ricardo Ravelli > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto: > delphi-br@yahoogrupos.com.br ] Em > nome de Eduardo Silva dos Santos > Enviada em: terça-feira, 26 de janeiro de 2010 18:50 > > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL > > > Você precisa verificar como está o Charecter set e o Collation da Tabela e > como está configurado O objeto de conexão ao banco.. > sua tabela deva ta como UTF-8 > > Att, > ... > Eduardo Silva dos Santos > DRD SISTEMAS > (27) 3218-4201 > (27) 9961-7095 > MSN: eduardo@gmail.com > Site: http://www.drdsistemas.com.br/ > ... > > Em 26 de janeiro de 2010 20:44, Ricardo Ravelli > >escreveu: > > > > > > > Boa noite, > > > > Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL > > 5.1, > > utilizo os componentes DbExpress para a comunicação no banco de dados. > > > > O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por > exemplo > > José, mas no banco de dados ele troca a letra com acento por caracteres > > estranhos José. > > > > O problema está no Delphi ou no MySQL? O que devo fazer para corrigir > esse > > problema? > > > > Obrigado. > > > > Att. > > > > Ricardo Ravelli. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
RES: [delphi-br] Problemas com acentuação Delphi e MySQL
Eu fiz a alteração do banco e das tabelas da seguinte maneira: Character set: latin1 (ISO 8859-1 West European) Collation: latin1_swedish_ci Para: Character set: utf8 (UTF-8 Unicode) Collation: utf8_general_ci Mesmo assim não funcionou o programa. Ele continua gravando José (José). O mais engraçado é que sempre usei o MySQL e o Delphi e nunca deu o problema. É a primeira vez que estou utilizando o D2010 e DbExpress para fazer a conexão. Alguém consegue me ajudar com esse problema. Obrigado Att. Ricardo Ravelli. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 27 de janeiro de 2010 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você pode usar o EMS SQL Manager for MySQL Freeware http://sqlmanager.net/en/products/mysql/manager/download nele você vai conseguir facilmente mudar as propriedades da tabela e do banco. No DBExpress, já não sei te informar pois não uso o mesmo. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 27 de janeiro de 2010 12:56, Ricardo Ravelli escreveu: > > > Eduardo, bom dia. > > Como eu faço para fazer a alteração das tabelas para esse formato? > > Eu uso o DbExpress para fazer a conexão, tem alguma alteração que deve ser > feito na conexão também? > > Obrigado. > > Att. > Ricardo Ravelli > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto: > delphi-br@yahoogrupos.com.br ] Em > nome de Eduardo Silva dos Santos > Enviada em: terça-feira, 26 de janeiro de 2010 18:50 > > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL > > > Você precisa verificar como está o Charecter set e o Collation da Tabela e > como está configurado O objeto de conexão ao banco.. > sua tabela deva ta como UTF-8 > > Att, > ... > Eduardo Silva dos Santos > DRD SISTEMAS > (27) 3218-4201 > (27) 9961-7095 > MSN: eduardo@gmail.com > Site: http://www.drdsistemas.com.br/ > ... > > Em 26 de janeiro de 2010 20:44, Ricardo Ravelli > >escreveu: > > > > > > > Boa noite, > > > > Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL > > 5.1, > > utilizo os componentes DbExpress para a comunicação no banco de dados. > > > > O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por > exemplo > > José, mas no banco de dados ele troca a letra com acento por caracteres > > estranhos José. > > > > O problema está no Delphi ou no MySQL? O que devo fazer para corrigir > esse > > problema? > > > > Obrigado. > > > > Att. > > > > Ricardo Ravelli. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
RES: [delphi-br] Problemas com acentuação Delphi e MySQL
Eduardo, bom dia. Como eu faço para fazer a alteração das tabelas para esse formato? Eu uso o DbExpress para fazer a conexão, tem alguma alteração que deve ser feito na conexão também? Obrigado. Att. Ricardo Ravelli -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 26 de janeiro de 2010 18:50 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você precisa verificar como está o Charecter set e o Collation da Tabela e como está configurado O objeto de conexão ao banco.. sua tabela deva ta como UTF-8 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 26 de janeiro de 2010 20:44, Ricardo Ravelli escreveu: > > > Boa noite, > > Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL > 5.1, > utilizo os componentes DbExpress para a comunicação no banco de dados. > > O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por exemplo > José, mas no banco de dados ele troca a letra com acento por caracteres > estranhos José. > > O problema está no Delphi ou no MySQL? O que devo fazer para corrigir esse > problema? > > Obrigado. > > Att. > > Ricardo Ravelli. > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
[delphi-br] Problemas com acentuação Delphi e MySQL
Boa noite, Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL 5.1, utilizo os componentes DbExpress para a comunicação no banco de dados. O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por exemplo José, mas no banco de dados ele troca a letra com acento por caracteres estranhos José. O problema está no Delphi ou no MySQL? O que devo fazer para corrigir esse problema? Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro ao passar valores de um Form para outro
Pessoal, boa noite. Eu estou um sistema MDI, no qual tenho um formulário principal (Form Pai) e os demais estão como Forms filhos. O meu problema é o seguinte: Eu criei um form Filho de cadastro de produtos e dentro dele eu chamo um outro form filho que consulta os produtos cadastrados, porém eu também uso esse Form de consulta para jogar de volta uma linha do registro do DbGrid para o formulário de cadastro, assim podendo realizar a alteração desse registro (qdo eu dou um duplo-clique em cima do registro). Dentro do form de Cadastro de Produtos eu usei o seguinte código para chamar o Form de consulta: Application.CreateForm(TFrmConProduto, FrmConProduto); Dentro do DbGrid desse form de consulta eu utilizei o seguinte código para trazer as informações para o outro Form (Cadastro): procedure TFrmConProduto.DBGrid1DblClick(Sender: TObject); var Cd_Produto: string; Ds_Produto: string; Qtd_Produto: string; Vl_Unit_Produto: string; Vl_Total_Produto: string; X: Integer; begin with DBGrid1.DataSource.DataSet do for X := 0 to FieldCount - 1 do begin case X of 0: Cd_Produto := Fields[X].AsString; 1: Ds_Produto := Fields[X].AsString; 2: Qtd_Produto := Fields[X].AsString; 3: Vl_Unit_Produto := Fields[X].AsString; 4: Vl_Total_Produto := Fields[X].AsString; end; FrmCadProduto.EdtCodigo.Text := Cd_Produto; FrmCadProduto.EdtProduto.Text := Ds_Produto; FrmCadProduto.EdtQdt.Text := Qtd_Produto; FrmCadProduto.EdtValorUnit.Text := Vl_Unit_Produto; FrmCadProduto.EdtValorTotal.Text := Vl_Total_Produto; end; FrmCadProduto.HabilitaDesabilita(2); FrmConProduto.Close; end; O erro está acontecendo quando eu tendo passar os valores das variáveis para os Edits do outro Form (que fica aberto mesmo com o Form Consulta aberto). Ele apresenta um erro de Access Violation e eu notei que ele não consegue encontrar as informações do Form Cadastro mesmo ele estando aberto e adicionado na Unit. Eu já utilizei esse código com Sistemas que não estão em MDI e funcionaram corretamente. Alguém sabe o que está acontecendo? Ou tem alguma solução diferente para trabalhar com forms MDI? Obrigado. Abraços. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Envio Email Delphi 2010 (indy 10) e gmail
Oi Silvio, boa tarde. Só uma dúvida. Como eu faço a instalação desse pacote? Obrigado. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de silvioprog Enviada em: segunda-feira, 11 de janeiro de 2010 23:42 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Envio Email Delphi 2010 (indy 10) e gmail Foi mal esqueci de passar o svn: [https://synalist.svn.sourceforge.net/svnroot/synalist/trunk/]; Home: [http://www.synapse.ararat.cz/doku.php/start]; Não testei no D2010 (ainda não tenho ele aqui), mas creio que funciona sem problemas. --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , "Ricardo Ravelli" escreveu > Oi Silvio, > > Esse framework já tem para o D2010? Qual o caminho do SVN? > > Obrigado. > > Att. -- Silvio Clecio -- Contato - silvioprog@ Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- "Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto e a experiência. Blaise Pascal. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Zeos 7 e MySQL 5.1
Oi Silvio, boa tarde. Eu acredito que seja problema no componente do Zeos, pois eu coloco esse mesmo código SQL dentro do Zquery e ele funciona, inclusive com os parâmetros, só não funciona quando eu passo via código. Esse código eu tirei de um sistema feito no D7 com MySQL 5.1 e funciona 100%. Eu vou esperar para ver se o pessoal faz alguma atualização no Zeos 7, assim talvez resolva o meu problema. Obrigado pela ajuda. Abraço. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de silvioprog Enviada em: terça-feira, 12 de janeiro de 2010 00:41 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Zeos 7 e MySQL 5.1 Olá Ravelli, --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , "Ricardo Ravelli" escreveu > > Oi Silvio, boa tarde. > > Eu fiz alguns testes aqui e percebi que o problema n o D2010 e o Zeos 7 está > no SQL escrito com passagem de parâmetros. Por exemplo: > > ZCTransporte.HostName := '127.0.0.1'; > ZCTransporte.Connected := True; > ZQUsuarioRO.Close; > ZQUsuarioRO.SQL.Clear; > ZQUsuarioRO.SQL.Text := ('SELECT * FROM cadusuario ' + > 'WHERE login = :pLogin AND senha = :pSenha AND exclusao IS NULL'); > ZQUsuarioRO.ParamByName('pLogin').Value := 'administrador'; > ZQUsuarioRO.ParamByName('pSenha').Value := 'exemplo'; > ZQUsuarioRO.Open; > Dessa maneira ele apresenta o seguinte erro: > "SQL Error: You have na error in your SQL syntax; check the manual that > corresponds to your MySQL server version form the rights syntax to use near > `AND senha = AND exclusao IS NULL' at line 1" > > Se eu não utilizar parametros funciona normalmente, conforme ex abaixo: > > ZCTransporte.HostName := '127.0.0.1'; > > ZCTransporte.Connected := True; > > ZQUsuarioRO.Close; > > ZQUsuarioRO.SQL.Clear; > > ZQUsuarioRO.SQL.Text := ('SELECT * FROM cadusuario WHERE login = > "administrador"'); > > ZQUsuarioRO.Open; Estranho... Eu fiz um teste aqui com o Lazarus (quando dá pau no Zeos+Delphi, tb dá no Zeos+Lazarus) e passou, saca a imagem: [http://imagebin.org/79479]; Mas eu uso uma cópia (no Lazarus) com todas as Units convertidas para UTF-8, quando uso no Delphi7 uso outra cópia, com todos os arquivos em CP1252 (não sei no D2010, acredito que seja tudo em UTF-8 também). Também te mostro como criei a tabela... Eu passei o Zeos 7 aqui numa ferramenta do Lazarus e vi que ainda tem Unit em UTF-8 e ISO-8859-1 (misturadas); Um dia desses falei com o Mark que quando misturamos UTF com CP e com ISO, aqui no Brasil (e Espanha) dá pau no Zeos! Acentuação gráfica pira e números decimais são multiplicados :) Saca a estrutura e dados da tabela de teste aqui - [http://pastebin.com/m15b44aa7]; > O mais estranho é que esse código com parâmetros eu extrai de um sistema meu > no Delphi 7, MySQL e Zeos (6.6.6) e funciona perfeitamente, somente no D2010 > com MySQL (mesma versão 5.1) e Zeos 7, apresenta esse problema. Você sabe > se houve alguma alteração no D2010 nesse quisito? Não vi, pelo menos no changelog. > Tem alguma outra maneira de reescrever esse código que ele funcione no > D2010? Hum... Estou sem o D2010 aqui, mas veja as dicas acima e a dos outros colegas, qualquer coisa postamos no fórum do Zeos. > Obrigado. > > Abraço. > > Att. > > Ricardo Ravelli. ps. Demorei fazendo testes aqui e nada, qualquer coisa envia algo (um exemplo simples) aí, é capaz de dar erro no D7 aqui. -- Silvio Clecio -- Contato - silvioprog@ Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- "Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto e a experiência. Blaise Pascal. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Zeos 7 e MySQL 5.1
Oi Silvio, boa tarde. Eu fiz alguns testes aqui e percebi que o problema n o D2010 e o Zeos 7 está no SQL escrito com passagem de parâmetros. Por exemplo: ZCTransporte.HostName := '127.0.0.1'; ZCTransporte.Connected := True; ZQUsuarioRO.Close; ZQUsuarioRO.SQL.Clear; ZQUsuarioRO.SQL.Text := ('SELECT * FROM cadusuario ' + 'WHERE login = :pLogin AND senha = :pSenha AND exclusao IS NULL'); ZQUsuarioRO.ParamByName('pLogin').Value := 'administrador'; ZQUsuarioRO.ParamByName('pSenha').Value := 'exemplo'; ZQUsuarioRO.Open; Dessa maneira ele apresenta o seguinte erro: SQL Error: You have na error in your SQL syntax; check the manual that corresponds to your MySQL server version form the rights syntax to use near AND senha = AND exclusao IS NULL at line 1 Se eu não utilizar parametros funciona normalmente, conforme ex abaixo: ZCTransporte.HostName := '127.0.0.1'; ZCTransporte.Connected := True; ZQUsuarioRO.Close; ZQUsuarioRO.SQL.Clear; ZQUsuarioRO.SQL.Text := ('SELECT * FROM cadusuario WHERE login = "administrador"'); ZQUsuarioRO.Open; O mais estranho é que esse código com parâmetros eu extrai de um sistema meu no Delphi 7, MySQL e Zeos (6.6.6) e funciona perfeitamente, somente no D2010 com MySQL (mesma versão 5.1) e Zeos 7, apresenta esse problema. Você sabe se houve alguma alteração no D2010 nesse quisito? Tem alguma outra maneira de reescrever esse código que ele funcione no D2010? Obrigado. Abraço. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Silvio Clecio Enviada em: segunda-feira, 11 de janeiro de 2010 14:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Zeos 7 e MySQL 5.1 Olá Ravelli, 2010/1/11 Ricardo Ravelli mailto:ricardoravelli%40gmail.com> > > > > Oi Silvio, bom dia. > > Sobre as Dlls funcionaram corretamente, somente o código SQL deu problemas > com os componentes no Zeos 7. Eu testei o banco mysql 5.1 com o mesmo > código > no Delphi 7 e Zeos 6.6.6 e funcionou perfeitamente. > > Já existe alguma previsão da versão final do Zeos 7? Pois estou usando o > Delphi 2010 e a versão 6.6.6 não funciona. > > Ainda não. Entre em contato tb com a comunidade no fórum do Zeos [ http://zeos.firmos.at/index.php], reportando bugs fica mais fácil resolver nas cópias oficiais. Eu dou meus pulos lá com meu "ingrêis" robotizado. ;) Um coisa, eu tentei reproduzir o erro aqui (agora estou com meu D7 de volta) e não consegui, tentei tb no PostgreSQL, tb testei no Lazarus, e tanto no Linux/Windows/MySQL/PostgreSQL funcionou normal. Qualquer coisa envia em pequeno exemplo (via um 4shared...) pra gente mostrando como reproduzir o erro, agiliza e muito numa solução. > Obrigado pela ajuda. > > Abraços. > > > Att. > > Ricardo Ravelli. > -- Silvio Clecio [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] Re: Envio Email Delphi 2010 (indy 10) e gmail
Oi Silvio, Esse framework já tem para o D2010? Qual o caminho do SVN? Obrigado. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de silvioprog Enviada em: segunda-feira, 11 de janeiro de 2010 15:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Envio Email Delphi 2010 (indy 10) e gmail Olá Ricardo, O Synapse não é um componente, é um framework completíssimo para trabalhar com network communication (pegue uma cópia do SVN); veja a implementação do envio de email do ACBrNFePCN (ou o demo no site do Synapse). Qualquer dúvida é só falar. (depois que conheci o Synapse, adeus Indy! :P ). --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , Ricardo Ravelli escreveu > > Marcio, > > Esse componente é free? Onde eu posso fazer o download dele? Você tem algum > exemplo de utilização dele com uma conta no gmail? > > Obrigado. > > Att. > Ricardo Ravelli. -- Silvio Clécio -- http://silvioprog.blogspot.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio Email Delphi 2010 (indy 10) e gmail
Marcio, Esse componente é free? Onde eu posso fazer o download dele? Você tem algum exemplo de utilização dele com uma conta no gmail? Obrigado. Att. Ricardo Ravelli. 2010/1/11 Marcio Luis > > > tive muitos problemas com o Indy 9 o Indy 10 , mudei > para o Synapse .. otimo pratico > > att. Marcio > > > At 16:18 10/1/2010 -0300, you wrote: > > > > > >Boa tarde, > > > >Eu preciso de uma ajuda de vocês sobre envio de emails usando o Delphi > 2010 > >que usa o Indy 10 e uma conta no Gmail. > > > >Eu tinha desenvolvido do Delphi 7 (Indy 9) e gmail e funcionava > >perfeitamente, porém, com a mudança de versão do Indy, agora apresenta > >vários erros de programação. > > > >var > > > >newText: TIdText; > > > >with IdSMTP1 do > > > >begin > > > >AuthenticationType := atLogin; > > > >Host := 'smtp.gmail.com'; > > > >IOHandler := IdSSLIOHandlerSocket1; > > > >Password := 'exemplo'; > > > >Port := 465; > > > >Username := 'exemplo @gmail.com'; //não esqueça o @gmail.com!! > > > >end; > > > >IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2; > > > >IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient; > > > >newText := TIdText.Create(IdMessage1.MessageParts, nil); > > > >newText.ContentType := 'text/html'; > > > >newText.Body.Add(''); > > > >newText.Body.Add('Abertura de novo chamado > >para informática!'); > > > >newText.Body.Add(''); > > > >Os problemas que apresentaram foram os seguintes: > > > >- o componente IdSSLIOHandlerSocket não foi encontrado. As DLLs já fiz o > >download e estão na pasta System32 > > > >- O componente IdSMTP não reconhece o comando AuthenticationType := > atLogin > > > >- O Delphi não reconhece o tipo de variável TIdText. > > > >Por favor, alguém sabe como eu posso alterar esse código para que ele > >funcione com o Indy 10? Estou migrando um sistema que desenvolvi no Delphi > >7. > > > >Eu utilizo o Windows 7 (x64) e Delphi 2010. > > > >Obrigado. > > > >Att. > > > >Ricardo Ravelli. > > > >[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]
RES: [delphi-br] Re: Zeos 7 e MySQL 5.1
Oi Silvio, bom dia. Sobre as Dlls funcionaram corretamente, somente o código SQL deu problemas com os componentes no Zeos 7. Eu testei o banco mysql 5.1 com o mesmo código no Delphi 7 e Zeos 6.6.6 e funcionou perfeitamente. Já existe alguma previsão da versão final do Zeos 7? Pois estou usando o Delphi 2010 e a versão 6.6.6 não funciona. Obrigado pela ajuda. Abraços. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de silvioprog Enviada em: segunda-feira, 11 de janeiro de 2010 00:38 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Zeos 7 e MySQL 5.1 Olá Ravelli, --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , "Ricardo Ravelli" escreveu > Bom dia, > > Eu estou com o seguinte problema, eu instalei o Zeos 7 no Delphi 2010 e o > MySQL 5.1, porém dentro do Zeos quando eu vou fazer a conexão ele não tem a > opção mysq51, somente as opções mydql5 e mysqld5. Minha pergunta, qual delas > eu devo utilizar? mydql5. Mesmo estando somente com o 5, é totalmente compatível com 5.1. > Outra dúvida, onde eu faço o download da DLL do MySQL 5.1? Copie a DLL do diretório do MySQL e coloque junto com o .exe se seu aplicativo, se a DLL não tiver no dir. do My, pegue no SVN do Zeos, aquela DLL é a do MySQL 5.1. > No Windows XP eu > utilizava as DLLs na pasta System32, no Windows 7 ficaria no mesmo local? É melhor junto com o .exe do aplicativo, recomendação da própria M$, mas se não quiser usar dessa maneira, joga em system32 (como adm) mesmo. ;) > Obrigado. > > Atenciosamente, > > Ricardo Ravelli. Falows ;) -- Silvio Clecio -- Contato - silvioprog@ Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- "Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto e a experiência. Blaise Pascal. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Zeos 7 e MySQL 5.1
Oi Walter, bom dia. Realmente eu já percebi esses problemas. É que estou tentando migrar alguns sistemas que fiz do Delphi 7 para Delphi 2010 e o Zeos só funciona a versão 7. Obrigado. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: segunda-feira, 11 de janeiro de 2010 07:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Zeos 7 e MySQL 5.1 A versão 7 ainda está em testes. Não aconselho usá-la em ambiente de produção para não ter seus projetos se comportando de maneira imprevisivel []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br <mailto:wchagasj%40bol.com.br> http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com> SKYPE: WalterChagasJr - Original Message - From: Ricardo Ravelli To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Sent: Monday, January 11, 2010 2:27 AM Subject: [delphi-br] Zeos 7 e MySQL 5.1 Bom dia, Eu estou com o seguinte problema, eu instalei o Zeos 7 no Delphi 2010 e o MySQL 5.1, porém dentro do Zeos quando eu vou fazer a conexão ele não tem a opção mysq51, somente as opções mydql5 e mysqld5. Minha pergunta, qual delas eu devo utilizar? Outra dúvida, onde eu faço o download da DLL do MySQL 5.1? No Windows XP eu utilizava as DLLs na pasta System32, no Windows 7 ficaria no mesmo local? Obrigado. Atenciosamente, Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Zeos 7 e MySQL 5.1
Bom dia, Eu estou com o seguinte problema, eu instalei o Zeos 7 no Delphi 2010 e o MySQL 5.1, porém dentro do Zeos quando eu vou fazer a conexão ele não tem a opção mysq51, somente as opções mydql5 e mysqld5. Minha pergunta, qual delas eu devo utilizar? Outra dúvida, onde eu faço o download da DLL do MySQL 5.1? No Windows XP eu utilizava as DLLs na pasta System32, no Windows 7 ficaria no mesmo local? Obrigado. Atenciosamente, Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Envio Email Delphi 2010 (indy 10) e gmail
Boa tarde, Eu preciso de uma ajuda de vocês sobre envio de emails usando o Delphi 2010 que usa o Indy 10 e uma conta no Gmail. Eu tinha desenvolvido do Delphi 7 (Indy 9) e gmail e funcionava perfeitamente, porém, com a mudança de versão do Indy, agora apresenta vários erros de programação. var newText: TIdText; with IdSMTP1 do begin AuthenticationType := atLogin; Host := 'smtp.gmail.com'; IOHandler := IdSSLIOHandlerSocket1; Password := 'exemplo'; Port := 465; Username := 'exemplo @gmail.com'; //não esqueça o @gmail.com!! end; IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2; IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient; newText := TIdText.Create(IdMessage1.MessageParts, nil); newText.ContentType := 'text/html'; newText.Body.Add(''); newText.Body.Add('Abertura de novo chamado para informática!'); newText.Body.Add(''); Os problemas que apresentaram foram os seguintes: - o componente IdSSLIOHandlerSocket não foi encontrado. As DLLs já fiz o download e estão na pasta System32 - O componente IdSMTP não reconhece o comando AuthenticationType := atLogin - O Delphi não reconhece o tipo de variável TIdText. Por favor, alguém sabe como eu posso alterar esse código para que ele funcione com o Indy 10? Estou migrando um sistema que desenvolvi no Delphi 7. Eu utilizo o Windows 7 (x64) e Delphi 2010. Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos 6.6.6 e 7
Silvio, bom dia. > Eu descobri agora na internet o que estava dando erro na instalação do > Zeos. Eu fiz o procedimento do site e funcionou certinho. > > Segue o link aonde encontrei as informações. http://vejebem.com/?p=2781 > > Depois se você quiser que eu teste o instalador é só avisar. > > Muito obrigado pelo suporte. > > Abraços. > > Att. > > Ricardo Ravelli.
Re: RES: RES: [delphi-br] Zeos 6.6.6 e 7
Oi Silvio, boa tarde. Eu tenho acesso administrativo no Windows, inclusive no windows 7 ele tem uma proteção de gravação no diretório *arquivos de programas*, mas eu já liberei acesso total na pasta, sendo assim não teria problema na gravação desses arquivos. Eu encontrei esses arquivos que vc encontrou no seguinte diretório: *C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\Components\ZEOSDBO-7.0.0-alpha\packages\delphi14\build* Mesmo com essas alterações nos diretórios, ele não encontra aquele arquivo, mas esse arquivo existe e está no diretório citado acima. Por favor, você tem aquele instalador do Zeos para o Delphi 2010 também? O da versão do Delphi 7 funcionou perfeitamente. Muito obrigado pelo suporte. Abraços. Att. Ricardo Ravelli. 2010/1/2 silvioprog > > > Olá Ricardo, > > --- Em delphi-br@yahoogrupos.com.br , > "Ricardo Ravelli" escreveu > > Oi Silvio, boa tarde. > > > > Eu tentei fazer o procedimento que passou, porém apresenta o mesmo erro. > > Pode ser algum problema com o sistema operacional que estou utilizando? > > Uma coisa... teu usuário tem permissão total apara a instalação do Zeos? > Note que serão gerados .duc, .dcp e .bpl, eu não sei como funciona as > permissões no Seven, veja se pode ser isso. > > > O executável do Zeos para Delphi 7 eu vou testar, estou instalando a > versão > > do Delphi 7 em uma máquina virtual. Se apresentar algum problema, eu te > > aviso. > > > > Obrigado pela ajuda. > > > > Abraços. > > > > Att. > > > > Ricardo Ravelli. > > -- > Silvio Clecio > -- > Contato - silvioprog@ > Blog estilo mural - silvioclecio.blogspot.com > Twitter - twitter.com/silvioprog > -- > programmer ObjectPascal - silvioprog.blogspot.com > -- > "Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto > e a experiência. Blaise Pascal. > > > [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Zeos 6.6.6 e 7
Oi Silvio, boa tarde. Eu tentei fazer o procedimento que passou, porém apresenta o mesmo erro. Pode ser algum problema com o sistema operacional que estou utilizando? O executável do Zeos para Delphi 7 eu vou testar, estou instalando a versão do Delphi 7 em uma máquina virtual. Se apresentar algum problema, eu te aviso. Obrigado pela ajuda. Abraços. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de silvioprog Enviada em: sexta-feira, 1 de janeiro de 2010 22:48 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Zeos 6.6.6 e 7 Olá Ricardo, --- Em delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> , "Ricardo Ravelli" escreveu > Boa tarde, > > Só uma dúvida. O versão 7 do Zeos funciona no Delphi 2010? Se sim, qual o > processo para instalação? Sim. Use o arquivo ">packages>delphi14>ZComponentDesign.dproj", mas não esqueça de adicionar os paths da pastas dos fontes. Caso tenha dúvidas, torne a entrar em contato. Eu fiz um setup de instalação para Zeos, testei no Delphi7; preciso testar em todas as versões do Delphi e do CBuilder, mas só farei se o pessoal se interessar. Caso o pessoal se interesse, tb posso tentar ver com o Mark sobre subir o setup para o SourceForge e para a seção de downloads do fórum do Zeos. Quem quiser testar o setup (única cópia que testei, D7): [http://bit.ly/5xPsej]; Como você tem o D2010, podemos desenvolver uma cópia para D2010 para testar. > Eu tentei realizar a instalação, mas porém ele apresenta um erro que diz que > está faltando o arquivo ZCore140.bpl. Por favor, alguém pode me ajudar com > essa instalação. > > Delphi 2010, Windows 7 (x64) > > Obrigado. > > Feliz 2010 a todos!! > > Abraços. > > Att. > > Ricardo Ravelli. -- Silvio Clecio -- Contato - silvioprog@ Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- "Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto e a experiência. Blaise Pascal. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Zeos 6.6.6 e 7
Boa tarde, Só uma dúvida. O versão 7 do Zeos funciona no Delphi 2010? Se sim, qual o processo para instalação? Eu tentei realizar a instalação, mas porém ele apresenta um erro que diz que está faltando o arquivo ZCore140.bpl. Por favor, alguém pode me ajudar com essa instalação. Delphi 2010, Windows 7 (x64) Obrigado. Feliz 2010 a todos!! Abraços. Att. Ricardo Ravelli. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de silvioprog Enviada em: quinta-feira, 31 de dezembro de 2009 16:26 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Zeos 6.6.6 e 7 Olá, Inicie o ano novo com uma nova versão do Zeos, finalmente saiu a versão 6.6.6 e a 7, confira no link abaixo: http://sourceforge.net/projects/zeoslib/files/ Boa sorte, e um grande 2010! -- Silvio Clecio -- Contato - silvioprog@ Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- "Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto e a experiência. Blaise Pascal. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Desenvolver software 64 bits com Delphi
Pessoal, boa tarde. Com o aumento do uso de sistema operacionais 64 bits (x64), acredito que os sistemas também futuramente começarão a migrar para x64. O que eu quero saber é o seguinte: Como eu faço para desenvolver aplicativos x64 em Delphi? O que eu preciso? Ex: Sistema operacional, Delphi, Framework?? A idéia é começar a migrar alguns sistemas que tenho para essa plataforma. Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DelForEx para Delphi 2009
Boa noite, Alguém sabe onde posso encontrar a versão do DelForEx para o Delphi 2009?. Até agora só encontrei com o Idioma Chines. Agradesço desde já. Obrigado. Att. Ricardo Ravelli [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Delphi 2009 e Zeos
Boa noite, Por favor, alguém sabe como eu faço pra instalar o Zeos 7 no delphi 2009? Eu já fiz a instalação algumas vezes no delphi 7 das versões antigas do Zeos 6xx. Muito abrigado desde já. _ De: Ricardo Ravelli [mailto:ricardorave...@gmail.com] Enviada em: quarta-feira, 22 de julho de 2009 21:24 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Delphi 2009 e Zeos Boa noite, Muito obrigado pela ajuda. Abraços. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Silvio Clecio Enviada em: quarta-feira, 22 de julho de 2009 13:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Delphi 2009 e Zeos Em 21/7/2009 23:55, Ricardo Ravelli escreveu: > Só uma dúvida. Qual o link para download da nova versão? Olá Ricardo, A versão 7 por enquanto só esta disponível no repositório [svn://zeos.firmos. at/zeos/trunk], pra fazer o download dela você terá que usar um client svn (têm muitos, os que indico são TortoiseSVN [para Windows] e RapidSVN [para Linux]). Fiz um update agora (22/07/2009 - 13:25h) na minha cópia svn, exportei e disponibilizei temporariamente aqui: [http://silvioprog. <http://silvioprog.4shared.com/> 4shared.com/]. @Caso tenha interesse em saber sobre svn, no link [http://sites. <http://sites.google.com/site/silvioprogbs/documentos/> google.com/site/silvioprogbs/documentos/] tem dois arquivos: "SVN-Basico.pdf" e "SVN-Avancado.pdf".@ -- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail. <mailto:silvioprog%40gmail.com> com E-mail, Y! Messenger: silviop...@yahoo. <mailto:silvioprog%40yahoo.com.br> com.br BlogSite: http://silvioprog. <http://silvioprog.blogspot.com/> blogspot.com/ BlogSpot: http://silvioclecio <http://silvioclecio.blogspot.com/> .blogspot.com/ VirtualDriver: http://silvioprog. <http://silvioprog.4shared.com/> 4shared.com/ °oO| Seja livre, use Linux! |Oo° [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Delphi 2009 e Zeos
Boa noite, Muito obrigado pela ajuda. Abraços. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Silvio Clecio Enviada em: quarta-feira, 22 de julho de 2009 13:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Delphi 2009 e Zeos Em 21/7/2009 23:55, Ricardo Ravelli escreveu: > Só uma dúvida. Qual o link para download da nova versão? Olá Ricardo, A versão 7 por enquanto só esta disponível no repositório [svn://zeos.firmos. at/zeos/trunk], pra fazer o download dela você terá que usar um client svn (têm muitos, os que indico são TortoiseSVN [para Windows] e RapidSVN [para Linux]). Fiz um update agora (22/07/2009 - 13:25h) na minha cópia svn, exportei e disponibilizei temporariamente aqui: [http://silvioprog. <http://silvioprog.4shared.com/> 4shared.com/]. @Caso tenha interesse em saber sobre svn, no link [http://sites. <http://sites.google.com/site/silvioprogbs/documentos/> google.com/site/silvioprogbs/documentos/] tem dois arquivos: "SVN-Basico.pdf" e "SVN-Avancado.pdf".@ -- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail. <mailto:silvioprog%40gmail.com> com E-mail, Y! Messenger: silviop...@yahoo. <mailto:silvioprog%40yahoo.com.br> com.br BlogSite: http://silvioprog. <http://silvioprog.blogspot.com/> blogspot.com/ BlogSpot: http://silvioclecio <http://silvioclecio.blogspot.com/> .blogspot.com/ VirtualDriver: http://silvioprog. <http://silvioprog.4shared.com/> 4shared.com/ °oO| Seja livre, use Linux! |Oo° [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi 2009 e Zeos
Boa noite Silvio, Só uma dúvida. Qual o link para download da nova versão? Eu entro na página e só encontrei a versão 6.65. Obrigado., Ricardo Ravelli. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Silvio Clecio Enviada em: terça-feira, 21 de julho de 2009 23:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 2009 e Zeos Em 21/7/2009 23:22, Ricardo Ravelli escreveu: > A versão do Zeos para o Delphi 2009 ainda não foi lançada. Correto? Você esta usando qual versão? Visite o fórum [http://zeos. <http://zeos.firmos.at/portal.php> firmos.at/portal.php], já tem muita coisa pronta pro D2009. Aqui na cópia svn já tem o "delphi12"; estou testando tudo que uso na versão 6.6.5 e vai bem, baixe a versão 7 e faça alguns testes, o que der erro (se der) você posta lá no fórum. O desenvolvimento do Zeos esta correndo, muitos contribuidores aparecendo, muita gente reportando bugs com respectivas soluções e por aí vai. -- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail. <mailto:silvioprog%40gmail.com> com E-mail, Y! Messenger: silviop...@yahoo. <mailto:silvioprog%40yahoo.com.br> com.br BlogSite: http://silvioprog. <http://silvioprog.blogspot.com/> blogspot.com/ BlogSpot: http://silvioclecio <http://silvioclecio.blogspot.com/> .blogspot.com/ VirtualDriver: http://silvioprog. <http://silvioprog.4shared.com/> 4shared.com/ °oO| Seja livre, use Linux! |Oo° [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2009 e Zeos
Boa noite, A versão do Zeos para o Delphi 2009 ainda não foi lançada. Correto? Existe alguma ferramenta free que seja tão boa quanto o Zeos e que funcione no Delphi 2009? Estou migrando alguns sistemas que estão no Delphi 7 e utilizo o Zeos. Muito obrigado desde já. Att. Ricardo Ravelli [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Consulta SQL - Access 2003 e Delphi
Boa noite, Preciso de uma ajuda. Tenho duas tabelas no access 2003 e preciso fazer uma consulta no qual ele traz os registros que não foram encontrados na Tabela2. Ex: Tabela 1 (aproximadamente 2000 registros) Tabela 2 (aproximadamente 80 registros) O campo em comum nas duas é a nota_fiscal (que tem registros duplicados na duas tabelas). Resumindo, preciso verificar quais dos 2000 registros da Tabela1 não está dentro da Tabela2 e retornar esse valor. Tenho um sistema em delphi que utiliza o access e preciso cruzar essas informações. Fiz alguns testes a não consegui nenhum resultado correto. Agradesço desde já. Obrigado. Att. Ricardo Ravelli [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Enviar emails usando o servidor BOL
Boa noite, Preciso de uma ajuda, estou tentando enviar emails usando o delphi 7 + indy 9 usando o servidor smtp do BOL, mas não estou conseguindo. Já consegui utilizando o gmail, yahoo, terra. Alguém tem algum exemplo ou pode me informar as configurações de porta, se usa comunicação SSL, etc. Já fiz algumas tentativas mas sempre ocorreram erros. Obrigado. Att. Ricardo Ravelli [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Instrução SQL
Boa noite, Na verdade, eu preciso criar dois campos (campo1, campo2), que por exemplo: o Campo1 quero somar todos dos valores do Campo VlTotal cujo o Campo Bloqueado seja igual a "SIM" e o Campo2 quero somar todos os valores do Campo VlTotal cujo o Campo Bloqueado seja igual a "não". Espero ter esclarecido. Obrigado. Ricardo Ravelli. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Enviada em: quarta-feira, 2 de julho de 2008 21:37 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Instrução SQL Boa noite! Sinceramente não entendi muito bem a sua dúvida, mas se for para mostrar os campos que contenha os valores "SIM" e "NÃO" é muito simples. select * from Tb_Exemplo where (Campo1 = "SIM")or (Campo1 = "NÃO"); Caso não seja esta a sua dúvida(e sinceramente, creio que não seja), peço para que você explique melhor para que assim possamos ajuda-lo. Fraterno abraço, Carlos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Instrução SQL
Boa noite, Preciso fazer uma instrução SQL que mostre um campo X com todos os registros igual a "SIM" e outro campo que mostre o campo X com todos os registros igual a "NÃO" na mesma instrução SQL. Ex: Select Campo1 From Tb_Exemplo Where Campo1 = "SIM" e Select Campo1 From Tb_Exemplo Where Campo1 = "NÃO" Só que preciso tudo na mesma instrução. Por favor, alguém pode me ajudar. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicação MDIChild.
Boa noite Thales. Muito obrigado, era realmente o que estava precisando para resolver meu problema. Valeu mesmo. Ricardo Ravelli. Em 22/01/08, Thales (Shubacca) - Tebo Software <[EMAIL PROTECTED]> escreveu: > > Na realidade, > você deve utilizar o formprincipal.MDIChildCount para saber a quantidades > de > janelas abertas, e dentro de uma estrutura de for, voce corre e utilizando > formprincipal.MDIChildren[i] voce vai testando a classe e fecha os q vc > quiser: > > procedure TForm1.Button1Click(Sender: TObject); > var > i :Integer; > begin > for i := 0 to Self.MDIChildCount -1 do > if Self.MDIChildren[i] is TForm2 then > Self.MDIChildren[i].Close; > end; > > espero ter ajudado > > falow > > -- > Thales Eduardo Barros de Oliveira > Desenvolvedor Delphi / Firebird > Emails: > [EMAIL PROTECTED] (GoogleTalk) > [EMAIL PROTECTED] (MSN) > Blog: > http://tebosoftware.blogspot.com/ > > "Tente ser uma pessoa de valor, não de sucesso" > Albert Einstein > > Em 21/01/08, Ricardo Ravelli <[EMAIL PROTECTED]> > escreveu: > > > > > Boa noite a todos, > > > > Tenho uma aplicação MDI que no evento onclose do form principal faço com > > que > > ele oculte e fique somente no icon tray. Mas o problema é quando tem > algum > > form MDIChild aberto, ao tentar fazer ocultar o sistema não oculta > > direito. > > > > No evento onclose do form principal: > > > > Action := caNone; > > FrmPrincipal.Hide; > > > > A minha dúvida é a seguinte: como eu faço pra verificar se tem qualquer > > form > > "filho" aberto no sistema e fechar esses forms filhos de f dentro do > form > > principal?? > > Já tentei usar IF( NomeForm <> NIL ) then só que mesmo que o form filho > > esteje aberto ele aparece sendo igual a NIL.. > > > > Por favor, se alguém puder me ajudar com esse problema, alguém que > > trabalha > > com aplicações MDI, é o meu primeiro sistema em formato MDI. > > > > Obrigado. > > Ricardo Ravelli. > > > > [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] Problemas com Indy
Boa noite, eu estou usando email particular do gmail para enviar os emails informativos da minha aplicação. A minha intenção não é mandar spams e sim que o usuário cadastrado no sistema receba o email informativo sem ver meu email particular, mas sim o email da empresa. Existe alguma possibilidade então de ocultar somente meu email particular sem colocar o da empresa no lugar?? Ou seja o usuário receber o email sem um remetente? Obrigado Ricardo Ravelli. Em 22/01/08, Apoio <[EMAIL PROTECTED]> escreveu: > > eu ja acho q vc nao consegue usar gmail pelo delphi > > nem gmail , hotmail, mns ,e outras desse tipo... > > - Original Message - > From: Ricardo Ravelli > To: delphi-br@yahoogrupos.com.br > Sent: Monday, January 21, 2008 7:44 PM > Subject: Re: [delphi-br] Problemas com Indy > > Boa noite, alterando a porta para 25 ele não funciona. > > Alguem sabe se o gmail não permite que você utilize um email > remetente diferente daquele usado para logar no servidor? > > Obrigado. > Ricardo Ravelli.. > > Em 21/01/08, Joao Morais <[EMAIL PROTECTED]> > escreveu: > > > > Ricardo Ravelli wrote: > > > Boa tarde a todos, > > > > > > Tenho um sistema que faz envios de emails. Estou usando um email do > > gmail, > > > só que eu queria que para o destinatário mostrasse outro email. Já > > tentei > > > usar os passar as seguintes informações no idMessage mas não obtive > > exito. > > > Estou utilizando Delphi 7 e o componente Indy versão 9.0.18. > > > > Ao invés de alterar o número da porta, deixe 25 (que é o padrão, então > > basta remover a linha). Também faltou informar o > > Message.Recipients.EmailAddress e conectar. E atente para o detalhe de > > que alguns servidores smtp não permitem que você utilize um email > > remetente diferente daquele usado para logar no servidor, não sei se é o > > caso do gmail. > > > > -- > > Joao Morais > > > > > Exemplo: > > > > > > with IdSMTP1 do > > > begin > > > AuthenticationType := atLogin; > > > Host := 'smtp.gmail.com'; > > > IOHandler := IdSSLIOHandlerSocket1; > > > Password := 'teste'; > > > Port := 465;1 > > > Username := '[EMAIL PROTECTED] > > > <%27exemplo%40gmail.com><%27exemplo%40gmail.com>'; > > > end; > > > > > > idMessage1.Clear; > > > idMessage1.From.Address := '[EMAIL > > > PROTECTED]<%27informatica%40exemplo.com.br> > <%27informatica%40exemplo.com.br> > > '; > > > idMessage1.From.Name := 'Apenas exemplo'; > > > > > > Obrigado. > > > Ricardo Ravelli. > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aplicação MDIChild.
Boa noite a todos, Tenho uma aplicação MDI que no evento onclose do form principal faço com que ele oculte e fique somente no icon tray. Mas o problema é quando tem algum form MDIChild aberto, ao tentar fazer ocultar o sistema não oculta direito. No evento onclose do form principal: Action := caNone; FrmPrincipal.Hide; A minha dúvida é a seguinte: como eu faço pra verificar se tem qualquer form "filho" aberto no sistema e fechar esses forms filhos de f dentro do form principal?? Já tentei usar IF( NomeForm <> NIL ) then só que mesmo que o form filho esteje aberto ele aparece sendo igual a NIL.. Por favor, se alguém puder me ajudar com esse problema, alguém que trabalha com aplicações MDI, é o meu primeiro sistema em formato MDI. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com Indy
Boa noite, alterando a porta para 25 ele não funciona. Alguem sabe se o gmail não permite que você utilize um email remetente diferente daquele usado para logar no servidor? Obrigado. Ricardo Ravelli.. Em 21/01/08, Joao Morais <[EMAIL PROTECTED]> escreveu: > > Ricardo Ravelli wrote: > > Boa tarde a todos, > > > > Tenho um sistema que faz envios de emails. Estou usando um email do > gmail, > > só que eu queria que para o destinatário mostrasse outro email. Já > tentei > > usar os passar as seguintes informações no idMessage mas não obtive > exito. > > Estou utilizando Delphi 7 e o componente Indy versão 9.0.18. > > Ao invés de alterar o número da porta, deixe 25 (que é o padrão, então > basta remover a linha). Também faltou informar o > Message.Recipients.EmailAddress e conectar. E atente para o detalhe de > que alguns servidores smtp não permitem que você utilize um email > remetente diferente daquele usado para logar no servidor, não sei se é o > caso do gmail. > > -- > Joao Morais > > > Exemplo: > > > > with IdSMTP1 do > > begin > > AuthenticationType := atLogin; > > Host := 'smtp.gmail.com'; > > IOHandler := IdSSLIOHandlerSocket1; > > Password := 'teste'; > > Port := 465;1 > > Username := '[EMAIL PROTECTED] <%27exemplo%40gmail.com>'; > > end; > > > > idMessage1.Clear; > > idMessage1.From.Address := '[EMAIL > > PROTECTED]<%27informatica%40exemplo.com.br> > '; > > idMessage1.From.Name := 'Apenas exemplo'; > > > > Obrigado. > > Ricardo Ravelli. > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com Indy
Boa tarde a todos, Tenho um sistema que faz envios de emails. Estou usando um email do gmail, só que eu queria que para o destinatário mostrasse outro email. Já tentei usar os passar as seguintes informações no idMessage mas não obtive exito. Estou utilizando Delphi 7 e o componente Indy versão 9.0.18. Se alguém puder me ajudar, agradeço desde já. Exemplo: with IdSMTP1 do begin AuthenticationType := atLogin; Host := 'smtp.gmail.com'; IOHandler := IdSSLIOHandlerSocket1; Password := 'teste'; Port := 465;1 Username := '[EMAIL PROTECTED]'; end; idMessage1.Clear; idMessage1.From.Address := '[EMAIL PROTECTED]'; idMessage1.From.Name := 'Apenas exemplo'; Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ProgressBar
Boa noite a todos, alguém sabe como eu posso fazer um progreesbar (real)?? Tenho uma função que atualizo a versão do meu projeto "copiando" a versão mais atual do servidor para o cliente. Queria que o progressbar mostrasse o tempo que demora para fazer essa atualização. Alguém sabe como eu posso fazer algo desse tipo?? Atualmente eu utilizo essa função, mas ela não mostra o tempo real da atualização. for I := ProgressBar1.Min to ProgressBar1.Max do begin ProgressBar1.Position := I; Sleep(50); end; ProgressBar1.Position := ProgressBar1.Min; Se alguem puder ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executável
Boa noite a todos, Obrigados a todos pelas dicas, funcionou do jeito que eu queria Muito Obrigado. Sds Ricardo Ravelli Em 11/01/08, NextCorp Informática <[EMAIL PROTECTED]> escreveu: > > Caro colega > > No formActivate do programa chamado, coloque o seguinte código: > > if ParamCount = 0 then > begin > ShowMessage('Este sistema não pode ser executado diretamente > !!!'); > Application.Terminate; > Close; > end > else > begin > sndksdksdksdkskdd > end > > Pois assim o programa que chama este aplicativo deve passar algum > parâmetro. > > Atenciosamente > > Washington André Muller da Silva > > ### > NextCorp Informática > www.nextcorp.com.br > [EMAIL PROTECTED] > 0-XX-(51)-3037-6605 > ### > - Original Message - > From: "Eduardo Silva dos Santos" <[EMAIL PROTECTED] > > > To: > > Sent: Thursday, January 10, 2008 10:54 PM > Subject: Re: [delphi-br] Executável > > faça o seguinte, no seu executável auxiliar cria uma forma que ele so > funcione se for passado um determinado parâmetro, exemplo /EXE, para saber > o > parametro passado para um exe faça o seguinte: ParamStr(1) , retorna o 1º > parâmetro passado. > > assim no OnCreate do Form Principal do seu exe vc pode fazer isso: > > if ParamStr(1) <> '/EXE' then > Application.Terminate; > > o seu segundo exe executa o auxiliar passando o parâmetro secreto. > > espero ter ajudado.. > > Em 10/01/08, Ricardo Ravelli <[EMAIL PROTECTED]> > escreveu: > > > > Boa noite a todos, > > > > Eu tenho dois executáveis, um principal e outro auxiliar, só que eu > queria > > o > > auxiliar fosse aberto somente pelo executável principal, não deixando > que > > o > > usuário abra esse usuário auxiliar diretamente. > > > > Existe alguma maneira de fazer isso?? > > > > Se alguém puder me ajudar, agradeço desde já. > > > > Obrigado. > > > > Ricardo Ravelli. > > > > [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] > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Links do Yahoo! Grupos > > E-mail classificado pelo Identificador de Spam Inteligente Terra. > Para alterar a categoria classificada, visite > > http://mail.terra.com.br/cgi-bin/imail.cgi?+_u=nextcorp&_l=1,1200012877.844000.14415.cadarga.hst.terra.com.br,5043,Des15,Des15 > > Esta mensagem foi verificada pelo E-mail Protegido Terra. > Scan engine: McAfee VirusScan / Atualizado em 10/01/2008 / Versão: > 5.1.00/5204 > Proteja o seu e-mail Terra: http://mail.terra.com.br/ > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.516 / Virus Database: 269.19.0/1216 - Release Date: 9/1/2008 > 10:16 > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Executável
Boa noite a todos, Eu tenho dois executáveis, um principal e outro auxiliar, só que eu queria o auxiliar fosse aberto somente pelo executável principal, não deixando que o usuário abra esse usuário auxiliar diretamente. Existe alguma maneira de fazer isso?? Se alguém puder me ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form MDI Child
Boa noite, usando o form como fsnormal funciona, eu já fiz o teste, a minha duvida foi se existia algum jeito de abrir um form MDIChild dentro de outro. Valeu pela ajuda.. Obrigado. Ricardo Ravelli. Em 08/01/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: > > > > Até onde me consta, um form MDI Child só pode ser aberto dentro de um form > do tipo fsMDIForm. Se quiser abrir um form dentro de um form MDI Child, > experimente testar o form que vc quer abrir como sendo do tipo fsNormal. Eu > acho que assim deve rolar! Só testando, meu caro, pra saber! > > Sds. > > > > To: delphi-br@yahoogrupos.com.br > From: [EMAIL PROTECTED] > Date: Tue, 8 Jan 2008 19:28:17 -0300 > Subject: [delphi-br] Form MDI Child > > > Boa noite a todos. > Algúem sabe como eu faço para abrir de um form MDI Child dentro de um > outro > form MDI Child? > > Se alguém puder me ajudar, agradeço desde já. > > Obrigado. > Ricardo Ravelli. > > [As partes desta mensagem que não continham texto foram removidas] > > __ > Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live > Search Maps! > http://www.livemaps.com.br/index.aspx?tr=true > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Form MDI Child
Boa noite a todos. Algúem sabe como eu faço para abrir de um form MDI Child dentro de um outro form MDI Child? Se alguém puder me ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criptografia no MySQL 5
Bom dia, eu fiz uma pequena rotina para encriptar e desencriptar senhas, conforme um exemplo que encontrei na internet.. Funcionou. Muito obrigado a todos pela ajuda. Ricardo Ravelli Em 05/01/08, berdam <[EMAIL PROTECTED]> escreveu: > > faz o seguinte > para gravar a senha vc encripta ela e grava, depois para ler vc > desencripta e testa com o campo da tabela. > > Ricardo Ravelli escreveu: > > > > > Boa noite a todos, estou com o seguinte problema, tenho um cadastro de > > usuários no qual eles tem um login e uma senha pra entrar no sistema, > > gostaria de saber como eu faço essa criptografia (somente do campo > > senha) já > > no cadastro do usuário e quando o usuário entrar na tela de login eu > > conseguir comparar a senha normal, com a senha criptografada. > > Achei alguns exemplos na internet, mas sempre deu vários erros, talvez a > > sintaxe que utilizei esteja incorreta. > > Segue abaixo o SQL que utilizo para cadastrar meus usuários. > > > > INSERT INTO > > > usuarios(codigo,nome,login,senha,email,administrador,usu_executante,ativo) > > ' + > > > > > 'VALUES(:pCodigo,:pNome,:pLogin,:pSenha,:pEmail,:pAdministrador,:pUsu_Executante,:pAtivo) > > > > Utilizo MySQL 5.0 e Delphi 7. > > > > Se alguém puder me ajudar, agradeço desde já. > > > > Obrigado. > > Ricardo Ravelli. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > -- > - > Uberdam Cavaletti > Formado em Tecnologia da informação - Unoesc - Xxe > Pós graduando em Desenvolvimento Java - Unoesc - Xxe > > Acesse http://www.curricular.com.br/berdam > Acesse http://passandoveneno.blogspot.com > > - > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criptografia no MySQL 5
Boa noite a todos, estou com o seguinte problema, tenho um cadastro de usuários no qual eles tem um login e uma senha pra entrar no sistema, gostaria de saber como eu faço essa criptografia (somente do campo senha) já no cadastro do usuário e quando o usuário entrar na tela de login eu conseguir comparar a senha normal, com a senha criptografada. Achei alguns exemplos na internet, mas sempre deu vários erros, talvez a sintaxe que utilizei esteja incorreta. Segue abaixo o SQL que utilizo para cadastrar meus usuários. INSERT INTO usuarios(codigo,nome,login,senha,email,administrador,usu_executante,ativo) ' + 'VALUES(:pCodigo,:pNome,:pLogin,:pSenha,:pEmail,:pAdministrador,:pUsu_Executante,:pAtivo) Utilizo MySQL 5.0 e Delphi 7. Se alguém puder me ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Corpo de email em negrito
Boa tarde, eu atualizei a versão do Indy para a 9 e deu certo. Obrigado a todos pela ajuda. Ricardo Ravelli. Em 02/01/08, Edson Cabral <[EMAIL PROTECTED]> escreveu: > > > O código abaixo foi extraído do fórum devmedia, e trata do assunto. Não > testei, somente copiei/colei. > > // INÍCIO DO ARQUIVO > IdMessage1.ContentType:='text/html'; > > IdMessage1.Headers.Values['X-Library'] :=''; > > IdMessage1.From.Name:='[EMAIL PROTECTED] <%3D%27teste%40terra.com.br>'; > > IdMessage1.Recipients.EMailAddresses:='[EMAIL > PROTECTED]<%3D%27teste%40ig.com.br> > '; > > IdMessage1.Subject := 'Assunto'; > > IdMessage1.Body.Add('Texto da mensagem'); > > IdMessage1.Body.Add(''); > > IdMessage1.Body.Add('Clube do delphi.'); > > IdMessage1.Body.Add(''); > > IdMessage1.Body.Add(''); > > IdMessage1.Body.Add('Teste de Envio de Email HTML'); > > IdMessage1.Body.Add(''); > > // nome do seu servidor SMTP > > //IdPOP31.Host := 'pop3.poa.terra.com.br'; > > //IdPOP31.UserId:= '[EMAIL PROTECTED] <%27teste%40terra.com.br>'; > > //IdPOP31.Password := '123456'; > > //IdPOP31.Connect; > > IdSMTP1.Host := 'smtp.poa.terra.com.br'; > > // alguns servidores SMTP requerem login outros não > > IdSMTP1.AuthenticationType := atLogin; > > IdSMTP1.UserId:='[EMAIL PROTECTED] <%3D%27teste%40terra.com.br>'; > > //IdSMTP1.Username:= > > IdSMTP1.Password := '205431'; > > // conecta com o servidor > > IdSMTP1.Connect; > > TIdAttachment.Create(IdMessage1.MessageParts, > TFileName('c:\setupxlg.txt')); > > try > > IdSMTP1.Send(IdMessage1); > > finally > > IdSMTP1.Disconnect; > > //IdPOP31.Disconnect; > > end; > // FINAL DO CÓDIGO > > > - Mensagem original > De: Rubem Nascimento da Rocha <[EMAIL PROTECTED] > > > Para: delphi-br@yahoogrupos.com.br > Enviadas: Quarta-feira, 2 de Janeiro de 2008 19:09:29 > Assunto: RE: [delphi-br] Corpo de email em negrito > > Com texto normal, impossível. Agora, se vc configurar o texto do corpo do > e-mail como HTML, aí pode. Procura na internet (Google, AltaVista, etc.) que > tu vais encontrar dica pra mandar e-mail em formato HTML. Em texto normal, > meu caro, não existe isso de por texto em negrito. > > Sds. > > _ _ __ > > To: [EMAIL PROTECTED] os.com.br > > From: ricardoravelli@ gmail.com > > Date: Wed, 2 Jan 2008 19:07:27 -0300 > > Subject: [delphi-br] Corpo de email em negrito > > Boa noite a todos, alguem sabe como posso fazer parte do corpo do texto > > ficar em negrito? Eu uso Delphi 7. > > Estou utilizando essa código abaixo... (exemplo). > > with IdMessage1 do > > begin > > Body.Add('teste' ); > > Body.Add('') ; > > Body.Add('O serviço de número:') > > Body.Add('') ; > > Body.Add('Detalhes do pedido:'); > > Body.Add('') ; > > Body.Add('teste' '); > > Body.Add('teste' '); > > Body.Add('') ; > > Body.Add('teste' '); > > Body.Add('teste' '); > > end; > > Agradeço desde já. > > Obrigado. > > Ricardo Ravelli. > > [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 > > > > > > > > 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] Corpo de email em negrito
Boa noite, eu tentei fazer conforme esse link abaixo, ele não dá erro, mas não envia nada para o email. Tentei mandar para o Gmail, hotmail e bol, mas para nenhum deles obtive sucesso. Eu encontrei algumas coisas, mas o mais próximo do que precisava estava nesse link mas não funcionou. Estou utilizando os componentes Indy do delphi 7. http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg35829.html Se alguém puder ajudar, pois nunca trabalhei com isso. Obrigado. Ricardo Ravelli Em 02/01/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: > > > > Com texto normal, impossível. Agora, se vc configurar o texto do corpo do > e-mail como HTML, aí pode. Procura na internet (Google, AltaVista, etc.) que > tu vais encontrar dica pra mandar e-mail em formato HTML. Em texto normal, > meu caro, não existe isso de por texto em negrito. > > Sds. > > > > To: delphi-br@yahoogrupos.com.br > From: [EMAIL PROTECTED] > Date: Wed, 2 Jan 2008 19:07:27 -0300 > Subject: [delphi-br] Corpo de email em negrito > > > Boa noite a todos, alguem sabe como posso fazer parte do corpo do texto > ficar em negrito? Eu uso Delphi 7. > Estou utilizando essa código abaixo... (exemplo). > > with IdMessage1 do > begin > Body.Add('teste'); > Body.Add(''); > Body.Add('O serviço de número:') > Body.Add(''); > Body.Add('Detalhes do pedido:'); > Body.Add(''); > Body.Add('teste''); > Body.Add('teste''); > Body.Add(''); > Body.Add('teste''); > Body.Add('teste''); > > end; > > Agradeço desde já. > > Obrigado. > Ricardo Ravelli. > > [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]
[delphi-br] Corpo de email em negrito
Boa noite a todos, alguem sabe como posso fazer parte do corpo do texto ficar em negrito? Eu uso Delphi 7. Estou utilizando essa código abaixo... (exemplo). with IdMessage1 do begin Body.Add('teste'); Body.Add(''); Body.Add('O serviço de número:') Body.Add(''); Body.Add('Detalhes do pedido:'); Body.Add(''); Body.Add('teste''); Body.Add('teste''); Body.Add(''); Body.Add('teste''); Body.Add('teste''); end; Agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] xpmanifest ?
No delphi 7 esse componente encontra-se na aba Win32. Ele já vem com o mesmo. Ricardo Ravelli. Em 30/12/07, Leone Oliveira <[EMAIL PROTECTED]> escreveu: > > > Alguém já viu esse omponente? > Me disseram q ele ja vem no delphi 7, porém temos q instalá-lo > manualmente.. > > Alguém sabe como faço pra instalar? > > vlw.. > > __ > Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live > Search Maps! > http://www.livemaps.com.br/index.aspx?tr=true > > [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] Index de um TListBox
Boa tarde. Era isso mesmo que precisava. Obrigado. Ricardo Ravelli. Em 29/12/07, Jiuney Pachevitch <[EMAIL PROTECTED]> escreveu: > > > Boa tarde! > > Ha duas forma simples:1 - ListBox1.DeleteSelected; > > 2 -ListBox1.Items.Delete(ListBox1.ItemIndex); > > To: [EMAIL PROTECTED] : > [EMAIL PROTECTED] : Sat, 29 Dec > 2007 13:20:12 -0300Subject: [delphi-br] Index de um TListBox > > Boa tarde a todos, por favor, gostaria de saber como eu faço para pegar > oindex de um item selecionado no listbox?Tenho um listbox com vários itens, > quando um usuário selecionar um item eder um clique em um botão, fará a > remoção dessa linha.Se alguém puder me ajudar, agradeço desde > já.Obrigado.Ricardo Ravelli.[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] > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Index de um TListBox
Boa tarde a todos, por favor, gostaria de saber como eu faço para pegar o index de um item selecionado no listbox? Tenho um listbox com vários itens, quando um usuário selecionar um item e der um clique em um botão, fará a remoção dessa linha. Se alguém puder me ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Colocar executavel no sys tray
Dá uma olhada nesse link: http://scriptbrasil.com.br/forum/lofiversion/index.php/t99428.html Abraços. Em 19/12/07, Rodrigo Bevilacqua Marcondes <[EMAIL PROTECTED]> escreveu: > > > http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=91 > > ou de uma olhada no google... SysTray Delphi > > Rodrigo (R)¿(R) > > - Mensagem original > De: Icaro Ferreira <[EMAIL PROTECTED] > > Para: delphi br > > > Enviadas: Quarta-feira, 19 de Dezembro de 2007 14:02:17 > Assunto: [delphi-br] Colocar executavel no sys tray > > Tenho um executavel, como q faz pra ele ir pro sys tray > > Obrigado > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço > para armazenamento! > http://br.mail.yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > Links do Yahoo! Grupos > > 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] Lembretes igual ao do MSN
Boa noite a todos. Consegui na internet um artigo mostrando uma maneira de fazer um popup parecido com o do Msn usando Form. Eu implementei algumas coisas pra mim, ficou legal... segue abaixo o código do popup. Se algúem se interessar aí vai. Obrigado a todos pelas informações passadas. ///**/// //criado dos forms, um com um botão e o outro do tamanho que vai ser a "janelinha" do popup. No Botão segue o código abaixo.// procedure TForm1.Button1Click(Sender: TObject); var I: Integer; fAlertaMsn: TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect: TRect; xTop: Integer; xIniTop: Integer; begin //localiza o Handle da janela iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o "retângulo" que envolve a barra e sua altura GetWindowRect(BarraIniciar, tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn := TfAlertaMsn.Create(Self); with fAlertaMsn do begin Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o top final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top := xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1; Show; Update; Application.ProcessMessages; Sleep(1); end; Sleep(2000); for I := xTop to xIniTop do begin Top := Top + 1; Show; Update; Application.ProcessMessages; Sleep(1); end; Close; FreeAndNil(fAlertaMsn); end; end; ///**/// Em 18/12/07, BandaLemuel <[EMAIL PROTECTED]> escreveu: > > O JEDI tem > > De: delphi-br@yahoogrupos.com.br [mailto: > delphi-br@yahoogrupos.com.br ] Em > nome de Walter Chagas Jr (Bol) > Enviada em: domingo, 16 de dezembro de 2007 22:34 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Lembretes igual ao do MSN > > Ricardo, > > Existir existe, mas aquele recurso é da API do Messenger. Para você fazer > algo, sem a necessidade de componente externo, você vai ter que > implementar > isto e não vai ser tarefa simples não. Vais ter que escrever o código que > interfaceie seu projeto com a API. Em outras palavras, codificação > massante.. > > []s > > Walter Alves Chagas Junior > Belo Horizonte - MG - Brazil > [EMAIL PROTECTED] wchagasj%40yahoo.com.br> > http://www.geocities.com/SiliconValley/Bay/1058 > MSN: [EMAIL PROTECTED] whitesockets%40hotmail.com> > SKYPE: WalterChagasJr > > - Original Message - > From: Ricardo Ravelli > To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br> > Sent: Sunday, December 16, 2007 12:34 PM > Subject: Re: [delphi-br] Lembretes igual ao do MSN > > Bom dia! > Obrigado pelo links dos componentes, mas não existe alguma maneira de > fazer > isso sem o uso de componentes externos? Eu queria alguma maneira > utilizando > o que já existe no delphi. > > Se alguém puder me ajudar, agradeço desde já. > > **utilizo Delphi 7** > > Obrigado. > > Ricardo Ravelli. > > Em 15/12/07, Jefferson - Fórum <[EMAIL PROTECTED] > <mailto:t_object%40yahoo.com.br> > escreveu: > > > > Amigão, é só pegar o arquivo no link abaixo e instalar o componente. > > http://fileurls.com/odwxib > > obs: o arquivo ficará disponível por apenas 3 dias. > > > > Boa sorte! > > > > Jefferson > > > > > > - Original Message - > > From: Ricardo Ravelli > > To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br> > > > Sent: Saturday, December 15, 2007 2:52 PM > > Subject: [delphi-br] Lembretes igual ao do MSN > > > > Boa tarde a todos, > > > > Alguém sabe como faz aquelas caixinhas(igual aparece quando entra algúem > > no > > msn), ou aqueles "pequenos baloes" que aparece no lado do relógio do > > windows(por exemplo, igual aquele que quando você acaba de instalar o > > windows XP, aparece para você dar um "tour" pelo windows). > > Se alguém puder me dizer também o nome correto do que foi citado acima. > > > > Agradeço desde já. > > > > Obrigado. > > > > Ricardo Ravelli. > > > > [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] > > __ Informação do NOD32 IMON 2725 (20071216) __ > > 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] > > [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] Lembretes igual ao do MSN
Bom dia! Obrigado pelo links dos componentes, mas não existe alguma maneira de fazer isso sem o uso de componentes externos? Eu queria alguma maneira utilizando o que já existe no delphi. Se alguém puder me ajudar, agradeço desde já. **utilizo Delphi 7** Obrigado. Ricardo Ravelli. Em 15/12/07, Jefferson - Fórum <[EMAIL PROTECTED]> escreveu: > > Amigão, é só pegar o arquivo no link abaixo e instalar o componente. > http://fileurls.com/odwxib > obs: o arquivo ficará disponível por apenas 3 dias. > > Boa sorte! > > Jefferson > > > - Original Message - > From: Ricardo Ravelli > To: delphi-br@yahoogrupos.com.br > Sent: Saturday, December 15, 2007 2:52 PM > Subject: [delphi-br] Lembretes igual ao do MSN > > Boa tarde a todos, > > Alguém sabe como faz aquelas caixinhas(igual aparece quando entra algúem > no > msn), ou aqueles "pequenos baloes" que aparece no lado do relógio do > windows(por exemplo, igual aquele que quando você acaba de instalar o > windows XP, aparece para você dar um "tour" pelo windows). > Se alguém puder me dizer também o nome correto do que foi citado acima. > > Agradeço desde já. > > Obrigado. > > Ricardo Ravelli. > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Lembretes igual ao do MSN
Boa tarde a todos, Alguém sabe como faz aquelas caixinhas(igual aparece quando entra algúem no msn), ou aqueles "pequenos baloes" que aparece no lado do relógio do windows(por exemplo, igual aquele que quando você acaba de instalar o windows XP, aparece para você dar um "tour" pelo windows). Se alguém puder me dizer também o nome correto do que foi citado acima. Agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trocar o ícone do sistema em execução
Valeu... Rubem... Muito Obrigado. Em 14/12/07, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: > > > Uma coisa é o ícone do formulário principal, e outra coisa é o ícone que > aparece para a aplicação quando minimizada. Experimente os códigos > modificados abaixo, usando um ImageList pra trocar o ícone da aplicação, e > não do formulário principal. > > procedure TForm1.Button1Click(Sender: TObject);begin Application.Icon := > nil; ImageList1.GetIcon(1, Application.Icon);end;procedure > TForm1.Button2Click(Sender: TObject);begin Application.Icon := nil; > ImageList1.GetIcon(0, Application.Icon);end; > > Sds. > > To: [EMAIL PROTECTED] : > [EMAIL PROTECTED] : Thu, 13 Dec > 2007 22:44:37 -0300Subject: Re: [delphi-br] Trocar o ícone do sistema em > execução > > Olá Ricardo,Se vc esta pensando em trocar o Icone do Formulário a dica é a > seguinte:Use um ImageList com 2 icones e trate a troca do mesmo da forma > abaixoprocedure TForm1.Button1Click(Sender: TObject);beginSelf.Icon := > nil;ImageList1.GetIcon(1,Self.Icon);end;procedure TForm1.Button2Click(Sender: > TObject);beginSelf.Icon := nil;ImageList1.GetIcon(0,Self.Icon);end;Espero > ter entendido, mas se quiser trocar na barra do relógio ou na barrade tarefa > o icone de sua aplicação ai eu terei que elabora um esqueminhamelhor pra > vc.[]sEm 13/12/07, Ricardo Ravelli <[EMAIL > PROTECTED]> > escreveu:>> Olá a todos, por favor, gostaria de saber como eu faço para > trocar o> ícone> do sistema em execução.?>> Por exemplo, quando o usuário > está logado, utilizaria um ícone, quando não> utilizaria outro.>> Agradeço > desde já.>> Obrigado.>> Ricardo Ravelli.>> [As partes desta mensagem que não > continham texto foram removidas]>> >-- Jorge Ericsson S. > PinheiroAnalista/Projetista de SistemasEricsson Sistemas e Soluçõ > eshttp://www.jericsson.com.br61 9227.4785 / 3965.2992 / 3039.1768Brasília- > DF[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/ > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
Re: Fw: Res: [delphi-br] Checkbox dentro de um Dbgrid
Boa noite a todos, Eu testei alguns modos que vcs me passaram, mas não deu certo, pelo menos não conseguir fazer do jeito que eu precisava. O meu objetivo é o seguinte: simplesmente puxar a lista de emails no banco de dados em um DbGrid e tentar colocar uma coluna ao lado no mesmo DbGrid, sem vínculo nenhum ao banco de dados, só serviria para verificar quais os emails que estivessem "checados" para enviar o email. Um dos exemplos que encontrei, que ficou próximo ao que eu queria utilizava o DbCheckBox e ele fazia a verificação no banco de dados. o que eu queria simplismente seria utilizar como um filtro para o envio dos emails, sem ter que usar um campo no banco de dados para isso. Se alguém puder me ajudar, agradeço desde já. Obrigado. Ricardo Ravelli. Em 14/12/07, Claudiney Cogo <[EMAIL PROTECTED]> escreveu: > > Boa tarde pra você também Davi... > > Vocês da lista são muito estressados... :):):).. gente.. hoje é > sexta-feira... > > Eu não tô fazendo tempestade.. mesmo porque não sou eu que preciso disso.. > já uso dbgrid com checkbox há anos.. só tentei ajudar o colega que pediu por > isso. > > E quando eu disse que não tempo tempo a perder, não é com a programação.. > e sim com RE-programação, entendeu? Numa linguagem que tem conceito RAD, > orientação a objetos e conceito de componentes se você tá reescrevendo > demais, pode parar pra ver o que tá errado, e rever seus conceitos de > programação. Porque reaproveitamente de código é primordial... tanto para > ganho de velocidade no desenvolvimento quanto para manutenção do sistema, > diminuindo em muito os erros. Eu não sou um expert total nesse assunto como > muitos amigos da lista, mas tento ao máximo utilizar esses conceitos e > aprender cada dia mais pra melhorar o meu trabalho. > > Ah!!... e se puderem no fim de semana, saiam um pouco da frente do > computador... de vez em quando a gente precisa relaxar um pouco pra diminuir > o stress. :D:D:D > > Brincadeira... mas fica a sugestão... aqui na lista as vezes acontecem > umas discussões a toa, por causa de nada, simplesmente por uma maneira um > pouco menos polida de tratar o amigo que tem dúvidas, ou, no nosso caso, > aquele que tenta ajudar quem tem. > > Abraço. > > _ > Claudiney Cogo > N2 Sistemas e Soluções em Informática > Av. São Paulo, 172 - 15º Andar - Sala 1505 > Maringá - Paraná > www.n2solutions.com.br > www.studion2.com.br > > - Original Message - > From: Davi Eduardo Borges Wall > To: delphi-br@yahoogrupos.com.br > Sent: Friday, December 14, 2007 3:17 PM > Subject: RES: Res: [delphi-br] Checkbox dentro de um Dbgrid > > Claudiney, acho que você está fazendo tempestade em um copo d'agua. > > Deve haver milhões de grid no mercado que fazem um simples checkbox no > grid. Provavelmente o GRID do Jedi (nunca usei) deve fazer isso e é > opensource. > Por que você não utiliza o componente ListView (como eu já disse > anteriormente) que possui checkbox e é muito bom de usar com uma interface > bem aprimorada. > > Agora se você é um analista de sistemas de não tem tempo pra perder com > programação, seja ela "braçal" ou não, contrate um programador. =) > > De: delphi-br@yahoogrupos.com.br [mailto: > delphi-br@yahoogrupos.com.br ] Em nome de > Claudiney Cogo > Enviada em: sexta-feira, 14 de dezembro de 2007 16:59 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: Res: [delphi-br] Checkbox dentro de um Dbgrid > > Boa tarde Rubem, desculpe-me se vou me expressar mal... > > Mas é braçal sim... e tudo que é braçal numa linguagem com conceito RAD é > chato sim. > É braçal porque o dbgrid nativo do delphi não implementa essa função. > Coisa que na teoria é muito simples de fazer, pra quem tem um pouco mais de > conhecimento na linguagem. Pra quem não tem, é complicado mesmo. Faça o > teste, criando isso manualmente nos dbgrid de seu sistema e faça o mesmo > sistema usando a dbgrid do infopower, por exemplo, que já tem essas funções > programadas. Depois me diz se não é chato ficar escrevendo um monte de > código quando você pode fazer isso apenas com um clique. Eu acho (minha > opinião simplesmente) que pelo tempo que existe a dbgrid, um dos principais > componentes da IDE, a própria Borland já deveria ter implementado isso. > Parece-me que agora existe um componente pra baixar no site da codegear, > como postou um outro colega. Aí sim. > > Quanto a gostar de programação, eu também adoro, tanto que vivo disso > desde 1985, desde o Basic, Cobol, DBase, Clipper, C, VB... de tudo já vi um > pouco. Mas minha vida de analista de sistemas sempre foi a fundo com COBOL e > agora há alguns anos com Delphi, linguagem que adoro e defendo com unhas e > dentes. Mas mesmo ado
[delphi-br] Checkbox dentro de um Dbgrid
Olá pessoal, estou com o seguinte problema: tenho uma lista de emails que trago do banco de dados dentro de um Dbgrid, existe alguma maneira de colocar em uma coluna do Dbgrid um checkbox para o usuário escolher para qual email deve ser enviado?? Se algúem souber como isso é feito, agradeço desde já. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro ao verificar campo Nulo do Banco de Dados.
Deu certo, obrigado a todos. Ricardo Ravelli. Em 03/12/07, Jaques Dix <[EMAIL PROTECTED]> escreveu: > > Você pode usar a property IS NULL do Field: > > if Not(datamodule.zQuery1.FieldByName('codigo').IsNull) then > > Ricardo Ravelli escreveu: > > > > > Boa tarde a todos, > > Estou com um problema, tenho um sistema que desenvolvi em delphi 5, > agora > > estou passando ele para delphi 7, quando faça um select e verifico se o > > campo estava nulo eu usava esse comando abaixo, que com o delphi 5 > > funcionava perfeitamente. > > > > if (datamodule.zQuery1.FieldByName('codigo').Value) <> Null then > > > > No delphi 7 a palavra Null ele fala que não está identificado. Alguém > sabe > > como posso resolver isso? Existe algum outro comando para resolver esse > > problema? > > > > Sistema Antigo: Delphi 5 Zeos 6.0.12, MySQL 3.23 > > > > Sistema Atual: Delphi 7 Zeos 6.1.5, MySQL 3.23 > > > > Obrigado > > > > Ricardo Ravelli. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro ao verificar campo Nulo do Banco de Dados.
Boa tarde a todos, Estou com um problema, tenho um sistema que desenvolvi em delphi 5, agora estou passando ele para delphi 7, quando faça um select e verifico se o campo estava nulo eu usava esse comando abaixo, que com o delphi 5 funcionava perfeitamente. if (datamodule.zQuery1.FieldByName('codigo').Value) <> Null then No delphi 7 a palavra Null ele fala que não está identificado. Alguém sabe como posso resolver isso? Existe algum outro comando para resolver esse problema? Sistema Antigo: Delphi 5 Zeos 6.0.12, MySQL 3.23 Sistema Atual: Delphi 7 Zeos 6.1.5, MySQL 3.23 Obrigado Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Selecionar pasta no Windows
Deu certo, era isso Mesmo que eu queria. Obrigado Ricardo Ravelli. Em 31/07/07, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu: > > Procure no help do Delphi a função SelectDirectory > > []'s > > De: delphi-br@yahoogrupos.com.br [mailto: > delphi-br@yahoogrupos.com.br ] Em nome de > Ricardo Ravelli > Enviada em: terça-feira, 31 de julho de 2007 13:36 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Selecionar pasta no Windows > > Obrigado pela ajuda, mas eu queria aquele que só seleciona a pasta, esse > seleciona o arquivo. > > Ricardo Ravelli > > Em 30/07/07, Alcistemas Informática <[EMAIL > PROTECTED] alcistemas% 40yahoo.com.br> > escreveu: > > > > No delphi 7 uso assim: > > > > inisira um buttom, > > um edit, > > e da Guia Dialog insira o componente opendialog > > > > no on click no buttom que vc adicionou inisira esse código: > > > > opendialog1.Execute; > > edit1.text := opendialog1.FileName; > > > > Espero que ajude. > > > > Abraço! > > > > > > - Original Message - > > From: Ricardo Ravelli > > To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br> > > Sent: Monday, July 30, 2007 8:12 PM > > Subject: [delphi-br] Selecionar pasta no Windows > > > > Boa Noite, > > > > Eu estou precisando em um programa que o usuário escolha uma pasta e > > queria > > usar a caixa de selecionar pasta do windows. > > Como eu faço no Delphi? > > > > Delphi 5, MySQL. > > > > Obrigado. > > Ricardo Ravelli. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > > > > No virus found in this incoming message. > > Checked by AVG Free Edition. > > Version: 7.5.476 / Virus Database: 269.10.23/924 - Release Date: > 28/7/2007 > > 15:50 > > > > [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] > > > [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Selecionar pasta no Windows
Obrigado pela ajuda, mas eu queria aquele que só seleciona a pasta, esse seleciona o arquivo. Ricardo Ravelli Em 30/07/07, Alcistemas Informática <[EMAIL PROTECTED]> escreveu: > > No delphi 7 uso assim: > > inisira um buttom, > um edit, > e da Guia Dialog insira o componente opendialog > > no on click no buttom que vc adicionou inisira esse código: > > opendialog1.Execute; > edit1.text := opendialog1.FileName; > > Espero que ajude. > > Abraço! > > > - Original Message - > From: Ricardo Ravelli > To: delphi-br@yahoogrupos.com.br > Sent: Monday, July 30, 2007 8:12 PM > Subject: [delphi-br] Selecionar pasta no Windows > > Boa Noite, > > Eu estou precisando em um programa que o usuário escolha uma pasta e > queria > usar a caixa de selecionar pasta do windows. > Como eu faço no Delphi? > > Delphi 5, MySQL. > > Obrigado. > Ricardo Ravelli. > > [As partes desta mensagem que não continham texto foram removidas] > > -- > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.476 / Virus Database: 269.10.23/924 - Release Date: 28/7/2007 > 15:50 > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Selecionar pasta no Windows
Boa Noite, Eu estou precisando em um programa que o usuário escolha uma pasta e queria usar a caixa de selecionar pasta do windows. Como eu faço no Delphi? Delphi 5, MySQL. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Subtrair Datas
Boa Tarde, Estou com seguinte problema, tenho uma data que pego direto do servidor e preciso pegar essa data e tirar quinze dias. Ex: 30/01/2007 para 15/01/2007. Alguem sabe como posso fazer isso?? Delphi 5, MySQL. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Crystal Reports 10 e Delphi 7
Como eu faço para usar os relatórios do Crystal Reports 10 no Delphi 7? Tenho que instalar algum componente no Delphi ? Obrigado. Ricardo Ravelli. [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Quick Report
Boa tarde, Eu tenho o seguinte problema, fiz um relátório usando a instrução SQL SUM(para fazer a soma do tatal de km(s) de um véiculo), quando eu visualizo o relatório, as informações ficam corretas, só que quando mando imprimir, no papel sai valores diferentes. Alguem sabe o que pode ser? Delphi 5. MySQL 3.23 Zeos Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Máscara em um maskEdit
O problema está nas letras LLL-, pq meus campos data uso td assim e nunca tive problema nenhum. ##/##/ Em 16/02/07, Humberto <[EMAIL PROTECTED]> escreveu: > > Se tiver com a máscara troca por v c funciona > - Original Message - > From: Ricardo Ravelli > To: delphi-br@yahoogrupos.com.br > Sent: Friday, February 16, 2007 10:45 AM > Subject: [delphi-br] Máscara em um maskEdit > > Bom dia a todos!!! > Tenho um maskEdit para a usuário digitar a placa do carro, LLL-, só > que > as vezes quando o usuário vai sair do campo dá um erro de Scape Key. > Alguem sabe alguma mascara diferente que não ocorra esse erro... > > Obrigado. > Abraços > > [As partes desta mensagem que não continham texto foram removidas] > > -- > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 > 17:40 > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Máscara em um maskEdit
Bom dia a todos!!! Tenho um maskEdit para a usuário digitar a placa do carro, LLL-, só que as vezes quando o usuário vai sair do campo dá um erro de Scape Key. Alguem sabe alguma mascara diferente que não ocorra esse erro... Obrigado. Abraços [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Somar dados de um campo de uma tabela
Boa tarde a todos... Tenho as seguintes instruções SQL em minha zQuery... SELECT despesasdecombustivel.placa, despesasdecombustivel.data, despesasdecombustivel.postodecombustivel,despesasdecombustivel.combustivel, despesasdecombustivel.litros, despesasdecombustivel.ltreservatorio, despesasdecombustivel.kmrodado, despesasdecombustivel.kmporlitros, veiculos.veiculo FROM (despesasdecombustivel LEFT JOIN veiculos ON despesasdecombustivel.placa = veiculos.placa) WHERE (despesasdecombustivel.data >= :pDataInicial AND despesasdecombustivel.data <= :pDataFinal AND despesasdecombustivel.placa = :pPlaca) ORDER BY despesasdecombustivel.data No meu relatório preciso somar todos os itens do campo " despesasdecombustivel.litros" e mostrar o valor total. Alguem poderia me ajudar com essa instrução. Eu uso Delphi 5, Zeos, My SQL, e o relatório com o Quick Report. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Contador Regressivo de Caracteres em um Memo
Bom dia a todos. Tenho um Label no qual eu queria mostrar qtos caracteres ainda falta para o usuário digitar dentro de um memo. Alguém tem alguma função que faça isso. obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tab pelo Enter
Tenho o seguinte problema. Uso esse código abaixo para trocar o Enter pelo Tab, ativando a propriedade KeyPreview do Form, isso funciona sem problemas, mas o meu problema é quando eu uso o componente Memo, pois se eu der um enter dentro dele vai para outro edit. Alguém tem alguma solução para resolver esse problema. Obrigado. Ricardo Ravelli. []s. procedure Tfrmmultas.FormKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin key := #0; perform(WM_NEXTDLGCTL, 0, 0); end; end; [As partes desta mensagem que não continham texto foram removidas]