[delphi-br] DbGrid com Ativo e Inativo
Olá Lista! Não consigo desenvolver o seguinte: Tenho uma tabela em Paradox7 onde consta os nomes de usuários que podem acessar o sistema. Nas máquinas clientes é pegado o nome de usuário que está na ativo no momento e no servidor irá constar o componente DbGrid (ou pode ser outro qualquer(gostaria que fosse o stringgrid porque tenho outras funções prontas para ele))o que eu gostaria é saber quais os usuários que estão ativos no momento de alguma forma, ou seja, se não tiver ninguem logado, a lista de usuários no dbgrid estaria inativa, se 1 ou 2 usuários estivessem logados, somente o nome deles estariam ativos... Fui Claro?? Grato pela ajuda. Rafael Souza __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ -- 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] Inicializar antes do Explorer
Olá Lista! Tenho uma pergunta: Quanto o windows é ligado, ele inicializa o explorer, ok. Como eu posso fazer e se tem por onde fazer um aplicativo que inicie antes do explorer, ou seja, quando ligar meu pc, ele inicializará o meu aplicativo e só depois de liberar o mesmo é que o explorer entra em funcionamento. Alguem pode me ajudar ?? Obrigado Rafael Souza __ 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] Desenvolvimento para Linux
Olá Amigos! Desculpem a falta com vocês pois estive longe por uns dias. Estou com uma dúvida no sentido de desenvolver aplicativos que rodem em plataforma Linux. As resposta que obtive em pesquisas na web não satisfizeram minhas dúvidas. Gostaria de saber, quais os princípios que devo seguir para criação de aplicativos que rodem em Linux, o que é necessário para que eles sejam criados e executados, etc. Outra pergunta: Na web descobri o Kylix, ele usa os mesmos conceitos na forma de programar, tipo, comandos, estrutura? Se alguem poder me ajudar nesse novo nível de programação, fico plenamente agradecido! Abraço a todos! ___ Rafael Souza Administrador de Sistemas - Programador Estudante de Administração Habilitação em Análise de Sistemas __ 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] Data e Hora (Corrigindo)
Desculpem, esqueci de dizer, use um componente timer e troque a propriedade Interval para 1 (se for usar horas). Usei estes códigos devido a posição da data e hora no meu projeto, claro que tudo varia... Segue: /// //Para data e hora no mesmo Label mas de forma simples, assim: Label1.Caption := DateToStr(Now) + #13 + TimeToStr(Time); //Somente para data de forma simples: Label1.Caption := DateToStr(Now); //Somente para hora de forma simples: Label1.Caption := TimeToStr(Time); //Ou de uma forma mais completa, assim: label1.caption:= formatdatetime('Hoje é , dd de de - ',now) + TimeToStr(Time); end; //Mudando comforma necessário a visualização de dias(), mês() e ano(). / Abraço! .Rafael Souza. emcassio [EMAIL PROTECTED] escreveu: Amigo, você poderia estar usando uma statusbar pra ficar mais elegante, ai coloca em seu formulario um componente timer, e no evento ontimer coloca para ele pegar a data e hora do sitema. algo como: componente.propriedade:=datetostr(date)+''+timetostr(now); espero ter ajudado. Emerson Cassio De:delphi-br@yahoogrupos.com.br Para:Grupo de Delphi delphi-br@yahoogrupos.com.br Cópia: Data:Fri, 3 Jun 2005 09:39:42 -0300 Assunto:[delphi-br] Data e Hora Olá pessoal bom dia tudo bem com vcs ? Preciso colocar data e hora constantes na tela principal do meu sistema. Alguém sabe uma maneira fácil de se colocar ? Obrigada , Taty Santana [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 Termos do Serviço do Yahoo!. - Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta! [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] Uma dúvida...
Olá pessoal ! Estou com uma pequena dúvida, é a seguinte: Como faço para colocar uma imagem animada do tipo gif em meus forms ? Preciso de um componente ou alguma coisa a mais ? Aproveitando, sem querer abusar da boa vontade alheia, alguem manja de excel ? Bem, queria saber como faço para buscar a soma da dados de uma aba e colocar o resultado em outra aba? Estou usando a seguinte fórmula na célula que deverá receber o resultado: =SOMA(SE($D$3:$D$354=CRPO;SE($A$3:$A$354=TEN CEL;1;0))) Só que quando faço isso ele insiste em pegar os resultados das colunas da mesma aba. Mas enfim, obrigado pela atenção! .Rafael Souza. __ 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] Skin
Não me lembro direito, mas dá uma olhada em http://200.241.52.8/meep/lloydsoft/index.php .Rafael Souza. Eduardo [EMAIL PROTECTED] escreveu: ops NAO estou conseguindo achar Eduardo - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Monday, May 23, 2005 12:50 PM Subject: Re: [delphi-br] Skin pesquisei no google winskin e não encontrei. Vc teria algum site que tenha o winskin para download. Eu estou conseguindo achar. Eduardo - Original Message - From: Rafael Souza To: delphi-br@yahoogrupos.com.br Sent: Monday, May 23, 2005 12:30 PM Subject: Re: [delphi-br] Skin WinSkin .Rafael Souza. Eduardo [EMAIL PROTECTED] escreveu: Alguem conhece algum componente SKIN gratuito ??? Ja pesquisei pacas e nao encontrei, ate agora achei só pago. Eduardo [As partes desta mensagem que não continham texto foram removidas] - Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta! [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] Skin
WinSkin .Rafael Souza. Eduardo [EMAIL PROTECTED] escreveu: Alguem conhece algum componente SKIN gratuito ??? Ja pesquisei pacas e nao encontrei, ate agora achei só pago. Eduardo [As partes desta mensagem que não continham texto foram removidas] __ 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] Executar comando antes de desligar o pc
Boa Tarde! Gente, criei uma aplicação que controla o tempo em que os usuários usam os pc's, essa aplicação é executada sempre em que o windows é ligado, porém estou perdendo meus dados quando ele é desligado. Como posso fazer para que meu aplicativo execute alguma ação antes que o windows seja finalizado ? Obrigado. .Rafael Souza. - Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta! [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] Banco de Dados sem BDE
Oi Gente ! Tenho um trabalho para entregar na faculdade e resolvi fazê-lo em forma de aplicativo. Tal trabalho cujo as respostas estão em tabelas Paradox. E creio que minha professora não saberá instalar e configurar o BDE. Eu sei apenas criar o caminho do alias automaticamente, no entanto preciso do BDE. Como posso fazer para colocar o caminho dos dados no código fonte sem especificar a pasta em que o aplicativo irá rodar. (Ex.: Não sei em que pasta a professora irá colar o aplicativo e executá-lo). Alguem pode ajudar ? Rafaelo Souza - Yahoo! Mail: agora com 1GB de espaço grátis. Abra sua conta! [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] =?iso-8859-1?q?MaskEdit=20n=E3o=20insere=20dados=20de=20forma=20diferente?=
Olá Pessoal! Tõ com um erro aqui e queria uma idéia para resolve-lo. Estou usando o MaskEdit para inserir dados de telefones, ele esta na forma ( ) -. Então se eu insiro um n° de celular tipo (12)1234-1234 ele grava normal, mas eu tenho determinados n° que são de 7 digitos, por ex: (12)123 -1234 e dessa forma ele não aceita. O que eu quero é aproveitar os parenteses e o hifem nos cadastros... O que posso fazer para melhorar isso? Obrigado pela ajuda. .Rafael Souza. - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
=?iso-8859-1?q?Re:=20RES:=20[delphi-br]=20MaskEdit=20n=E3o=20insere=20dad?= =?iso-8859-1?q?os=20de=20forma=20diferente?=
A máscara esta no formato Phone !\(99\)-;1;_ Meu proplema é que usando esta máscara quando eu quero inserir o telefone (51)123 -1234 um erro indica que eu devo preencher com um n° os espaços vazios. Quero usar somente assim: (12)123-1234 e (12)1234-1234 .Rafael Souza. == Rubem Rocha [EMAIL PROTECTED] wrote: Como é que tá a máscara de edição? Posta aí! []s -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Souza Enviada em: terça-feira, 3 de maio de 2005 15:27 Para: Delphi Grupo Assunto: [delphi-br] MaskEdit não insere dados de forma diferente Olá Pessoal! Tõ com um erro aqui e queria uma idéia para resolve-lo. Estou usando o MaskEdit para inserir dados de telefones, ele esta na forma ( ) -. Então se eu insiro um n° de celular tipo (12)1234-1234 ele grava normal, mas eu tenho determinados n° que são de 7 digitos, por ex: (12)123 -1234 e dessa forma ele não aceita. O que eu quero é aproveitar os parenteses e o hifem nos cadastros... O que posso fazer para melhorar isso? Obrigado pela ajuda. .Rafael Souza. - 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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.2 - Release Date: 02/05/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.2 - Release Date: 02/05/2005 * Esta mensagem, incluindo os seus anexos, contém informações confidenciais destinadas a indivíduo e propósito específicos, e é protegida por lei. Caso você não seja o citado indivíduo, deve apagá-la imediatamente. É terminantemente proibida a utilização, acesso, cópia ou divulgação não autorizada das informações presentes neste email. As informações contidas nesta mensagem e em seus anexos são de responsabilidade de seu autor, não representando idéias, opiniões, pensamentos ou qualquer forma de posicionamento por parte da Fundação Desembargador Paulo Feitoza. The information contained in this communication is confidential, is law protected, and is intended only for the business use of the addressee. If you have received this communication in error, please immediately delete it. It's forbidden the unauthorized use, access, copy or disclose of the information contained in this communication. The content of this message is responsibility of the author, and does not represent ideas, opinions, thoughts or any kind of statement of Fundação Desembargador Paulo Feitoza. -- 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: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília - 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!. - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
=?iso-8859-1?q?Re:=20RES:=20[delphi-br]=20MaskEdit=20n=E3o=20insere=20dad?= =?iso-8859-1?q?os=20de=20forma=20diferente?=
Ok, na correria nunca mais me lembrei desta forma mas... Como eu trabalho com uma tela para o cadastro e uma para visualização dos dados, os ( ) e o - não aparecem na tela de visualização. Na tela de visualização de dados eu uso DBGrid e DBEdits para que eu possa percorrer nos campos e visualiza-los em seus respectivos lugares, além do mais, eu trabalho com exportação de dados e pra este caso vai ficar muito feito exportar dados. Desta forma funciona mas resolve em parte o problema. Grato pela Ajuda. .Rafael Souza. Eduardo Silva ® [EMAIL PROTECTED] wrote: Rafael, não entendi muito bem o que vc quis dizer com aproveitar isso. Mas vc poderia usar a máscara \(99\)\-;0; Dai vc poderá gravar no banco (12)1234-1234 (12)123 -1234 No banco ele será gravado somente com os númerosos parenteses e o hífen não será gravado. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Rafael Souza Enviada em: terça-feira, 3 de maio de 2005 16:27 Para: Delphi Grupo Assunto: [delphi-br] MaskEdit não insere dados de forma diferente Olá Pessoal! Tõ com um erro aqui e queria uma idéia para resolve-lo. Estou usando o MaskEdit para inserir dados de telefones, ele esta na forma ( )-. Então se eu insiro um n° de celular tipo (12)1234-1234 ele grava normal, mas eu tenho determinados n° que são de 7 digitos, por ex: (12)123 -1234 e dessa forma ele não aceita. O que eu quero é aproveitar os parenteses e o hifem nos cadastros... O que posso fazer para melhorar isso? Obrigado pela ajuda. .Rafael Souza. - 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília - 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!. - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Mudar Caption do Form
Mauro, Procure a propriedade caption do form em questão ou se quiser usar esta linha, coloque-a no evento onshow ou no oncreate. Form1.Caption := 'Novo titulo '; .RRS. Mauro Menezes [EMAIL PROTECTED] wrote: Como faço para mudar um Caption de um FORM qdo este está ativo, ou seja, o controle está no próprio form ??? fiz conforma abaixo, mas não funciona. Form1.Caption := 'Novo titulo ' ; -- Email Plus Estadão Agora você pode ter mais ferramentas e espaço para armazenar seus emails. http://www.estadao.com.br/webmail/pago/ -- -- 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:PUBLICIDADE - 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!. - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Inicialização Automática no Cód. Fonte
Fala Galera! Eu sei que existe uma forma no windows de fazer com que os programas inicializem de forma automatica, mas eu quero saber se existe uma forma de fazer isso diretamente no cód fonte do meu programa, sem que eu precise ir nas máquinas e o fazer inicilizar. De que forma eu posso fazer? Obrigado! .Rafael Souza. - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Linhas em QuickReport
Oi gente, tudo bem ? Vou direto ao assunto: tenho minha folha onde serão impressos lista de telefones (nome, cidade e telefone), e na medida que fossem sendo adicionados mais registros, queria que mais linhas fossem adicionadas na medida da quantidade (ex. 5 registros, 5 linhas e assim por diante...), também tem as colunas mas isso não é tão necessário. Alguem poderia me ensinar a fazer isso ? Obrigado .Rafael Souza. __ 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] Opiniões referente a processadores
Olá Gente! Estou me preparando para trocar de micro e tenho uma dúvida quanto ao processador. O Atlhon ja esta fora, Intel esta inviável ($$$), me restaram dos que conheço, o Celleron e Cemprom e a minha dúvida esta entre quais desses dois é o melhor. Estava pensando em algo como um processador de 2.4 ou 2.6 Ghz. 1.024 mb de ram, e uma placa de video de 128 mb. Queria saber a opinião de vc's com relação a isso. Muito Grato... .Rafael Souza. - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro em var
Ola Pessoal Tenho esse codigo abaixo mas nao sei porque da erro na VAR. Esse botao vai executar um comando em outro computador, ou melhor, vai me dizer se a conexao esta ok. Com esse codigo alguem poderia me ajudar? procedure TForm1.Button1Click(Sender: TObject); var comp:string; begin comp:=Edit1.Text; NMMsg1.Host:=comp; try NMMsg1.Connect; ShowMessage('Conectado.'); except ShowMessage('Erro ao Conectar.'); end; end; - 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ê faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Tela de Impressão não aparece...
Boa Tarde! Gente, Coloquei no meu form um QuickRep1 e o QRShape1 e no form o botao p/ imprimir e os edits No botao de imprimir o código: Cap.Caption := Memo1.Text; //Cap.Caption vai receber o texto de Momo1 Maj.Caption := Memo2.Text; //Maj.Caption vai receber o texto de Momo2 quickrep1.Preview; Então ao clicar, a tela de Preview abre mas não aparece os dados. Estou esquecendo de configurar alguma outra coisa ? Aproveitando, tem como eu criar um novo form para colocar somente os QuickRep e os QRShape, por ex.: Se clicar no botao1 ele abre o form Imprime chamando QuickRep1 e imprime o conteúdo de Cap.Caption := Memo1.Text; Se clicar no botao2 ele abre o form Imprime, chamando QuickRep2 e imprime o conteúdo de Maj.Caption := Memo2.Text; Como posso fazer esta parte? Ja tentei mas não deu certo... Grato a todos. Rafael Souza - Yahoo! Mail - Com 250MB de espaço. Abra sua conta! [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] Tela de Impressão não aparece...
Rodrigo; Não estou usando nenhum tipo de componente (Table, Query...) O aplicativo Tem somente Buttons e Edits... Rafael Rodrigo Villaverde [EMAIL PROTECTED] wrote: A sua query não está retornando nenhum registro -Original Message- From: Rafael Souza [mailto:[EMAIL PROTECTED] Sent: quinta-feira, 17 de março de 2005 14:58 To: Delphi Grupo Subject: [delphi-br] Tela de Impressão não aparece... Boa Tarde! Gente, Coloquei no meu form um QuickRep1 e o QRShape1 e no form o botao p/ imprimir e os edits No botao de imprimir o código: Cap.Caption := Memo1.Text; //Cap.Caption vai receber o texto de Momo1 Maj.Caption := Memo2.Text; //Maj.Caption vai receber o texto de Momo2 quickrep1.Preview; Então ao clicar, a tela de Preview abre mas não aparece os dados. Estou esquecendo de configurar alguma outra coisa ? Aproveitando, tem como eu criar um novo form para colocar somente os QuickRep e os QRShape, por ex.: Se clicar no botao1 ele abre o form Imprime chamando QuickRep1 e imprime o conteúdo de Cap.Caption := Memo1.Text; Se clicar no botao2 ele abre o form Imprime, chamando QuickRep2 e imprime o conteúdo de Maj.Caption := Memo2.Text; Como posso fazer esta parte? Ja tentei mas não deu certo... Grato a todos. Rafael Souza - Yahoo! Mail - Com 250MB de espaço. Abra sua conta! [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: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12aievbke/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=168906/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;} [input] [input] [input] - 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] Tela de Impressão aparece !!!
Rodrigo Encontrei o meu problema. Selecionei o quickreport e na propriedade Band, cliquei no sinal de '+' e coloquei Has Title para true, então funcionou... Respondendo sua pergunta, no quickreport coloquei TQRLabel e no form coloquei um edit e um button. O tqrlabel tem name Maj. O button imprimir recebe o comando: Maj.Caption := Edit2.Text; quickrep1.Preview; Então na hora de imprimir, o tqrlabel que esta no quickreport recebe os dados que foram digitados no Edit2... Entendeu? Te agradeço pela atenção e ajuda... Rafael Souza Rodrigo Villaverde [EMAIL PROTECTED] wrote: O seu quickreport não acessa nenhum dado para montar o relatório? -Original Message- From: Rafael Souza [mailto:[EMAIL PROTECTED] Sent: quinta-feira, 17 de março de 2005 15:10 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Tela de Impressão não aparece... Rodrigo; Não estou usando nenhum tipo de componente (Table, Query...) O aplicativo Tem somente Buttons e Edits... Rafael Rodrigo Villaverde [EMAIL PROTECTED] wrote: A sua query não está retornando nenhum registro -Original Message- From: Rafael Souza [mailto:[EMAIL PROTECTED] Sent: quinta-feira, 17 de março de 2005 14:58 To: Delphi Grupo Subject: [delphi-br] Tela de Impressão não aparece... Boa Tarde! Gente, Coloquei no meu form um QuickRep1 e o QRShape1 e no form o botao p/ imprimir e os edits No botao de imprimir o código: Cap.Caption := Memo1.Text; //Cap.Caption vai receber o texto de Momo1 Maj.Caption := Memo2.Text; //Maj.Caption vai receber o texto de Momo2 quickrep1.Preview; Então ao clicar, a tela de Preview abre mas não aparece os dados. Estou esquecendo de configurar alguma outra coisa ? Aproveitando, tem como eu criar um novo form para colocar somente os QuickRep e os QRShape, por ex.: Se clicar no botao1 ele abre o form Imprime chamando QuickRep1 e imprime o conteúdo de Cap.Caption := Memo1.Text; Se clicar no botao2 ele abre o form Imprime, chamando QuickRep2 e imprime o conteúdo de Maj.Caption := Memo2.Text; Como posso fazer esta parte? Ja tentei mas não deu certo... Grato a todos. Rafael Souza - Yahoo! Mail - Com 250MB de espaço. Abra sua conta! [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: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12aievbke/M=264105.3931087.6562589.1588051/ D=brclubs/S=2137111264:HM/EXP=168906/A=2361264/R=0/SIG=11uaou2jn/*ht tp://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11; } return true;} [input] [input] [input] - 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 -- 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: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12a8l4f76/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=170281/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;} [input] [input] [input] - Links do Yahoo! Grupos Para visitar o site do seu
[delphi-br] Não encontro contador
Olá pessoal! Tenho meu projeto final e gostaria de incrementá-lo colocando um contador de registro que exiba sempre o último dado e não o dado atual. Já procurei na lista de mensagens antigas mas não encontrei. Alguem pode me ajudar com isso, pode me passar a procedure, me dizer como e o que eu devo fazer ? Agradeço desde já. Rafael - Yahoo! Mail - Com 250MB de espaço. Abra sua conta! [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] Ssubstituição de Componente
Olá Pessoal! Não sou fera em componentes indy, e aproveitando, alguém sabe quais os componentes da paleta Indy que podem subtituir o NMMsgServ e o NMMsg que antes estavam na paleta FastNet ? Grato pela Ajuda. Rafael Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Explicando ::: {Pq o RowCount não funciona ?}
Desculpem minha falha! A procedure abaixo tem a finalidade de ordenar por ordem alfabética os nomes da tabela. Quando tento executar, a linha de código onde diz if (StgVisua.RowCount 2) then fica com fundo vermelho e o cursor piscando atras da palavra RowCount. Não lembro da msg de erro, mas o fato é que não sei o que esta acorrendo. Tenho que declarar alguma coisa a mais na procedure ou fora dela? Obrigado. procedure TfrmClientes.BotaoClick(Sender: TObject); var i, j, k : integer; AUX : string;//varável auxiliar begin if (StgVisua.RowCount 2) then // Por que o RowCount não esta funcionando neste caso ??? With StgVisua do begin //Ordenação com a técnica da bolha (BUBLE SORT) For i := 1 to (RowCount-1) do begin for j := 1 to ((RowCount-i)-1) do if Cells[0,j] Cells[0,j+1] then begin for k := 0 to Colcount-1 do begin AUX := Cells[k,j]; cells[k,j] := cells [k,j+1]; cells[k,j+1] := AUX; end; end; end; //Procedure que copia do stringgrid para o Listbox, atualizando a lista Copia_LbNomes; MessageBox(Handle,'Operação realizada com sucesso!','ATENÇÃO',+MB_OK+MB_ICONExclamation); end; Rubem Rocha [EMAIL PROTECTED] wrote: Só mostrando o código e não explicando o que acontece fica difícil, companheiro. Forneça detalhes sobre o que está acontecendo. []s -Mensagem original- De: Rafael Souza [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 8 de março de 2005 11:36 Para: Delphi Grupo Assunto: [delphi-br] Pq o RowCount não funciona ? Olá! Tenho esta procedure mas o comando RowCout dá problema, o que mais tenho que fazer ? Grato, Rafael Souza. procedure TfrmClientes.BotaoClick(Sender: TObject); var i, j, k : integer; AUX : string;//varável auxiliar begin if (StgVisua.RowCount 2) then // Por que o RowCount não esta funcionando neste caso ??? With StgVisua do begin //Ordenação com a técnica da bolha (BUBLE SORT) For i := 1 to (RowCount-1) do begin for j := 1 to ((RowCount-i)-1) do if Cells[0,j] Cells[0,j+1] then begin for k := 0 to Colcount-1 do begin AUX := Cells[k,j]; cells[k,j] := cells [k,j+1]; cells[k,j+1] := AUX; end; end; end; //Procedure que copia do stringgrid para o Listbox, atualizando a lista Copia_LbNomes; MessageBox(Handle,'Operação realizada com sucesso!','ATENÇÃO',+MB_OK+MB_ICONExclamation); end; - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 04/03/2005 -- 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:PUBLICIDADE - 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!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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
[delphi-br] Onde encontrar os componentes ClientSocket e NMMsgServ
Ondeencontrar os componentes ClientSocket e NMMsgServ ClientSocket se não me engano faz parte da paleta Internet mas e o NMMsgServ? Ja revirei a net e não encontrei nada especifico, alguém sabe uma outra forma que eu possa encontrar os mesmos? Grato Rafael Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Encontrei os componentes...
Olá! Encontrei os componentes ClientSocket e ServerSocket no Delphi 7, dei uma vasculhada no próprio delphi e lá estão. Fiz Assim... Para instalar os componentes ClientSocket/ServerSocket no Delphi 7, Menu Componnent Install Packages Add e seleciona o Delphi7\bin\dclsockets70.bpl Agora vá até a aba Internet e verá os componentes instalados. Falow Galera! Rafael Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Paleta FastNet
Olá Pessoal! Alguém sabe como posso conseguir o Arquivo para instalar a paleta FastNet? Ela não é mais distribuida com o Delphi 7. Alguém que possui a versão inverior ao Delphi 7 pode me mandar esse arquivo?? Por Favor, é muito importante. Agradeço Rafael Souza __ 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] Evento OnExit não funciona c/ esse código
Olá Pessoal! Estou usando BdeEdit e quero que ao sair do BdeEdit1, o BdeEdit2 Seja preenchido com uma palavra, 'Sim' por exemplo. Estou usando assim begin if BdeEdit1:='Não' then BdeEdit2:='Sim' Else BdeEdit2:='Não' end; Mas não esta funcionando. Alguem pode me ajudar ?? Grato. Rafael Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar units
Fala Gente! Seguinte: Quero criar uma Unit que armazenará minhas procedures e functions para que meu código não fique grande demais no projeto principal. Por exemplo, uma unit chamada funcoes, armazenará o seguinte: procedure CadastraContatos (Sender: TObject); begin TbContatos.Insert; TbContatos.FieldByName('nome').asstring:= fmContatosMan.edNome.text; TbContatos.FieldByName('endereco').asstring:= fmContatosMan.edEndereco.text; TbContatos.FieldByName('cidade').asstring:= fmContatosMan.edcidade.text; TbContatos.Post; end; E no projeto, um Button chamará o código para gravar os dados na tabela. Como posso fazer isso? Alguma boa alma pode me ajudar? Muito Obrigado .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Criar units
Demian Lessa Obrigado pela atenção, é assim... Tenho penas um form e uso nele vários ScrollBox e em cada ScrollBox, os edits para cadastrar seus respectivos dados. São umas 10 tabelas com uma média de 30 campos cada e usando os fontes que pretendo, irá ficar grande para apenas um form, além de pesado. Então pensei em usar uma nova unit ligando-a ao projeto de forma indireta, porém, não sei como proceder, travei nessa parte. Demian Lessa [EMAIL PROTECTED] wrote: Rafael, Não quero entrar em sua semana, mas por que você está separando fisicamente uma rotina que deveria estar no próprio formulátio de contatos em primeiro lugar? Talvez você esteja com a idéia correta mas não esteja enxergando claramente a forma de implementá-la. Veja só, se você irá separar código em uma outra unidade (Application | New... | Unit) então o código dessa unidade deverá ser tão independente do restante de seu código quanto possível, caso contrário, um pesadelo o espera na hora da manutenção. No seu exemplo particular, você deveria usar algo como: procedure CadastraContatos(const Nome, Endereco, Cidade: string); begin TbContatos.Insert; TbContatos.FieldByName('nome').asstring:= Nome; TbContatos.FieldByName('endereco').asstring:= Endereco; TbContatos.FieldByName('cidade').asstring:= Cidade; TbContatos.Post; end; Só que você ainda tem mais problemas com essa rotina. Em primeiro lugar, a tabela. Ela é uma variável global de sua unidade? ou da seção de implementação? Além do mais, em geral, não é indicado deixar tabelas abertas. Você pode usar uma abordagem menos otimista: procedure CadastraContatos(const Nome, Endereco, Cidade: string); begin qyContatos.ParamByName('nome').asstring:= Nome; qyContatos.ParamByName('endereco').asstring:= Endereco; qyContatos.ParamByName('cidade').asstring:= Cidade; qyContatos.ExecSQL; end; Onde qyContatos seria uma referência local à query de inclusão de novos contatos. No seu caso, talvez seja mais útil usar um DataModule global. Qualquer que seja o caso, acho que você precisa dar uma lida nas coisas mais básicas como a anatomia de uma unidade, interface, implementation, etc. Na unit que você criou, para ter acesso às rotinas definidas, faça assim: unit demo; interface uses ...; procedure nome1; procedure nome2; implementation uses ...; procedure nome1; begin end; procedure nome2; begin end; end. E, nas unidades que precisarem acessar as procedures nome1 e nome2, basta acrescentar a unit demo na cláusula uses. Cordialmente, Demian Lessa Salvador - Brasil Rafael Souza wrote: Fala Gente! Seguinte: Quero criar uma Unit que armazenará minhas procedures e functions para que meu código não fique grande demais no projeto principal. Por exemplo, uma unit chamada funcoes, armazenará o seguinte: procedure CadastraContatos (Sender: TObject); begin TbContatos.Insert; TbContatos.FieldByName('nome').asstring:= fmContatosMan.edNome.text; TbContatos.FieldByName('endereco').asstring:= fmContatosMan.edEndereco.text; TbContatos.FieldByName('cidade').asstring:= fmContatosMan.edcidade.text; TbContatos.Post; end; E no projeto, um Button chamará o código para gravar os dados na tabela. Como posso fazer isso? Alguma boa alma pode me ajudar? Muito Obrigado .Rafael Souza. -- 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: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12a7bjbv0/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109438893/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;} [input] [input] [input] - 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] Esses arquivos são criados pelo delphi ??
Fala pessoal, que tarde heim !! Depois de muita encomodação de minha parte com meu sistema, encomodei vc's de certa forma tb, peço desculpas, mas para alegria vou trocar essa tranqueira por MySqlServer... Mas a pergunta desta vez é: Depois que coloquei o sistema pra rodar usando banco de dados Paradox e usando o BDE, notei na pasta c:\Windows surgiram arquivos com a seguinte descrição: ebb9_{8004BD21-992A-11D8-AFD4-00EEB1009FC0}.tmp mas surgiram muitos arquivos deste tipo e em todas as máquinas. Isto ocorre por causa de que ? Alguém sabe, ja passou por isso e pode me ajudar ? Grato. .Rafael Souza. __ 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] TDBCombobox não grava em alguns...
Boa Tarde pessoal! Gente, coloquei em minha aplicação um TDBCombobox, na verdade tres, mas o fato é que alguns deles não estão gravando. Explicando: A tela é de cadastro, tres TDBCombobox com seus respectivos items, no primeiro cadastro são gravados todos os TDBCombobox, no segundo cadastro que efetuo, ao clicar em gravar, somente é gravado na tabela o 1° TDB e o 3° TDB, ou somente o 2°, ou só o primeiro, entenderam?, eles são gravados, mas não todos como deveriam. Alguém ja passou por isso para me ajudar ? Grato .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] BDE não funciona mesmo com ...
De: Rafael Souza [EMAIL PROTECTED] Assunto: Solicito Ajuda com BDE. Ao comprimentá-los, peço nova ajuda com BDE Adm. Coloquei no Alias - Path = \\Bm-ljo-0045\c\Scbm\Dados Em Net Dir = \\Bm-ljo-0045\c\Scbm\Net Net foi uma pasta que criei para que fosse quardado o arquivo Pdoxusrs.net (Este arquivo é que esta me dando problemas). No aplicativo, coloquei uma Session1 com a propriedade PrivateDir apontando para \\BM-LJO-0045\C\SCBM\PRIV Priv é outra pasta que criei. Tudo isso nas máquinas clientes e no servidor. Local Share está True e MaxFilesHandles com valor 200. O problema insiste em acontecer e não sei mais o que fazer. Alguém tem uma outra idéia? Por Favor Estas dicas foram as últimas que recebi do amigo [EMAIL PROTECTED] Grato, .Rafael Souza. __ 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] Arquivos corretos. Quais ?
Olá Delphianos Quando atualizo meus programas em rede, copio os arquivos .exe .pas .dcu .res Mas me disseram que preciso copiar os . dfm e os .ddp. Então peço esclarecimento para saber quais os arquivos são corretos para se copiar. Quais ? Abraço .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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 BDE ::Em Rede::
Boa Tarde! Ao comprimentá-los, solicito ajuda com relação ao BDE. O problema ocorre da seguinte forma: O banco de dados esta em rede, assim que uma das máquinas clientes é reiniciada, e o programa reiniciado, uma mensagem de erro surge com relação a um arquivo criado pelo programa; {Pdoxusrs.net}. Com a seguinte mensagem: Network initialization failed. Unknown internal operating system error. File: \\BM-LJO-OO45\C\SCBM\DADOS\Pdoxusrs.net Directory: \\BM-LJO-OO45\C\SCBM\DADOS\ Já tentei excluir mas o arquivo insiste em ser recriado automaticamente impedindo assim, que após uma máquina seje reiniciada, o funcionamento do programa. Alguém pode me ajudar a resolver este problema?? Agradeço desde já. Abraço. __ 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] Alguém Conseguiu...
Oi Gente! Alguém comseguiu fazer funcionar o código para converter arquivos .txt em tabelas Paradox? Alguém tem o código pra repassar? Gratio. Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Comando - Grava Img. JPG
Eduardo, Então me desculpe, este comando é o que eu uso e funciona perfeitamente. Ok. Eduardo Silva ® [EMAIL PROTECTED] wrote: Rafael, testei a sua procedure para gravar imagens jpg em tabelas paradox e deu erro de BMP não é uma imagem válida. -Mensagem original- De: Rafael Souza [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 31 de janeiro de 2005 15:58 Para: Delphi Grupo Assunto: [delphi-br] Comando - Grava Img. JPG Este comando grava imagens no formato jpg. Dêem uma olhada e façam novos testes ok. Abraço. Rafael Souza Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end; __ 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: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- 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] Yahoo! Grupos, um serviço oferecido por: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12a6kpho8/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1107338963/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;} [input] [input] [input] - 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] Comando - Grava Img. JPG
Este comando grava imagens no formato jpg. Dêem uma olhada e façam novos testes ok. Abraço. Rafael Souza Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end; __ 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] Comando - Grid Zebrado
Outro dia alguém da lista colocou um comando que se eu me lembro, era meio longo. Tenho um comando um pouco menor que pra mim funciona super bem. O controle é feito no evento OnDrawColumnCell. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);beginIf odd(Table1.RecNo) thenbeginDBGrid1.Canvas.Font.Color:= clWhite;DBGrid1.Canvas.Brush.Color:= clGreen;endelsebeginDBGrid1.Canvas.Font.Color:= clBlack;DBGrid1.Canvas.Brush.Color:= clWhite;end;DBGrid1.Canvas.FillRect(Rect);DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);end; - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Importar Arquivo de Texto para Tabela
Eduardo, Tenho este comando porém ainda não testei o mesmo. Se fizeres e implementar, mande o mesmo pra nós ok. Abraço. Converter arquivo texto para Banco Dados //Converter arquivo texto para um Banco de Dados Type Estutura=Record Nome:String[30]; Endereco:String[50]; end; Var ArqTexto : TextFile; Registro : Estrutura; Begin AssignFile(ArqTexto,'Dados.txt'); Reset(ArqTexto); While not eof(ArqTexto) do Begin Readln(ArqTexto , Registro); // Inclusao no seu banco de dados end; end. Eduardo Buffara Junior [EMAIL PROTECTED] wrote: Ola alguem sabe como importar um txt para uma tabela??? T+ Eduardo Buffara Junior - Programador Delphi [EMAIL PROTECTED] (41) 9149.5756 - Paranaguá - PR [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:PUBLICIDADE - 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] Brincando com o PC alheio
Fala Gente! Alguém pode me ajudar com a seguinte: Tenho comando para abrir e fechar o drive de cd, ligar e desligar o monitor..., mas queria que estes comando fossem executados em um outro pc através da rede. Estou no meu pc, clico em um botão e o dive de cd de outro pc abre. Como posso fazer? Abraço. Rafael Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Busca com Números
No comando seguinte, faço uma busca por nome, mas como faço para fazer uma busca usando números??? (Na tabela Paradox, o campo esta declarado para numeros). Alquem pode me dar esta dica ? procedure TfMEs.Button1Click(Sender: TObject); begin Table1.Locate('Nome',EDit1.Text,[locaseInsensitive,LoPartialKey]); if not Table1.Locate('Nome', Edit1.Text, []) then begin ShowMessage('ME não Encontrado.'); Obrigado! .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Onde encontro o componente...
Fala Pessoal! Quero uma informação: Onde encontro um componente chamado ExcelExport ? Alguém pode me dizer ? Grato! .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Explicando - Busca com Números
No exemplo que eu estou usando, quando eu digito no edit1 o nome de uma pessoa, se encontra, retorna os dados, caso contrario avisa que não encontrou, mas não quero busca por nomes e sim por números, e isso gera um erro em minha aplicação. Em minha tabela possuo um campo chamado Matricula que recebe somente números (N) ou (Integer). Fui claro desta fez ? Obrigado aos interessados em ajudar. .Rafael Souza. procedure TfMEs.Button1Click(Sender: TObject); begin Table1.Locate('Nome', IntToStr(EDit1.Text), []); if not Table1.Locate('Nome', Edit1.Text, []) then begin ShowMessage('ME não Encontrado.'); === --- Em delphi-br@yahoogrupos.com.br, Rafael Souza [EMAIL PROTECTED] escreveu No comando seguinte, faço uma busca por nome, mas como faço para fazer uma busca usando números??? (Na tabela Paradox, o campo esta declarado para numeros). Alquem pode me dar esta dica ? procedure TfMEs.Button1Click(Sender: TObject); begin Table1.Locate('Nome',EDit1.Text,[locaseInsensitive,LoPartialKey]); if not Table1.Locate('Nome', Edit1.Text, []) then begin ShowMessage('ME não Encontrado.'); Obrigado! .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - 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!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Comando OK! - Busca com Números
Funcionou! Segue o comando: procedure TfMEs.Button1Click(Sender: TObject); begin if not Table1.Locate('matricula', StrToIntDef(EDit1.Text,0), [])then begin ShowMessage('ME não Encontrado.'); Edit1.Clear; Edit1.SetFocus; end; Grato. .Rafael Souza. === [EMAIL PROTECTED] [EMAIL PROTECTED] wrote: errei!!! corrigindo, seria: if Table1.Locate('matricula', StrToIntDef(EDit1.Text,0), [])then -- Open WebMail Project (http://openwebmail.org) -- Original Message --- From: [EMAIL PROTECTED] [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tue, 25 Jan 2005 17:20:48 -0200 Subject: Re: [delphi-br] Explicando - Busca com Números uai, se entendi bem, é só fazer: Table1.Locate('matricula', IntToStrDef(EDit1.Text,0), []); t+ -- Open WebMail Project (http://openwebmail.org) -- Original Message --- From: Rafael Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tue, 25 Jan 2005 16:21:05 -0300 (ART) Subject: Re: [delphi-br] Explicando - Busca com Números No exemplo que eu estou usando, quando eu digito no edit1 o nome de uma pessoa, se encontra, retorna os dados, caso contrario avisa que não encontrou, mas não quero busca por nomes e sim por números, e isso gera um erro em minha aplicação. Em minha tabela possuo um campo chamado Matricula que recebe somente números (N) ou (Integer). Fui claro desta fez ? Obrigado aos interessados em ajudar. .Rafael Souza. procedure TfMEs.Button1Click(Sender: TObject); begin Table1.Locate('Nome', IntToStr(EDit1.Text), []); if not Table1.Locate('Nome', Edit1.Text, []) then begin ShowMessage('ME não Encontrado.'); === --- Em delphi-br@yahoogrupos.com.br, Rafael Souza [EMAIL PROTECTED] escreveu No comando seguinte, faço uma busca por nome, mas como faço para fazer uma busca usando números??? (Na tabela Paradox, o campo esta declarado para numeros). Alquem pode me dar esta dica ? procedure TfMEs.Button1Click(Sender: TObject); begin Table1.Locate('Nome',EDit1.Text,[locaseInsensitive,LoPartialKey]); if not Table1.Locate('Nome', Edit1.Text, []) then begin ShowMessage('ME não Encontrado.'); Obrigado! .Rafael Souza. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - 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!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- End of Original Message --- -- 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 --- End of Original Message --- -- 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:PUBLICIDADE - 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!. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas
[delphi-br] Tabelas
Fala Gente! Procurei na internet fontes e exemplos mas os que encontrei não deram certo em minha aplicação, vcs tem ou sabe de um código para atualizar tabelas Paradox em ordem alfabética? E outro que me mostre quantos cadastros eu tenho na tabela (Se insere 1, soma mais 1, se tem 3, exclui 1, fica 2, entendeu). Abraço. Raafel Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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] Uma Ajuda.
Olá pessoal! Preciso de uma ajudinha; descrevo logo abaixo. Como faço para armazenar em uma tabela Paradox os valores de Um ComboBox e RadioButtons ?? Tenho um ComboBox com valores 'Sim e Não' (Podendo ter mais coisas, por ex, os estados brasileiros) e dois RadioButtons 'Sim e Não', então quero saber como faço para gravar em uma Tabel Paradox um dos dois valores, na tabela pode ter um campo chamado 'Opção', e neste campo gravar uma das duas opções escolhidas. Fui claro?! Alguém pode me Ajudar ??? Desde já, Obrigado. Feliz 2005!!! Rafael Souza - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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