[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi. (quase desistindo)
Grato pelas ajudas, Mas sempre que irei conectar com a tabela do excel exibe uma mensagem que diz que a tabela externa não tem o formato esperado, já estou quase desistindo com isto, não sei mais o que fazer... Agradeço. Márcio --- Em delphi-br@yahoogrupos.com.br, cezarmolinar [EMAIL PROTECTED] escreveu Olá Marcio! Você pode recuperar os dados utilizando os componentes ADO (ADOConnection e ADOQuery). Você conecta com a planilha e faz a recuperação através de um select. --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz marciomrck@ escreveu Olá pessoal do grupo. Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de excel para o delphi e manipulá-la, tenho como exportar para o delphi mais não sei como importar. Desde já grato. Márcio
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
OPA... AGRADEÇO A TODOS RÁPIDO A RESPOSTA E BEM OBJETIVA, VALEU MESMO. ABRAÇO A TODOS --- Em delphi-br@yahoogrupos.com.br, ajmsombra [EMAIL PROTECTED] escreveu --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz marciomrck@ escreveu Olá pessoal do grupo. Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de excel para o delphi e manipulá-la, tenho como exportar para o delphi mais não sei como importar. Desde já grato. Márcio procedure TForm1.Button1Click(Sender: TObject); var Excel : Variant; i:Integer; analise,texto:string; begin i:=4; Excel := CreateOleObject('Excel.Application'); Excel.Visible :=True; {Excel.Workbooks.Add;} Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls'); texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3]; while texto '' do begin analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13]; if analise 'Reprovado' then begin I:=I+1; texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3]; end else begin texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3]; table1.Insert; table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1]; table1.Post; i:=i+1 end; end; Excel.WorkBooks.close; end;
[delphi-br] Re: Resgatar valores de uma planilha de excel para o delphi.
Olá pessoal. configurei com a planilha em excel via ado, só que na hora de fazer a coneção ele dá uma mensagem que a tabela externa não está no formato esperado. Estou usando Excel 2003 + delphi 7. Alguem pode me ajudar nesta batalha estou precisando resgatar de uma planilha inscritos de um vestibular da facu que trabalho e presciso, mais até agora não consegui fazer esta conecção, sei como exportar dados mais não vejo meios de importar para o delphi, conseguindo isto irei armazenar em Firebird. Grato Márcio --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz [EMAIL PROTECTED] escreveu OPA... AGRADEÇO A TODOS RÁPIDO A RESPOSTA E BEM OBJETIVA, VALEU MESMO. ABRAÇO A TODOS --- Em delphi-br@yahoogrupos.com.br, ajmsombra ajmsombra@ escreveu --- Em delphi-br@yahoogrupos.com.br, Márcio Ferraz marciomrck@ escreveu Olá pessoal do grupo. Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de excel para o delphi e manipulá-la, tenho como exportar para o delphi mais não sei como importar. Desde já grato. Márcio procedure TForm1.Button1Click(Sender: TObject); var Excel : Variant; i:Integer; analise,texto:string; begin i:=4; Excel := CreateOleObject('Excel.Application'); Excel.Visible :=True; {Excel.Workbooks.Add;} Excel.WorkBooks.Open(Edit1.text+'nome da planilha.xls'); texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3]; while texto '' do begin analise:=Excel.WorkBooks[1].Sheets[1].Cells[i,13]; if analise 'Reprovado' then begin I:=I+1; texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3]; end else begin texto:=Excel.WorkBooks[1].Sheets[1].Cells[i,3]; table1.Insert; table1Cmpo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[i,1]; table1.Post; i:=i+1 end; end; Excel.WorkBooks.close; end;
[delphi-br] Resgatar valores de uma planilha de excel para o delphi.
Olá pessoal do grupo. Gostaria de uma ajudinha, preciso resgatar dados de uma planilha de excel para o delphi e manipulá-la, tenho como exportar para o delphi mais não sei como importar. Desde já grato. Márcio
Re: [delphi-br] Assinar Hash...
Valeu, Alexandre. Eu tenho esse livro aqui, mas tem que ser em .net. Eu achei uma dll mscoree.dll que tem uma função. Se funcionar eu posto aqui no grupo. Márcio Ricardo Alves da Silva Programador Pleno Oracle Certified Associate 9i * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Monday, June 30, 2008 2:13 PM Subject: Re: [delphi-br] Assinar Hash... Na verdade você quer é criptografar o hash gerado. O resultado seria uma assinatura digital do arquivo do qual resultou o hash. De uma olhada no livro Assinatura Digital - Solução Delphi e Capicom Márcio Ricardo Alves da Silva escreveu: Davi, obrigado pela resposta. Mas com certeza eu não estou confundindo. Eu preciso gerar um hash de uma string e depois assinar esse hash utilizando SHA1-RSA. Márcio Ricardo Alves da Silva Programador Pleno Oracle Certified Associate 9i * [EMAIL PROTECTED] mailto:marcio.silva%40config.com.br Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, June 30, 2008 11:56 AM Subject: RES: [delphi-br] Assinar Hash... Assinar um Hash? Hash é um calculo feito através de uma informação de entrada e que gera um índice para uma tabela genérica de valores de tamanho N. Muito utilizado para balancear tabelas com listas encadeadas. Agora... Assinar um Hash? Provavelmente você ta confundindo. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Márcio Ricardo Alves da Silva Enviada em: segunda-feira, 30 de junho de 2008 08:39 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Assinar Hash... Untitled DocumentAlguém tem um esquema onde eu consiga gerar um hash de uma string e assinar esse hash? Obrigado, Márcio Ricardo. [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] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Assinar Hash...
Tem sim Alexandre. Eu consigo assinar um XML. Mas o que eu preciso, é assinar uma string, ou seja, pegar determinadas tag montar a string e assinar. Não posso gerar um xml e assinar essas tag separada, entendeu. Márcio Ricardo Alves da Silva Programador Pleno Oracle Certified Associate 9i * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Monday, June 30, 2008 3:05 PM Subject: Re: [delphi-br] Assinar Hash... Se não me engano o .net tem assinatura digital nativa. Márcio Ricardo Alves da Silva escreveu: Valeu, Alexandre. Eu tenho esse livro aqui, mas tem que ser em .net. Eu achei uma dll mscoree.dll que tem uma função. Se funcionar eu posto aqui no grupo. Márcio Ricardo Alves da Silva Programador Pleno Oracle Certified Associate 9i * [EMAIL PROTECTED] mailto:marcio.silva%40config.com.br Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, June 30, 2008 2:13 PM Subject: Re: [delphi-br] Assinar Hash... Na verdade você quer é criptografar o hash gerado. O resultado seria uma assinatura digital do arquivo do qual resultou o hash. De uma olhada no livro Assinatura Digital - Solução Delphi e Capicom Márcio Ricardo Alves da Silva escreveu: Davi, obrigado pela resposta. Mas com certeza eu não estou confundindo. Eu preciso gerar um hash de uma string e depois assinar esse hash utilizando SHA1-RSA. Márcio Ricardo Alves da Silva Programador Pleno Oracle Certified Associate 9i * [EMAIL PROTECTED] mailto:marcio.silva%40config.com.br mailto:marcio.silva%40config.com.br Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, June 30, 2008 11:56 AM Subject: RES: [delphi-br] Assinar Hash... Assinar um Hash? Hash é um calculo feito através de uma informação de entrada e que gera um índice para uma tabela genérica de valores de tamanho N. Muito utilizado para balancear tabelas com listas encadeadas. Agora... Assinar um Hash? Provavelmente você ta confundindo. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Márcio Ricardo Alves da Silva Enviada em: segunda-feira, 30 de junho de 2008 08:39 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Assinar Hash... Untitled DocumentAlguém tem um esquema onde eu consiga gerar um hash de uma string e assinar esse hash? Obrigado, Márcio Ricardo. [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] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gravar e visualizar imagem do banco de dados
Guarde no banco de dados, ou entao mova o arquivo para um diretorio no servidor, ai vc não previsa saber somente o nome do arquivo, já que o diretorio será sempre o mesmo. E quando for mostrar o arquivo, vc concatena o nome do diretorio padrao (no servidor) mais o nome do arquivo - Original Message - From: Carlos To: delphi-br@yahoogrupos.com.br Sent: Monday, May 19, 2008 4:57 PM Subject: [delphi-br] Gravar e visualizar imagem do banco de dados Boa tarde a todos!! Solicito ajuda aos colegas com mais este problema: Tem um sistema que captura uma foto com o caminho do banco de dados e apresenta para o usuário. Até ai tudo bem, mas o problema é que este sistema é usado na rede, e caso o usuário tente visualizar a imagem em uma máquina diferente de onde estão as imagens, ocorre um erro porque ele não encontra o caminho. Alguém poderia me dar uma ajuda neste sentido, com um tutorial, ou link...por favor... Uso DBExpress, MySql 5.0, Delphi 7. //Este é o código para exibir a imagem dmCadastro.cdsFotos.Close; dmCadastro.cdsFotos.Params[0].Value := dmCadastro.cdsEfetivorf.Value; dmCadastro.cdsFotos.Open; if not (dmCadastro.cdsFotos.IsEmpty) then imgFoto.Picture.LoadFromFile(dmCadastro.cdsFotosfoto.Value) else imgFoto.Picture := nil; //Este é o código que salva a imagem if dlgOpenPicFoto.Execute then begin dmCadastro.cdsFotos.Insert; dmCadastro.cdsFotosrf.Value := dmCadastro.cdsEfetivorf.Value; imgFoto.Picture.LoadFromFile(dlgOpenPicFoto.FileName); dmCadastro.cdsFotos.FieldByName('Foto').AsString := dlgOpenPicFoto.FileName; dmCadastro.cdsFotos.Post; end; Agradeço antecipadamente a atenção dispensada. att Carlos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Off - Banco de dados distribuido
Alguem aqui ja teve experiencia com banco de dados distribuido? Existe algum banco free que tenha essa funcionalidade? Meu problema é o seguinte: Como o cliente pode ficar sem acesso ao servidor de banco de dados que pode estar em outra cidade, e por algum motivo a conexão ficou fora do ar, e o trabalho não pode parar, quando a conexão voltar ao normal, os dados gravados localmente seriam atualizado no servidor. O banco de dados distribuido é a melhor opção para meu problema? E facil implementar sem mudar codigo do programa?
Re: [delphi-br] Off - Banco de dados distribuido
Não estava pensando em criar codigo no programa para poder fazer isso. Tenho certeza que os bancos de dados ja tem essa funcionalidade. Não estou querendo programar para uma funcionalidade que ja existe e que funciona. Só não sei se consigo isso com banco de dados distribuido Nem como fazer. Por isso estou perguntando se alguem ja tem expericia com isso e pode me dar alguma sugestao Abraços - Original Message - From: Rafael Jorge To: delphi-br@yahoogrupos.com.br Sent: Monday, May 05, 2008 5:47 PM Subject: Re: [delphi-br] Off - Banco de dados distribuido no meu posto de sistema on line X off line to discutindo isso ai que tu ta querendo.. to nesse barco tambem.. t+ 2008/5/5 Márcio Cota [EMAIL PROTECTED]: Alguem aqui ja teve experiencia com banco de dados distribuido? Existe algum banco free que tenha essa funcionalidade? Meu problema é o seguinte: Como o cliente pode ficar sem acesso ao servidor de banco de dados que pode estar em outra cidade, e por algum motivo a conexão ficou fora do ar, e o trabalho não pode parar, quando a conexão voltar ao normal, os dados gravados localmente seriam atualizado no servidor. O banco de dados distribuido é a melhor opção para meu problema? E facil implementar sem mudar codigo do programa? --
[delphi-br] site de emprego
Untitled Document A quem tiver interesse (não é spam)... o link abaixo é referente à um networking de profissionais da área de informática, como se fosse o orkut, mas é totalmente profissional... interessante para quem estar procurando emprego/nova oportunidade de trabalho. http://www.via6.com/user_form2.php?promo=109672_14f383118178929f84b492eb35ef9a9c Márcio Ricardo Alves da Silva Programador Pleno * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar Serviços delphi...
Untitled DocumentPessoal, bom dia! Sei que já teve post sobre esse assunto, mas tenho algumas dúvidas, se alguém puder ajudar. Usar thread é a melhor maneira? Como não deixar a memória do serviço subir muito? Quando finalizo o processo(serviço) inicializo ele automaticamente, mas ele vem como manual, como inicializá-lo automático? Sem ser a primeira vez, isso depois de derrubar e subir novamente o serviço. Criar vários serviços em um mesmo executável é aconselhável? Obrigado, Márcio Ricardo Alves da Silva Programador Pleno * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ
Concordo com o Jefferson... O projeto deles deve ser muito grande... estão contratanto bastante gente... ou devem estar pagando R$ 2 mil para a vaga, com direito a só vale-transporte... já encheu o saco esse anuncio de vaga... sugiro ao Moderador que entre em contato com essa empresa e vê o que acontece por tantos e-mails repetitivos... ou criar uma pasta/grupo para postar as vagas de emprego. Márcio Ricardo Alves da Silva Programador Pleno * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Jefferson - Fórum To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 24, 2007 6:36 PM Subject: Re: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ Bem que essa Nova Consultoria, poderia estar precisando de profissionais em Java. Assim daria uma paz, pra lista... Se continuar contratando assim, todos desenvolvedores Delphi estão trabalhando nessa empresa. OPINIÃO PESSOAL!!! - Original Message - From: Nova Consultoria To: delphi-boleto ; delphi-br ; delphi-empregos ; delphi-lista ; delphi-total ; firebird-br ; lista-delphi ; PHP-PT ; programacao-hacker Sent: Tuesday, July 24, 2007 5:15 PM Subject: [delphi-br] Vaga de Programador Delphi Sênior - para o centro do RJ PROGRAMADOR DELPHI SÊNIOR Formação - Superior completo Requisitos Profissionais - Experiência a partir de 4 anos de desenvolvimento com Delphi - Sólidos conhecimentos em SQL Server - Orientação ao objeto - Modelagem de dados Desejável - Oracle - UML Boa oportunidade em empresa de grande porte líder no seu segmento no Rio de Janeiro. Encaminhar currículos para: [EMAIL PROTECTED] especificando no campus Assunto o nome da vaga. Aguardamos confirmação do recebimento do mesmo. Att. Jaqueline Cardoso 21 2531.1204 - 2532.2533 [EMAIL PROTECTED] Flickr agora em português. Você cria, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF Topic - SQL - copiar um registro para outro (beginner)
segue... UPDATE ARTIGO SET NOME_ARTIGO, LOCALIZACAO_ARTIGO = (SELECT NOME_ARTIGO, LOCALIZACAO_ARTIGO FROM ARTIGO WHERE CODIGO_ARTIGO = 1) WHERE CODIGO_ARTIGO = 2 Adapte as suas necessidades. Márcio Ricardo Alves da Silva Programador Pleno * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 25, 2007 1:33 PM Subject: Re: [delphi-br] OFF Topic - SQL - copiar um registro para outro (beginner) Estimado colega Gustavo Tentei montar o sql de maneira bem simples, com poucos campos, porem nao funcionou, nao utilizo as triggers, somente sql (sou iniciante). Meu caso é o seguinte: Eu tenho um cadastro de artigos e eu quero copiar o registro de chave codigo = 1 para o registro de chave codigo = 2, mantendo o 1, apenas trocar o codigo da chave, a minha estrutura da tabela é assim: codigo_artigo nome_artigo localizacao_artigo E desejo copiar o artigo de codigo = 1 para o codigo 2, aproveitando todas as outros informacoes como nome, localizacao, etc do registro de codigo=1. Desde já sinceramente agradeço pela ajuda, muito obrigado. []´s. - Original Message - From: gustavo ... [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 24, 2007 9:30 PM Subject: Res: [delphi-br] OFF Topic - SQL - copiar um registro para outro (beginner) pelo que eu entendi... insert into tabela (codigo, nome, ...) select novocodigo, nome, ... where codigo = :codigoantigo vc pode atribuir um valor para o novocodigp. ou usar uma trigger com um generator, assim vc pode deixar 0 (zero) no novocodigo q ele automaticamente incrementa o código. - Mensagem original De: [EMAIL PROTECTED] [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 24 de Julho de 2007 10:22:24 Assunto: [delphi-br] OFF Topic - SQL - copiar um registro para outro (beginner) Colegas Existe uma maneira via SQL de copiar um registro da tabela para outro, mas com a chave diferente? Qualquer ajuda é bem-vinda, muito obrigado. []´s. !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- Flickr agora em português. Você cria, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Informação do NOD32 IMON 2418
Re: [delphi-br] DBExpress as vezes não esta gravando no banco
Kra, coloca no enveto do ClientDataSet (OnReconcileError) aquele raise que o Bruno Lichot te sugeiu... com o erro você saberá o que é, ou passe para nós o erro... ai fica fácil de alguém te ajudar. Márcio Ricardo Alves da Silva Programador Pleno * [EMAIL PROTECTED] Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar 04571-010 - Brooklin Novo - São Paulo - SP ( Fone (11) 5501-8300 ( Fax (11) 5501-8302 8 www.config.com.br - Original Message - From: Fabio Campigotto To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 3:58 PM Subject: Re: [delphi-br] DBExpress as vezes não esta gravando no banco Tentei com applyupdates(0). Mas olha só... Tenho alguns campos na tabela. Se altero um campo varchar2, o sistema gravou e confirmou no banco Se altero um campo Number, o sistema não gravou no banco estranho né? Tambem não tenho certeza se é referente ao tipo de campo. Sabes dizer alguma coisa? Obrigado... - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Tuesday, July 10, 2007 2:15 PM Subject: RES: [delphi-br] DBExpress as vezes não esta gravando no banco Pq esta dando erro.. Vc tem q usar o applyupdates(0) e não (-1) E no evento onreconcilierror, colocar pelo menos um codigo q levante excessao como este: Raise edatabaseerror.create(e.message); O parametro -1 diz q podem ocorrer erros ilimitados e o zero determina q nao pode ocorrer erro. Atenciosamente, Bruno Lichot CodeGear Product Evangelist http://www.codegear.com http://cc.codegear.com/Author/795118 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fabio Campigotto Enviada em: terça-feira, 10 de julho de 2007 13:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBExpress as vezes não esta gravando no banco Pessoal Estou utilizando DBExpress, No componente ClientDataSet, estou fazendo: ClientDataSet.ApplyUpdates(-1); Porque as vezes funciona e as vezes, não Alguns campos esta gravando e alguns não Alguem sabe dizer alguma coisa? [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2390 (20070710) __ 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] Inserindo conteúdo de um campo em um TEdit
Verifica se antes o campo não está null If not dmCompromisso.cdsCompromisso.FieldByName('Linha0700').isnull then cdb700 := dmCompromisso.cdsCompromisso.FieldByName('Linha0700').value; a mesma forma para o edit. Márcio Ricardo. - Original Message - From: Adenes I. Freire Junior To: delphi-br@yahoogrupos.com.br ; FireBase ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] Sent: Monday, July 02, 2007 8:53 AM Subject: [delphi-br] Inserindo conteúdo de um campo em um TEdit Caro amigo, quando tento passar o conteúdo de um campo num TEdit aparece a seguinte msg: Could not convert variant of type (Null) into tupe (String). Isso ocorre quando o campo não tem nenhuma informação. Exemplo: CBox700.Text := dmCompromisso.cdsCompromisso.FieldByName('Linha0700').Value; Edit701.Text := dmCompromisso.cdsCompromisso.FieldByName('Linha0701') Value O compontente CBOx700.Text tem informção + o Edit701 n tem. É onde ocorre o erro. -- --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 000753-1, 02/07/2007 Tested on: 2/7/2007 08:54:05 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.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] Re: Duvida sobre SQL no Delphi
fabiana, tenta usar QuotedStr(campo) essa função coloca aspas... eu sempre uso ela quando preciso usar aspas. Se não der certo... elimine essa parte com as aspas e testa, pra termos certeza que o problema está ai, ou melhor, vai fazendo o select por partes (cada campo) assim você chega no campo onde está dando o problema - Original Message - From: sandrobit2000 To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 11:06 AM Subject: [delphi-br] Re: Duvida sobre SQL no Delphi Fabiana ao inves de colocar ou '' coloque NULL espero ter ajudado Bit --- Em delphi-br@yahoogrupos.com.br, Fabiana [EMAIL PROTECTED] escreveu Marcelo, Não deu certo o Delphi diz que o campo é invalido quando uso o CAST da forma que vc sugeriu colocando as ' ' pelo codigo asc. Fabiana - Original Message - From: Marcelo - Kappesberg To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 9:18 AM Subject: Re: [delphi-br] Re: Duvida sobre SQL no Delphi Acho que o problema neste caso eh as aspas simples, jah que ela tambem eh usada para carregar o SQL... tente fazer assim:.. SQL.Add('CAST('+#34#34+' AS Char(1)) as TipoRec,'); o #34 eh o codigo asc das aspas simples... Marcelo Hörlle [EMAIL PROTECTED] - Original Message - From: Fabiana To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 8:53 AM Subject: Re: [delphi-br] Re: Duvida sobre SQL no Delphi Carlos, Bom Dia o codigo completo e esse aqui: with DModulo.qryVendas do begin Close; SQL.Clear; SQL.Add('Select'); SQL.Add('VendasEspec.TipoRec as TipoRec,'); SQL.Add('VendasEspec.NumeroRec as NumeroRec,'); SQL.Add('VendasEspec.DataRec as DataRec,'); SQL.Add('VendasEspec.UFCRM as UFCRM,'); SQL.Add('VendasEspec.CRM as CRM,'); SQL.Add('VendasEspec.TipoCRM as TipoCRM,'); SQL.Add('VendasEspec.TipoDoc as TipoDoc,'); SQL.Add('VendasEspec.NumeroDoc as NumeroDoc,'); SQL.Add('VendasEspec.OrgaoExp as OrgaoExp,'); SQL.Add('VendasEspec.UFDoc as UFDoc,'); SQL.Add('VendasEspec.NomeComp as NomeComp,'); SQL.Add('VendasEspec.NomeMed as NomeMed,'); SQL.Add('VendasEspec.TipoOp as TipoOp,'); SQL.Add('VendasEspec.DescProd as DescProd,'); SQL.Add('VendasEspec.Quantidade as Quantidade,'); SQL.Add('VendasEspec.DataVenda as DataVenda,'); SQL.Add('VendasEspec.Lote as Lote,'); SQL.Add('VendasEspec.RegMs as RegMS'); SQL.Add('from'); SQL.Add('vendasEspec'); SQL.Add('UNION ALL'); SQL.Add('select'); SQL.Add('CAST('' AS Char(1)) as TipoRec,'); SQL.Add('CAST('' AS VarChar(15)) as NumeroRec,'); SQL.Add('CAST('' AS Date) as DataRec,'); SQL.Add('CAST('' AS Char(2)) as UFCRM,'); SQL.Add('CAST('' AS VarChar(10)) as CRM,'); SQL.Add('CAST('' AS Char(4)) as TipoCRM,'); SQL.Add('CAST('' AS Char(6)) as TipoDoc,'); SQL.Add('Clientes.Inscr_Est as NumeroDoc,'); SQL.Add('CAST('' AS Char(6)) as OrgaoExp,'); SQL.Add('CAST('' AS Char(2)) as UFDoc,');} SQL.Add('Vendas.cliente as NomeComp,'); SQL.Add('CAST('' AS VarChar(50)) as NomeMed,'); SQL.Add('Vendas.operacao as TipoOp,'); SQL.Add('Vendas.DescProd as DescProd,'); SQL.Add('Vendas.quantidade as Quantidade,'); SQL.Add('Vendas.data as DataVenda,'); SQL.Add('Vendas.identifica as Lote,'); SQL.Add('Codforn.codfornec as RegMS'); SQL.Add('from'); SQL.Add('Vendas'); SQL.Add('LEFT JOIN'); SQL.Add('Clientes ON vendas.CGC = clientes.CGC'); SQL.Add('LEFT JOIN'); SQL.Add('Codforn ON vendas.codprod = codforn.codelf'); SQL.Add('where'); SQL.Add('(vendas.data = :pDataini1) and (vendas.data = :pDatafim1) and'); SQL.Add('(vendas.grupoProd = :pGrupo1) and (vendas.operacao = :tipoOp1) or'); SQL.Add('(vendas.data = :pDataini2) and (vendas.data = :pDatafim2) and'); SQL.Add('(vendas.grupoProd = :pGrupo2) and (vendas.operacao = :tipoOp2) or'); SQL.Add('(vendas.data = :pDataini3) and (vendas.data = :pDatafim3) and'); SQL.Add('(vendas.grupoProd = :pGrupo3) and (vendas.operacao = :tipoOp3) or'); SQL.Add('(vendas.data = :pDataini4) and (vendas.data = :pDatafim4) and'); SQL.Add('(vendas.grupoProd = :pGrupo4) and (vendas.operacao = :tipoOp4)'); SQL.Add('Order by'); SQL.Add('descprod,datavenda'); Params[0].AsDate:= dtpInicial.Date; Params[1].AsDate:= dtpFinal.Date; Params[2].AsString := '1'; Params[3].AsString := 'V'; Params[4].AsDate:= dtpInicial.Date; Params[5].AsDate:= dtpFinal.Date; Params[6].AsString := '2'; Params[7].AsString := 'V'; Params[8].AsDate:= dtpInicial.Date; Params[9].AsDate:= dtpFinal.Date; Params[10].AsString := '3'; Params[11].AsString := 'V'; Params[12].AsDate:= dtpInicial.Date; Params[13].AsDate:= dtpFinal.Date; Params[14].AsString := '4'; Params[15].AsString := 'V'; Open; end; estou usando o UNION pois os tem campos em uma tabela que
Re: [delphi-br] Erro na Execução
Leandro, bom dia! Primeiro, você tem que deixar a conexão com false. Na Propriedade ConnectionName do SQLConnection, o nome tem que ser o mesmo q está no arquivo .ini, exemplo: SQLConnection.ConnectionName := 'esse_nome'; [esse_nome] DriverName=ORACLE GETDRIVERFUNC=getSQLDriverORACLE DATABASE=esquema USER_NAME=usuario PASSWORD=senha BLOBSIZE=-1 ERRORRESOURCEFILE= LOCALECODE= ORACLE TRANSISOLATION=ReadCommited ROWSETSIZE=20 OS AUTHENTICATION=False MULTIPLE TRANSACTION=False TRIM CHAR=False DECIMAL SEPARATOR=, Testa ai e vê se funciona. Márcio Ricardo. - Original Message - From: Leandro - Grupos To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 11:23 AM Subject: [delphi-br] Erro na Execução E ai pessoal blz Seguinte, estou desenvolvendo uma aplicação utilizando DBExpress. Utilizo um arquivo .ini para carregar as configurações de conexão do banco de dados, porem em tempo de projeto eu deixo definido no SQLConnection os parametros de acesso ao banco, para poder executar as consultas SQL e carregar os Campos nos ClientDataSet. A conexão deste SQLConnection fica ativa o tempo todo, porem quando eu instalo o executavel em um cliente ele me apresenta um erro de conexão dizendo que o banco de dados especificado nao foi encontrado ( no caso o banco de dados que esta definido no componente SQLConnection e não o que esta no arquivo ini). Eu coloquei no OnCreate do DataModule Principal, que é onde está o SQLConnection, a linha SQLConnection.connected := false, mas o erro ocorre antes de chegar nessa linha (sendo que ela é a primeira do OnCreate do Datamodule principal. OBS.: Se eu compilar o projeto com a propriedade Connected = false não ocorre esse problema. Não sei mais o que fazer Leandro Carbonera (54) 3343-1143 / 9977-1266 [EMAIL PROTECTED] www.sigmatecnologia.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: [delphi-br] Erro na Execução
Leandro, vejo que você já conseguiu resolver o problema... em relação ao caminho ser diferente, você poderia pegar o caminho onde encontra o executável e colocar o arquivo .ini nele... e fazer como eu tinha te passado anteriormente... aqui na empresa utilizamos desse jeito... quando vai instalar em algum cliente novo, basta colocar o arquivo .ini no mesmo caminho do executável que o sistema pega tudo certinho... Como já foi resolvido... blz. Márcio Ricardo. - Original Message - From: Leandro - Grupos To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 12:53 PM Subject: Re: [delphi-br] Erro na Execução Ok, Marcio muito obrigado pela atenção, mas o detalhe é justamente esse. Como eu cite no final da mensagem, se eu compilar o programa a propriedade SQLConnection.Connected = false funciona sem problemas. Porem lá no meu cliente o caminho que estiver informado em DATABASE não existe, lá será configurado outro caminho e salvo num arquivo .ini que será carregado no OnCreate do DataModule, mas o erro esta ocorrendo antes de executar o evento OnCreate.. Desculpe se derepente eu não fui muito claro na explicaçao. Leandro Carbonera (54) 3343-1143 / 9977-1266 [EMAIL PROTECTED] www.sigmatecnologia.com.br - Original Message - From: Márcio Ricardo To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 11:46 AM Subject: Re: [delphi-br] Erro na Execução Leandro, bom dia! Primeiro, você tem que deixar a conexão com false. Na Propriedade ConnectionName do SQLConnection, o nome tem que ser o mesmo q está no arquivo .ini, exemplo: SQLConnection.ConnectionName := 'esse_nome'; [esse_nome] DriverName=ORACLE GETDRIVERFUNC=getSQLDriverORACLE DATABASE=esquema USER_NAME=usuario PASSWORD=senha BLOBSIZE=-1 ERRORRESOURCEFILE= LOCALECODE= ORACLE TRANSISOLATION=ReadCommited ROWSETSIZE=20 OS AUTHENTICATION=False MULTIPLE TRANSACTION=False TRIM CHAR=False DECIMAL SEPARATOR=, Testa ai e vê se funciona. Márcio Ricardo. - Original Message - From: Leandro - Grupos To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 28, 2007 11:23 AM Subject: [delphi-br] Erro na Execução E ai pessoal blz Seguinte, estou desenvolvendo uma aplicação utilizando DBExpress. Utilizo um arquivo .ini para carregar as configurações de conexão do banco de dados, porem em tempo de projeto eu deixo definido no SQLConnection os parametros de acesso ao banco, para poder executar as consultas SQL e carregar os Campos nos ClientDataSet. A conexão deste SQLConnection fica ativa o tempo todo, porem quando eu instalo o executavel em um cliente ele me apresenta um erro de conexão dizendo que o banco de dados especificado nao foi encontrado ( no caso o banco de dados que esta definido no componente SQLConnection e não o que esta no arquivo ini). Eu coloquei no OnCreate do DataModule Principal, que é onde está o SQLConnection, a linha SQLConnection.connected := false, mas o erro ocorre antes de chegar nessa linha (sendo que ela é a primeira do OnCreate do Datamodule principal. OBS.: Se eu compilar o projeto com a propriedade Connected = false não ocorre esse problema. Não sei mais o que fazer Leandro Carbonera (54) 3343-1143 / 9977-1266 [EMAIL PROTECTED] www.sigmatecnologia.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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Stack Overflow e BCD Overflow
O2, tenta converter os seus campos inteiro e date para string na instrução que você coloca no SQLQuery. Márcio Ricardo. - Original Message - From: O2 Tecnologia (aJato) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 27, 2007 9:34 AM Subject: [delphi-br] Stack Overflow e BCD Overflow Estamos migrando nossa aplicação para DBExpress, e em alguns clientes nossos em telas que já foram portadas estão aparecendo o erro Stack Overflow e BCD Overflow, alguém tem uma luz do poderia estar provocando isso ? Utilizamos D7 Upd1 + FB2.01, usando SQLQuery + Provider + ClientDataset. [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] Campo negativo
Outra opção.. verifica qual valor é maior entre o valor1 e valor2 e monte o seu calculo... IF valor1 = valor2 then valor3 = valor1 - valor2 ELSE valor3 = valor2 - valor1 Márcio Ricardo. - Original Message - From: Guionardo Furlan To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 20, 2007 1:16 PM Subject: Re: [delphi-br] Campo negativo Use a função ABS da unit SYSTEM (ela retorna o valor absoluto de um número, isto é, sem o sinal). Por exemplo: Valor3:=Abs(Valor1-Valor2); Em 20/06/07, Rodrigo Magno [EMAIL PROTECTED] escreveu: Amigos Delphianos, Estou precisando de como fazer o seguinte, tem uma condição aonde que : Valor1- Valor2 = Valor3 aonde que se o valor3 for negativo tenho q fazer a ordem inversa, assim : valor2-valor1 = valor3. Alguem poderia me falar como podera fazer isto ? Obs : Como posso descobrir se o valor e negativo Rodrigo Magno -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] D7 - DBExpress - SQLServer 2005 - Read Commited / e alterações com Fetch (não fetchAll) SERÁ QUE TEM SOLUÇÃO???
Davi, no evento BeforeApplyUpdates do DataSetProvider, você fecha a conexão, assim: TSQLConnection.CloseDataSets. vê se funciona. Márcio Ricardo. - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 14, 2007 2:52 PM Subject: RES: [delphi-br] D7 - DBExpress - SQLServer 2005 - ReadCommited / e alterações com Fetch (não fetchAll) SERÁ QUE TEM SOLUÇÃO??? Estou utilizando a estrutura Connection - sqlquery - provider - clientedataset- datasource Se vc está falando do problema do fetch, tivemos que utilizar ddois dataset's 1 para consultas e outro para alterações para contornar o problema. Mas o problema ainda existe, se eu não der fetchall numa query utilizando sql server eu não consigo alterar os dados. as vezes gera uma mensagem de erro que não recordo, mas lembro que era em português e achei um tanto esquisito. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Márcio Ricardo Enviada em: quarta-feira, 13 de junho de 2007 16:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] D7 - DBExpress - SQLServer 2005 - ReadCommited / e alterações com Fetch (não fetchAll) SERÁ QUE TEM SOLUÇÃO??? Davi, que tipo de componentes de conexão você está utilizando? Você poderia passar exatamente a mesangem de erro que está dando? Acho que tive algo parecido com isso, e consegui resolver, é fácil. Márcio Ricardo. - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, June 08, 2007 9:47 AM Subject: [delphi-br] D7 - DBExpress - SQLServer 2005 - ReadCommited / e alterações com Fetch (não fetchAll) SERÁ QUE TEM SOLUÇÃO??? Olá senhores, Gostaria de saber como os senhores lidaram com esta situação que aparentemente só acontece no SGBD SQL Server. Trabalho no desenvolvimento de um sistema multibanco que utiliza transação pessimista. Ou seja, somente quero ler informações commitadas. Todos os dados que não forem commitados considero dados inconsistentes. No SQL Server (no meu caso 2005) se eu abrir uma transação, alterar, salvar e não dar commit ele da lock na tabela em questão. Todas as outras consultas ficarão literalmente travadas, até que o commit desta transação seja efetuado. Alguém sabe a causa disto? É assim mesmo que o SQL Server se comporta nesse caso? Por que os outros bancos como o FireBird e o Oracle não se comportam desta maneira mesmo utilizando ReadCommited? Estudei o hint NOLOCK que transforma aquele select especifico em uma consulta Read Uncommited, isto está ok, não gera mais o lock. Mas ele me retorna os dados antes de Commitar. O que não é legal. Imagine que um dado está sendo inserido por um usuário enquanto Outro usuário está tirando um relatório e esta informação está saindo no relatório. Daí da um erro, e acontece um Rollback. Eu tenho um dado no relatório que não existe na base. ReadPast me traz todos os registros que não estão lockados. O que também não satisfaz, pois o usuário pode estar editando um registro, importante alterando por exemplo a descrição, e estou tirando um relatório com valores. Esse registro não vai aparecer no relatório. Um colega uma vez disse Qualquer que for a sua escolha, todas as opções são ruins, é isso mesmo ? Estas situações me fazem chegar a conclusão de que o Sql Server não é um banco de dados compatível com isolation ReadCommited, pois se para evitar um lock eu devo usar uma instrução Read Uncommited. No SqlServer também, estou com um problema intrigante. Se eu tenho uma query com fetch de 30 ou XX registros e tento alterar algum registro, após salvar o registro não salva. Somente se eu der um FetchAll, alterar e salvar, aí então os dados são salvos. Se alguém passou por esses problemas, qualquer sugestão é bem vinda. []'s Davi Wall. [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] CheckBox na DBGrid. Tem Como?
Claro que tem! const CtrlState: array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); eventos da Grid. procedure TfrmExportaXML.DBGrid2DblClick(Sender: TObject); begin if not (DM.ClientDataSet.State in [dsEdit]) then DM.ClientDataSet.Edit; if DBGrid2.SelectedIndex = 8 then begin if DM.ClientDataSet.FieldByName('CAMPO').AsString = '0' then DM.ClientDataSet.FieldByName('CAMPO').AsString := '1' else DM.ClientDataSet.FieldByName('CAMPO').AsString := '0'; end else begin if DBGrid2.SelectedIndex = 9 then begin if DM.ClientDataSet.FieldByName('CAMPO').AsString = '0' then DM.ClientDataSet.FieldByName('CAMPO').AsString := '1' else DM.ClientDataSet.FieldByName('CAMPO').AsString := '0'; end else begin if DBGrid2.SelectedIndex = 10 then begin if DM.ClientDataSet.FieldByName('CAMPO').AsString = '0' then DM.ClientDataSet.FieldByName('CAMPO').AsString := '1' else DM.ClientDataSet.FieldByName('CAMPO').AsString := '0'; end; end; end end; procedure TfrmExportaXML.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if DM.ClientDataSet.RecordCount 0 then begin if (Column.FieldName = 'CAMPO') or (Column.FieldName = 'CAMPO') or (Column.FieldName = 'CAMPO')then begin Self.DBGrid2.Canvas.FillRect(Rect); CheckBoxRectangle.Left := Rect.Left + 2; CheckBoxRectangle.Right := Rect.Right - 2; CheckBoxRectangle.Top := Rect.Top + 2; CheckBoxRectangle.Bottom := Rect.Bottom - 2; if (DataCol = 8) then begin if (DM.ClientDataSet.FieldByName('CAMPO').AsString = '1') then DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[True]) else DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[False]); end else begin if (DataCol = 9) then begin if (DM.ClientDataSet.FieldByName('CAMPO').AsString = '1') then DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[True]) else DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[False]); end else begin if (DataCol = 10) then begin if (DM.ClientDataSet.FieldByName('CAMPO').AsString = '1') then DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[True]) else DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[False]); end; end; end; end; end; end; - Original Message - From: Tiago Zacchi To: Grupo_Delphi-Br Sent: Friday, June 15, 2007 8:01 AM Subject: [delphi-br] CheckBox na DBGrid. Tem Como? Olá pessoal! Gostaria de seber se tem fazer com que um dos campos da minha DBGrid seja um CheckBox, ou algo parecido! Tem como fazer isso ? Obrigado, [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] Conexão com ORACLE - DBExpress ou DBE?
Fábio, no seu componenete (SQLQuery) ou outro que você esteja utilizando, altere a propriedade GetMetadata para FALSE, e faça um teste. Márcio Ricardo. - Original Message - From: Luiz Carlos Pereira To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 13, 2007 8:33 PM Subject: Res: [delphi-br] Conexão com ORACLE - DBExpress ou DBE? Tem algo de errado, pois não demora tanto assim. Qual o Oracle que você está usando? - Mensagem original De: Fabio Campigotto [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 13 de Junho de 2007 19:38:20 Assunto: [delphi-br] Conexão com ORACLE - DBExpress ou DBE? Pessoal, Alguem tem um exemplo ou dica de como posso fazer a conexão com o Banco com os componentes da pateta DBExpress? Tentei, utilizando uma SQLQuery ligada a uma SQLConnection, mas demora muuuii para conectar. É isto mesmo? estes componentes não são os melhores? Ou é melhor seguir na linha da BDE mesmo? [As partes desta mensagem que não continham texto foram removidas] __ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Import Type Libray...
Boa tarde! No delphi 7 eu tinha um recurso no Project - Import Type Library, para importar uma dll e criar unit... esse recurso não estou achando no bds2006, alguém poderia me ajudar com isso? Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] IUnknown (URGENTE)...
Boa tarde! Estou fazendo um aplicativo em .net e nele precisei adicionar o pas OleServer.pas, mas está dando erro na COM Interface IUnknown, ele não acha essa interface. Alguém tem idéia de como resolver? Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Code/Gear...
Bom dia! Então é isso, falou em .net a Borland não se pronuncia e deixa os usuários na mão ou ainda mais incentivados a trocar a ferramenta para programação .net. O duro é que quando leva-se ao problema a eles, os mesmos dizem pra fazermos uma lista que tem solução e que é só pagar um consultor que ele irá na empresa resolver todos os problemas. Pagamos, ficou o dia inteiro e nada. Como eu tinha dito na discussão sobre o desabafo, para win32 não existe melhor ferramenta, mas para .net além de ser dificil fazer aplicativos, não temos muito suporte ou alguém que responda por essa área. Mesmo assim agradeço as pessoas que tentaram pensar em alguma solução para o problema. Só uma dica. Vamos parar de lançar versões e mais versões e encontrar soluções para esses problemas, senão vão acabando perdendo muitos clientes. Márcio Ricardo. - Original Message - From: Márcio Ricardo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 29, 2007 12:37 PM Subject: [delphi-br] Code/Gear... Bom tarde! Para o pessoal da Code/Gear ou quem puder ajudar. Estou precisando validar um XML, não estou conseguindo de jeito nenhum com o framework 1.1. Já com o framework 2.0 do Visual Studio, consegui fazer. Alguém sabe como eu congigo validar um XML no framework 1.1, ou se não tem jeito mesmo. Quando será lançado o framework 2.0 para o BDS2006, estamos precisando pra ontem dessa rotina. Obrigado, Márcio Ricardo. [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] Criptografia
Sérgio, aqui na empresa o as senhas de acesso aos sistemas foram criptografadas usando o MD5 do componente UserControl. Teve que ser feito algumas coisas, tipo: Foi feito um programa de Converte Senha para rodar nos clientes que já tinham a senha cadastrada para alterar. Esse programa alterarva o tamanho do campo senha para 32. Hoje estamos utilizando essa criptografia e está indo super bem, posso até dizer que é impossível a quebra da criptografia. - Original Message - From: Sérgio T. Uetanabaro To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 8:39 AM Subject: [delphi-br] Criptografia Olá lista, Eu usava o lockbox da turbopower para alguns algoritmos de criptografia. Estamos analisando a atualização de nossos sistemas para delphi2007 e gostaria de saber se alguem pode me indicar algum componente para isso (MD5, SHA, RSA e etc) ja que o lockbox que está no sourceforge não está sendo continuado. Obrigado Sergio Uetanabaro [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] Criptografia
Sérgio, precisei fazer isso também. Tinha que criptografar alguns selects que consta nas tabelas, eu não fui atrás de componente fiz na unha mesmo, ficou legal. - Original Message - From: Sérgio T. Uetanabaro To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 9:22 AM Subject: RES: [delphi-br] Criptografia Olá Márcio, Obrigado pela dica mas eu realmente preciso de um componente especializado em criptografia pois preciso disso em vários lugares de nossos softwares e nao somente na autenticação de usuários. []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Márcio Ricardo Enviada em: quarta-feira, 30 de maio de 2007 09:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Criptografia Prioridade: Alta Sérgio, aqui na empresa o as senhas de acesso aos sistemas foram criptografadas usando o MD5 do componente UserControl. Teve que ser feito algumas coisas, tipo: Foi feito um programa de Converte Senha para rodar nos clientes que já tinham a senha cadastrada para alterar. Esse programa alterarva o tamanho do campo senha para 32. Hoje estamos utilizando essa criptografia e está indo super bem, posso até dizer que é impossível a quebra da criptografia. - Original Message - From: Sérgio T. Uetanabaro To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Wednesday, May 30, 2007 8:39 AM Subject: [delphi-br] Criptografia Olá lista, Eu usava o lockbox da turbopower para alguns algoritmos de criptografia. Estamos analisando a atualização de nossos sistemas para delphi2007 e gostaria de saber se alguem pode me indicar algum componente para isso (MD5, SHA, RSA e etc) ja que o lockbox que está no sourceforge não está sendo continuado. Obrigado Sergio Uetanabaro [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] Code/Gear...
Caro Bruno, no meu entender você é totalmente contra o .net, correto? A empresa onde trabalho está com projeto de Nota Fiscal Eletrônica, utilizando o BDS2006. Com esse projeto temos vários clientes grandes, que infelizmente não posso citar a empresa na qual trabalho e nem quem são os clientes que estão utilizando e muito bem o noss sistema desenvolvido em .net com o bds2006. Outra coisa, a equipe na qual estamos locado para esse projeto, fica batendo toda hora que o delphi não dá pra .net. O diretor até já comprou um visual studio 2005. Teremos e terão outros projetos para .net, então a intenção e começar esses novos projetos no C#. Com isso, seria interessante você dar uma solução/reposta sobre a minha dúvida e levantar a bola do bds2006 para .net, mas você sendo contra o .net faz mais acreditarmos a empresa trocar todas as suas versões que tem comprada do delphi e comprar o visual studio. A minha intenção do e-mail era achar uma solução para o nosso problema, esses bla bla bla já sei e quase todo dia tem na lista... que o delphi, que o delphi é aquilo, acho que todos que mexem com o delphi sabem da sua capacidade e limitação. Queria apenas uma ajuda ou apenas uma notícia de quando será lançado uma nova versão do framework (se será lançada), não uma resposta com várias perguntas contra o .net. Codegear, tem que tomar cuidado quando se perguntar o porque dessa tecnologia, como outras pessoas disseram, o Bill colocou na cabeça dos cartolas que o .net é bom. Se um cartola vê um e-mail desses, logo concluem que o delphi não serve para .net. Sem polemizar, Márcio Ricardo. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 12:04 PM Subject: RES: [delphi-br] Code/Gear... Salve Pessoal! Bom, vamos tentar ajudar a esclarecer algumas questões aqui. A CodeGear está aumentando o prazo de lançamento entre as versões para ter versões mais estáveis como já havia sido pedido tanto pela comunidade quanto por nosso clientes. Mas agora falando como desenvolvedor e não como integrante da equipe... pergunta : - Quem precisa de .Net? Por que ir pra .Net? O .Net tecnicamente falando é uma copia da estrutura da VCL, que alias foi desenhada pela mesma pessoa, só que com uma linguagem muito mais poderosa para suportar que é o Pascal. Usuários de Delphi não precisam ir pra .Net, aplicações escritas em .Net não diferenciam em nada aplicações VCL com a diferença dos usuários terem que instalar o .Net que é de mais de 30 megas. Será que o .Net vai me trazer melhor performance e facilidades de manutenção, distribuição e adaptabilidade com custo e prazo aceitáveis para minha empresa e ao meu cliente, ou é somente mais um tecnologia jogada para engolirmos? Onde posso aplicar comercialmente o .NET? Vou substituir meu legados ou decidir por esta nova tecnologia? Onde isso vai afetar? Se é tão bom .NET pq o Windows não é feito em .NET? Uma outra pergunta: Quem é que já viu a MS criar, modificar e acabar com tecnologias/padrões? Será que o .Net dura muito tempo mais? Já viram a compatibilidade do .NEt 1 com o 2 e com o 3? Última pergunta: Só pq o Tio Bill criou tem que ser bom e tem que ser a solução pro mundo? O Highlander vem aí, todos já sabem e tb já falamos que teremos compiladores para 64bits. Desejo de nossos clientes. Temos trabalhado e nos empenhado, tanto na atuação da comunidade, com eventos e com nossa disponibilidade de atender da melhor forma nosso clientes e a comunidade de desenvolvedores. Mantemos o maior repositório de material Delphi do mundo o code central e o Developer Network. Tanto eu como o Andreano e outros membros da equipe de evangelistas e funcionários, temos participado ativamente da comunidade não somente para promover novidades dos produtos, mas ajudando tecnicamente e fornecendo solução. Abs Bruno De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Márcio Ricardo Enviada em: quarta-feira, 30 de maio de 2007 08:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Code/Gear... Prioridade: Alta Bom dia! Então é isso, falou em .net a Borland não se pronuncia e deixa os usuários na mão ou ainda mais incentivados a trocar a ferramenta para programação .net. O duro é que quando leva-se ao problema a eles, os mesmos dizem pra fazermos uma lista que tem solução e que é só pagar um consultor que ele irá na empresa resolver todos os problemas. Pagamos, ficou o dia inteiro e nada. Como eu tinha dito na discussão sobre o desabafo, para win32 não existe melhor ferramenta, mas para .net além de ser dificil fazer aplicativos, não temos muito suporte ou alguém que responda por essa área. Mesmo assim agradeço as pessoas que tentaram pensar em alguma solução para o problema. Só uma dica. Vamos parar de lançar versões e mais versões e encontrar soluções para esses problemas
Re: [delphi-br] Code/Gear...
Beleza Bruno. Fiquei aliviado com esse seu e-mail, sinceramente eu tinha entendido que você abominava o .net. Bom como temos várias licença do delphi e se não me engano temos contrato com a Borland que assim que saia uma versão eles nos disponibliza. Tomara que disponiblize logo essa versão, pois sinceramente esse processo já passou por três programadores e nenhum de nós conseguiu chegar o que se deseja. Obrigado pelos esclarecimentos, e com certeza contatarei vocês. Valeu, Márcio Ricardo. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 2:35 PM Subject: RES: [delphi-br] Code/Gear... Salve Mestre Márcio! Não disse em momento nenhum que sou contra .NET, e respondi sua pergunta dizendo que o Delphi 2007 For .NET virá com suporte ao .NET 2.0 e já Tb o 3.0. Eu uso .NET como descrevi no email, e tenho 2 sistemas comerciais em .NET usando ASP.NET com um foco bastante especifico. O BDS 2006 não terá suporte ao .NET 2.0, somente o 2007. Logo, não será necessário trocar de ferramentas. E não tem como algo que veio do Delphi ser ruim não é mesmo? E o .NET é baseado na VCL como todos sabem. E acredito na maturidade que este alcançará pois existe muito investimento e uma excelente equipe trabalhando nisso, o que fiz foi levantar questionamentos sobre o uso ou não da plataforma e me colocar a disposição para ajudar no que fosse necessário independente de qual tecnologia fosse. E se precisar, não titubeie em nos contatar, estou aqui para auxiliar e me desculpe se me expressei mal, definitivamente não sou contra o .NET, ou Win32 ou ao Java, pelo contrário, sou a favor daquilo que mais se adapta ao meu negócio, minhas necessidades, meu bolso e meus clientes, e nisso tudo o que se adapta melhor são soluções Borland/CodeGear. Por exemplo, através do Delphi eu consigo prover soluções para meus clientes em Web, C/S, N-TIER, .NET e Java e tudo integrado e se tiver mais um pedacinho na colcha de retalhos que se falar em Datapackage, .NET, Java ou web services encaixamos também de forma limpa, rápida e segura. Grandes novidades estão sendo preparadas para o próximo semestre. Sinta -se a vontade de chamar sempre que preciso. Será um imenso prazer ajudar. As ordens Bruno De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Márcio Ricardo Enviada em: quarta-feira, 30 de maio de 2007 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Code/Gear... Caro Bruno, no meu entender você é totalmente contra o .net, correto? A empresa onde trabalho está com projeto de Nota Fiscal Eletrônica, utilizando o BDS2006. Com esse projeto temos vários clientes grandes, que infelizmente não posso citar a empresa na qual trabalho e nem quem são os clientes que estão utilizando e muito bem o noss sistema desenvolvido em .net com o bds2006. Outra coisa, a equipe na qual estamos locado para esse projeto, fica batendo toda hora que o delphi não dá pra .net. O diretor até já comprou um visual studio 2005. Teremos e terão outros projetos para .net, então a intenção e começar esses novos projetos no C#. Com isso, seria interessante você dar uma solução/reposta sobre a minha dúvida e levantar a bola do bds2006 para .net, mas você sendo contra o .net faz mais acreditarmos a empresa trocar todas as suas versões que tem comprada do delphi e comprar o visual studio. A minha intenção do e-mail era achar uma solução para o nosso problema, esses bla bla bla já sei e quase todo dia tem na lista... que o delphi, que o delphi é aquilo, acho que todos que mexem com o delphi sabem da sua capacidade e limitação. Queria apenas uma ajuda ou apenas uma notícia de quando será lançado uma nova versão do framework (se será lançada), não uma resposta com várias perguntas contra o .net. Codegear, tem que tomar cuidado quando se perguntar o porque dessa tecnologia, como outras pessoas disseram, o Bill colocou na cabeça dos cartolas que o .net é bom. Se um cartola vê um e-mail desses, logo concluem que o delphi não serve para .net. Sem polemizar, Márcio Ricardo. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, May 30, 2007 12:04 PM Subject: RES: [delphi-br] Code/Gear... Salve Pessoal! Bom, vamos tentar ajudar a esclarecer algumas questões aqui. A CodeGear está aumentando o prazo de lançamento entre as versões para ter versões mais estáveis como já havia sido pedido tanto pela comunidade quanto por nosso clientes. Mas agora falando como desenvolvedor e não como integrante da equipe... pergunta : - Quem precisa de .Net? Por que ir pra .Net? O .Net tecnicamente falando é uma copia da estrutura da VCL, que alias foi desenhada pela mesma pessoa, só que com uma linguagem muito mais poderosa para suportar que é o
Re: [delphi-br] Code/Gear...
Ricardo, valeu pelas dicas. Mas o que eu preciso é validar o xml pela assinatura. Tenho um arquivo XML, nele contém um nó X509Certificate que tem um conteúdo que é o certificado. E neste conteúdo tem a chave pública do certificado que precisamos pegá-la e transformar em RSA para a validação do mesmo, mas quem disse que isso sai... rs. Valeu, Márcio Ricardo. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 3:55 PM Subject: Re: [delphi-br] Code/Gear... Em cima do assunto validação de XML, já encontrou alguma solução? Pq eu estava pesquisando no google (http://www.google.com.br/search?hl=pt-BRq=validating+an+XML+file+with+.net+framework+1.1btnG=Pesquisarmeta=) e achei este link, veja se te interessa: http://builder.com.com/5100-6389-5080856.html Sds, Ricardo Márcio Ricardo [EMAIL PROTECTED] escreveu: Beleza Bruno. Fiquei aliviado com esse seu e-mail, sinceramente eu tinha entendido que você abominava o .net. Bom como temos várias licença do delphi e se não me engano temos contrato com a Borland que assim que saia uma versão eles nos disponibliza. Tomara que disponiblize logo essa versão, pois sinceramente esse processo já passou por três programadores e nenhum de nós conseguiu chegar o que se deseja. Obrigado pelos esclarecimentos, e com certeza contatarei vocês. Valeu, Márcio Ricardo. - Original Message - From: Bruno Lichot To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 30, 2007 2:35 PM Subject: RES: [delphi-br] Code/Gear... Salve Mestre Márcio! Não disse em momento nenhum que sou contra .NET, e respondi sua pergunta dizendo que o Delphi 2007 For .NET virá com suporte ao .NET 2.0 e já Tb o 3.0. Eu uso .NET como descrevi no email, e tenho 2 sistemas comerciais em .NET usando ASP.NET com um foco bastante especifico. O BDS 2006 não terá suporte ao .NET 2.0, somente o 2007. Logo, não será necessário trocar de ferramentas. E não tem como algo que veio do Delphi ser ruim não é mesmo? E o .NET é baseado na VCL como todos sabem. E acredito na maturidade que este alcançará pois existe muito investimento e uma excelente equipe trabalhando nisso, o que fiz foi levantar questionamentos sobre o uso ou não da plataforma e me colocar a disposição para ajudar no que fosse necessário independente de qual tecnologia fosse. E se precisar, não titubeie em nos contatar, estou aqui para auxiliar e me desculpe se me expressei mal, definitivamente não sou contra o .NET, ou Win32 ou ao Java, pelo contrário, sou a favor daquilo que mais se adapta ao meu negócio, minhas necessidades, meu bolso e meus clientes, e nisso tudo o que se adapta melhor são soluções Borland/CodeGear. Por exemplo, através do Delphi eu consigo prover soluções para meus clientes em Web, C/S, N-TIER, .NET e Java e tudo integrado e se tiver mais um pedacinho na colcha de retalhos que se falar em Datapackage, .NET, Java ou web services encaixamos também de forma limpa, rápida e segura. Grandes novidades estão sendo preparadas para o próximo semestre. Sinta -se a vontade de chamar sempre que preciso. Será um imenso prazer ajudar. As ordens Bruno De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Márcio Ricardo Enviada em: quarta-feira, 30 de maio de 2007 14:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Code/Gear... Caro Bruno, no meu entender você é totalmente contra o .net, correto? A empresa onde trabalho está com projeto de Nota Fiscal Eletrônica, utilizando o BDS2006. Com esse projeto temos vários clientes grandes, que infelizmente não posso citar a empresa na qual trabalho e nem quem são os clientes que estão utilizando e muito bem o noss sistema desenvolvido em .net com o bds2006. Outra coisa, a equipe na qual estamos locado para esse projeto, fica batendo toda hora que o delphi não dá pra .net. O diretor até já comprou um visual studio 2005. Teremos e terão outros projetos para .net, então a intenção e começar esses novos projetos no C#. Com isso, seria interessante você dar uma solução/reposta sobre a minha dúvida e levantar a bola do bds2006 para .net, mas você sendo contra o .net faz mais acreditarmos a empresa trocar todas as suas versões que tem comprada do delphi e comprar o visual studio. A minha intenção do e-mail era achar uma solução para o nosso problema, esses bla bla bla já sei e quase todo dia tem na lista... que o delphi, que o delphi é aquilo, acho que todos que mexem com o delphi sabem da sua capacidade e limitação. Queria apenas uma ajuda ou apenas uma notícia de quando será lançado uma nova versão do framework (se será lançada), não uma resposta com várias perguntas contra o .net. Codegear, tem que tomar cuidado quando se perguntar o porque dessa tecnologia, como outras pessoas disseram, o Bill colocou na cabeça dos
[delphi-br] Code/Gear...
Bom tarde! Para o pessoal da Code/Gear ou quem puder ajudar. Estou precisando validar um XML, não estou conseguindo de jeito nenhum com o framework 1.1. Já com o framework 2.0 do Visual Studio, consegui fazer. Alguém sabe como eu congigo validar um XML no framework 1.1, ou se não tem jeito mesmo. Quando será lançado o framework 2.0 para o BDS2006, estamos precisando pra ontem dessa rotina. Obrigado, Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi...Um desabafo à CodeGear... - MARCIO RICARDO
Olá João, estamos sim utilizando o bds2006 .net com windowsform. Deixamos apenas a parte de servços mais complexos com o windowsform, os cadastros mais básicos ficaram no win32. Estamos utilizando como SGBD: FIREBIRD, ORACLE, SYBASE, MS-SQL. Como ferramenta para gerar relatório o Crystal XI. Podemos trocar figurinhas sim, caso eu posso ajudar. Márcio Ricardo. - Original Message - From: João Paulo - EsPyl To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 17, 2007 6:25 PM Subject: Re: [delphi-br] Delphi...Um desabafo à CodeGear... - MARCIO RICARDO Olá... Voces estão utilizando o BDS2006 .NET, trabalhando com delphi windowsform ? QUal o banco de dados voces adotaram ? E qual o gerador de relatorio ? Será que poderiamos trocar algumas figurinhas ? []s - Original Message - From: Márcio Ricardo [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 17, 2007 10:04 AM Subject: Re: [delphi-br] Delphi...Um desabafo à CodeGear... Aqui na empresa estamos trabalhando com .net, utilizando BDS2006. O primeiro projeto foi uma luta pra ser feito nessa ferramenta, devido aos transtornos, impossibilidade de fazer algumas coisas bem simples, resolvemos comprar licença do visual studio para utiliza-lo nos proximos projetos. Soltaram a versão bds2007, mas o framework nem mudaram. Enfim, pra .net o delphi não serve mesmo. Já para win32 não tenho que reclamar. - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 17, 2007 9:34 AM Subject: Res: [delphi-br] Delphi...Um desabafo à CodeGear... Mani, Não compartilho da sua opinião em todos os pontos que vc citou nesse post, mas, não posso deixar de concordar com alguns. Entretando, penso que o ponto que mais tá pegando, para uma certa debandada de profissionais (podem pensar que estou exagerando, mas conheço vários) Delphi para outras ferramentas, não é e jamais será a qualidade da ferramenta, mas sim, as políticas ruins adotadas pela Borland e que estão sendo pioradas pela Code Gear. Ao menos a nível de Brasil. Até os eventos promovidos por eles, de lançamentos de novas versões da ferramentas estão deixando a desejar. Fui, por exemplo, nos dois últimos eventos, aqui em BH, dos lançamentos do BDS2006 e BDS2007... foi péssima a qualidade das apresentações. Confusa, desorganizada, com o palestrante demonstrando despreparo e falta de conhecimento da ferramenta... na minha opinião, um fiasco. Principalmente, se comparadas as apresentações feitas pelos Srs. Guinther Pauli e Bruno Lichot, da DevMedia, dias antes da apresentação da Borland (no caso do BDS2006), que foram excelentes. A Code Gear está dando razões para que os desenvolvedores procurem motivos para trocarem o Delphi por outra ferramenta, mesmo que esta tenha uma qualidde inferior. []´s Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: maniacapordelphi [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Maio de 2007 7:50:25 Assunto: [delphi-br] Delphi...Um desabafo à CodeGear... Trabalho com Delphi desde o Delphi 3 e sempre adorei essa ferramenta. Infelizmente, pra minha tristeza, minha equipe decidiu adotar o VB e migrar todos os projetos, até que se possa abandonar o Delphi definitivamente. Motivos? Vários!!! 1. Desde o Delphi 8 a IDE do Delphi ficou horrivel. Telas e mais telas enchendo o espaço do monitor em detrimento do espaço que tínhamos para as telas do nosso aplicativo no Delphi 7. 2. Descontinuidade de componentes tão usados no Brasil, como Quick Report, substituindo-o por aquela ferramenta tenebrosa: O Rave Report, que não deu ibope, tanto é que nem foi adicionada a palheta do Delphi 2007. 3. 30 dias para testes com o trial do Delphi 2007. O que dá pra fazer em 30 dias pra quem tem 10 projetos de peso? 4. Preço do Delphi 2007, totalmente incompativel com a realidade brasileira. 5. Componentes que sempre julgamos primordiais e que nunca foram adicionados ao Delphi como componentes da RXLib: currencyEdit, DateEdit, coisas que facilitam muito a vida do programador. 6. Falta de um bom componente para relatório, inclusive que sirva pra impressão em matriciais. Desculpem o desabafo, mas eu gostava muito do Delphi:( Mani -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto
Re: [delphi-br] Delphi...Um desabafo à CodeGear...
Aqui na empresa estamos trabalhando com .net, utilizando BDS2006. O primeiro projeto foi uma luta pra ser feito nessa ferramenta, devido aos transtornos, impossibilidade de fazer algumas coisas bem simples, resolvemos comprar licença do visual studio para utiliza-lo nos proximos projetos. Soltaram a versão bds2007, mas o framework nem mudaram. Enfim, pra .net o delphi não serve mesmo. Já para win32 não tenho que reclamar. - Original Message - From: Luis Lopes To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 17, 2007 9:34 AM Subject: Res: [delphi-br] Delphi...Um desabafo à CodeGear... Mani, Não compartilho da sua opinião em todos os pontos que vc citou nesse post, mas, não posso deixar de concordar com alguns. Entretando, penso que o ponto que mais tá pegando, para uma certa debandada de profissionais (podem pensar que estou exagerando, mas conheço vários) Delphi para outras ferramentas, não é e jamais será a qualidade da ferramenta, mas sim, as políticas ruins adotadas pela Borland e que estão sendo pioradas pela Code Gear. Ao menos a nível de Brasil. Até os eventos promovidos por eles, de lançamentos de novas versões da ferramentas estão deixando a desejar. Fui, por exemplo, nos dois últimos eventos, aqui em BH, dos lançamentos do BDS2006 e BDS2007... foi péssima a qualidade das apresentações. Confusa, desorganizada, com o palestrante demonstrando despreparo e falta de conhecimento da ferramenta... na minha opinião, um fiasco. Principalmente, se comparadas as apresentações feitas pelos Srs. Guinther Pauli e Bruno Lichot, da DevMedia, dias antes da apresentação da Borland (no caso do BDS2006), que foram excelentes. A Code Gear está dando razões para que os desenvolvedores procurem motivos para trocarem o Delphi por outra ferramenta, mesmo que esta tenha uma qualidde inferior. []´s Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais - Mensagem original De: maniacapordelphi [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Maio de 2007 7:50:25 Assunto: [delphi-br] Delphi...Um desabafo à CodeGear... Trabalho com Delphi desde o Delphi 3 e sempre adorei essa ferramenta. Infelizmente, pra minha tristeza, minha equipe decidiu adotar o VB e migrar todos os projetos, até que se possa abandonar o Delphi definitivamente. Motivos? Vários!!! 1. Desde o Delphi 8 a IDE do Delphi ficou horrivel. Telas e mais telas enchendo o espaço do monitor em detrimento do espaço que tínhamos para as telas do nosso aplicativo no Delphi 7. 2. Descontinuidade de componentes tão usados no Brasil, como Quick Report, substituindo-o por aquela ferramenta tenebrosa: O Rave Report, que não deu ibope, tanto é que nem foi adicionada a palheta do Delphi 2007. 3. 30 dias para testes com o trial do Delphi 2007. O que dá pra fazer em 30 dias pra quem tem 10 projetos de peso? 4. Preço do Delphi 2007, totalmente incompativel com a realidade brasileira. 5. Componentes que sempre julgamos primordiais e que nunca foram adicionados ao Delphi como componentes da RXLib: currencyEdit, DateEdit, coisas que facilitam muito a vida do programador. 6. Falta de um bom componente para relatório, inclusive que sirva pra impressão em matriciais. Desculpem o desabafo, mas eu gostava muito do Delphi:( Mani -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi
uma forma bem simples... no teu laço coloca um contador e uma condição if com ele, se for menor que dez recebe uma data se maior q 10 recebe outra data. - Original Message - From: rzzanatta To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 15, 2007 9:46 AM Subject: [delphi-br] Delphi Olá nao sei se vou conseguir explicar muito bem mas vou tentar. tenho uma select, nela me traz 100 resultados, só que eu tenho que listar eles linha por linha dentro de um while que percorre esses 100 resultados, para que cada linha de resultado eu possa adicionar uma data. tipo os 10 primeiros vai acrescentar a data 01/05/2007, do 20 ao 30 acrescete a data 02/05/2007 e assim por diante. resultado 1, nome, endereço,etc, e data (acrescentada) 1, Jose, rua sem nome, etc, 01/05/2007 2, Maria, rua sem numero, etc, 01/05/2007 ... 11, Joao, rua sei lá, etc, 02/05/2007 ... 100, Paulo, rua lalalal, etc, 30/05/2007 bom nao sei se ficou claro isso. mas tentei. obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Extract DADOS apenas
Se eu entendi, tente isso... SELECT 'INSERT INTO SITUACAO(CODIGO, STATUS) VALUES (' + T.CODIGO + ',' ''+ T.STATUS +''')' FROM SITUACAO T - Original Message - From: Luizcm_jr To: FireBase ; delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Monday, May 14, 2007 10:53 AM Subject: [delphi-br] Extract DADOS apenas Bom dia a Todos.. Gostaria de saber se existe alguma maneira de efetuar um backup de uma base de dados Firebird apenas dos dados nela contigo. ex.: SITUACAO VALUES ('Ativo'); qdo vc efetua o backup ou Extract Metadados ele traz o mesmo registro dessa maneira: INSERT INTO SITUACAO (CODIGO, STATUS) VALUES (34, 'Ativo'); e eu não gostaria de obter os registros assim, existe alguma maneira??? Junior - Araraquara/SP [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] sybase+delphi
Zote, estou usando o ASE. Conversando com uma pessoa que conhece sybase, ela me disse que tem q fazer tudo na unha, como vc disse: usar o INSERT. Como estou desenvolvendo em 3 camadas, estou tendo problemas de conversões de campos de inteiro para string. O projeto já está pronto funcionando com dois SGDB, então vamos partir para o plano B e criar um programa que sincroniza o Sybase com o Oracle. valeu pela dica. Márcio Ricardo. - Original Message - From: José Henrique (Zote) To: delphi-br@yahoogrupos.com.br Sent: Monday, May 14, 2007 10:21 AM Subject: RE: [delphi-br] sybase+delphi Você esta usando sybase ASE ou ASA? O você dá o comando insert na mão ou esta usando algo parecido com TTable? Geralmente para pegar o valor gerado pelo identity você deve fazer um select (select @@identity -Isso no ASA). Espero ter ajudado. Abraço Zote From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Márcio Ricardo Sent: quarta-feira, 9 de maio de 2007 11:41 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] sybase+delphi Importance: High Alguém utiliza o bando de dados sybase com conexão dbexpress no D2006? Estou conectando e consultando os dados belezinha, mas quando vou inserir não consigo pegar o campo chave que está com identity esse campo é retornado null, ou seja, não está fazendo o auto-incremento. Obrigado, Márcio Ricardo. [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] Loop
Crie um vetor com a quantidade do alfabeto e faça o loop assim. A cada passagem pelo loop vc joga para o parametro e executa sua query. É isso q vc quer? Márcio Ricardo. - Original Message - From: Rodrigo Magno To: delphi-br@yahoogrupos.com.br Sent: Monday, May 14, 2007 11:51 AM Subject: [delphi-br] Loop Amigos, Como posso fazer um loop para percorrer todas as letras alfabeticas e assim q mudar de letra passar para uma query em qual letra o loop esta como parametro. Atenciosamente, Rodrigo __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agenda Médica
Bom, primeiramente vc quer fazer a modelagem do sistema é isso né? Kra, se vc não tem conhecimento em modelagem será meio complicado vc desenvolver, mas vamos lá. Vc terá que ter uma tabela de agendamento fazendo relacionamento com a tabela médico. Um chute, na tabela agendamento vc pode ter como chaves o código do médico e a data agendada, e como campos o horario do agendametno. Tenta começar por isso e vê no que da. Eu não fiz a modelagem e nem parei pra pensar direito, mas faz isso ai. Márcio Ricardo. - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 8:37 AM Subject: Re: [delphi-br] Agenda Médica Galera foi mal...realmente é um apavoramento neh... Vamos começar então pelo meu problema inicial.. Eu tenho a tabela de medicos Nome Especialidade Hora_Inicial Hora_Final Intervalo Preciso montar uma agenda para agendar os pacientes...o problema inicial seria como montar uma agenda com os horários disponiveis pelo medicos em data determinada... Ricardo Mendes TotalSat - Rastreamento de Veículos Departamento de Informática E-mail: [EMAIL PROTECTED] Tel. (41) 2109-7717 - Original Message - From: Berdam To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 8:10 AM Subject: Re: [delphi-br] Agenda Médica não se apavore primeiramente, as vezes por mais pequenos que sejam os problemas a gente se desespera. Esse email n tem nada a ver diretamente com o problema, mas começe por um problema só, não queira resolver tudo com uma tacada só. Ricardo Mendes escreveu: Galera preciso de uma ajuda de vcs... Preciso criar uma agenda médica e to perdido em como fazer A ideia inicial é a seguinte... Selecionar um médico, uma data e ver os horários da agenda, porem o que acontece é que eu não tenho apenas um medico, tenho varios e cada cliente tem seu medico, além disso eu tenho q permitir que seja incluido novo cliente na agenda, mesmo que ele não tenha sido cadastrado no BD. E pra ajudar eu preciso montar a agenda com os intervalos que o médico atende e verificar se o dia que está aberto na agenda é dia de atendimento do médico, caso contrario avisar ao usuario que o medico não atende nessa data... Além de tudo isso é como conseguir montar os clientes agendados anteriormente quando a agenda for aberta na data especifica e colocar os clientes nos horários que eles foram agendados... Espero q vc tenham entendido a minha solicitação e que me ajudem.. Utilizo D7, Firebird Ricardo Mendes Analista/Programador TOTALSAT - Com. Equip. Eletronicos [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2257 (20070511) __ 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]
Re: [delphi-br] Agenda Médica
Isso vc consegue fazer no select... Na segunda consulta do médico, vc pega o horário da primeira mais 45 minutos e está marcada a segunda consulta, e assim sucessivamente para outras consultas. Vc pode tratar também pra marcar consulta até as 12:00h, dá pra fazer uma agenda bem legal. Espero que ajude. Márcio Ricardo. - Original Message - From: Ricardo Mendes To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 9:30 AM Subject: Re: [delphi-br] Agenda Médica Galera eu tenho a tabela de agedamento criada.. ID_Agenda ID_medico ID_Procedimento Hora Data_Agen A modelagem das tabelas eu tenhoa minha duvida é como criar uma agenda, que coloque os horários das consultas do medico selecionado e com os intervalos... Exemp.. O medico Ricardo atende segunda, terça e quarta.. Começa a atender seus pacientes a partir das 08:00 até 12:00 e suas consultas devem ser agendadas em intervalos de 45 minutos. Ricardo Mendes TotalSat - Rastreamento de Veículos Departamento de Informática E-mail: [EMAIL PROTECTED] Tel. (41) 2109-7717 [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] dbExpress Error
está funcionando antes, ou é a primeira vez que vc faz e dá o erro. Eu tive um problema desse tipo com a conexão oracle, era problema de versão. No meu caso eu utiliza o oracle9i, compraram uma máquina nova pra desenvolver e colocaram o 10g, e quando ia conectar dava esse erro, era problema de dll. O pessoal não resolveu e voltei para o oracle9i. Aqui eu utilizo conexão com o sql server 200 com dbexpress e funciona perfeitamente. - Original Message - From: Ademir Morgado To: delphi-br@yahoogrupos.com.br Sent: Friday, May 11, 2007 10:40 AM Subject: [delphi-br] dbExpress Error Ola pessoal, bom dia! Estou tentando fazer a conexao de uma aplicação Delphi 7 acessando um BD SQL Server 2000, mas quando executa ocorre o seguinte erro: Erro CdsFormatoData: EOleException - dbExpress Error: Unknown Error Code '340' Alguem sabe o que pode ser isso??? Qualquer ajuda é valida! Obrigado, Ademir Morgado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquisa
utilize UpperCase. dmDados.ibqPesquisaProdutos.SQL.add('Select *from Produtos where UpperCase(descricao) like ' + chr (39) + '%' + UpperCase(eDadoPesquisa.Text) +'%' + chr(39) + 'order by produtos.descricao'); - Original Message - From: Régis Bender To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 10, 2007 9:47 AM Subject: Re: [delphi-br] Pesquisa Estou abrindo uma query e passo o parametro SQL. dmDados.ibqPesquisaProdutos.SQL.add('Select *from Produtos where descricao like ' + chr (39) + '%' + eDadoPesquisa.Text +'%' + chr(39) + 'order by produtos.descricao'); sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 10, 2007 9:39 AM Subject: Re: [delphi-br] Pesquisa Como vc está fazendo a pesquisa Régis? É no ClientDataSet ou vc está passando algum parametro para uma SQL? Sds, Ricardo. Régis Bender [EMAIL PROTECTED] escreveu: Pessoal, necessito da ajuda de vcs. Quando eu faço uma pesquisa, ele retorna apenas os indices que eu digitei em maiusculo.(Case sensitive) Como eu faço pra realizar a pesquisa direto, indiferente se está em maiusculo ou minusculo? Utilizo Delphi 7 e IB sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.467 / Virus Database: 269.6.6/795 - Release Date: 9/5/2007 15:07 [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] Uma mãozinha com vetores...para o ap rendiz.
crie um vetor de 8 posições e faça um for... for i:=1 to 8 do begin resultado := resultado * vetor[i]; inc(i); end; - Original Message - From: werelli To: [EMAIL PROTECTED] ; DELPHI_TOTAL ; LISTA_DELPHI Sent: Thursday, May 10, 2007 9:59 AM Subject: [delphi-br] Uma mãozinha com vetores...para o aprendiz. Olá pessoal! Gente estou fazendo um curso de Delphi e agora entramos em vetores, o professor é muito bom, mas mesmo assim estou com dificuldades, vejam se podem me ajudar... Ele nos pediu que fizéssemos um programa para DOS que executasse a seguinte tarefa usando vetores. 8*7*6*5*4*3*2*1 e exibisse o resultado. atenciosamente, werelli Embora quem esteja quase morto ainda viva, quem está quase vivo já morreu faz tempo. (Luís Fernando Verissimo)TENDO EXCLUÍDO O IMPOSSÍVEL, O QUE RESTA, POR MAIS IMPROVÁVEL QUE PAREÇA, É A VERDADE!(Sherlock Holmes, Sir Arthur Conan Doyle) __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] sybase+delphi
Alguém utiliza o bando de dados sybase com conexão dbexpress no D2006? Estou conectando e consultando os dados belezinha, mas quando vou inserir não consigo pegar o campo chave que está com identity esse campo é retornado null, ou seja, não está fazendo o auto-incremento. Obrigado, Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexão com o Oracle10g
Bom dia lista! Tenho uma aplicação que funcionava perfeitamente no oracle9i. Recebi uma máquina nova com o client do oracle10g instalado e agora a mesma não funciona. Minha aplicação foi feita pra rodar em SQl Server e Oracle, só funciona no sql server no oracle não consigo mais conexão. Estou fazendo a conexão através de dbexpress. Alguém tem alguma luz? Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Apagar master-detail
Seu programa está funcionando perfeitamente. Não pode apagar o pai e deixar os filhos orfão. Quando for apagar faça uma busca na tabela filho e apague os primeiros e depois vc apaga o pai, ok? Como se fosse um delete cascade apaga o pai e sai procurando onde o mesmo faz referencia com tabelas filhas se achar apaga os filhos e os pais Márcio Ricardo. - Original Message - From: Magnun Oliveira To: delphi-br@yahoogrupos.com.br Sent: Monday, May 07, 2007 11:52 AM Subject: [delphi-br] Apagar master-detail Fiz um master detail com CDS, inserção e alteração dah tudo certo, porem, se eu for apagar um registro master com no minimo 1 detail dah esse erro: 'cannot delete master records with details' se eu apagar um registro master sem nenhum detail funciona ... Alguma saca como resolver? vlw ... __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Fechar Form usando tecla ESC
tenta utilizar no evento keypress do form. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Friday, May 04, 2007 9:17 AM Subject: [delphi-br] Fechar Form usando tecla ESC Bom dia amigos da lista! Tenho a seguinte dúvida: num form da minha aplicação, gostaria que fosse possível usar a tecla [ESC] para sair da tela. Mas quando pressiono a tecla [ESC] para sair da tela, o sistema dá uma violação de acesso. Coloquei Breakpoints para ver se as rotinas Close e CloseQuery eram chamadas, mas nenhuma delas é chamada. Vejam abaixo o código usado: Procedure TfrmEVENTOS_SERVICO.FormCloseQuery(Sender: TObject; var CanClose: Boolean); Begin dmEVENTOS_SERVICO.Free; End; Procedure TfrmEVENTOS_SERVICO.FormClose(Sender: TObject; var Action: TCloseAction); Begin with frmPRINCIPAL do MainMenu1.Items.Items[2].Remove(mJanelas.Find('TAREFAS')); Action := caFree; frmEVENTOS_SERVICO := nil; End; Procedure TfrmEVENTOS_SERVICO.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin if Key = 27 then frmEVENTOS_SERVICO.OnClose; End; Se alguém tiver alguma idéia de como resolver este problema, fico agradecido. Saudações, Ricardo. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] visoco...
Tarde! Alguém já utilizou a dll Visoco.Data.ASE.dll para conexão com Assembly? Não estou conseguindo conectar com o banco de dados. obrigado, Márcio Ricardo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BDP com Sybase...
Alguém programa utilizando BDP com Sybase? Não estou conseguindo criar uma conexão. Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] chamar dll do Windows...
Bom dia! Alugém sabe como faço pra chamar a DLL CRYPT32.DLL e utilizar as suas funções? Tenho um exemplo em C# que faz isso, mas não sei como chamar no delphi. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Validar XML
Bom dia! Alguém já mexeu ou mexe com assinatura em XML e validação de XML? Eu tenho um XML assinado e preciso validar a sua assinatura. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] chamar dll do Windows...
Então, eu preciso utilizar umas funções dessa dll para verificar a assinatura de um XML, entendeu? como isso feito em C#: [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertOpenSystemStore(int hprov, string szSubsystemProtocol); [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertEnumCertificatesInStore(uint hCertStore, uint pPrevCertContext); [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertDuplicateCertificateContext(uint pPrevCertContext); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CertGetCertificateContextProperty(int pCertContext,int dwPropId, IntPtr pvData, ref uint pcbData); [DllImport(Crypt32.dll, CharSet=CharSet.Auto)] internal extern static uint CertCreateCertificateContext(uint dwCertEncodingType, [MarshalAs(UnmanagedType.LPArray)]byte[] pbCertEncoded, int cbCertEncoded); [DllImport(Advapi32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptAcquireContext(ref uint phProv,string pszContainer, string pszProvider,uint dwProvType,uint dwFlags); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptImportPublicKeyInfoEx(uint hCryptProv ,uint dwCertEncodingType, IntPtr pInfo, uint aiKeyAlg, uint dwFlags ,uint pvAuxInfo, ref uint phKey); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptImportPublicKeyInfo(uint hCryptProv ,uint dwCertEncodingType, IntPtr pInfo, ref uint phKey); [DllImport(Advapi32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptExportKey(uint hKey,uint hExpKey, uint dwBlobType, uint dwFlags ,uint pbData, ref uint pdwDataLen); [DllImport(Crypt32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CertFreeCertificateContext(int pCertContext); [DllImport(Advapi32.dll, CharSet=CharSet.Auto,SetLastError=true)] [return : MarshalAs(UnmanagedType.Bool)] internal extern static bool CryptReleaseContext(uint hProv, uint dwFlags); - Original Message - From: Berdam To: delphi-br@yahoogrupos.com.br Sent: Monday, April 23, 2007 10:41 AM Subject: Re: [delphi-br] chamar dll do Windows... mas se esta dll estiver na pasta system32 é não é diretamente chamada pelo delphi?? pelo que seu sei, quando um programa precisa de um dll, ele vai diretamente verificar nesta pasta. Márcio Ricardo escreveu: Bom dia! Alugém sabe como faço pra chamar a DLL CRYPT32.DLL e utilizar as suas funções? Tenho um exemplo em C# que faz isso, mas não sei como chamar no delphi. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] mailto:marcio.silva%40confignet.com.br *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.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: [delphi-br] XMLDocument...
Opa! Se for possível, eu aceito. Obrigado. Márcio Ricardo. - Original Message - From: Leonardo Gonçalves To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 19, 2007 4:22 PM Subject: Re: [delphi-br] XMLDocument... Em .net nunca usei nao mano mas assim no curso q eu fiz de formação delphi na tds (q propagando rs) fiz alguns exemplos que trabalhava com xml fiz tanto em .net quanto em win32 mas assim era tdo criado dinamicamente sem o uso do componente xmldocument. Se quiser posso te passar os exemplos pode ser? Em 19/04/07, Alemão [EMAIL PROTECTED] escreveu: Boa tarde Márcio. Em .net eu nunca trabalhei, mas tentei trabalhar com o xmldocument em win32 e não consegui. Esse componente é muito problemático e dá muito pau de memória. Fiquei mais de uma semana quebrando a cabeça em cima dele e só dava erro. Troquei pro componente de xml contido na biblioteca Jedi e funcionou redondinho. Sem nenhum problema. Se vc tiver o Jedi instalado aí, recomendo nem tentar usar o txmldocument. att. Em 19/04/07, Márcio Ricardo [EMAIL PROTECTED]marcio_cbj%40yahoo.com.br escreveu: Bom dia! Alguém aqui já trabalhou com XMLDocument em delphi .net? Preciso pegar o conteúdo de uma tag. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] marcio.silva%40confignet.com.br marcio.silva%40confignet.com.br *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] declarar e utilizar dll
E ae pessoal? Eu preciso declarar uma dll pra utilizar no meu projeto. Alguém sabe como faço isso? eu fiz isso:function PublicKey(const Key : X509Certificate): X509Certificate; stdcall; external 'Crypt32.dll'; mas não deu certo. Podem me judar? Bom final de semana a todos, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] XMLDocument...
Bom dia! Alguém aqui já trabalhou com XMLDocument em delphi .net? Preciso pegar o conteúdo de uma tag. Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro ClientDataSet
posta o ero ai pra nós. no Evento OnreconcileError do ClientDataSet, coloca isso: Action := raCancel; raise Exception.Create(e.Message); ai fica fácil de ver o que está acontecendo. - Original Message - From: Eduardo Suruagy To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 18, 2007 9:22 AM Subject: [delphi-br] Erro ClientDataSet Tenho uma tabela no firebird 1.5 que mcontem uma chave composta, estou usando IBX + Provider + ClientDataSet adicionei os campos no IBX e no DataSet mudei a propriedade do provider updatemode para wherekeyonly e os campos chaves alterei as propridedades providerflags: update = true; where = true; key = true; required = true, mas qd vou dar algum post da erro no sistema. alguem pode me ajudar [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] Minha opinião sobre o Delphi2007
Não programo a tanto tempo como a maniaca. Mas eu utilizo o delphi 2006 e não vejo problema. A área de desenvolvimento ficou maior, ocultando a paleta de componentes e outras paletas, na qual eu acesso através de tecla de atalho qdo eu preciso utilizar. - Original Message - From: Leonardo Quinino To: delphi-br@yahoogrupos.com.br Sent: Monday, April 16, 2007 1:11 PM Subject: Re: [delphi-br] Minha opinião sobre o Delphi2007 Já andei dando uma olhada no delphi 2005 e 2006, achei tbm putz lento, e o layout não me adaptei ainda, realmente a disposição das paletas no delphi 7 , é muito exuto, e prático. Em 16/04/07, maniacapordelphi [EMAIL PROTECTED] escreveu: Como trabalho com o Delphi desde a versão 3 e fui fiel a ela até a versão 7, vejo-me no direito de dar pitaco sobre o Delphi 2007. Depois de muito erro, muita tentativa, troca de Sistema Operacional, troca de HD, troca de memória, desativação de firewal, desativação de anti-virus, consegui instalar o Trial do Delphi 2007. 1. Download do trial extremamente demorado. 2. Instalação do trial também demorado e pesado. 3. Odiei a disposição das telas, da palheta de componentes, e de tudo o que surge quando se abre uma nova aplicação. Ficou uma tela cheia demais, cansativa aos olhos do desenvolvedor, com um espaço muito reduzido para a tela de designer e visualização do fonte. Quem está acostumado com o lay-out enxuto do Delphi 7 se assusta quando vê o lay- out do 2007. Tem como amenizar isso? Ocultar um pouco de tela, mostrar as palhetas de componentes de uma forma mais agradável aos olhos e também mais prática? De preferência, como era no Delphi 7? Trabalho com o Delphi desde a versão 3. A versão do Delphi até o Delphi 7 foi excelente(a prova é que a maioria dos desenvolvedores permaneceu nela). Mas, a partir das versões posteriores, ficou tudo muito ruim a nível de designer. 4.Não achei a palheta do QuickReport tão falada no evento da CodeGear. Eu, Mani. -- Leonardo Quinino [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] dbExpress + SQL Server + Parametros = Erro
Andersson, eu comecei a programar a pouco tempo com SQL Server, programo mais em Oracle. Desculpe, mas eu não sei o que é optimization hints. Poderia me explicar, assim eu poderei tentar te ajudar. Quando eu utilizo essa forma de parametro ? eu posso ter vários parametro no select, no delphi eu passo os parametros conforme a ordem que estão no select. Eu tenho uma aplicação que roda tanto pra SQL quanto para Oracle... criei - Original Message - From: Anderson Ribeiro To: delphi-br@yahoogrupos.com.br Sent: Monday, April 16, 2007 5:16 PM Subject: Re: [delphi-br] dbExpress + SQL Server + Parametros = Erro Márcio, colocando optimization hints, como o (nolock) por exemplo, o erro vai acontecer. O DBExpress não consegue tratá-los. Ficamos na mão. -- Anderson Luiz Ribeiro Analista de sistemas Barretos-SP Blog: http://public-void-main.blogspot.com/ E-mail: [EMAIL PROTECTED] On 4/16/07, Márcio Ricardo [EMAIL PROTECTED] wrote: eu utilizo assim: SELECT * FROM MINHA_TABELA WHERE CAMPO = ? --SIGINIFCA PASSAGEM DE PARAMETRO. e funciona. Eu nunca utilizei a declaração de variável em SQL, isso só se utiliza em Prodecure, tipo PL/SQL no Oracle. - Original Message - From: Fernando Nappe To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, April 13, 2007 11:46 AM Subject: [delphi-br] dbExpress + SQL Server + Parametros = Erro Saudações Pessoal, Honestamente, nunca havia usado dbExpress com MS SQL Server, até hoje... Vejam o exemplo de uma SQL que estou usando: declare @variavel int select @variavel = :parametro select * from minha_tabela where campo = @variavel Quando tento adicionar os campos ao Fields Editor recebo o erro: --- Error --- SQL State: 42000, SQL Error Code: 0 Erro de sintaxe ou violação de acesso --- OK --- Alguém já passou por algo parecido? Como resolveram? Desde já agradeço a ajuda e o tempo dispensado. Att. -- Fernando Nappe Analistas de Sistemas http://nappe.blogspot.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupando dados Duplicados
Bom, se eu entendi direito, não importa o quanto apareça o mesmo CPF, apenas traga um é isso né? Se for trazer apenas o CPF, esse select resolve: SELECT DISTINCT CPF, * FROM CLIENTES. E no relatório é só você criar uma banda de grupo que a própria ferramenta faz isso. O seu select é normal, vc agrupa no relatório mesmo, entendeu? Qual ferramenta vc vai utilizar pra fazer o relatório? É fácil fazer agrupamento pelo Rave, QuickReport e Crystal. Então, o seu select é da maneira que vc tinha postado no primeiro e-mail, no relatório vc agrupa, as ferramentas que citei tem as opções de agrupamento, é moleza. Qualquer coisa, estamos ai pra tentar ajudar. - Original Message - From: Tiago Vendemiatti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 9:54 AM Subject: RE: [delphi-br] Agrupando dados Duplicados Ok..vamos la. É uma tabela só... Eu preciso deixar ele aceitar dados duplicados..devido a necessidade que o cliente...pois não se trata de um cadastro de cliente..só deixei isso como exemplo. Portanto é uma tabela só...e quero agrupar os dados (ou filtrar) quando o campo cpf for igual, me trazendo apenas um registro se houver mais que um, e se tiver apenas um também trazer normalmente. Obrigado Tiago To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 17 Apr 2007 09:24:42 -0300Subject: Re: [delphi-br] Agrupando dados Duplicados Tiago, não consegui entender o que você quer, explique melhor que talvez eu possa te ajudar.Esse select vai ser feito em apenas em uma tabela? No exemplo que vc deu, como pode 1 cpf ser de vários clientes? É isso mesmo, ou ser feito um join com outra tabela?Passe mais informações para podermos te ajudar.- Original Message - From: Tiago Vendemiatti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 9:03 AMSubject: [delphi-br] Agrupando dados DuplicadosCaros...por favorSei que aqui é mais DELPHI, mas como a linguagem que estou usando é delphi.rsrs..será que alguém consegue me ajudar em uma query?TEnho uma tabela..que aceita dados duplicados.Porém em um determinado momento (relatório) preciso suprimir,agrupar,etc os dados duplicados comparando-os por apenas um campo.EX:Select Distinct cpf,* from clientesO select acima deve funcionar da segunte maneira:Comparar o e agrupar os registros em que os cpf são iguais. Apenas ele, porém trazendo os outros dados quando só existe 1.Pode ser com group by, Union ou Distinct ou qualquer coisa que de certo!Muito ObrigadoAbsTiago__Procure em qualquer página Web com protecção eficaz. Obtenha já o Windows Live Toolbar GRATUITO!http://www.toolbar.live.com[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] __ O Windows Live Spaces já chegou! É fácil criar o seu próprio Web site pessoal. http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] checkbox problema
Pessoal, tenho uma grid com um checkbox, as vezes acontece de quando o usuário clicar no checkbox o mesmo aparece 0 ou 1, que coloquei pra referir checado e não checado, e quando sai da celula é exibida o checkbox normalmente. Alguém sabe como eu faço para que não apareça o 0 e o 1? Obrigado, Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: String Grid com banco de dados Access
Kra no DBgrid é só ligar o DataSource do DBGRID com um componente TDataSource e a opção DataSet do DataSource liga o AdoTable seu. No evento show do form, vc dá um open no AdoTable, pronto seus dados estão na grid. - Original Message - From: Gustavo André de Freitas To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 10:38 AM Subject: [delphi-br] Re: String Grid com banco de dados Access Quem puder ajuda então, como faço para inserir esses dados que estão indo pro string grid num dbGrid? segue o código atual: procedure TForm1.Monitorar; var hprinter:thandle; bytesneeded,numjobs,i,ii:cardinal; pj:pjobs; begin hprinter := getcurrentprinterhandle(SGPrinter.Cells [0,linhaprinterselecionada]); try // EnumJobs(hprinter,0,100,1,nil,0,bytesneeded,numjobs); EnumJobs(hprinter,0,1000,2,nil,0,bytesneeded,numjobs); pj := AllocMem(bytesneeded); if not EnumJobs(hprinter,0,1000,2 {1},pj,bytesneeded,bytesneeded,numjobs) then RaiseLastWin32Error; // if numjobs = 0 then // else begin for i := 0 to StringGrid1.ColCount -1 do for ii := 0 to StringGrid1.RowCount -1 do StringGrid1.Cells [i,ii] := ''; StringGrid1.Cells[0,0] := 'Nome do documento'; StringGrid1.Cells[1,0] := 'Status'; StringGrid1.Cells[2,0] := 'Proprietário'; StringGrid1.Cells[3,0] := 'Páginas'; StringGrid1.Cells[4,0] := 'Enviado'; StringGrid1.Cells[5,0] := 'Tamanho'; StringGrid1.Cells[6,0] := 'Cód. Status'; if numjobs0 THEN BEGIN StringGrid1.RowCount := numjobs+1; for i := 0 to pred(numjobs) do begin StringGrid1.Cells[0,i+1] := pj^[i].pDocument; StringGrid1.Cells[1,i+1] := getstatus(pj^[i].status); StringGrid1.Cells[2,i+1] := pj^[i].pUserName; StringGrid1.Cells[3,i+1] := inttostr(pj^[i].TotalPages); StringGrid1.Cells[4,i+1] := getdatajob(pj^[i].Submitted); StringGrid1.Cells[5,i+1] := copy(FloatTostr(pj^ [i].Size/1024),1,1+pos(',',FloatTostr(pj^[i].Size/1024)))+' KB'; //FormatFloat('###,##0.0 KB',trunc((pj^[i].Size/1024)/0.1)/10); jobids[i+1] := pj^[i].JobId; StringGrid1.Cells[6,i+1] := inttostr(pj^[i].Status);//+' - '+inttostr(jobids[i]); end; end; // end; finally ClosePrinter(hprinter); end; end; --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu Companheiro, a experiência diz, e também quem trabalha com grandes quantidades de dados comprova isso, que fazer a carga e a apresentação dos dados de forma manual, sem fazer uso de controles data-aware (que são próprios para isso), é uma prática questionável, uma vez que isto impacta diretamente no tempo de resposta que sua aplicação terá. Prefira usar TDBGrid ao invés de TStringGrid, pois o TDBGrid é um controle de grid preparado para exibição de dados a partir de um dataset proveniente (ou não) de uma conexão com um banco de dados. Sds. From: Gustavo André de Freitas [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] String Grid com banco de dados Access Date: Mon, 16 Apr 2007 20:28:52 - Pessoal, tenho uma StringGrid que recebe alguns dados na minha aplicação e queria que esses dados fossem gravados num banco de dados, a princípio esse banco seria o Access, gostaria de saber como faço para linkar (?), essa StringGrid com o banco de dados. estou usando adoconection e adotable... Desde já agradeço a ajuda de todos! Gustavo André de Freitas __ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupando dados Duplicados
Tiago, não consegui entender o que você quer, explique melhor que talvez eu possa te ajudar. Esse select vai ser feito em apenas em uma tabela? No exemplo que vc deu, como pode 1 cpf ser de vários clientes? É isso mesmo, ou ser feito um join com outra tabela? Passe mais informações para podermos te ajudar. - Original Message - From: Tiago Vendemiatti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 9:03 AM Subject: [delphi-br] Agrupando dados Duplicados Caros...por favor Sei que aqui é mais DELPHI, mas como a linguagem que estou usando é delphi.rsrs..será que alguém consegue me ajudar em uma query? TEnho uma tabela..que aceita dados duplicados. Porém em um determinado momento (relatório) preciso suprimir,agrupar,etc os dados duplicados comparando-os por apenas um campo. EX: Select Distinct cpf,* from clientes O select acima deve funcionar da segunte maneira: Comparar o e agrupar os registros em que os cpf são iguais. Apenas ele, porém trazendo os outros dados quando só existe 1. Pode ser com group by, Union ou Distinct ou qualquer coisa que de certo! Muito Obrigado Abs Tiago __ Procure em qualquer página Web com protecção eficaz. Obtenha já o Windows Live Toolbar GRATUITO! http://www.toolbar.live.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] Agrupando dados Duplicados
Ok, vamos lá. O exemplo que vc colocou: SELECT DISTINCT CPF, NOME FROM CLIENTES. ela vai trazer apenas uma vez o Nome = Tiago e o CPF=123456789, desde que o nome seja igual, ok? Tenta assim: SELECT DISTINCT CPF, NOME FROM CLIENTES GROUP BY CPF, NOME ORDER BY CPF, NOME OBS: LEMBRANDO QUE SE O CPF ESTIVER PARA DOIS NOMES DIFERENTES, ELE VAI SE REPETIR, OK? se quiser pode adicionar mais campos. falow. - Original Message - From: André - Gmail To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 2:34 PM Subject: Re: [delphi-br] Agrupando dados Duplicados Select Distinct(cpf), clientes.* from clientes ou então vc coloca o nome de todos os campos que vc quiser após o distinct(cpf) - Original Message - From: Tiago Vendemiatti [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 2:23 PM Subject: RE: [delphi-br] Agrupando dados Duplicados Então... Como eu disse...eu quero trazer tudo... Imagina assim: Se existir três registro como Nome Tiago, cpf 123456789. Fora os outros que não se repetem. Se fizer um select normal vai vir: nome cpf Tiago 123456789 Tiago 123456789 Tiago 123456789 outros outros nomes cpf's Mas quero que saia assim: nome cpf Tiago 123456789 outros outros nomes cpf's Apenas um..porém não trazendo apenas o cpf...mas sim todos os outros campos...porém o DISTINCT deverá verificar apenas o CPF. Ficou mais claro? Obrigado pela ajuda Abs Tiago To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 17 Apr 2007 11:13:15 -0300Subject: Re: [delphi-br] Agrupando dados Duplicados Bom, se eu entendi direito, não importa o quanto apareça o mesmo CPF, apenas traga um é isso né?Se for trazer apenas o CPF, esse select resolve: SELECT DISTINCT CPF, * FROM CLIENTES.E no relatório é só você criar uma banda de grupo que a própria ferramenta faz isso. O seu select é normal, vc agrupa no relatório mesmo, entendeu?Qual ferramenta vc vai utilizar pra fazer o relatório? É fácil fazer agrupamento pelo Rave, QuickReport e Crystal. Então, o seu select é da maneira que vc tinha postado no primeiro e-mail, no relatório vc agrupa, as ferramentas que citei tem as opções de agrupamento, é moleza.Qualquer coisa, estamos ai pra tentar ajudar.- Original Message - From: Tiago Vendemiatti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 9:54 AMSubject: RE: [delphi-br] Agrupando dados DuplicadosOk..vamos la.É uma tabela só...Eu preciso deixar ele aceitar dados duplicados..devido a necessidade que o cliente...pois não se trata de um cadastro de cliente..só deixei isso como exemplo.Portanto é uma tabela só...e quero agrupar os dados (ou filtrar) quando o campo cpf for igual, me trazendo apenas um registro se houver mais que um, e se tiver apenas um também trazer normalmente.ObrigadoTiagoTo: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 17 Apr 2007 09:24:42 -0300Subject: Re: [delphi-br] Agrupando dados DuplicadosTiago, não consegui entender o que você quer, explique melhor que talvez eu possa te ajudar.Esse select vai ser feito em apenas em uma tabela? No exemplo que vc deu, como pode 1 cpf ser de vários clientes? É isso mesmo, ou ser feito um join com outra tabela?Passe mais informações para podermos te ajudar.- Original Message - From: Tiago Vendemiatti To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 17, 2007 9:03 AMSubject: [delphi-br] Agrupando dados DuplicadosCaros...por favorSei que aqui é mais DELPHI, mas como a linguagem que estou usando é delphi.rsrs..será que alguém consegue me ajudar em uma query?TEnho uma tabela..que aceita dados duplicados.Porém em um determinado momento (relatório) preciso suprimir,agrupar,etc os dados duplicados comparando-os por apenas um campo.EX:Select Distinct cpf,* from clientesO select acima deve funcionar da segunte maneira:Comparar o e agrupar os registros em que os cpf são iguais. Apenas ele, porém trazendo os outros dados quando só existe 1.Pode ser com group by, Union ou Distinct ou qualquer coisa que de certo!Muito ObrigadoAbsTiago__Procure em qualquer página Web com protecção eficaz. Obtenha já o Windows Live Toolbar GRATUITO!http://www.toolbar.live.com[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] __O Windows Live Spaces já chegou! É fácil criar o seu próprio Web site pessoal.http://spaces.live.com/signup.aspx[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] __ O Windows Live Spaces já chegou! É fácil criar o seu próprio Web site
[delphi-br] bandeja de impressão...
Alguém sabe como eu faço para pegar o nome da Bandeja de Impressão, p.ex. bandeja1. t+. Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] grid com checkbox...
Bom dia a todos! Tenho uma grid com dois checkbox, que estão funcionando quase que perfeitamente. O problema que estou tendo é que as vezes me aparece o número 1 ou 0 que indicam 1-checado e 0-não checado. Alguém sabe como resolver isso? Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] dbExpress + SQL Server + Parametros = Erro
eu utilizo assim: SELECT * FROM MINHA_TABELA WHERE CAMPO = ? --SIGINIFCA PASSAGEM DE PARAMETRO. e funciona. Eu nunca utilizei a declaração de variável em SQL, isso só se utiliza em Prodecure, tipo PL/SQL no Oracle. - Original Message - From: Fernando Nappe To: delphi-br@yahoogrupos.com.br Sent: Friday, April 13, 2007 11:46 AM Subject: [delphi-br] dbExpress + SQL Server + Parametros = Erro Saudações Pessoal, Honestamente, nunca havia usado dbExpress com MS SQL Server, até hoje... Vejam o exemplo de uma SQL que estou usando: declare @variavel int select @variavel = :parametro select * from minha_tabela where campo = @variavel Quando tento adicionar os campos ao Fields Editor recebo o erro: --- Error --- SQL State: 42000, SQL Error Code: 0 Erro de sintaxe ou violação de acesso --- OK --- Alguém já passou por algo parecido? Como resolveram? Desde já agradeço a ajuda e o tempo dispensado. Att. -- Fernando Nappe Analistas de Sistemas http://nappe.blogspot.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] Ler arquivo XML
O ClientDataSet faz isso. cdsLeXML.Close; cdsLeXML.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Criptografia.xml'); cdsLeXML.Open; No meu caso tenho os campos criados no CllientDataSet, não sei e é isso que vc quer. Aqui eu gravei no xml e depois li o mesmo. - Original Message - From: Marcos André To: delphi-br@yahoogrupos.com.br Sent: Monday, April 16, 2007 11:44 AM Subject: [delphi-br] Ler arquivo XML Olá pessoal, Alguém conhece um componente, ou uma rotina fácil para se ler arquivos XML??? Já um componente no Delphi, mas ainda n consegui usar... obrigado -- Um abraço Marcos André [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] Filter dinâmico
Paulo, obrigado pela dica. O usuário insere no máximo 3 registros em uma GRID que está ligada a um DataSource que está ligado a um ClientDataSet. Conforme for escolhendo eu adiciono mais um em um contador e com esse contador fiz um for, segue abaixo o resultado: procedure TfrmExportaXML.SpeedButton3Click(Sender: TObject); var i : integer; condicao : string; begin cdsAuxiliar.First; for I := 0 to contador-1 do begin if i = 0 then condicao := 'XML_ENVIO LIKE' + QuotedStr('%'+ cdsAuxiliarTag_XML.AsString + '' + cdsAuxiliarVALOR.AsString + '/' + cdsAuxiliarTag_XML.AsString + '%') else condicao := condicao + ' OR XML_ENVIO LIKE' + QuotedStr('%'+ cdsAuxiliarTag_XML.AsString + '' + cdsAuxiliarVALOR.AsString + '/' + cdsAuxiliarTag_XML.AsString + '%'); cdsAuxiliar.Next; end; DM.cdsConsultaNFe.Filter := condicao; DM.cdsConsultaNFe.Filtered := True; DM.cdsConsultaNFe.Close; DM.cdsConsultaNFe.Open; end; - Original Message - From: Paulo Alexsandro To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 10, 2007 7:48 PM Subject: Re: [delphi-br] Filter dinâmico HI, pressionei o tab sem querer e foi o que eu tinha digitado, hehehe vc vai ter que saber o tipo do campo para montar isso aí, por que se for uma data vai ter que botar no formato americano e dá um QuotedStr como vai ser a tela para o usuário escolher os campos que deseja ? pergunto, porque se tiver uma lista de 10 campo e ele colocar um valor em 3, aí vc usar um for, testa qual ele informou o valor e e monta a condição for 1 to 10 if Length(ValorCampo) 0 then Condicao := Condicao + NomeCampo = FormataValorCampo(ValorCampo) + ' AND ' ; end; depois vc deleta as última 5 posições da string FormataValorCampo() é para retornar de acordo com o tipo do campo é por aí -- Paulo Alexsandro - dprogrammer http://dprogrammer.wordpress.com/ Em 10/04/07, Paulo Alexsandro [EMAIL PROTECTED] escreveu: HI, acredito Em 10/04/07, marcio_cbj [EMAIL PROTECTED] escreveu: Pessoal, alguém já precisou trabalhar com filtro dinâmico do ClientDataSet.Filter. tenho uma aplicação que o usuário faz uma consulta e exibe os dados na GRID, com o resultado dessa consulta o usuário pode escolher até três campos para fazer o filtro em cima dos valores consultados. Sei que é só ir colocando AND após uma condição de filtro, mas como fazer? Os campos que o usuário escolhe eu coloca em outra grid que contém a informação a ser consultada. Deu pra entender? Se alguém puder me ajudar. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dois checkbox na GRID...
Olá Pessoal. Alguém já trabalhou com dois checkbox na mesma GRID? Tenho duas colunas com checkbox, mas quando seleciono um checkbox outro tbém é checado. Estou usando a propriedade SelectedIndex para alternar entre checado e não checado, mas no evendo DrawnColumnCell ele seleciona tudo, vejam se está correto: DBGrid2.DefaultDrawDataCell(Rect, DBGrid2.columns[datacol].field, State); if (Column.FieldName = 'XENVIO') or (Column.FieldName = 'XRETORNO') then begin Self.DBGrid2.Canvas.FillRect(Rect); CheckBoxRectangle.Left := Rect.Left + 2; CheckBoxRectangle.Right := Rect.Right - 2; CheckBoxRectangle.Top := Rect.Top + 2; CheckBoxRectangle.Bottom := Rect.Bottom - 2; if (DBGrid2.SelectedIndex = 5) then begin if (DM.cdsConsultaNFe.FieldByName('XENVIO').AsString = '1') then DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[True]) else DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[False]); end; if (DBGrid2.SelectedIndex = 6) then begin if (DM.cdsConsultaNFe.FieldByName('XRETORNO').AsString = '1') then DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[True]) else DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[False]); end; end; Márcio Ricardo Alves da Silva Programador Pleno [EMAIL PROTECTED] *** Antes de imprimir, pense em seu compromisso com o Meio Ambiente *** Config Informática Ltda Av. Eng. Luis Carlos Berrini, 801 - 7º andar Brooklin Novo - São Paulo - SP CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 2007
estou precisando desenvolver um sistema completo em delphi, alguem ta afim de passar a proposta ??? abraços [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] RE: Lentidão
Caro Fernando: O campo NFID do ORDER BY tem índice? EMPRESAID também? Qual é o banco que você está utilizando? - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, April 01, 2006 3:37 PM Subject: Re: [delphi-br] RE: Lentidão ta assim select * from NF where EMPRESAID = :EMPRESAID order by NFID Citando Josir Gomes [EMAIL PROTECTED]: Olá Fernando, passe pra gente como está o SQL da sua query. Seguinte meu programa tava trabalhando normal, ae derrepente qndo xega no open da query fica muuitt lento, consegui resolver o problema do open mas quando eu estou editando a query no form fica bem lento oq deve ser isso??? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM http://br.groups.yahoo.com/group/delphi-br/messages [EMAIL PROTECTED] Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Intraweb x JavaScript
Caro Fernando: Se você criar e destruir o formulário, você poderia utilizar OnCreate/OnDestroy. Mas parece que você mantém o formulário, não é? Você já tentou utilizar o OnRender? - Original Message - From: Fernando Moreira de Sousa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 21, 2006 5:06 PM Subject: [delphi-br] Intraweb x JavaScript Olá pessoal, estou fazendo um teste de converter um sistema Win32 para Web utilizando Intraweb no Delphi 2006. Não encontrei uma forma de disparar um comando, que pode ser cliente (JavaScript) ou Servidor (Delphi), em dois momentos: ao carregar a página (onLoad) e ao descarregar a página (onUnload). Para simplicar seria o seguinte: Ao carregar uma nova página gostaria de mostrar uma mensagem como Olá! (ex: onLoad = alert('Olá'); ) e ao sair da página mostrar tchau (ex: onUnload = alert('Tchau'); ) Parece ser simples, mas o formulário do Intraweb não permite (pelo menos eu não encontrei) uma forma de incluir comandos JavaScript nos eventos onLoad e onUnload. Será que alguém poderia me ajudar! Desde já agradeço! Abraços! _ Fernando Sousa Belo Horizonte - MG -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Descarregar variavél da Memoria
Estou criando transações no DBXpress. E uso variaveis do tipo TTransactionDesc = packed record. Gostaria de saber se ela tem que ser liberada da memoria. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Super Componentes
Esses componentes são pagos em www.delphitools.com.br Vc pode adiquirir cds com centenas de componentes craqueado. Comprei o cd e uso todos da dev. --- Em delphi-br@yahoogrupos.com.br, Arthur Souza [EMAIL PROTECTED] escreveu Alguém sabe onde posso encontrar esses componentes? - Info Power 4000 - DevExpress Agradeço, [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Quem é esse componente?
Cara se não me engano são relacionados a componentes da DevExpress. Pois existe nos componentes da dev uma biblioteca que se chama CXLibrary. --- Em delphi-br@yahoogrupos.com.br, Arthur Souza [EMAIL PROTECTED] escreveu Olá pessoal.. Tenho baixado um fonte de um aplicação na Internet e quando vou a abrir algumas foms, me aparece o seguinte erro: não foi encontrado a classe TCXButton, TCX GroupBox... Acredito que está faltando algum componente para operar estas classes... Agradeço se alguém souber q componente é esse.. Arthur MS [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?]
No mercado Livre tem... --- Em delphi-br@yahoogrupos.com.br, Anderson Cichon [EMAIL PROTECTED] escreveu E alguém tem idéias de onde encontrar essa tela que vai na frente do monitor para vender? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de TechVale - Gustavo Enviada em: quinta-feira, 23 de fevereiro de 2006 23:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Ola pessoal, O touchscreen funciona mais ou menos assim... Você coloca uma tela como se fosse um desses protetores de tela que vc compra por aí na frente de seu monitor. Este vidro tem uma pelicula em 2 camadas que formam um pequeno capacitor. Dependendo de onde vc toca na tela a capacitancia varia. Para detectar esta variação de capacitancia vc precisa instalar uma placa que gera os sinais que excitam esta pelicula. Uma vez que a capacitancia varie, esta placa transforma esta variação em coordenada de tela enviando ao sistema operacional através do driver apropriado, dependendo do modelo. Uma vez trabalhei com uma placa que tinha uma saída que era colocado em uma ligação estrela com o mouse, ou seja, o mouse ia ligado nela e tinha uma saida que era ligado na entrada do mouse. Normalmente a programação com tela touchscreen é transparente ao aplicativo pois o programa recebe os dados como se fosse o mouse, ou seja, se vc tocar na posição do botão OK em uma caixa de dialogo, o aplicativo recebe um click como se o mouse tivesse clicado ali. Porém, para tirar proveito ao máximo destas telas touchscreen, o aplicativo precisa ser desenvolvido para usar ao máximo o mouse. Normalemnte os aplicativos usam mais o teclado que o mouse... Espero ter ajudado.. Abraços, Gustavo C. Bianconi. Técnico Eletrônico CREA-SP 0681944836 Celular : (12) 9123.0302 Email : [EMAIL PROTECTED] MSN : [EMAIL PROTECTED] Sistemas, Serviços e Equipamentos para Automação R Romeu Carnevalli, 200 CS03 - Centro São José dos Campos - SP - 12209-490 TeleFax 12 3923.5414 www.techvale.com.br - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Cc: [EMAIL PROTECTED] Sent: Thursday, February 23, 2006 4:50 PM Subject: RES: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Éh, na verdade o assunto é pouco explorado. Eu vou dar uma fuçada no Copernico hoje a noite e ver o que acho de interessante. O que eu tinha escrito, baseei no site abaixo e lá dizia da placa. http://www.automatica.com.br/periferi_quiosque.htm []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Filipe Xavier Ramalho Enviada em: quinta-feira, 23 de fevereiro de 2006 12:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] http://www.waytec.com.br/conteudo.asp?lnk=produtos/ct5w Walter, não seria possível fazer a detecção dos toques apenas com uma placa, o vidro do monitor não teria como identificar os pontos de toque. O site acima é de um produto que compõe o seguinte: uma tela resistiva e uma placa controladora. a tela deve ser colotada sobre o monitor, para transformá-lo em um TouchScreen. Att, Filipe Xavier Ramalho Desenvolvimento Telefone: (41) 3219-2042 Duty Sistemas de Gerenciamento de Riscos S/A http://www.duty.com.br Antes de imprimir pense no MEIO AMBIENTE! - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Thursday, February 23, 2006 12:11 PM Subject: RES: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Não é tela. É uma placa especial que é instalada no computador e que deve detectar os toques. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Campus Enviada em: quinta-feira, 23 de fevereiro de 2006 10:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistema funcionando com toque no monitor [ como fazer ?] Provavelmente. É uma tela que é aplicada sobre o cinescópio do monitor, já vem com a fiação para conectar na porta serial ou usb. Deve se comportar como os leitores de código de barra que são conectados via teclado. - Original Message - From: Emerson Moreno [EMAIL PROTECTED] To:
Re: RES: [delphi-br] Diagramas[OFF]
O SQL Server tem seu proprio sistema. No Enterprise Manager que acompanha o SQL SERVER. --- Em delphi-br@yahoogrupos.com.br, leo rodrigues [EMAIL PROTECTED] escreveu Existe também o Rational Rose, é muito bom. anderson valerio [EMAIL PROTECTED] escreveu: Ja ouviu falar do ErWin 4.1, [e uma excelente ferramenta de modelagem de dados, vai te atender muito bem !!! Colegas, Estava precisando estudar um banco de dados SQL Server, mais especificamente o CorporeRM da RM Sistemas. Pensei numa ferramenta que gerasse os diagramas e os relacionamentos deste banco. Vocês conhece algo parecido? Edmilson Pontes [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE clubs/S=2137111264:HM/Y=BR/EXP=1140548777/A=3310604/R=2/id=noscript/SIG=1540 fueht/*http:/lt.dell.com/lt/lt.aspx?CID=11377LID=314739DGC=BADGSeg=DHSDU RL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26 l%3dpt%26s%3ddhs 50.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos - Yahoo! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Auditar impressões de uma máquina
Eu tenho um sample de como listar os Print Jobs. me manda seu e-mail que eu envio. --- Em delphi-br@yahoogrupos.com.br, Murillo Proença [EMAIL PROTECTED] escreveu Estou precisando desenvolver um software que ficará residente na memória do micro e para cada impressão que o usuário enviar, eu tenho que pegar o nome do documento e quantidade de cópias enviadas. Alguém já fez algo parecido ou sabe de algum doc, artigo, download? Grato Murillo Proença -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Auditar impressões de uma máquina
Coloquei nos arquivos do grupo. PrintJobs.Zip. Márcio --- Em delphi-br@yahoogrupos.com.br, Murillo Proença [EMAIL PROTECTED] escreveu Estou precisando desenvolver um software que ficará residente na memória do micro e para cada impressão que o usuário enviar, eu tenho que pegar o nome do documento e quantidade de cópias enviadas. Alguém já fez algo parecido ou sabe de algum doc, artigo, download? Grato Murillo Proença -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Tclientdaset verificar estado como um todo.
Boa tarde, Estou migrando um sistema de IBO para DBExpress, para aceitar varios bancos. No sistema existe uma propriedade da TIBOQuery que se chama UpdatePending que verifica se foi dado ou não applyupdates e commitupdates no TIBOQuery. Gostaria de saber se o ClientDataSet existe uma funçõa semelhante? Pois UpdateStatus e State trata somente o record. Obrigado desde já. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Validar diretório
if DirectoryExists('c:\temp') then ShowMessage('Existe') else ShowMessage('Não Existe') Marc_Adans. --- Em delphi-br@yahoogrupos.com.br, aureosl [EMAIL PROTECTED] escreveu Amigos, Quero verificar se o diretório informado pelo usuário em um dbedit é válido ou não, para evitar o erro de I/O entre o final da consulta do banco de dados e a gravação do arquivo txt. Alguém poderia me dar uma dica? Áureo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Máscara em Table
Adicione os Tfield's na Table e na propriedade do Field que se chama DisplayFormat de for Numerico ou EditMask se for String. Procure no Help do delphi (DisplayFormat , EditMask ) que achará exemplos. Marc_Adans. --- Em delphi-br@yahoogrupos.com.br, pcinfowave [EMAIL PROTECTED] escreveu Ola... Tenho um campo q quero colocar mascara nele. É um número de cartões de plano de saúde e eles tem a seguinte estrutura: 0129.01-15.2 0129.02-23.5 0129.03-31.8 No caso, após o 0129, é uma sequencia numérica e ó temos 120 cadastros, então quero que a máscara fique assim: 0129.000___-__._ Acontece que já usei assim: \012\9\.\0\0\.00-0;1;_ mas quando eu digito o ultimo numero ele desaparece e não grava Alguém pode me dar uma ajuda? []s´ Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Fw: Help erro
Reveja as propriedade DataFields do seu TDBEditor. Alguma deve estar com nome errado. --- Em delphi-br@yahoogrupos.com.br, val [EMAIL PROTECTED] escreveu Pessoal to precisando da seguinte ajuda. Tenho 3 tabelas: Locacao _ cd_locacao PK cd_cli FK dt_locacao dt_devolucao Item_locacao ___ cd_item PK cd_locacao FK cd_cli FK Cd_car FK quantidade Car cd_car nome Utilizo conexão Ado. Em Um for fiz o seguinte coloquei Adotablelocacao ligado ao datasourcelotacao e varios DBedit ligado a este data source. AdotableItemlocacao ligado ao datasourcelotacao e varios DBedit ligado a este data source Só que se deixo o Adotablelocacao true da o seguinte erro: Raised exception class edatabaseerror wicth message 'A componente named XPKlotacao already exists'. Onde estou errando..? Cadanos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Renomeando JPG em Lote
Com a função abaixo vc pode pesquisar um direotrio usando uma mascara de arquivos, ele retorna um Tstringlist. Depois é só fazer um laço for com a sua string list contendo a função renamefile da unit sysutils. Marc_Adans function GetFileList(FDirectory, Filter: TFileName; ShowFolder:Boolean): TStringList; var ARec: TSearchRec; Res: Integer; begin if FDirectory[Length(FDirectory)] '\' then begin FDirectory := FDirectory + '\'; end; Result := TStringList.Create; try Res := FindFirst(FDirectory + Filter, faAnyFile or faArchive, ARec); while Res = 0 do begin if ((ARec.Attr and faArchive) = faAnyFile) or ((ARec.Attr and faArchive) = faArchive) then begin if ShowFolder then begin Result.Add(FDirectory + ARec.Name); end else begin Result.Add(ARec.Name); end end; Res := FindNext(ARec); end; FindClose(ARec); except Result.Free; end; end; --- Em delphi-br@yahoogrupos.com.br, Arthur Souza [EMAIL PROTECTED] escreveu Boa tarde pessoal, Estou com uma dúvida aki para realizar uma manutenção em meu sistema. Pois precisaria estar realizando um programinha para estar renomeando meus arquivos JPG. No meu caso tenho alocado num diretório 5 mil JPG's e gostaria de estar renomeando esse lote um a um, esses arquivos, numa sequência numérica. como posso estar realizando isso? por exemplo: xxx.jpg, yyy.jpg.zzz.jpg assim renomeando-os para a ordem numérica assim:-- 1.jpg, 2.jpg...5000.jpg Obrigado [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Desing Arrojado
No site da clube delphi (www.clubedelphi.net) Existe um artigo sobre o assunto. Faça uma pesquisa no site.. Marc_Adans. --- Em delphi-br@yahoogrupos.com.br, Moked - Tamara \(Brazil\) [EMAIL PROTECTED] escreveu http://www.moked.com.br/ Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Visual abaixo???rs... Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9000:2000 O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge Ericsson Silva Pinheiro Enviada em: terça-feira, 21 de fevereiro de 2006 16:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Desing Arrojado Olá amigos delphianos, Alguém conhece algum componente que crie formulários com o visual abaixo ? Obrigado, [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.ard.yahoo.com/SIG=12f0sdbp8/M=396547.7942355.8848059.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140551703/A=3310604/R=2/id=noscript/SIG=1540fueht/*http://lt.dell.com/lt/lt.aspx?CID=11377LID=314739DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Desing Arrojado
Achei o link http://www.devmedia.com.br/visualizacomponente.aspx?comp=281site=3 Marc_Adans --- Em delphi-br@yahoogrupos.com.br, Márcio Rodrgues [EMAIL PROTECTED] escreveu No site da clube delphi (www.clubedelphi.net) Existe um artigo sobre o assunto. Faça uma pesquisa no site.. Marc_Adans. --- Em delphi-br@yahoogrupos.com.br, Moked - Tamara \(Brazil\) [EMAIL PROTECTED] escreveu http://www.moked.com.br/ Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Visual abaixo???rs... Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9000:2000 O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge Ericsson Silva Pinheiro Enviada em: terça-feira, 21 de fevereiro de 2006 16:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Desing Arrojado Olá amigos delphianos, Alguém conhece algum componente que crie formulários com o visual abaixo ? Obrigado, [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.ard.yahoo.com/SIG=12f0sdbp8/M=396547.7942355.8848059.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140551703/A=3310604/R=2/id=noscript/SIG=1540fueht/*http://lt.dell.com/lt/lt.aspx?CID=11377LID=314739DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Acessar o Mysql 5.0
Acesse os link http://www.delphibr.com.br/artigos/mysql_delphi.php http://www.imasters.com.br/artigo.php?cn=3405cc=254 http://www.imasters.com.br/artigo.php?cn=3377cc=254 Marc_Adans --- Em delphi-br@yahoogrupos.com.br, Milton Ribeiro Lima [EMAIL PROTECTED] escreveu Boa tarde a todos! Sou inciante... Como acesso o My 5.0 via ODBC, ja que todos os componentes free nao acessam as SP e Trig dai optei por ODBC. Alguem tem um passo-a-passo ou algum ideia de como acessar Free. Grato a todos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQLStoredProc, Oracle, pacote e Cursor
Caros senhores: Em um banco Oracle 10g, possuo um pacote com um procedimento que me retorna um REF cursor: PACKAGE PKG_ACOMODACOES as type CURSOR_REF__ACOMODACOES IS REF CURSOR RETURN ACOMODACOES%ROWTYPE; PROCEDURE PR_REF_ACOMODACOES ( v_CURSOR_REF_ACOMODACOES out CURSOR_REF__ACOMODACOES ); Utilizei um SQLStoredProc para chamar o procedimento. O parâmetro neste ficou como ftCursor e mudando a propriedade Active para True, este não apresenta nenhum problema. A pergunta é: como é que eu faço para transferir os valores retornados para os campos do Delphi? No aguardo, Márcio de Figueiredo Moura e Castro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] off-topic - direitos do programador...
Ué... cês tão muito bem! Ninguém falow em trabalhar até a madrugada, no carnaval, ano novo... :-) - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Wednesday, February 15, 2006 3:55 PM Subject: RES: [delphi-br] off-topic - direitos do programador... Não é bem assim também não né gente! Eita povo que exagera. Você tem direito ao almoço né, senão se passa mal a tarde! []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Eduardo Alves Enviada em: quarta-feira, 15 de fevereiro de 2006 15:49 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] off-topic - direitos do programador... Vc tem direito a café e banheiro ??? Tem vaga para mais um ai Rsrsrs Eduardo -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Mario Scavoni Sent: quarta-feira, 15 de fevereiro de 2006 15:42 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] off-topic - direitos do programador... vamos lá: horários de trabalhos: Todos máximo por dia: dia e noite intervalos: café e banheiro férias: o q é isso? rs... desculpe. - Original Message - From: Spadinha [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Sent: Wednesday, February 15, 2006 2:35 PM Subject: [delphi-br] off-topic - direitos do programador... olah para todos desculpe enviar essa mensagem off... mais gostaria de abrir uma discussao sobre os direitos do programador caso alguem tenha alguma documentacao ... sobre horarios de trabalho, maximo por dia... intervalos ... relacionados a RH... agradeco... obrigado e desculpas andre -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] SQLStoredProc, Oracle, pacote e Cursor
Caros senhores: Em um banco Oracle 10g, possuo um pacote com um procedimento que me retorna um REF cursor: PACKAGE PKG_ACOMODACOES as type CURSOR_REF__ACOMODACOES IS REF CURSOR RETURN ACOMODACOES%ROWTYPE; PROCEDURE PR_REF_ACOMODACOES ( v_CURSOR_REF_ACOMODACOES out CURSOR_REF__ACOMODACOES ); Utilizei um SQLStoredProc para chamar o procedimento. O parâmetro neste ficou como ftCursor e mudando a propriedade Active para True, este não apresenta nenhum problema. A pergunta é: como é que eu faço para transferir os valores retornados para os campos do Delphi? No aguardo, Márcio de Figueiredo Moura e Castro [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] PARAMETROS
Caro Gustavo: Segue um exemplo utilizando o TSQLStoredProc que parâmetros de IN e OUT e utilizando Oracle 10g. SQLStoredProcPKG_ACOMODACOES.ParamByName('Sender').AsString := 'LOCALIZAR'; SQLStoredProcPKG_ACOMODACOES.ParamByName('PI_CODIGO_ACOMODACAO').AsString := CODIGO_ACOMODACAO.Text; SQLStoredProcPKG_ACOMODACOES.ExecProc; CODIGO_ACOMODACAO.Text := SQLStoredProcPKG_ACOMODACOES.ParamByName('PO_CODIGO_ACOMODACAO').AsString; Espero ter ajudado. - Original Message - From: Gustavo Sequeira To: delphi-br@yahoogrupos.com.br Sent: Friday, February 10, 2006 9:30 PM Subject: [delphi-br] PARAMETROS boa noite a todos da lista estou precisando urgente de ajuda... estou com um banco e tenho SP (Stored Procedure) e preciso jogar isso no delphi dae tudo bem a bronca e como receber os parametros do form, gostaria de saber como recebo eles e qual seria o componente nao gostaria de fazer... assim: blabla.parambyname('param').value := blabla, gostaria de algo mais profissional -- Att. Gustavo Sequeira Respondeu-lhe Yaohushua: Eu sou o caminho, e a verdade, e a vida; ninguém vem ao Pai, senão por mim. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] login com acesso ao banco de dados paradox
Como fazer: um login com acesso a banco de dados que temha os seguintes dados: usuário,grupo,senha e caso for usuário do grupo correto e também a senha conferir abre o formulário principal sendo que estes dados estarão registrados em uma tabela paradox caso alguém tiver um arquivo pronto pode me mandar para o e-mail [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fórum
Interessados em um no fórum: http://forums.cjb.net/index.php?mforum=delphi --- iBestMail, agora com POP3/SMTP e 120MB de espaço! Experimente: http://www.ibestmail.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: DBGrid colorido e zebrado
Como posso pegar esses componentes? Márcio Frossard - Original Message - From: Luis Alberto Lopes To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 11:38 AM Subject: Re: [delphi-br] Re: DBGrid colorido e zebrado Dê uma olhada na biblioteca de componentes Jedi. Tem um componente grid que tem isso e mais uma série de componentes interessantes. É uma biblioteca Free e muito boa. -Mensagem Original- De: Osmar de Souza Júnior [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: segunda-feira, 24 de janeiro de 2005 10:53 Assunto: [delphi-br] Re: DBGrid colorido e zebrado dá uma olhada no historico de mensagens. se naum me engano isso ja foi discutido aqui... --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu Galera, alguém sabe como fazer para deixar cada coluna de um dbgrid com uma cor e ainda por cima zebrado ? Eu sei como deixar um ou outro, mas eu gostaria de deixar os dois ao mesmo tempo. _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[EMAIL PROTECTED] _ | _) )_ (((\ \)|_/ )___( \_|(/ /))) ( \_/ / \ \_/ ) \ / \ / \_/ \_/ / / \ \ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Mudar de campo pelo tamanha do Edit
Se não usar todo o MaxLength do campo, é só dar uma tab da forma normal para saltar de campo. - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 20, 2005 2:09 PM Subject: RES: [delphi-br] Mudar de campo pelo tamanha do Edit E se vc não usar todo o maxlength do campo, terá que colocar uma procedure que troca o tab pelo enter ? -Mensagem original- De: jmourajr2000 [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 20 de janeiro de 2005 12:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Mudar de campo pelo tamanha do Edit Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem postei a duvida e então lá vai: Crie a seguinte procedure procedure TForm1.SaltaCampos(Sender: TObject); begin if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then Perform(WM_NEXTDLGCTL,0,0); end; depois ligue ela a todos os seus edit's através do OnChange, mas somente cuide, se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os TEdit. Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de terde colocar em todos os lugares os comandos. Abraços. José de Moura -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Sistema para Controle de Versões
No próprio site do FreeVcs vc encontra uma boa documentação, mas em português você pode encontrar tb em: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=88 http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=113 ou se preferir você pode entrar em contato pelo ICQ com o Tiago Chagas, foi ele quem escreveu estes dois tutoriais e já me ajudou bastante com o FreeVCS, o n° do ICQ dele é: 129257305. - Original Message - From: Rogério [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 17, 2005 4:52 PM Subject: Re: [delphi-br] Sistema para Controle de Versões Conheces algum manual para utilização do FreeVCS ?? Tenho ele, mas não o instalei ainda para não onfundir os desenvolvedores... - Original Message - From: Danilo Antonio Leite [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 17, 2005 6:49 PM Subject: Re: [delphi-br] Sistema para Controle de Versões Pesquise por FreeVCS. Aqui nós utilizamos e ele atende perfeitamente. Atenciosamente, Danilo Antônio Leite Arcadian Tecnologia SA [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] CEP qual a forma correta de se trabalhar ??
Na minha opinião se no momento que o usuário preenche o CEP e este carrega as informações de logradouro, cidade e bairro, não se deve mais mexer nestes campos, pelo menos é assim que nós aqui trabalhamos. Ao menos que o CEP carregue somente a cidade, ai sim permitir que ele altere o logradouro e o bairro. - Original Message - From: Marcelo Carvalho [EMAIL PROTECTED] To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; [EMAIL PROTECTED] Sent: Tuesday, January 18, 2005 7:58 AM Subject: [delphi-br] CEP qual a forma correta de se trabalhar ?? Bom Dia, Uma dúvida uma vez que se trabalha com tabelas de CEP's qual a postura do sistema se deve tomar ?? Pegunto isso pois nunca sei se devo pedir somente o CEP e os demais campos ( ENDERECO, CIDADE, BAIRRO, UF ) já vem preenchidos, sem condição de alteração e depois já cai diretamente no campo de numero ou complemento do endeço ou se deixo o usuário alterar os campos ENDERECO, CIDADE, BAIRRO e UF ?? Uma vez que ele informe um CEP válido estes campos já estaram preenchidos se ele alterar não estará distorcendo a validação do endereço ?? Atenciosamente, Marcelo Carvalho Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu contéudo é restrito ao(s) destinatário(s) da mensagem. Qualquer uso nao autorizado, replicaçao ou disseminaçao desta mensagem ou parte dela é expressamente proibido. Esse e-mail foi certificado contra virus. ISCMPA - Irmandade da Santa Casa de Misericórdia de Porto Alegre [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como saltar campos automaticamente.
Eu fiz o seguinte teste e deu certo: Crie a seguinte procedure procedure TForm1.SaltaCampos(Sender: TObject); begin if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength)) then Perform(WM_NEXTDLGCTL,0,0); end; depois ligue ela a todos os seus edit's através do OnChange, mas somente cuide, se vc estiver trabalhando com TDBEdit deve alterar na procedure onde tem os TEdit. Sendo assim vc tera somente um processo que fara tudo, sem a necessidade de terde colocar em todos os lugares os comandos. Espero ter ajudado.. []'s /]/[EMAIL PROTECTED] - Original Message - From: Rodrigo Schiavo [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 18, 2005 7:06 AM Subject: Re: [delphi-br] Como saltar campos automaticamente. if (Length(Edit1.Text)=3) then Perform(WM_NEXTDLGCTL,0,0); jmourajr2000 escreveu: Caros amigos, boa tarde! É possivel fazer com que exista um salto automatico, entre campos, sendo que ao completar o maxlenght de um Edit ou DBEdit salte para o proximo campo, sem a interferencia das teclas Tab e Enter. Estou tentando assim, mas sem sucesso: if lenght(Edit1.Text) = 8 then Edit2.SetFocus; Agradeço pela atenção. Abraços a todos. José de Moura -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] *Yahoo! Grupos, um serviço oferecido por:* http://br.rd.yahoo.com/SIG=12ajvevqm/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1105885116/A=2191897/R=0/SIG=10vqa2grn/*http://br.d iversao.yahoo.com/ http://br.rd.yahoo.com/SIG=12ajvevqm/M=264379.5078783.6203979.1588051/D=brc lubs/S=2137111264:HM/EXP=1105885116/A=2191897/R=1/SIG=10vqa2grn/*http://br.d iversao.yahoo.com/ *Links do Yahoo! Grupos* * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] data atual
edtData.Text:=DateToStr(Date); - Original Message - From: james nascimento To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 12, 2005 3:34 PM Subject: [delphi-br] data atual Como faço para inserir automaticamente a data atual em uma EDIT, quando abrir um form. [EMAIL PROTECTED] - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Exit
tire o exit abaixo da linha de comando CmbSexo.SetFocus; pois vc já da um setfocus e depois um exit, acredito ser isto. - Original Message - From: frcunhahell To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 13, 2005 8:09 PM Subject: [delphi-br] Exit Tem um problema estranho por aki tem um trecho de codigo q eh o seguinte: if length(trim(CmbSexo.Text)) = 0 then begin MessageDlg('Digite o sexo', mtInformation,[mbok],0); CmbSexo.SetFocus; exit; end; Caso deixa o campo sexo em branco o programa deveria para a execucao do programa mas nao para e seguinte em diante. Mais estranh ainda eh q c eu colocar um break no if ele funciona normalmente... Alguem sabe o q pode ser acontecendo? Valew -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html