[delphi-br] menu Popup em grid(botão direito)...
Olá PessoALL, Alguém sabe como fazer? Quero mostrar um grid com vários registros. Ao selecionar um registro do grid com o botão direito do mouse, abrir um meno com novas ações. É possível isto? Se possível, me mande algum exemplo em PVT. []s José Maria jmchenri arroba uem.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
[delphi-br] Re: Componente DuckBarCode para Delphi 7.
Caro Rodrigo, Já procurei em todo lado este componente e não o achei. Me parece que a empresa que o desenvolvia fechou, pois nem a homepage existe mais. A única alternativa é se alguem tiver os fontes do componente para compilá-lo em delphi 7. Caso localize-o, por favor me mande também. []s José Maria jmchenri arroba uem.br --- Em delphi-br@yahoogrupos.com.br, Rodrigo de Moura [EMAIL PROTECTED] escreveu Boa tarde senhores, Alguém teria esse componente para me enviar ou saberia de um link onde eu possa baixá-lo? Tentei em alguns sites de busca, mas não consegui encontrá-lo para a versão 7 do Delphi. Muito obrigado!! Atenciosamente, Rodrigo de Moura [EMAIL PROTECTED] [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
[delphi-br] Off-Topic Registro do Windows
Bom dia ! Ocultei o ícone do VNC da bandeja do windows, acessando essa chave: Meu computador\HKEY_LOCAL_MACHINE\SOFTWARE\ORL\WinVNC3 e usei um novo valor DWord DisableTrayIcon e coloquei 1 Quando volto o valor para 0, o ícone só exibe quando reinicio o computador, tem como exibir o ícone na bandeja do Windows sem precisar reinicia-lo ? Flavio Artur Nogueira - SP [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
[delphi-br] Somente o Nome do Arquivo do OpenDialog
Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [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] Programação multicamadas utilizand o Datasnap
Salve Galera Lembrando q nas edições 56 e 58 da clubedelphi tem um tutorial completo sobre desenvolvimento n-tier, e estou para liberar uma materia de boas praticas sobre o assunto. Na minha coluna no portal do assinante clubedelphi.net tb tem bastante material. Tem os materiais das minhas ultimas palestras sobre o assunto em www.micrologos.com.br/cdtw2005.zip e uma apostila de dbexpress em www.micrologos.com.br/mc_clienteservidor.zip e no mais estou as ordens para o q puder ajudar. no mes de setembro no DelphiRio/SQLRio estaremos novamente fazendo uma abordagem deste assunto. http://www.devmedia.com.br/visualizacomponente.aspx?comp=123site=3 []´s Bruno Lichot Micrologos Dream Team Equipe ClubeDelphi DevMedia [EMAIL PROTECTED] [EMAIL PROTECTED] www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.br - Original Message - From: Oswaldo Ricardo da Rocha Jr [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 5:21 PM Subject: Re: [delphi-br] Programação multicamadas utilizando Datasnap Já existe um livro sobre o assunto: Sistemas Multicamadas com Delphi, DataSnap e dbExpress (Conceitos, Implementações e Macetes) Autor: Anderson Haertel Rodrigues Editora: Visual Books delphi-br@yahoogrupos.com.br escreveu: Mensagem: 4 Data: Mon, 22 Aug 2005 11:33:18 -0300 De: Marcio Henrique A. dos Santos [EMAIL PROTECTED] Assunto: Programação multicamadas utilizando Datasnap Amigos, alguem aí tem um bom tutorial passo a passo para se programar em multicamadas utilzando o datasnap? Grato, Márcio ___ _ _ _ / _ \ | || || | | | | | ___ __ _ __ __ _ | | __| | ___ | |_ __ | | | |/ __|\ \/ \/ // _` || | / _ | / _ \ _ | | '__| | |_| |\__ \ \ _ /| (_| || || (_| || (_) || |__| | | \___/ |___/ \/ \/ \__,_||_| \__._| \___/ \_/|_| Oswaldo Ricardo da Rocha Jr E-Mail: [EMAIL PROTECTED], [EMAIL PROTECTED] [EMAIL PROTECTED],[EMAIL PROTECTED] HP Pessoal: http://br.geocities.com/oswjr HP Empresa: http://www.astharinformatica.com.br Messenger [EMAIL PROTECTED] ICQ:66755778 - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador 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] 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
[delphi-br] Ler informações da máquina
Galera, peguei esta dica na internet, mas não ta funcionando no windows 2000. Alguem tem alguma que funcione? (de preferencia em todos os windows, 98, 2000, NT e XP) //Lê informações da Empresa cadastrado na máquina procedure TForm1.Button1Click(Sender: TObject); var Info: TRegDataInfo; Reg: TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if not Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', FALSE) then Reg.GetDataInfo('RegisteredOrganization', Info); Label1.Caption := 'Empresa...: ' + Reg.ReadString('RegisteredOrganization'); Label2.Caption := 'Usuario...: ' + Reg.ReadString('RegisteredOwner'); end; ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ -- 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
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Tenta assim SimpleDataSet1ANEXO.LoadFromFile(ExtractFileName(OpenDialog1.FileName)); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [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!. __ NOD32 1.1199 (20050822) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [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
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Eduardo, funcionou. Obrigado. Levi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ® Enviada em: terça-feira, 23 de agosto de 2005 09:29 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Tenta assim SimpleDataSet1ANEXO.LoadFromFile(ExtractFileName(OpenDialog1.FileName)); -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [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!. __ NOD32 1.1199 (20050822) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [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: http://br.rd.yahoo.com/SIG=12faa13ro/M=365837.7000707.7924794.2369893/D=brc lubs/S=2137111264:HM/Y=BR/EXP=1124807255/A=2932553/R=2/id=noscript/SIG=10tif t5qr/*http://br.movies.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 . [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] Impedir o Fechamento
Anderson, Talvez seja mais fácil você colocar uma validação no evento OnQueryClose do formulário, que é chamado antes do do formulário ser liberado. Claro que isso só poderá ser usado para os seus projetos. Anderson de Oliveira Furtilho - BR3 [EMAIL PROTECTED] escreveu: Olá amigos!!! Teria como criar um programa que fique rodando em memória e se o usuário tentasse fechar um outro programa ele impediria. Por exemplo Ao fechar o Word o programa residente na memória não deixaria ele fechar, mesmo o usuário clicando no x na barra do word para fecha-lo, ou por exemplo O usuário abre a calculadora e depois o programa que esta residente em memória não deixaria ele fechar mais. A idéia é permitir que o usuário abra o programa mas não feche se autorização. Qualquer ajuda ficarei agradecido Anderson [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:var target=_blank;var URL = new Array();URL[1] = http://br.rd.yahoo.com/SIG=12f6o0mm9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124561749/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var link=javascript:openWindow(1);var flashfile = 'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var altURL = http://br.rd.yahoo.com/SIG=12f6o0mm9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124561749/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var altimg = http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif;var width = 468;var height=60; - 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!. __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] select com vários unions
Fiz 63 unions . com FB 1.5 normal Qual ferramenta utiliza para roda SQL ? Respondendo a Rodrigo Feraboli: Boa tarde, gostaria de saber pq o FB 1.5 só aceita um select com no máximo 27 unions, pq eu testei com 60 unions e me retornou apenas os 27 primeiros registros. O FB 2.0 vai resolver esse problema ou só no 2.5 ou 3.0? Rodrigo Feraboli ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Impedir o Fechamento
Eu estudo virus tbem, e vi um exemplo um dia que fiquei besta. Na verdade são 2 executaveis, um fica rodando e monitorando se o outro tbem esta e vice versa, caso um se fecha ele o abre novamente. Mas para isso você tem que saber qual é o processo que esta em execução (isso muda sempre). Não é uma grande ajuda mas com base nisso acho que da para fazer o que você quer... Espero ter ajudado... Paulo Cezar dos Santos Junior [EMAIL PROTECTED] escreveu: Anderson, Talvez seja mais fácil você colocar uma validação no evento OnQueryClose do formulário, que é chamado antes do do formulário ser liberado. Claro que isso só poderá ser usado para os seus projetos. Anderson de Oliveira Furtilho - BR3 [EMAIL PROTECTED] escreveu: Olá amigos!!! Teria como criar um programa que fique rodando em memória e se o usuário tentasse fechar um outro programa ele impediria. Por exemplo Ao fechar o Word o programa residente na memória não deixaria ele fechar, mesmo o usuário clicando no x na barra do word para fecha-lo, ou por exemplo O usuário abre a calculadora e depois o programa que esta residente em memória não deixaria ele fechar mais. A idéia é permitir que o usuário abra o programa mas não feche se autorização. Qualquer ajuda ficarei agradecido Anderson [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:var target=_blank;var URL = new Array();URL[1] = http://br.rd.yahoo.com/SIG=12f6o0mm9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124561749/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var link=javascript:openWindow(1);var flashfile = 'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var altURL = http://br.rd.yahoo.com/SIG=12f6o0mm9/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124561749/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var altimg = http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif;var width = 468;var height=60; - 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!. __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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:var target=_blank;var URL = new Array();URL[1] = http://br.rd.yahoo.com/SIG=12fh6v6e5/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124808406/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var link=javascript:openWindow(1);var flashfile = 'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var altURL = http://br.rd.yahoo.com/SIG=12fh6v6e5/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124808406/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var altimg = http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif;var width = 468;var height=60; - 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!. Thiago de Castro X. da Silveira Pré-Vestibular Pitágoras Unidades Centro, Savassi e Belvedere. Setor TI telefone: +55 (31) 3274-1088 e-mails: [EMAIL PROTECTED] [EMAIL PROTECTED] - Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador 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] 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ê
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Basta voce passar a função ExtractFileName na chamada ao path do arquivo: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); end; end; []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 Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [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 [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
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Obrigado. Consegui. Segue código para uso dos companheiros: Assunto: Salvar Arquivo no BD e Visualizar Depois ou Exportar unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TempDir : String; {Retorna o Diretorio Temp do Windows} Var Buffer : Array[0..144] of Char; Begin GetTempPath(144,Buffer); Result := StrPas(Buffer); end; procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); Screen.Cursor:=crDefault; end; end; procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; SimpleDataSet1.ApplyUpdates(-1); Screen.Cursor:=crDefault; end; procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; SaveDialog1.DefaultExt:=ExtractFileExt(SimpleDataSet1ARQUIVO.Value); SaveDialog1.Filter:=SaveDialog1.DefaultExt + '|' + SaveDialog1.DefaultExt; if SaveDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); Screen.Cursor:=crDefault; end; end; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); var sArquivo: string; begin if SimpleDataSet1ARQUIVO.IsNull = False then begin sArquivo:=TempDir+SimpleDataSet1ARQUIVO.Value; Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(sArquivo); Screen.Cursor:=crDefault; ShellExecute(Application.Handle, 'open', PChar(sArquivo), nil, nil, SW_SHOWMAXIMIZED); end; end; end. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: terça-feira, 23 de agosto de 2005 09:28 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Basta voce passar a função ExtractFileName na chamada ao path do arquivo: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); end; end; []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 Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [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
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Dá uma olhada nisto: procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; if SimpleDataSet1.ApplyUpdates(-1) 0 then raise EDataBaseError.Create(Exception(exceptobject).Message); Screen.Cursor:=crDefault; end; procure sempre tratar pontos críticos no seu projeto para evitar que uma exceção o derrube e gere Deadlocks no banco de dados. []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 Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 10:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Obrigado. Consegui. Segue código para uso dos companheiros: Assunto: Salvar Arquivo no BD e Visualizar Depois ou Exportar unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TempDir : String; {Retorna o Diretorio Temp do Windows} Var Buffer : Array[0..144] of Char; Begin GetTempPath(144,Buffer); Result := StrPas(Buffer); end; procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); Screen.Cursor:=crDefault; end; end; procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; SimpleDataSet1.ApplyUpdates(-1); Screen.Cursor:=crDefault; end; procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; SaveDialog1.DefaultExt:=ExtractFileExt(SimpleDataSet1ARQUIVO.Value); SaveDialog1.Filter:=SaveDialog1.DefaultExt + '|' + SaveDialog1.DefaultExt; if SaveDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); Screen.Cursor:=crDefault; end; end; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); var sArquivo: string; begin if SimpleDataSet1ARQUIVO.IsNull = False then begin sArquivo:=TempDir+SimpleDataSet1ARQUIVO.Value; Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(sArquivo); Screen.Cursor:=crDefault; ShellExecute(Application.Handle, 'open', PChar(sArquivo), nil, nil, SW_SHOWMAXIMIZED); end; end; end. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: terça-feira, 23 de agosto de 2005 09:28 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Basta voce passar a função ExtractFileName na chamada ao path do arquivo: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); end; end; []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 Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 09:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somente o Nome do Arquivo do OpenDialog Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then
RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog
Obrigado pela ajuda. Para os companheiros: Salvar arquivo no BD, Recuperar ou Visualizar: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TempDir : String; {Retorna o Diretorio Temp do Windows} Var Buffer : Array[0..144] of Char; Begin GetTempPath(144,Buffer); Result := StrPas(Buffer); end; procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=ExtractFileName(OpenDialog1.FileName); Screen.Cursor:=crDefault; end; end; procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; if SimpleDataSet1.ApplyUpdates(-1) 0 then raise EDataBaseError.Create(Exception(exceptobject).Message); Screen.Cursor:=crDefault; end; procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; SaveDialog1.DefaultExt:=ExtractFileExt(SimpleDataSet1ARQUIVO.Value); SaveDialog1.Filter:=SaveDialog1.DefaultExt + '|' + SaveDialog1.DefaultExt; if SaveDialog1.Execute then begin Screen.Cursor:=crHourGlass; SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); Screen.Cursor:=crDefault; end; end; end; procedure TForm1.DBGrid1DblClick(Sender: TObject); var sArquivo: string; iTeste: Integer; begin if SimpleDataSet1ARQUIVO.IsNull = False then begin sArquivo:=TempDir+SimpleDataSet1ARQUIVO.Value; Screen.Cursor:=crHourGlass; if FileExists(sArquivo) then DeleteFile(sArquivo); SimpleDataSet1ANEXO.SaveToFile(sArquivo); Screen.Cursor:=crDefault; iTeste:=ShellExecute(Application.Handle, 'open', PChar(sArquivo), nil, nil, SW_SHOWMAXIMIZED); if iTeste in [2,3,5,8,26,27,28,29,30,31,32] then ShowMessage('Não foi possível abrir o arquivo! Erro número: '+ IntToStr(iTeste)); end; end; end. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Walter Alves Chagas Junior Enviada em: terça-feira, 23 de agosto de 2005 10:26 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Dá uma olhada nisto: procedure TForm1.SimpleDataSet1AfterPost(DataSet: TDataSet); begin Screen.Cursor:=crHourGlass; if SimpleDataSet1.ApplyUpdates(-1) 0 then raise EDataBaseError.Create(Exception(exceptobject).Message); Screen.Cursor:=crDefault; end; procure sempre tratar pontos críticos no seu projeto para evitar que uma exceção o derrube e gere Deadlocks no banco de dados. []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 Levi Ribeiro de Freitas Enviada em: terça-feira, 23 de agosto de 2005 10:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Somente o Nome do Arquivo do OpenDialog Obrigado. Consegui. Segue código para uso dos companheiros: Assunto: Salvar Arquivo no BD e Visualizar Depois ou Exportar unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBClient, SimpleDS, ExtCtrls, DBCtrls, StdCtrls, Grids, DBGrids, ShellApi; type TForm1 = class(TForm) SimpleDataSet1: TSimpleDataSet; SimpleDataSet1LIGA: TStringField; SimpleDataSet1ANEXO: TBlobField; SimpleDataSet1ARQUIVO: TStringField; Button1: TButton; OpenDialog1: TOpenDialog; DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBGrid1: TDBGrid; Button2: TButton; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure SimpleDataSet1AfterPost(DataSet: TDataSet); procedure Button2Click(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm}
Re: [delphi-br] Montagem de Query
Rodrigo, bom dia... Tentei montar mas deu que o arquivo não esixte. Deixa eu me explicar melhor. Tenho um banco de dados na .. do paradox que está sendo ligada em um Table, DataSource e um Query. Tentei montar da seguinte forma: Data.qChamada.Close; Data.qChamada.SQL.Clear; Data.qChamada.SQL.Add('Select * from 04CHAMAD.db where Data Between :DataInicio and :DataFinal'); Data.qChamada.Params.ParamByName('DataInicio').Value := DateToStr(inicio.date); Data.qChamada.Params.ParamByName('DataFinal').Value := DateToStr(final.date); Data.qChamada.Open; Data.qChamada.ExecSQL; mas recebo mensagem de erro - Original Message - From: Rodrigo Tognin To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 10:14 AM Subject: RES: [delphi-br] Montagem de Query Olha Wilson, tente fazer a query com parametros, assim: Data.qChamada.Close; Data.qChamada.SQL.Clear; Data.qChamada.SQL.Add('Select * from Data.tbchamada where Data Between :DataInicio and :DataFinal); Data.qChamada.Parameters.ParamByName('DataInicio').Value := DateToStr (inicio.date); Data.qChamada.Parameters.ParamByName('DataFinal').Value := DateToStr (final.date); Data.qChamada.Open; Data.qChamada.ExecSQL; Abraço Rodrigo Tognin -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Wilson Valdevite Enviada em: segunda-feira, 22 de agosto de 2005 09:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Montagem de Query Pessoal, bom dia... Estou tentando montar uma query de uma tabela de cadastros e a montei da seguinte forma: Data.qChamada.Close; Data.qChamada.SQL.Clear; Data.qChamada.SQL.Add('Select * from Data.tbchamada where Data =' + DateTimeToStr(inicio.date) + 'and data =' + DateToStr(final.Date)); Data.qChamada.ExecSQL; e quando a executo recebo o seguinte erro: Invalid use of keyword token: 09? Line Number: 1. A tabela está em um DataModule e passei as datas para string para poder compilar. Gostaria de saber onde está o erro. Agradeço a todos. [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] 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.338 / Virus Database: 267.10.13/78 - Release Date: 19/08/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
[delphi-br] Descobrir os Forms da aplicação
Pessoal, Estamos implementando um esquema de segurança no aplicativo e para isso precisaríamos de obter uma listagem dos Forms da minha aplicação (mesmo que eles ainda não estejam criados). Alguém sabe como fazer isso? Tentei o objeto Application, mas ele só me mostra os objetos criados (o que é lógico) e vinculados a eles. Não teria como descobrir isso em run-time? Obrigado Francisco Thiago de Almeida Enter Plug Informática Divisão: Desenvolvimento e Banco de dados Franca / SP msn: [EMAIL PROTECTED] ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Pegar Handle de IBTransaction
Pessoal, Utilizo um IBTransaction para tratar transações no meu sistema (Delphi 6 com Firebird 1.5). Queria pegar o handle dessa transacao (IBTransaction.Handle) e transformar em string, para mostrar na tela. Como é um ponteiro, nao estou conseguindo. Agradeço qualquer dica, Leandro -- 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] Somente o Nome do Arquivo do OpenDialog
Levi, Tente a função extractfilename . . . Roque. Em 23/08/05, Levi Ribeiro de Freitas[EMAIL PROTECTED] escreveu: Bom dia pessoal! Estou precisando pegar somento o nome do arquivo no OpenDialog. No entando sempre vem o diretório + o nome do arquivo. Alguém tem idéia de como posso fazer para pegar somente o nome? Eis o código: //coloco o arquivo dentro de um campo da tabela firebird. procedure TForm1.Button1Click(Sender: TObject); begin if DataSource1.State in [dsEdit, dsInsert] then if OpenDialog1.Execute then begin SimpleDataSet1ANEXO.LoadFromFile(OpenDialog1.FileName); SimpleDataSet1ARQUIVO.Value:=OpenDialog1.FileName; //Preciso pegar somente o nome do arquivo não o diretório onde ele está. end; end; //preciso salvar o arquivo agora. procedure TForm1.Button2Click(Sender: TObject); begin if SimpleDataSet1ANEXO.IsNull = False and SimpleDataSet1ARQUIVO.IsNull = False then begin SaveDialog1.FileName:=SimpleDataSet1ARQUIVO.Value; if SaveDialog1.Execute then SimpleDataSet1ANEXO.SaveToFile(SaveDialog1.FileName); end; end; Atenciosamente, Levi Ribeiro de Freitas Programador de Computadores [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
[delphi-br] Delphi freeware
Como sempre surge na lista este tipo de pergunta, aí vai o link para quem quiser comprar as revistas que trazem um CD-ROM com uma cópia do Delphi. Vale lembrar que, diferente do que eu coloquei no assunto, o Delphi que acompanha a revista não é Freeware, a revista é uma licensa do mesmo. Se você precisa de 3 cópias, então são 3 revistas, e por aí vai. Delphi 3 Client-Server - Revista www.com.br nº 13 http://www.europanet.com.br/euro2003/index.php?cat_id=78pag_id=503 Delphi 4 Professional - PC Expert nº 29 http://www.ciadosoftware.com.br/produto.asp?produto=605 Os valores hoje são de R$ 9,90 e R$ 12,90 respectivamente. Para quem interessar (mesmo que seja para item de coleção), até vale a pena o preço! Valfrid-Ly Silva Couto [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ 15114646 ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] select com vários unions
Rodrigo, provavelmente o problema de ter retornado somente 27 registros, numa seleção de 60 unions, se deve a provável duplicidade de registros, a union suprime esses registros como se tivesse um distinct na select. coloque um valor a mais pra cada select, e verá que fica ok. t+ - Original Message - From: Rodrigo ®¿® To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 5:13 PM Subject: Re: [delphi-br] select com vários unions Fiz 63 unions . com FB 1.5 normal Qual ferramenta utiliza para roda SQL ? Respondendo a Rodrigo Feraboli: Boa tarde, gostaria de saber pq o FB 1.5 só aceita um select com no máximo 27 unions, pq eu testei com 60 unions e me retornou apenas os 27 primeiros registros. O FB 2.0 vai resolver esse problema ou só no 2.5 ou 3.0? Rodrigo Feraboli ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Descobrir os Forms da aplica ção
Thiago, seguinte~... Não sei se é um caminho... mas o primeiro passo é registrar seu form(Geralmente fazemos isto com form MDI), para ser registrado na aplicação, mesmo sem ser criado... antes do END. coloque: Initialization RegisterClass(TF_Seu_Formulario); END. Dê uma olhada na função FindGlobalComponent, ela vai te dar opções de rotinas semelhantes, relacionadas a objetos... Pode ser um caminho... Danilo Francisco Thiago [EMAIL PROTECTED] escreveu: Pessoal, Estamos implementando um esquema de segurança no aplicativo e para isso precisaríamos de obter uma listagem dos Forms da minha aplicação (mesmo que eles ainda não estejam criados). Alguém sabe como fazer isso? Tentei o objeto Application, mas ele só me mostra os objetos criados (o que é lógico) e vinculados a eles. Não teria como descobrir isso em run-time? Obrigado Francisco Thiago de Almeida Enter Plug Informática Divisão: Desenvolvimento e Banco de dados Franca / SP msn: [EMAIL PROTECTED] ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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:var target=_blank;var URL = new Array();URL[1] = http://br.rd.yahoo.com/SIG=12fone0dc/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124812931/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var link=javascript:openWindow(1);var flashfile = 'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var altURL = http://br.rd.yahoo.com/SIG=12fone0dc/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124812931/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var altimg = http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif;var width = 468;var height=60; - 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!. __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] Descobrir os Forms da aplica ção
Thiago, seguinte~... Não sei se é um caminho... mas o primeiro passo é registrar seu form(Geralmente fazemos isto com form MDI), para ser registrado na aplicação, mesmo sem ser criado... antes do END. coloque: Initialization RegisterClass(TF_TP_Aprovacao); END. Dê uma olhada na função FindGlobalComponent, ela vai te dar opções de rotinas semelhantes, relacionadas a objetos... Pode ser um caminho... Danilo Francisco Thiago [EMAIL PROTECTED] escreveu: Pessoal, Estamos implementando um esquema de segurança no aplicativo e para isso precisaríamos de obter uma listagem dos Forms da minha aplicação (mesmo que eles ainda não estejam criados). Alguém sabe como fazer isso? Tentei o objeto Application, mas ele só me mostra os objetos criados (o que é lógico) e vinculados a eles. Não teria como descobrir isso em run-time? Obrigado Francisco Thiago de Almeida Enter Plug Informática Divisão: Desenvolvimento e Banco de dados Franca / SP msn: [EMAIL PROTECTED] ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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:var target=_blank;var URL = new Array();URL[1] = http://br.rd.yahoo.com/SIG=12fone0dc/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124812931/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var link=javascript:openWindow(1);var flashfile = 'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var altURL = http://br.rd.yahoo.com/SIG=12fone0dc/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124812931/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/;var altimg = http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif;var width = 468;var height=60; - 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!. __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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
[delphi-br] Verificar se Existe Tabela
Olá pessoal, gostaria de saber se tem como minha aplicação verificar se existe uma certa tabela no banco de dados. por exemplo: gostaria que ao iniciar a aplicação verificasse se a tabela clientes existe no banco, caso não exista ela me retorna um aviso. estou utilizando FB 1.5 D7 e MDO desde já agradeço a colaboração de todos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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
RES: [delphi-br] Verificar se Existe Tabela
Você pode consultar o próprio banco, dependendo do banco, há tabelas onde são guardadas as definições das entidades. No Informix, por exemplo, você buscaria na tabela SysTables. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de galvao_em Enviada em: terça-feira, 23 de agosto de 2005 11:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Verificar se Existe Tabela Olá pessoal, gostaria de saber se tem como minha aplicação verificar se existe uma certa tabela no banco de dados. por exemplo: gostaria que ao iniciar a aplicação verificasse se a tabela clientes existe no banco, caso não exista ela me retorna um aviso. estou utilizando FB 1.5 D7 e MDO desde já agradeço a colaboração de todos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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
[delphi-br] Distribuicao Delphi + ClientDataSet + DbExpress + Firebird Embarcado
Bom dia pessoal, estou tentando fazer um instaladador para um programa que usa ClientDataSet + DbExpress + Firebird Embarcado. O problema eh que aparentemente estou me esquecendo de algum arquivo necessario ao programa, visto que em determinadas maquinas ocorre erro de acesso ao banco. Os arquivos que estou distribuindo junto com o programa sao os seguintes: Firebird Embarcado: Source: \bd\FBE\FB\*; Source: bd\FBE\Readme.txt Source: \bd\FBE\fbembed.dll Source: \bd\FBE\firebird.conf Source: \bd\FBE\ib_util.dll Source: \bd\FBE\IDPLicense.txt; Source: \bd\FBE\IPLicense.txt Source: \bd\FBE\ArquivoBD.fdb; DbExpress Source: \dbexpint.dll Gostaria de saber se alguem pode me ajudar nessa questao, dizendo se esses saor os arquivos necessarios ou existem mais algum do qual estou me esquecendo. Obrigado pela ajuda, Francisco Trindade [EMAIL PROTECTED] -- -- Francisco Trindade [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
[delphi-br] consulta sql num arquivo xml????????
Caros colegas, saudações EStou com uma duvida, recentemente alguns colegas, ajudaram a resolver uma duvida q eu tinha referente ao uso de comandos sql com cds na propriedade commandtext, só que ficou sem ser perguntado o seguinte? É possível fazer uma consulta sql num arquivo XML, tipo um arquivo criado por um clientdataset? será que é possível??? Miguel Villacorta 4446-4100 R 4126 7312-5509 [EMAIL PROTECTED] www.dpfautopecas.com.br MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.13/78 - Release Date: 19/8/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] Tabela Paradox
Boa Thiago, faço das minhas palavras, mais as suas...minha opinião sobre o conhecimento. O problema é que o egoísmo de algumas pessoas, as fazem se sentir magistrada para discernir seu conhecimento. Em síntese, nosso amigo conseguiu esclarecer sua dúvida e, creio que a função deste grupo é essa...compartilhar o conhecimento, o que cada um irá fazer com ele, não é problema nosso. - Original Message - From: thiago castro To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 9:52 AM Subject: Re: [delphi-br] Tabela Paradox Eu acho que o que ele quer fazer com a senha é problema dele. Nós sabemos e TODOS tem o direito de saber, vocês acham que se um programador não consegue descobrir uma senha (com tantos meios de busca) hoje em dia ele consegue muita coisa? Segue abaixo as senhas UNIVERSAIS. Vai ai as suas senhas (bom proveito) Para PARADOX 7.0 - jIGGAe ou cupcdvum Para PARADOX 5.0 - jIGGAe ou cupcdvum Para PARADOX 4.0 (DOS) - nx66ppx Alex Leão [EMAIL PROTECTED] escreveu: É a presunção do culpado até que prove o contrário? - Original Message - From: Valfrid-Ly Silva Couto To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 9:16 AM Subject: Re: [delphi-br] Tabela Paradox O problema é saber se a situação é realmente legítima (como a que você citou) ou se o cara tem um programa pirateado, com base pirateada, e quer abrir para pegar os dados já que o programa não funciona mais. O motivo que você citou é perfeitamente cabível a revelação da senha, mas, infelizmente, não temos como saber se é real. --- TObject [EMAIL PROTECTED] escreveu: Não concordo com o estimado colaborador! Imagine a seguinte situação: você possui uma empresa e contratou um profissional Delphi para fazer um sistema que usa tabela paradox, este profissional desaparece (prática infelizmente normal) e você contrata outro para continuar a manutenção de seus sistemas. O novo profissional, percebe logo de cara que as tabelas estão protegidas por senha, ele recorre a um fórum para pedir uma ajuda, essa ajuda será negada? Também sou contra a pirataria, mas...ao mesmo tempo precisamos analisar o contexto das coisas, antes de falar alguma coisa. Ao amigo que está com o problema e eu digo, existe sim uma maneira de fazer isso com a tabela meu querido, faça uma busca no google com as seguintes palavras: tabela paradox senha, você achará fácil o que procura. Boa sorte! - Original Message - From: Ronaldo Sousa To: delphi-br@yahoogrupos.com.br Sent: Saturday, August 20, 2005 12:28 AM Subject: RE: [delphi-br] Tabela Paradox sim, mas isso é pirataria e por isso não é aceito aqui na lista... Ronperso [EMAIL PROTECTED] From: wagneraranha [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Tabela Paradox Date: Sat, 20 Aug 2005 02:49:07 - Gostaria de saber se existe alguma forma de abrir uma tabela Paradox protegida por senha quando esta senha é desconhecida? [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
[delphi-br] Jedi no Delphi 2k5
Pessoal, Estou iniciando no Delphi 2005 e baixei o Jedi para o memso. Faço a instalação, normalmente, só que, quando vou executar o Delphi, ele reclama que não conseguiu encontrar várias BPL´s. Já olhei o library path e está certinho, apontando para o diretório onde estão as BPL´s. O q mais posso olhar? O q devo estar fazendo de errado? Agradeço muito, antecipadamente. []´s Luis Alberto ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Abrir Gaveta de Dinheiro
Como faço para abrir uma gaveta de dinheiro que está ligada diretamente ao computador sem passar pela impressora usando a dll da bematech? -- 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] Impressão modo rápido Epson FX
Como faço para fazer impressão em modo rápido nas impressoras da Epson modelo FX? Obrigado -- 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] select com vários unions
Para nao ter esse problema que o Alosi falou, use UNION ALL Leandro - Original Message - From: Alosi yarru [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 10:18 AM Subject: Re: [delphi-br] select com vários unions Rodrigo, provavelmente o problema de ter retornado somente 27 registros, numa seleção de 60 unions, se deve a provável duplicidade de registros, a union suprime esses registros como se tivesse um distinct na select. coloque um valor a mais pra cada select, e verá que fica ok. t+ - Original Message - From: Rodrigo ®¿® To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 5:13 PM Subject: Re: [delphi-br] select com vários unions Fiz 63 unions . com FB 1.5 normal Qual ferramenta utiliza para roda SQL ? Respondendo a Rodrigo Feraboli: Boa tarde, gostaria de saber pq o FB 1.5 só aceita um select com no máximo 27 unions, pq eu testei com 60 unions e me retornou apenas os 27 primeiros registros. O FB 2.0 vai resolver esse problema ou só no 2.5 ou 3.0? Rodrigo Feraboli ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Impressão modo rápido Epson FX
Qual software para relatório vc tá usando? O Report Manager tem uma opção, na geração do relatório, que o mesmo relatório q vc faz para o modo gráfico sai em modo caracter, quando enviado para impressora matricial. A impressão é rápida, como vc quer, sem necessidade de se fazer outro relatório. Vc pode encontrar o Report Manager no www.sourceforge.net. É free e open source. []´s Luis Alberto. --- sweetheart_lovebr [EMAIL PROTECTED] escreveu: Como faço para fazer impressão em modo rápido nas impressoras da Epson modelo FX? Obrigado -- 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 http://br.yahoo.com/info/utos.html ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] WebControl's não aparecem n a Página(Delphi 2005)
Ok Guinter sua ajuda foi muito relevante, deu tudo certo muito obrigado Lenilson Medeiros Guinther Pauli [EMAIL PROTECTED] escreveu: Olá Lenilson Provavelmente vc instalou o IIS depois do .NET. Execute a seguinte linha de comando: C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322aspnet_regiis.exe i Atenciosamente, Guinther Pauli - [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] DevMedia Group (www.devmedia.com.br http://www.devmedia.com.br/ ) Editor Geral Revista ClubeDelphi e Editor Técnico Revista Web Mobile Magazine MCP, MCAD, Borland Delphi for * Certified Livro Delphi Programação para Banco de Dados e Web de Guinther Pauli https://ssl.dominal.com/clubedelphi/loja/descricao.asp?codigo=114cod_pai=6 Treinamento em Delphi com ASP.NET - Lançamento! http://www.devmedia.com.br/curso/ecommerce2005/ http://br.thespoke.net/MyBlog/Guinther/MyBlog.aspx http://br.thespoke.net/MyBlog/Guinther/MyBlog.aspx De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Lenilson Medeiros Enviada em: quarta-feira, 17 de agosto de 2005 08:18 Para: Delphi Lista Assunto: [delphi-br] WebControl's não aparecem na Página(Delphi 2005) Bom dia , a todos da lista Estou iniciando no Delphi2005, instalei-o e rodei os 3 Pack's de correção da Borland, até ai blz, o pró é q quando coloco os objetos da aba WebControl's e rodo a aplicação eles não aparecem (aplicação .Net) ... Alguém já passou por isso , o q estou fazendo de errado ??? Obg Lenilson __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] 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 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!. __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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
[delphi-br] UNION ALL NO IBOCONSOLE
Ola Pessoal, Quando faço um sql com o union all usando FB 1.5 com o IBOConsole, ex: SELECT CID.NOME FROM CIDADES CID UNION ALL SELECT CID.NOME FROM CIDADES CID Ele dá a seguinte mensagem: Invalid command count of column list and variable list do not match Mas depois que dou um ok no erro ele retorna os dados certos. Por que dessa mensagem? Alguem sabe? Será que depois de implementado dentro do Delphi ele nao vai ficar mais lento? Obrigado Toni -- 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] Abrir Gaveta de Dinheiro
Existe uma função da propria dll, que vc terá que declarar e usar de acordo com sua necessidade. veja no help do bematech que ele ensina passo a passo como se fazer. Em 23/08/05, sweetheart_lovebr[EMAIL PROTECTED] escreveu: Como faço para abrir uma gaveta de dinheiro que está ligada diretamente ao computador sem passar pela impressora usando a dll da bematech? -- 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 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!. -- []'s Emerson Moreno O grande sábio aprende por ensinar! -- 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
Res: [delphi-br] DBExpress, Mestre detalhe com NestedDataset
Manda o select Cati ...Não pense de si mesmo além do que convém... Rm 12.3 Nada está fora do alcance da oração, exceto o que está fora da vontade de Deus. ---Mensagem original--- De: robertokrug2001 Data: 08/23/05 15:38:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBExpress, Mestre detalhe com NestedDataset Estou usando DBExpress, Mestre detalhe com NestedDataset Quando entro no Sistema e gravo uma Nota Fiscal com seus Itens... A Nota e os Itens são gravados corretamente, mas quando tento gravar a Segunda Nota Fiscal ocorre erro na linha: if ClientDataSetMestre.ApplyUpdates(0) = 0 then o seguinte erro ocorre: Token unknown - line 2, char 1 where Obs: Já olhei meu select e a princípio está OK... Parece que algo fica pendente... Alguém tem uma idéia do que pode ser ??? -- 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 __ NOD32 1.1199 (20050822) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [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: Res: [delphi-br] DBExpress, Mestre detalhe com NestedDataset
Segue o Select: ' select first 50 a.*, b.NOME, c.NOME, d.NATUREZA, d.DESCRICAO, e.DESCRICAO, f.NOME, g.DESCRICAO from NOTAS a left join CLIENTES b on b.CLIENTE_ID = a.CLIENTE_ID left join VENDEDORES c on c.VENDEDOR_ID = a.VENDEDOR_ID left join NATUREZAS d on d.NAT_OPE_ID = a.NAT_OPE_ID left join FORMAS_PGTO e on e.FORM_PGTO_ID = a.FORM_PGTO_ID left join TRANSPORTADORES f on f.TRANSPORT_ID = a.TRANSPORT_ID join CIDADES g on g.CIDADE_ID = b.CIDADE_ID where a.LANCA_ID = 3 and (a.PEDIDOS_FAT 'FECHADO' or a.PEDIDOS_FAT is Null) and a.DT_EMISSAO = '07/24/2005' and a.EMPRESA_ID = 1 and upper(NOTAS.DT_EMISSAO) like '%%' order by NOTAS.DT_EMISSAO Desc,a.NOTA desc' --- Em delphi-br@yahoogrupos.com.br, Catiúscia A. Barrilli da Cruz [EMAIL PROTECTED] escreveu Manda o select Cati ...Não pense de si mesmo além do que convém... Rm 12.3 Nada está fora do alcance da oração, exceto o que está fora da vontade de Deus. ---Mensagem original--- De: robertokrug2001 Data: 08/23/05 15:38:36 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] DBExpress, Mestre detalhe com NestedDataset Estou usando DBExpress, Mestre detalhe com NestedDataset Quando entro no Sistema e gravo uma Nota Fiscal com seus Itens... A Nota e os Itens são gravados corretamente, mas quando tento gravar a Segunda Nota Fiscal ocorre erro na linha: if ClientDataSetMestre.ApplyUpdates(0) = 0 then o seguinte erro ocorre: Token unknown - line 2, char 1 where Obs: Já olhei meu select e a princípio está OK... Parece que algo fica pendente... Alguém tem uma idéia do que pode ser ??? -- 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 __ NOD32 1.1199 (20050822) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [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
[delphi-br] Quick Report: boleto em formulario continuo
Uma duvida: Preciso preencher boletos bancarios usando formulario continuo pre-impresso. a minha duvida é referente ao tamanho do papel informado no quick report. uso tamanho personalizado, ou seja, larg.: 19,5 cm por alt.: 10,2 cm ou de outra forma ? o que voces sugerem ? -- 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
RES: [delphi-br] Abrir Gaveta de Dinheiro
Estimado(a) sweetheart_lovebr, Boa tarde. Sem passar pela dll, você teria que saber a string de comando que abre o caixa. Tipo: 10 E1 Z3 S1 12 33 S (sei lá o que) e depois convertê-la e passar pra porta onde o caixa está conectado ! (falei besteira?) Porta do CAIXA: COM1 String (comando) que abre o caixa: 10 E1 Z3 S1 12 33 S (lê aí o manuel do caixa) procedure AbrirCaixa; var tfCaixa : TextFile; sComando, sCodigo : String; begin sCodigo := '10 E1 Z3 S1 12 33 S'; sComando := Converte(sCodigo); Assignfile(tfCaixa,'COM1'); //Porta: COM1, COM4, etc e tals Rewrite(tfCaixa); Writeln(tfCaixa,sComando); CloseFile(tfCaixa); end; function Converte(sCodigo : String): String; var sRetorno : String; nI : integer; cByte : byte; begin sRetorno := ''; for nI := 1 to GetTokenCount(sCodigo,' ') do try cByte := StrToInt(GetToken(sCodigo,' ',nI)); sRetorno := sRetorno + chr(cByte); except break; end; Result := sRetorno; end; // hehe..funcao que não acaba mais.. function GetToken(sCadeia, sSeparador: String; iToken: Integer): String; var iPosicao: Integer; begin while iToken 1 do begin Delete(sCadeia, 1, Pos(sSeparador,sCadeia) + Length(sSeparador) - 1); Dec(iToken); end; iPosicao:= Pos(sSeparador, sCadeia); if iPosicao= 0 then Result:= sCadeia else Result:= Copy(sCadeia, 1, iPosicao- 1); end; function GetTokenCount(Cadeia, Separador : String):integer; var Posicao:integer; begin Posicao:= Pos(Separador,Cadeia); Result := 1; if Cadeia '' then begin if Posicao 0 then while Posicao 0 do begin Delete(Cadeia,1,Posicao); Posicao:= Pos(Separador, Cadeia); Inc (Result); end; end else Result := 0; end; Um estimado colega me passou uma vez, nunca testei mas taí a oportunidade. Não se esqueça do feedback. Saudações. --- []'s Alexandre msn: [EMAIL PROTECTED] -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sweetheart_lovebr Enviada em: terça-feira, 23 de agosto de 2005 15:08 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abrir Gaveta de Dinheiro Como faço para abrir uma gaveta de dinheiro que está ligada diretamente ao computador sem passar pela impressora usando a dll da bematech? -- 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
RES: [delphi-br] Distribuicao Delphi + ClientDataSet + DbExpress + Firebird Embarcado
Não tenho certeza no caso do FB embarcado, mas creio que seja necessária a DDL Midas.dll. Mauricio. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Francisco Trindade Enviada em: terça-feira, 23 de agosto de 2005 14:10 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Distribuicao Delphi + ClientDataSet + DbExpress + Firebird Embarcado Bom dia pessoal, estou tentando fazer um instaladador para um programa que usa ClientDataSet + DbExpress + Firebird Embarcado. O problema eh que aparentemente estou me esquecendo de algum arquivo necessario ao programa, visto que em determinadas maquinas ocorre erro de acesso ao banco. Os arquivos que estou distribuindo junto com o programa sao os seguintes: Firebird Embarcado: Source: \bd\FBE\FB\*; Source: bd\FBE\Readme.txt Source: \bd\FBE\fbembed.dll Source: \bd\FBE\firebird.conf Source: \bd\FBE\ib_util.dll Source: \bd\FBE\IDPLicense.txt; Source: \bd\FBE\IPLicense.txt Source: \bd\FBE\ArquivoBD.fdb; DbExpress Source: \dbexpint.dll Gostaria de saber se alguem pode me ajudar nessa questao, dizendo se esses saor os arquivos necessarios ou existem mais algum do qual estou me esquecendo. Obrigado pela ajuda, Francisco Trindade [EMAIL PROTECTED] -- -- Francisco Trindade [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] Abrir Gaveta de Dinheiro
Tem alguma parecida pra caixa eletrônico??? - Original Message - From: Emerson Moreno [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 4:00 PM Subject: Re: [delphi-br] Abrir Gaveta de Dinheiro Existe uma função da propria dll, que vc terá que declarar e usar de acordo com sua necessidade. veja no help do bematech que ele ensina passo a passo como se fazer. Em 23/08/05, sweetheart_lovebr[EMAIL PROTECTED] escreveu: Como faço para abrir uma gaveta de dinheiro que está ligada diretamente ao computador sem passar pela impressora usando a dll da bematech? -- 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 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!. -- []'s Emerson Moreno O grande sábio aprende por ensinar! -- 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
[delphi-br] Fw: DecisionCube
Prezados, alguém já desenvolveu uma aplicação utilizando os componentes Decision Cube conectado a uma base de dados Oracle? Tenho a seguinte situação: Ao executar a query não é apresentado todo o resultado no grid. Ficam exclusas boa parte das linhas retornadas como se não houvessem valores a serem apresentados. Já verifiquei as propriedades MaxCells, MaxDimensions e MaxSummaries do DecisionCube que aparentemente estão de acordo, e já utilizei para a consulta tanto o componente DecisionQuery, como a Query do BDE e o SQLDataSet do DbExpress (neste último caso fazendo as alterações necessárias para o DecisionCube funcionar com uma conexão Dbx). Desde já agradeço a atenção de todos. Rômulo Rieder ___ NOBRE Alimentos www.nobrealimentos.com.br +55 54 5208600 [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] Montagem de Query
Wilson, Tenta assim... Data.qChamada.Params.ParamByName('DataInicio').Value := StrToDate(DataInicio); Data.qChamada.Params.ParamByName('DataFinal').Value := StrToDate(DataFinal); Em 23/08/05, Wilson Valdevite[EMAIL PROTECTED] escreveu: Rodrigo, bom dia.. Tentei montar mas deu que o arquivo não esixte. Deixa eu me explicar melhor. Tenho um banco de dados na .. do paradox que está sendo ligada em um Table, DataSource e um Query. Tentei montar da seguinte forma: Data.qChamada.Close; Data.qChamada.SQL.Clear; Data.qChamada.SQL.Add('Select * from 04CHAMAD.db where Data Between :DataInicio and :DataFinal'); Data.qChamada.Params.ParamByName('DataInicio').Value := DateToStr(inicio.date); Data.qChamada.Params.ParamByName('DataFinal').Value := DateToStr(final.date); Data.qChamada.Open; Data.qChamada.ExecSQL; mas recebo mensagem de erro - Original Message - From: Rodrigo Tognin To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 10:14 AM Subject: RES: [delphi-br] Montagem de Query Olha Wilson, tente fazer a query com parametros, assim: Data.qChamada.Close; Data.qChamada.SQL.Clear; Data.qChamada.SQL.Add('Select * from Data.tbchamada where Data Between :DataInicio and :DataFinal); Data.qChamada.Parameters.ParamByName('DataInicio').Value := DateToStr (inicio.date); Data.qChamada.Parameters.ParamByName('DataFinal').Value := DateToStr (final.date); Data.qChamada.Open; Data.qChamada.ExecSQL; Abraço Rodrigo Tognin -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Wilson Valdevite Enviada em: segunda-feira, 22 de agosto de 2005 09:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Montagem de Query Pessoal, bom dia... Estou tentando montar uma query de uma tabela de cadastros e a montei da seguinte forma: Data.qChamada.Close; Data.qChamada.SQL.Clear; Data.qChamada.SQL.Add('Select * from Data.tbchamada where Data =' + DateTimeToStr(inicio.date) + 'and data =' + DateToStr(final.Date)); Data.qChamada.ExecSQL; e quando a executo recebo o seguinte erro: Invalid use of keyword token: 09? Line Number: 1. A tabela está em um DataModule e passei as datas para string para poder compilar. Gostaria de saber onde está o erro. Agradeço a todos. [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] 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.338 / Virus Database: 267.10.13/78 - Release Date: 19/08/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 -- 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: RES: [delphi-br] Verificar se Existe Tabela
É, mas através do código ele poderá fazer isso. No SQL eu uso (If Object_Id( 'table nome') 0 Drop table nome) para deletar a tabela... Em 23/08/05, Filipe Xavier Ramalho[EMAIL PROTECTED] escreveu: Você pode consultar o próprio banco, dependendo do banco, há tabelas onde são guardadas as definições das entidades. No Informix, por exemplo, você buscaria na tabela SysTables. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de galvao_em Enviada em: terça-feira, 23 de agosto de 2005 11:33 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Verificar se Existe Tabela Olá pessoal, gostaria de saber se tem como minha aplicação verificar se existe uma certa tabela no banco de dados. por exemplo: gostaria que ao iniciar a aplicação verificasse se a tabela clientes existe no banco, caso não exista ela me retorna um aviso. estou utilizando FB 1.5 D7 e MDO desde já agradeço a colaboração de todos ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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
[delphi-br] DbMemo
Boa tarde galera Delphiana Alguem sabe como limitar o DBMEMO para receber no maximo 3 linhas? [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
[delphi-br] Ajuda com Procedure
olá pessoal, tenho a seguinte procedure em meu banco : CREATE PROCEDURE PNEUS_POR_MOTORISTA ( MOTORISTAS INTEGER) RETURNS ( NOME VARCHAR(80), PNEU CHAR(5), MARCA VARCHAR(80), TIPO_PNEU VARCHAR(80)) AS BEGIN FOR select M.NOME, MD.NRPNEU, MP.MARCA , TP.TIPO_PNEU from FROTAS F, MOTORISTAS M, MONTAGEM_PNEUS MO, MONTAGEM_DETALHE MD, AQUISICAO A, MARCA_PNEU MP, TIPO_PNEU TP, AQUISICAO_PNEUS AP where M.CODMOTORISTA=F.MOTORISTA and (F.PLACA_CAVALO=MO.VEICULO or F.PLACA_CARRETA=MO.VEICULO) and MO.CODMONTAGEM=MD.CODMONTAGEM and A.MARCA=MP.COD_MARCA_PNEU and A.TIPO=TP.CODTIPO_PNEU and A.CODAQUISICAO=AP.CODAQUISICAO and AP.NRPNEU=MD.NRPNEU and M.CODMOTORISTA=:motoristas INTO :NOME, :pneu, :MARCA, :TIPO_PNEU DO SUSPEND; END gostaria de acessala através do delphi, utilizando os componentes MDO(D7, FB1.5), executando ela através do IBExpert funciona legal mas não consigo faze-la funcionar na minha aplicação, desde já agradeço a ajuda. ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Somar!?
Preciso somar um campo de determinados registro de uma tabela em SQL. Ex.: Aluno Turma Faltas Leonardo1 10 Juliana 2 09 Débora 1 15 Luiz3 11 Faltas da Turma 1 Total = 25 Alguem pode me ajudar? Obrigado. -- 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] Re: Jedi no Delphi 2k5
Você baixou a última versão e rodou o instalador?? A versão que tenho baixei a umas 2 semanas. A única coisa que fiz foi rodar o Install.bat que está no diretório JCL. Deixei as opções default, não alterei nada, e instalei. Lembrando que você deve baixar o .zip do JVCL, e descompactá-lo já no diretório onde pretende usar. Deixe ele descompactado nesse diretório e rode o Install.bat, e depois não mova mais os diretórios de lugar, senão não funciona. Não sei se é esse o seu problema, mas qualquer coisa retorne aí. --- Em delphi-br@yahoogrupos.com.br, Luis Lopes [EMAIL PROTECTED] escreveu Pessoal, Estou iniciando no Delphi 2005 e baixei o Jedi para o memso. Faço a instalação, normalmente, só que, quando vou executar o Delphi, ele reclama que não conseguiu encontrar várias BPL´s. Já olhei o library path e está certinho, apontando para o diretório onde estão as BPL´s. O q mais posso olhar? O q devo estar fazendo de errado? Agradeço muito, antecipadamente. []´s Luis Alberto ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Off-Topic Registro do Windows
Tem que reiniciar sim. A maioria (pra não dizer TODOS) os ajustes que são feitos no Registry precisam que o micro seja reiniciado! A exceção a essa regra seria se o software (no caso, o VNC) pudesse verificar de tempos em tempos se essa chave do Registry foi alterada para que ele possa identificar na hora o que vc quer fazer! Boa sorte! From: Flavio [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Off-Topic Registro do Windows Date: Tue, 23 Aug 2005 08:04:42 -0300 Bom dia ! Ocultei o ícone do VNC da bandeja do windows, acessando essa chave: Meu computador\HKEY_LOCAL_MACHINE\SOFTWARE\ORL\WinVNC3 e usei um novo valor DWord DisableTrayIcon e coloquei 1 Quando volto o valor para 0, o ícone só exibe quando reinicio o computador, tem como exibir o ícone na bandeja do Windows sem precisar reinicia-lo ? Flavio Artur Nogueira - SP [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.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] UNION ALL NO IBOCONSOLE
Já tive esse erro no iboconsole, no ibexpert não retorna o erro. - Original Message - From: TONI To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 4:00 PM Subject: [delphi-br] UNION ALL NO IBOCONSOLE Ola Pessoal, Quando faço um sql com o union all usando FB 1.5 com o IBOConsole, ex: SELECT CID.NOME FROM CIDADES CID UNION ALL SELECT CID.NOME FROM CIDADES CID Ele dá a seguinte mensagem: Invalid command count of column list and variable list do not match Mas depois que dou um ok no erro ele retorna os dados certos. Por que dessa mensagem? Alguem sabe? Será que depois de implementado dentro do Delphi ele nao vai ficar mais lento? Obrigado Toni -- 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: RES: [delphi-br] Abrir Gaveta de Dinheiro
Amigão...antes de sair se matando tente isso daqui http://sourceforge.net/projects/acbr é um projeto open source e é muito bom.la tera o q vc precisa Alexandre escreveu: Estimado(a) sweetheart_lovebr, Boa tarde. Sem passar pela dll, você teria que saber a string de comando que abre o caixa. Tipo: 10 E1 Z3 S1 12 33 S (sei lá o que) e depois convertê-la e passar pra porta onde o caixa está conectado ! (falei besteira?) Porta do CAIXA: COM1 String (comando) que abre o caixa: 10 E1 Z3 S1 12 33 S (lê aí o manuel do caixa) procedure AbrirCaixa; var tfCaixa : TextFile; sComando, sCodigo : String; begin sCodigo := '10 E1 Z3 S1 12 33 S'; sComando := Converte(sCodigo); Assignfile(tfCaixa,'COM1'); //Porta: COM1, COM4, etc e tals Rewrite(tfCaixa); Writeln(tfCaixa,sComando); CloseFile(tfCaixa); end; function Converte(sCodigo : String): String; var sRetorno : String; nI : integer; cByte : byte; begin sRetorno := ''; for nI := 1 to GetTokenCount(sCodigo,' ') do try cByte := StrToInt(GetToken(sCodigo,' ',nI)); sRetorno := sRetorno + chr(cByte); except break; end; Result := sRetorno; end; // hehe..funcao que não acaba mais.. function GetToken(sCadeia, sSeparador: String; iToken: Integer): String; var iPosicao: Integer; begin while iToken 1 do begin Delete(sCadeia, 1, Pos(sSeparador,sCadeia) + Length(sSeparador) - 1); Dec(iToken); end; iPosicao:= Pos(sSeparador, sCadeia); if iPosicao= 0 then Result:= sCadeia else Result:= Copy(sCadeia, 1, iPosicao- 1); end; function GetTokenCount(Cadeia, Separador : String):integer; var Posicao:integer; begin Posicao:= Pos(Separador,Cadeia); Result := 1; if Cadeia '' then begin if Posicao 0 then while Posicao 0 do begin Delete(Cadeia,1,Posicao); Posicao:= Pos(Separador, Cadeia); Inc (Result); end; end else Result := 0; end; Um estimado colega me passou uma vez, nunca testei mas taí a oportunidade. Não se esqueça do feedback. Saudações. --- []'s Alexandre msn: [EMAIL PROTECTED] -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sweetheart_lovebr Enviada em: terça-feira, 23 de agosto de 2005 15:08 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abrir Gaveta de Dinheiro Como faço para abrir uma gaveta de dinheiro que está ligada diretamente ao computador sem passar pela impressora usando a dll da bematech? -- 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* * 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. ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] SENHA FRACA !! Como Resolver ?
Boa tarde amigos. Novamente sobre o assunto SENHAS FORTES, encontrei um artigo da MS. : http://www.microsoft.com/brasil/technet/Seguranca/senhas/ Que trata de que, posso utilizar uma DLL, a PASSFILT.DLL do próprio Windows 2000/NT para implementar as regras para a chamada Senha Forte... Alguém teria alguma idéia de como posso/poderíamos fazer isto ou, por onde começar ?? Estou aqui ruminando alguns algorítimos..., mas acho que é bem mais simples, se conseguirmos utilizar tal DLL. [ ]'s - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, August 19, 2005 4:31 PM Subject: RES: [delphi-br] SENHA FRACA !! Como Resolver ? Eu acho que isso daí não é o caso de um componente mas sim de desenvolver o algorítmo []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 Rogério Enviada em: sexta-feira, 19 de agosto de 2005 16:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] SENHA FRACA !! Como Resolver ? Boa Tarde Pessoal. Algumas Empresas de Auditoria (Grandes), adotaram o critério de que, a regra básica para que um sistema possuísse uma senha Forte seria: - Minimo 8 e maximo 15 caracteres. - Obrigatorio letras minusculas e pelo menos 1 letra MAIUSCULA. - Obrigatorio ter pelo menos 1 caracter numerico. - Obrigatorio ter pelo menos 1 caracter especial. - A senha deve comecar e terminar com letras. - Proibir que sejam re-utilizados os ultimos 10 Logins e Senhas Alguém já passou por esta experiência ? Existe algum componente que faça esta verificação ? Se alguém tiver alguma dica ou algorítimo para qq. uma das 6 situações acima, muito obrigado. Caso contrário, vou começar agora, a fazer na raça mesmo... Muito Obrigado e bom final de semana prá nós, afinal, merecemos. rrss [ ]'s [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 [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 ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Quick Report: boleto em formulario continuo
Olá Fernando, tenho um sistema que faz exatamente isso que vc precisa, me diz uma coisa p/ qual banco? tenho os padrões para B. Brasil, Bradesco e Itaú. Posso te mandar a forma de configurar isso. É meio complicado mas dá pra fazer com tranquilidade. Um abraço, Eduardo - Original Message - From: fernandoaldrighi To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 4:25 PM Subject: [delphi-br] Quick Report: boleto em formulario continuo Uma duvida: Preciso preencher boletos bancarios usando formulario continuo pre-impresso. a minha duvida é referente ao tamanho do papel informado no quick report. uso tamanho personalizado, ou seja, larg.: 19,5 cm por alt.: 10,2 cm ou de outra forma ? o que voces sugerem ? -- 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.323 / Virus Database: 267.10.14/79 - Release Date: 22/08/05 [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] DBExpress, Mestre detalhe com NestedDataset
Verifique a propriedade ProviderFlags dos SQLDataSet e como está a propriedade UpdateMode do TDataSetProvider. Basicamente o aconselhavel é manter os campos com apenas o pfInUpdate selecionado, em quanto a chave primária ficaria com o [pfInKey,pfInUpdate,pfInWhere]. Deixe no TDataSetProvider habilitado o upWhereKeyOnly. Observando esses detalhes, verifique se funciona e depois pesquise para saber o que você fez. []'s Espero ter ajudado Francisco Thiago de Almeida Enter Plug Informática Divisão: Desenvolvimento e Banco de dados Franca / SP msn: [EMAIL PROTECTED] - Original Message - From: robertokrug2001 [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 3:37 PM Subject: [delphi-br] DBExpress, Mestre detalhe com NestedDataset Estou usando DBExpress, Mestre detalhe com NestedDataset Quando entro no Sistema e gravo uma Nota Fiscal com seus Itens... A Nota e os Itens são gravados corretamente, mas quando tento gravar a Segunda Nota Fiscal ocorre erro na linha: if ClientDataSetMestre.ApplyUpdates(0) = 0 then o seguinte erro ocorre: Token unknown - line 2, char 1 where Obs: Já olhei meu select e a princípio está OK... Parece que algo fica pendente... Alguém tem uma idéia do que pode ser ??? -- 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 ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Somar!?
SELECT SUM( FALTAS ) FROM TABELA GROUP BY SALA Tente assim... Vitor Redes. - Original Message - From: ctrlpel To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 6:32 PM Subject: [delphi-br] Somar!? Preciso somar um campo de determinados registro de uma tabela em SQL. Ex.: Aluno Turma Faltas Leonardo1 10 Juliana 2 09 Débora1 15 Luiz 3 11 Faltas da Turma 1 Total = 25 Alguem pode me ajudar? Obrigado. -- 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] Check Box no DBGrid
Os Infopowers com certeza tem, o QuantumGrid também, e se não me engano tem na JediVCL, só procurar no Google, que você acha fácil o terceiro, os dois primeiros são pagos... constructor TVitor.Create( AOwner : TProgrammer ); begin Name := 'Vitor Redes'; Login := 'vredes'; Password := '**'; City := 'Curitiba'; Employee := 'Redsystem'; inherited Create( AOwner ) end; end. - Original Message - From: Claudiney Cogo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 5:12 PM Subject: [delphi-br] Check Box no DBGrid Olá gente... Estou com este dilema, que muita gente já deve estar cansado de ver perguntas a respeito. Colocar num DBGrid alguns campos booleanos usando check box. Li algumas coisas sobre isso e tudo o que encontrei é feito na mão mesmo, desenhando os check box em cima da minha grid. Funciona, mas não achei muito pratico. Pergunta... Esta é a única maneira de se fazer? Ou alguém tem alguma maneira mais simples? Ou até mesmo algum outro componente DBGrid de terceiros que contenha esta opção. No mais, obrigado antecipadamente. Claudiney. [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] menu Popup em grid(botão direito )...
O DBGrid tem uma propriedade chama PopupMenu, associe seu TPopupMenu ali, e quando o grid for clicado com o botão direito do mouse... constructor TVitor.Create( AOwner : TProgrammer ); begin Name := 'Vitor Redes'; Login := 'vredes'; Password := '**'; City := 'Curitiba'; Employee := 'Redsystem'; inherited Create( AOwner ) end; end. - Original Message - From: José Maria To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 7:14 AM Subject: [delphi-br] menu Popup em grid(botão direito)... Olá PessoALL, Alguém sabe como fazer? Quero mostrar um grid com vários registros. Ao selecionar um registro do grid com o botão direito do mouse, abrir um meno com novas ações. É possível isto? Se possível, me mande algum exemplo em PVT. []s José Maria jmchenri arroba uem.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] 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
[delphi-br] como resolver proble de query
Ola pessoal, estou tendo a seguinte dificuldade para trabalhar com essa query select cnpjempresa,month(DtEntrada) as Mes,year(DtEntrada) as MAno,CodFiscal as cfop, sum(vlr) as tributado,sum(Vlr-vlr) as isentas from apuracao where (cnpjempresa = cnpj) and (codfiscal in (5.101,5.102) and (extract(year from dtentrada)=2005) group by Mes,cnpjempresa union all select cnpjempresa,month(DtEntrada) as Mes,year(DtEntrada) as MAno,CodFiscal as cfop, sum(Vlr-Vlr) as tributado,sum(vlr) as isentas from apuracao where (cnpjempresa = cnpj) and (codfiscal in (5.101,5.102,6.102) and (extract(year from dtentrada)=2005) group by Mes,cnpjempresa order by Mes parece simples mas o que ocorre he que ele me gera para cada select 1 registro ou seja eu nao estou conseguindo colocar a query alinhada, ou seja ele me retorna a um query assim nrcnpj 12005 5.101 123,00 0,00 nrcnpj 12005 5.101 0,00456,00 nrcnpj 12005 5.102 0,000,00 nrcnpj 12005 6.102 0,000,00 nrcnpj 12005 6.102 0,00789,00 ele deveria sair assim nrcnpj1 20055.101123,00456,00 nrcnpj1 20056.102 0,00789,00 como posso resolver esse problema, pois eu tenho 8 condicoes diferentes ou seja 8 colunas com situacoes diferenciadas uso o delphi 6 juntamente com o mysql 4.022 agradeco a todos que me ajudarem eu ja tenho + de mes nesse problema Francisco Carlos de Andrade ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] Distribuicao Delphi + ClientDataSet + DbExpress + Firebird Embarcado
Vou arriscar cara, mas acho que falta o midas.dll, já tive de distribuir o ps2mon.dll tb, mas não me recordo por quê, teste com os dois separados para saber se ambos são necessários ou não... constructor TVitor.Create( AOwner : TProgrammer ); begin Name := 'Vitor Redes'; Login := 'vredes'; Password := '**'; City := 'Curitiba'; Employee := 'Redsystem'; inherited Create( AOwner ) end; end. - Original Message - From: Francisco Trindade To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 2:10 PM Subject: [delphi-br] Distribuicao Delphi + ClientDataSet + DbExpress + Firebird Embarcado Bom dia pessoal, estou tentando fazer um instaladador para um programa que usa ClientDataSet + DbExpress + Firebird Embarcado. O problema eh que aparentemente estou me esquecendo de algum arquivo necessario ao programa, visto que em determinadas maquinas ocorre erro de acesso ao banco. Os arquivos que estou distribuindo junto com o programa sao os seguintes: Firebird Embarcado: Source: \bd\FBE\FB\*; Source: bd\FBE\Readme.txt Source: \bd\FBE\fbembed.dll Source: \bd\FBE\firebird.conf Source: \bd\FBE\ib_util.dll Source: \bd\FBE\IDPLicense.txt; Source: \bd\FBE\IPLicense.txt Source: \bd\FBE\ArquivoBD.fdb; DbExpress Source: \dbexpint.dll Gostaria de saber se alguem pode me ajudar nessa questao, dizendo se esses saor os arquivos necessarios ou existem mais algum do qual estou me esquecendo. Obrigado pela ajuda, Francisco Trindade [EMAIL PROTECTED] -- -- Francisco Trindade [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
Res: [delphi-br] Somar!?
select sum(campo) as cm1, sum(campo) as cm2 from table1 where condicoes; ---Mensagem original--- De: ctrlpel Data: 08/23/05 18:33:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Somar!? Preciso somar um campo de determinados registro de uma tabela em SQL. Ex.: Aluno Turma Faltas Leonardo1 10 Juliana 2 09 Débora 1 15 Luiz 3 11 Faltas da Turma 1 Total = 25 Alguem pode me ajudar? Obrigado. -- 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 [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] select com vários unions
muito obrigado, funciona correto, eu nunca tinha utilizado. t+ - Original Message - From: Leandro To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 2:50 PM Subject: Re: [delphi-br] select com vários unions Para nao ter esse problema que o Alosi falou, use UNION ALL Leandro - Original Message - From: Alosi yarru [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 10:18 AM Subject: Re: [delphi-br] select com vários unions Rodrigo, provavelmente o problema de ter retornado somente 27 registros, numa seleção de 60 unions, se deve a provável duplicidade de registros, a union suprime esses registros como se tivesse um distinct na select. coloque um valor a mais pra cada select, e verá que fica ok. t+ - Original Message - From: Rodrigo ®¿® To: delphi-br@yahoogrupos.com.br Sent: Monday, August 22, 2005 5:13 PM Subject: Re: [delphi-br] select com vários unions Fiz 63 unions . com FB 1.5 normal Qual ferramenta utiliza para roda SQL ? Respondendo a Rodrigo Feraboli: Boa tarde, gostaria de saber pq o FB 1.5 só aceita um select com no máximo 27 unions, pq eu testei com 60 unions e me retornou apenas os 27 primeiros registros. O FB 2.0 vai resolver esse problema ou só no 2.5 ou 3.0? Rodrigo Feraboli ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] 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
[delphi-br] Calculos de Horas !
Tenho 2 campos: hora_inicial e hora_final, preciso fazer uma calculo para retornar a diferença entre as horas (total de horas = hora_final - hora_inicial) Hora_inicial: 08:30 Hora_final : 10:00 Resultado em Valores: 1,30 Alguem poderia me dar alguma dica, ou teria um exmplo? Obrigado. Mgaspar [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] Fw: DecisionCube
Junto q ele vem uns demos. De uma olhada nos demos e verifique se vc esta colocando todas as colunas corretamente. Eduardo Ps: So olhei o demo e fiz uns testes e funcionou legal, mas ainda nao compramos e não mexi mais. - Original Message - From: Rômulo Rieder To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 23, 2005 4:23 PM Subject: [delphi-br] Fw: DecisionCube Prezados, alguém já desenvolveu uma aplicação utilizando os componentes Decision Cube conectado a uma base de dados Oracle? Tenho a seguinte situação: Ao executar a query não é apresentado todo o resultado no grid. Ficam exclusas boa parte das linhas retornadas como se não houvessem valores a serem apresentados. Já verifiquei as propriedades MaxCells, MaxDimensions e MaxSummaries do DecisionCube que aparentemente estão de acordo, e já utilizei para a consulta tanto o componente DecisionQuery, como a Query do BDE e o SQLDataSet do DbExpress (neste último caso fazendo as alterações necessárias para o DecisionCube funcionar com uma conexão Dbx). Desde já agradeço a atenção de todos. Rômulo Rieder ___ NOBRE Alimentos www.nobrealimentos.com.br +55 54 5208600 [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