Re: [delphi-br] Sistemas com código fonte em Delphi - Ao Moderador
QUE ME DESCULPE OS ANUNCIANTES, mas concordo com o pessoal ai... se o anuncio ainda viesse no meio de uma resposta a uma pergunta, ACHO até que daria para passar afinal ele ajudou alguem e pegou uma carona, mas que também as RESPOSTAS aos anuncios fosse direto a pessoa que os enviou né... rsrsrs Luiz Escobar... PS: i acho que andei respondendo errado alguma coisa por aqui... FUd** - Segue mensagem original! - De: Zunga Vei [EMAIL PROTECTED] Data: Thu, 13 Jul 2006 21:58:32 -0300 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Sistemas com código fonte em Delphi - Ao Moderador Mandou bem. Estou de acordo. Vamos melhorar o nível aí pessoal. Em 13/07/06, Marcos André [EMAIL PROTECTED] escreveu: Prezado Moderador, Não sou de ficar solicitando atenção as mensagens enviadas, mas infelizmente esta lista hoje está parecendo um comercio ambulante, um apareceu vendendo livro agora tem outro apresentando site de venda de software, infelizmente nenhum dos dois estão a ponto de nos ajudar. Se fosse ao menos divulgação de apostilas Freeware ou Fontes Freeware, seria aceitável tais mensagens, mas eles querem é vender e não ajudar. Me desculpa por esta atitude, mas infelizmente se esta mensagens continuarem estaremos num grande camelódromo da internet. Um Abraço ____ / \ /| |'-. .\__/ || | | _ / `._ \|_|_.-' | / \__.`=._) (_ Marcos André |/ ._/ || |'. `\ | | Analista de Sistema ;/ / | | Easy Corporation ) /_/| |.---.| http://www.e-easy.com.br/ www.e-easy.com.br | www.eassyxp.com.br http://www.eassyxp.com.br/ ' `-` ' msn: [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] 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] IMprimindo arquivos PDF a partir do Delphi
Olá, From: Camoloze Subject: RES: [delphi-br] IMprimindo arquivos PDF a partir do Delphi Olá Eduardo, Já testou os outros métodos do Activex : PrintAll, PrintPages( Inicio, Fim Integer ), nunca os utilizei Já testei. Às vezes funciona, às vezes não imprime nada :-( Usei o comando abaixo e não apareceu a tela da adobe ShellExecute( Handle, 'print', Pchar( cArquivo ), nil, nil, SW_SHOW ); Ué, estranho, aqui aparece sempre. Em qual versão do Delphi você testou? Atenciosamente, Eduardo Paci Galvão Engenheiro Eletricista UFMG www.egalvao.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Cor de panel
Eis the question :D ...rs... eu fiz esta procura geralzona, geralzona.. e adivinha? o féla num se encontra em lugar algum... maledeto!rs Se alguém tiver uma solução...plase!rs... é revoltante eu ter td em clnavy navy no meu form cinza dai quando eu tenho q usar um painel ele naum poder ser clnavy tb... fica ridiculo!!!rs Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Luiz Escobar Enviada em: quinta-feira, 13 de julho de 2006 17:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Cor de panel Se voce quer REALMENTE tirar o efeito do XPManifest que voce algum dia colocou em algum FORM e depois deletou o componente e o FDP não parou de atuar.. ehehhe, procurar em USES por XPMAN alias faz uma busca por XPMAN em todo seu projeto e onde achar TIRA!!!... ai vai voltar ao normal... abraços... Luiz Escobar - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 13, 2006 9:44 AM Subject: RES: [delphi-br] Cor de panel Ah esqueci di dizer mais uma coisa... meu projeto está com XPManifest msm, porém eu ñ sei como :ó( no projeto td eu mandei pesquisar o XP e nd foi encontrado. Confesso: Eu uma vez, a muito tempo coloquei o componente em uma Unit, mas eu tirei... tirei ele da uses... e nd, ñ adiantou nd... Algúem sabe me dizer o q posso fazer? Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Enviada em: quinta-feira, 13 de julho de 2006 05:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Cor de panel o componente não está setado a proriedade transparente não? não me lembro se este componente tem esta propriedade se tiver deixe ela desativada!! - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 12, 2006 3:00 PM Subject: [delphi-br] Cor de panel http://www.moked.com.br/ Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Boa Tarde, Pessoal, eu ñ estou conseguindo alterar a cor de um panel ou de um shape, tanto faz. A questão é q meu comando de panel.color está sendo ignorado e o componente (panel ou shape) está pegando a cor do form, creio eu q isso seja chamado de herança de componente. Como posso fazer para trocar a cor do meu panel ou do meu shape? Obrigada, Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000 Serviços prestados no Brasil na área de segurança pessoal e empresarial: Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.394 / Virus Database: 268.9.10/386 - Release Date: 12/7/2006 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Pegar Dominio/Grupo de trabalho
Vinicius, Desculpe a minha ignorância, mas o q seria o grupo de trabalho? Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius S. L. Ribeiro Enviada em: quinta-feira, 13 de julho de 2006 21:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho E ae pessoal, blz ? Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o computador faz parte atraves do Delphi ? Valeu! -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.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] 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] Fui demitido de uma grande Empresa que adotava o MS-SQL Server - E agora?
Esse link não abre. - Original Message - From: Ailton Branco [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 13, 2006 9:58 AM Subject: Re: [delphi-br] Fui demitido de uma grande Empresa que adotava o MS-SQL Server - E agora? tenta usar o sqlserver 2005 express... acho que pode te ajudar... da uma olhada nas vantagens dele e ve se adapta para vc... e e free - Original Message - From: ricardofloressql To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 13, 2006 2:41 AM Subject: [delphi-br] Fui demitido de uma grande Empresa que adotava o MS-SQL Server - E agora? Caso real que acabo de responder e incorporar no FAQ de meu site http://www.ricardodefaria.com/ricardoflores Ricardo, eu era o programador de uma grande Empresa que adotava o MS- SQL Server. O Sistema que criei usava Stored Procedures e Funções do MS-SQL Server. Fui despedido por Corte de Custos. Agora tenho um Código Fonte que só funciona no MS-SQL Server. Recentemente peguei um cliente que não pode pagar pelo MS-SQL Server e gostaria de adotar o Interbase 6.0 ou Firebird que são de graça. Por favor, ajude-me. O que eu faço ? Adquira o Livro O Caminho das Pedras (O Filme), que você não ficará mais escravo de um Servidor de Banco de Dados. http://www.ricardodefaria.com/ricardoflores/pFAQ.htm [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] 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] Pegar Dominio/Grupo de trabalho
da rede!!! - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Friday, July 14, 2006 8:58 AM Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho Vinicius, Desculpe a minha ignorância, mas o q seria o grupo de trabalho? Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius S. L. Ribeiro Enviada em: quinta-feira, 13 de julho de 2006 21:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho E ae pessoal, blz ? Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o computador faz parte atraves do Delphi ? Valeu! -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1660 (20060714) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OFF - LUCIFER, desculpem a demora em publicar
Aos amigos que me pediram para postar aquele programa lucifer, informo q já tá no ar... Baixem no link: www.sisponto.com.br/publico/utilitarios/instalador.zip Leiam o arquivo LEIAME.TXT antes de usar o programa. Instale o PEEDY.EXE antes de abrir o programa. Ele é feito com aquele esquema do boneco do windows. Não precisa instalar o programa. É só rodar. Moderador, não estou vendendo nada, viu! apenas liberando um freeware pra gente se divertir com os parentes nos fins de semana. Para quem quiser mais informações é só pedir, inclusive com o uso dos bonecos do windows... ps: o programa tem o recurso de fala. Logo, se instalar um aplicativo no windows, vc vai poder ouvir as respostas... Abraços a todos, e boas risadas... 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] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Olá amigos, continua na mesma...
coloquei lá no public:
procedure Verifica; virtual;
e lá no meu form filho, coloquei tambem no public
procedure Verifica; override;
e nada... mesmo erro..
[]s
Em 13/07/06, Eduardo [EMAIL PROTECTED] escreveu:
No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function ) ...
Eduardo
(*) Para sub-escrever este metodo vc tera que declarar como virtual ou
abstract no pai e no filho override normal.
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 13, 2006 3:47 PM
Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma
procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form... exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e
uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] OFF - LUCIFER, desculpem a demora em publicar
Distribui o código fonte também, gostaria de dar uma incrementada nele. Abraços, *Fernando dos Santos Sousa* Desenvolvimento (Anderson) escreveu: Aos amigos que me pediram para postar aquele programa lucifer, informo q já tá no ar... Baixem no link: www.sisponto.com.br/publico/utilitarios/instalador.zip Leiam o arquivo LEIAME.TXT antes de usar o programa. Instale o PEEDY.EXE antes de abrir o programa. Ele é feito com aquele esquema do boneco do windows. Não precisa instalar o programa. É só rodar. Moderador, não estou vendendo nada, viu! apenas liberando um freeware pra gente se divertir com os parentes nos fins de semana. Para quem quiser mais informações é só pedir, inclusive com o uso dos bonecos do windows... ps: o programa tem o recurso de fala. Logo, se instalar um aplicativo no windows, vc vai poder ouvir as respostas... Abraços a todos, e boas risadas... 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] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
--- Welson Avelar escreveu:
--- Fellipe Henrique escreveu:
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form... exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
[--x--]
[Welson] Você cria somente a assinatura do método no form base, da seguinte
forma:
procedure Verifica(PARAMETROS); virtual;
E na classe filho, você colocará:
procedure Verifica(PARAMETROS); override;
E implementa o método na classe filho.
Se entendi bem a sua dúvida, deve ser somente isso.
[]s.
[--x--]
[Welson] Só um adendo: como que declara método/atributo ESTÁTICO no Delphi!?
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
___
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.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]
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] mesclar células no grid
Boa noite, Gostaria de saber se algum dos usuários da lista saberia me informa se é possível mesclar células no grid. Sem mais agradeço Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ibdataset
Eduardo, obrigado pela dica, mas ainda não funcionou, os dados inseridos por outro terminal ainda não são mostrados, só aparecem quando a aplicação é fechada e aberta novamente. Obrigado João - Original Message - From: Eduardo Silva dos Santos [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, July 13, 2006 3:21 PM Subject: Re: [delphi-br] Ibdataset so se vc chamar o método IbDataSet.Refresh; Em 13/07/06, João S. Araújo [EMAIL PROTECTED] escreveu: Pessoal, boa tarde, essa a minha primeira mensagem na lista além de ser novato em programação, estou trabalhando com o componente ibdataset da guia interbase do delphi e o firebird, porém pelo que eu pude perceber quando o ibdataset é aberto ele traz todos os registros para a memória ram, a minha dúvida é a seguinte, quando um outro usuário da rede estiver trabalhando com a mesma tabela do banco e fizer inserções/modificações, tem como essas modificações serem atualizadas em todos os datasets que estiverem abertos sem que os mesmos tenham que ser fechados e abertos novamente? Obrigado Joã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] 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] Pegar Dominio/Grupo de trabalho
na paleta de componentes JEDI (jvSystem) tem um componente chamado JvComputarInfoEx. Nele, tem uma propriedade chamada IDENTIFICATION. Tem tudo. se não quiser instalar a paleta jedi, me fala q passo o codigo... mas eu acho mais facil instalar a JEDI... - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Friday, July 14, 2006 8:58 AM Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho Vinicius, Desculpe a minha ignorância, mas o q seria o grupo de trabalho? Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius S. L. Ribeiro Enviada em: quinta-feira, 13 de julho de 2006 21:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho E ae pessoal, blz ? Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o computador faz parte atraves do Delphi ? Valeu! -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1660 (20060714) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Invalid Field Type não consigo achar o pq.
Bom dia pessoal! Tem um sistema aki na empresa que roda perfeitamente se compilado na máquina onde foi desenvolvido. Instalei o delphi na minha máquina, abro e compilo o sistema, normalmente, sem problema. Mas, quando vou executar ele dá o erro 'Invalid Field Type', no momento do open em qq query. Tá desenvolvido em Delphi 7, MySql e usa o Zeos para conexão. As query são dinâmica (Query := TSQLQuery.Create). Outra coisa: Mesmo compilado na máquina onde foi desenvolvido, o sistema não roda na minha máquina. Roda em qualquer outra, menos na minha (acho q ele tá de sacanagem comigo... rsrs). O executável está no servidor, com as respectivas libs. O sistema foi desenvolvido por outro analista, que não está mais na empresa e a instalação do Delphi (na máquina em que foi desenvolvido), também, foi feita por ele. Já comparei as configurações dos Delphis, aparentemente, não tem nada diferente. Alguém pode me dar uma luz, por favor?! Grato, Luis Alberto Belo Horizonte - MG - Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] max(code)
Oi pessoal, to querendo saber o codigo maior de uma tabela mas nao sei como receber esse valor. To utilizando um ZQuery e o seguinte comando : 'SELECT max(code) FROM tabela' mas como faço para pegar esse valor e atribuir a uma variável? 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] 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 pegar esta informação?
Olá amigos, seguinte preciso pegar um informação digitada pelo teclado, tipo ALT+123 ALT+11 Como faço pra saber que o ALT está pressionado e pegar o que for digitado apos ele, e que seja somente numero? Desde já agradeço []s -- _ Fellipe Henrique [EMAIL PROTECTED] Borland Developer Studio 2006 Certified Venham até a borda, ele disse. Eles disseram: Nós temos medo. Venham até a borda, ele insistiu. Eles foram, Ele os empurrou... E eles voaram. (Guillaume Apollinaire) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] max(code)
--- jeannefoliveira escreveu:
Oi pessoal, to querendo saber o codigo maior de uma tabela mas nao sei
como receber esse valor.
To utilizando um ZQuery e o seguinte comando :
'SELECT max(code) as Code FROM tabela'
mas como faço para pegar esse valor e atribuir a uma variável?
Obrigado
[--x--]
[Welson] Simples. Faz a query assim: 'SELECT max(code) as Code FROM tabela' e
depois é só fazer Edit1.Text := ZQuery.FieldByName('Code').AsString;
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Pegar Dominio/Grupo de trabalho
function fncGetDomainName : string;
var
hToken : THandle;
sida : PSIDAndAttributes;
sidlen, unLen, dnLen : DWORD;
userName, domainName : string;
use : SID_NAME_USE;
begin
sida := Nil;
if OpenProcessToken (GetCurrentProcess, TOKEN_QUERY, hToken) then
try
sidLen := 65536;
repeat
ReallocMem (sida, sidLen);
if GetTokenInformation
(hToken, TokenUser, sida, sidLen, sidLen) then
begin
break;
end;
if GetLastError ERROR_INSUFFICIENT_BUFFER then
begin
RaiseLastWin32Error
end;
until False;
unLen := 0;
dnLen := 256;
repeat
SetLength (userName, unLen);
SetLength (domainName, dnLen);
if LookupAccountSid ('', sida^.Sid, PChar (userName), unLen,
PChar (domainName), dnLen, use) then
begin
break;
end;
if GetLastError ERROR_INSUFFICIENT_BUFFER then
begin
RaiseLastWin32Error;
end;
until False;
Result := PChar (domainName)
finally
CloseHandle (hToken);
FreeMem (sida);
end
end;
function fncRetornaMaquina : String;
var
i : Integer;
lpBuffer : PChar;
nSize : Cardinal;
strAux : String;
begin
//Retorna o Nome da Máquina
nSize:= MAX_COMPUTERNAME_LENGTH + 1;
lpBuffer := StrAlloc(nSize);
GetComputerName(lpBuffer, nSize);
Result := String(lpBuffer);
StrDispose(lpBuffer);
end;
[]s Angélica
- Original Message -
From: Desenvolvimento (Anderson) [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 14, 2006 10:22 AM
Subject: Re: [delphi-br] Pegar Dominio/Grupo de trabalho
na paleta de componentes JEDI (jvSystem) tem um componente chamado
JvComputarInfoEx.
Nele, tem uma propriedade chamada IDENTIFICATION.
Tem tudo.
se não quiser instalar a paleta jedi, me fala q passo o codigo...
mas eu acho mais facil instalar a JEDI...
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 14, 2006 8:58 AM
Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho
Vinicius,
Desculpe a minha ignorância, mas o q seria o grupo de trabalho?
Obrigada,
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vinicius S. L. Ribeiro
Enviada em: quinta-feira, 13 de julho de 2006 21:01
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho
E ae pessoal, blz ?
Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o
computador faz parte atraves do Delphi ?
Valeu!
--
Atenciosamente,
Vinicius S. L. Ribeiro
[EMAIL PROTECTED]
GNU/Linux User #293209.
Get counted: http://counter.li.org/
___
Você quer respostas para suas perguntas? Ou você sabe muito e quer
compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1.1660 (20060714) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
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]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RE: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Ve se é isso que você precisa:
Type TformPai = class(TForm)
...
Protected ou public
Procedure meuMetodo;
End;
TformFilho = class(TformPai)
...
Protected ou public // igual do pai
Procedure meuMetodo; override;
End;
Procedure TformPai.meuMetodo;
Begin
ShowMessage(Metodo do Pai);
End;
Procedure TformFilho.meuMetodo/
Begin
Inherited; // Mostra a mensagem do pai
ShowMessage(Metodo do Filho);
End;
--
José Henrique (Zote)
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Fellipe Henrique
Sent: sexta-feira, 14 de julho de 2006 09:43
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá amigos, continua na mesma...
coloquei lá no public:
procedure Verifica; virtual;
e lá no meu form filho, coloquei tambem no public
procedure Verifica; override;
e nada... mesmo erro..
[]s
Em 13/07/06, Eduardo [EMAIL PROTECTED] escreveu:
No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function ) ...
Eduardo
(*) Para sub-escrever este metodo vc tera que declarar como virtual ou
abstract no pai e no filho override normal.
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 13, 2006 3:47 PM
Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma
procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form... exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e
uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Ola Jose, o que eu quero na verdade eh somente por la no filho uma
referencia pra procedure do pai, pra eu poder fazer isso
Filho.Verifica;
Sendo que a procedure esta implementada no pai... somente isso...
[]s
Em 14/07/06, José Henrique (Zote) [EMAIL PROTECTED] escreveu:
Ve se é isso que você precisa:
Type TformPai = class(TForm)
...
Protected ou public
Procedure meuMetodo;
End;
TformFilho = class(TformPai)
...
Protected ou public // igual do pai
Procedure meuMetodo; override;
End;
Procedure TformPai.meuMetodo;
Begin
ShowMessage('Metodo do Pai');
End;
Procedure TformFilho.meuMetodo/
Begin
Inherited; // Mostra a mensagem do pai
ShowMessage('Metodo do Filho');
End;
--
José Henrique (Zote)
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On
Behalf Of Fellipe Henrique
Sent: sexta-feira, 14 de julho de 2006 09:43
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá amigos, continua na mesma...
coloquei lá no public:
procedure Verifica; virtual;
e lá no meu form filho, coloquei tambem no public
procedure Verifica; override;
e nada... mesmo erro..
[]s
Em 13/07/06, Eduardo [EMAIL PROTECTED] escreveu:
No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function )
...
Eduardo
(*) Para sub-escrever este metodo vc tera que declarar como virtual ou
abstract no pai e no filho override normal.
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 13, 2006 3:47 PM
Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma
procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form...
exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic...
e
uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RE: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Talves entao...
TformPai(self).verifica; // Onde self é o form filho.
--
José Henrique (Zote)
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Fellipe Henrique
Sent: sexta-feira, 14 de julho de 2006 13:50
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Ola Jose, o que eu quero na verdade eh somente por la no filho uma
referencia pra procedure do pai, pra eu poder fazer isso
Filho.Verifica;
Sendo que a procedure esta implementada no pai... somente isso...
[]s
Em 14/07/06, José Henrique (Zote) [EMAIL PROTECTED] escreveu:
Ve se é isso que você precisa:
Type TformPai = class(TForm)
...
Protected ou public
Procedure meuMetodo;
End;
TformFilho = class(TformPai)
...
Protected ou public // igual do pai
Procedure meuMetodo; override;
End;
Procedure TformPai.meuMetodo;
Begin
ShowMessage('Metodo do Pai');
End;
Procedure TformFilho.meuMetodo/
Begin
Inherited; // Mostra a mensagem do pai
ShowMessage('Metodo do Filho');
End;
--
José Henrique (Zote)
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On
Behalf Of Fellipe Henrique
Sent: sexta-feira, 14 de julho de 2006 09:43
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá amigos, continua na mesma...
coloquei lá no public:
procedure Verifica; virtual;
e lá no meu form filho, coloquei tambem no public
procedure Verifica; override;
e nada... mesmo erro..
[]s
Em 13/07/06, Eduardo [EMAIL PROTECTED] escreveu:
No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function )
...
Eduardo
(*) Para sub-escrever este metodo vc tera que declarar como virtual ou
abstract no pai e no filho override normal.
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 13, 2006 3:47 PM
Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma
procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form...
exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic...
e
uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram.
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: max(code)
infelizmente nao ta dando certo pessoal. Retirando esse * dá uma
mensagem que nao foi encontrado o campo code. Mas esse campo existe na
tabela.
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
Tira esse '*,' da instrução SQL. Deve ser esse o problema. Sds.
From: jeannefoliveira [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: max(code)
Date: Fri, 14 Jul 2006 15:14:19 -
ta dando erro...
Meu codigo:
if Query.Active then
Query.Close;
Query.SQL.Text := Format('SELECT *, max(code) as maxCode FROM %s',
[TableName]);
Query.Open;
code := Query.FieldByName('maxCode').AsString;
--- Em delphi-br@yahoogrupos.com.br, Welson Avelar
[EMAIL PROTECTED] escreveu
--- jeannefoliveira escreveu:
Oi pessoal, to querendo saber o codigo maior de uma tabela mas
nao sei
como receber esse valor.
To utilizando um ZQuery e o seguinte comando :
'SELECT max(code) as Code FROM tabela'
mas como faço para pegar esse valor e atribuir a uma variável?
Obrigado
[--x--]
[Welson] Simples. Faz a query assim: 'SELECT max(code) as Code FROM
tabela' e
depois é só fazer Edit1.Text := ZQuery.FieldByName('Code').AsString;
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
celular. Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
_
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]
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] mesclar células no gri d
Nunca ouvi falar nisto, tanto no DBGrid como no StringGrid. Se houver, pode haver algum componente por aí que tenha este recurso, mas eu desconheço e nem sei se ele existe ou aonde tenha e muito menos se é ou não pago ou pra qual Delphi é compatível. Mas com os nativos do Delphi? sem chance. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 Parabens Telemont - Somos a 8ª maior empresa do Brasil!! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo MDE Enviada em: quinta-feira, 13 de julho de 2006 18:39 Para: Delphi BR Assunto: [delphi-br] mesclar células no grid Boa noite, Gostaria de saber se algum dos usuários da lista saberia me informa se é possível mesclar células no grid. Sem mais agradeço Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro Ado
galera, estou tentando ligar minhas tabelas com adoconnection mas esta dando erro. na hora que vou colocar a tabela na propriedade tablename da o seguinte erro. Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. obs: eu uso o mesmo nome no odbc para outro programa, será que eu não consigo utilizar o mesmo nome para dois programas diferentes? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] mesclar células no grid
um componente q tem recursos bem interessantes desse tipo é o decision cube... mas nunca parei para ver como funciona. de qualquer forma, pode ser um começo... - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Friday, July 14, 2006 3:15 PM Subject: RES: [delphi-br] mesclar células no grid Nunca ouvi falar nisto, tanto no DBGrid como no StringGrid. Se houver, pode haver algum componente por aí que tenha este recurso, mas eu desconheço e nem sei se ele existe ou aonde tenha e muito menos se é ou não pago ou pra qual Delphi é compatível. Mas com os nativos do Delphi? sem chance. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 Parabens Telemont - Somos a 8ª maior empresa do Brasil!! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ricardo MDE Enviada em: quinta-feira, 13 de julho de 2006 18:39 Para: Delphi BR Assunto: [delphi-br] mesclar células no grid Boa noite, Gostaria de saber se algum dos usuários da lista saberia me informa se é possível mesclar células no grid. Sem mais agradeço Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1660 (20060714) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: max(code)
Se o banco for Firebird experimenta o seguinte:
Select first 1 code from sua_tabela order by code desc
[]
Andrei
Em 14/07/06, jeannefoliveira[EMAIL PROTECTED] escreveu:
infelizmente nao ta dando certo pessoal. Retirando esse * dá uma
mensagem que nao foi encontrado o campo code. Mas esse campo existe na
tabela.
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
Tira esse '*,' da instrução SQL. Deve ser esse o problema. Sds.
From: jeannefoliveira [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Re: max(code)
Date: Fri, 14 Jul 2006 15:14:19 -
ta dando erro...
Meu codigo:
if Query.Active then
Query.Close;
Query.SQL.Text := Format('SELECT *, max(code) as maxCode FROM %s',
[TableName]);
Query.Open;
code := Query.FieldByName('maxCode').AsString;
--- Em delphi-br@yahoogrupos.com.br, Welson Avelar
[EMAIL PROTECTED] escreveu
--- jeannefoliveira escreveu:
Oi pessoal, to querendo saber o codigo maior de uma tabela mas
nao sei
como receber esse valor.
To utilizando um ZQuery e o seguinte comando :
'SELECT max(code) as Code FROM tabela'
mas como faço para pegar esse valor e atribuir a uma variável?
Obrigado
[--x--]
[Welson] Simples. Faz a query assim: 'SELECT max(code) as Code FROM
tabela' e
depois é só fazer Edit1.Text := ZQuery.FieldByName('Code').AsString;
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Oferta de trabalho - analista delphi
Amigos, a empresa aonde eu trabalho, está oferecendo uma vaga para Analista programador com experiência em Delphi + SQL. LOCAL: Botafogo - Rio de Janeiro REGIME: PJ DURAÇÃO: INDETERMINADO. Interessados, Favor enviar CV, com pretensão salarial como PJ para [EMAIL PROTECTED] Obrigado. Gustavo Pereira Nunes Gerente de Desenvolvimento Crowley Broadcast Analysis do Brasil (21) 2244-8822 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] mesclar células no grid
Talvez a suite Developer Express (Quantum Grid) faça o que você quer. Mas ele não é freeware. É até bastante caro. Em 13/07/06, Ricardo MDE [EMAIL PROTECTED] escreveu: Boa noite, Gostaria de saber se algum dos usuários da lista saberia me informa se é possível mesclar células no grid. Sem mais agradeço Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas] -- Saudações, Zunga. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi7 + SQL Server2005
Senhores, Preciso acessar um servidor SQL server 2005 a partir do Delphi7. O que me sugerem? Alguém já fez esse tipo de acesso? Tentei usar o ADO e não consegui. Obrigado. Ronaldo Pena. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi7 + SQL Server2005
a core lab tem, porém é pago... www.crlab.com os drives deles são muito bons. abs. On Fri, 14 Jul 2006 20:26:17 -, Ronaldo Marcelo Pena [EMAIL PROTECTED] escreveu: De: Ronaldo Marcelo Pena [EMAIL PROTECTED] Data: Fri, 14 Jul 2006 20:26:17 - Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi7 + SQL Server2005 Senhores, Preciso acessar um servidor SQL server 2005 a partir do Delphi7. O que me sugerem? Alguém já fez esse tipo de acesso? Tentei usar o ADO e não consegui. Obrigado. Ronaldo Pena. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Pegar Dominio/Grupo de trabalho
Falando em componentes Jedi, alguém saberia me dizer o nome do componente Jedi, que exibe um hint ao estilo do XP? Obrigado! - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Friday, July 14, 2006 10:22 AM Subject: Re: [delphi-br] Pegar Dominio/Grupo de trabalho na paleta de componentes JEDI (jvSystem) tem um componente chamado JvComputarInfoEx. Nele, tem uma propriedade chamada IDENTIFICATION. Tem tudo. se não quiser instalar a paleta jedi, me fala q passo o codigo... mas eu acho mais facil instalar a JEDI... - Original Message - From: Moked - Tamara (Brazil) To: delphi-br@yahoogrupos.com.br Sent: Friday, July 14, 2006 8:58 AM Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho Vinicius, Desculpe a minha ignorância, mas o q seria o grupo de trabalho? Obrigada, Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vinicius S. L. Ribeiro Enviada em: quinta-feira, 13 de julho de 2006 21:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho E ae pessoal, blz ? Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o computador faz parte atraves do Delphi ? Valeu! -- Atenciosamente, Vinicius S. L. Ribeiro [EMAIL PROTECTED] GNU/Linux User #293209. Get counted: http://counter.li.org/ ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1.1660 (20060714) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBLookupcombobox
Boa noite pessoal, alguém sabe como fazer para que um dblookupcombox apareça a lista completa já no primeiro clique. No meu caso estou tendo problemas no primeiro clique(só aparece um item), depois que a barra de rolagem é movimentada e clicado fora, ao clicar no dblookupcombobox novamente a lista aparece completa. Ogrigado João [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] HTML
Caro amigo Rodrigo, seu desenvolvimento evia anexo??? Tenho que desenvolver um programa que envia anexo. Em 14/07/06, Rodrigo [EMAIL PROTECTED] escreveu: boa tarde galera, estou fazendo um programinha para enviar e-mail no meu sistema, gostaria que a pessoa pudesse formatar o texto de acordo com os botões ...e tal negrito fonte... tem algum componente para tal..a parte de envio ja tenho os componentes da pasta Indy abs. [As partes desta mensagem que não continham texto foram removidas] -- == Leandro Belanda MSN: [EMAIL PROTECTED] É bom ser importante, mas é mais importante ser bom. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] HTML
da uma alterada nesse código q vc ja consegue anexar
a com a vara e o peixe na mão só fritara seu gosto.
abs.
Rodrigo Mota.
//
// Gera uma String unica baseada no relogio do windows
//
Function CreateUniqueID(HexMode:Boolean=True):String;
Var A : Int64;
Begin
a := Trunc(Now*1);
If HexMode Then Result := IntToHex(a,14) Else Result := IntToStr(a);
Sleep(50);
End;
procedure TForm1.Button1Click(Sender: TObject);
Var newText : TIdText;
sPath : String;
newAttach : TIdAttachment;
imgID1, imgName1 : String;
imgID2, imgName2 : String;
begin
// Endereço e ID das Imagens
imgName1 := 'c:\\mail\\imagem1.jpg';
imgID1 := CreateUniqueID;
imgName2 := 'c:\\mail\\imagem2.jpg';
imgID2 := CreateUniqueID;
// Configura o Servidor
IdSMTP.Username := 'seu_login';
IdSMTP.Password := 'sua_senha';
IdSMTP.Host := 'seu_servidor_smtp';
// Configura o Remetente da Mensagem
IdMessage.Clear;
IdMessage.Subject := 'Teste de Envio de Mensagem';
IdMessage.From.Address := '[EMAIL PROTECTED]';
IdMessage.From.Name:= 'Adenilton Rodrigues';
IdMessage.Subject := 'My Subject';
// configura os destinatários
IdMessage.Recipients.Clear;
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '[EMAIL
PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name:=
'Adenilton Rodrigues';
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '[EMAIL
PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name:=
'Adenilton Rodrigues';
// Adiciona o HTML ao corpo da mensagem
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/html';
newText.Body.Add('HTMLBODY');
newText.Body.Add('H2Teste de Envio de Email HTML Embeded/H2');
newText.Body.Add('IMG
newText.Body.Add('IMG
newText.Body.Add('/BODYHTML');
// Adiciona uma parte texto ao corpo
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/plain';
newText.Body.Add('Este email só será visualizado em padrão HTML');
// Anexa a primeira imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName1);
newAttach.ContentType:= 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := ''+imgId1+'';
// Anexa a segunda imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName2);
newAttach.ContentType:= 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := ''+imgId2+'';
// Envia
IdSMTP.Connect;
Try
if IdSMTP.Connected then Begin
IdSMTP.Send(IdMessage);
End
Finally
IdSMTP.Disconnect;
End;
end;
Basicamente a técnica consiste em trocar os nomes das imagens no corpo do HTML
(IMG SRC) por um identificador único, usando e anexar essas imagens
referenciando-as ao seus respectivos identificadores.
Veja que foram usadas duas variaveis string para comportar os nomes das imagens
e seus IDs. A solução ideal é:
1. Ler o arquivo html diretamente do disco (loadfromfile)
2. Executar uma varredura e trocar todos os IMG SRC por um ID unico.
3. Anexar as imagens ao corpo do email.
4. Enviar.
On Fri, 14 Jul 2006 20:39:47 -0300, Leandro Belanda [EMAIL PROTECTED]
escreveu:
De: Leandro Belanda [EMAIL PROTECTED]
Data: Fri, 14 Jul 2006 20:39:47 -0300
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] HTML
Caro amigo Rodrigo, seu desenvolvimento evia anexo???
Tenho que desenvolver um programa que envia anexo.
Em 14/07/06, Rodrigo [EMAIL PROTECTED] escreveu:
boa tarde galera,
estou fazendo um programinha para enviar e-mail no meu
sistema, gostaria que a pessoa pudesse formatar o texto
de acordo com os botões ...e tal negrito fonte...
tem algum componente para tal..a parte de envio ja
tenho os componentes da pasta Indy
abs.
[As partes desta mensagem que não continham texto foram removidas]
--
==
Leandro Belanda
MSN: [EMAIL PROTECTED]
É bom ser importante, mas é mais importante ser bom.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo,
Re: [delphi-br] Pegar Dominio/Grupo de trabalho
Valeu pessoal!
Era justamente o que estava precisando.
Obrigado!!!
Atenciosamente,
Vinicius S. L. Ribeiro
[EMAIL PROTECTED]
GNU/Linux User #293209.
Get counted: http://counter.li.org/
Angélica Viana Pereira escreveu:
function fncGetDomainName : string;
var
hToken : THandle;
sida : PSIDAndAttributes;
sidlen, unLen, dnLen : DWORD;
userName, domainName : string;
use : SID_NAME_USE;
begin
sida := Nil;
if OpenProcessToken (GetCurrentProcess, TOKEN_QUERY, hToken) then
try
sidLen := 65536;
repeat
ReallocMem (sida, sidLen);
if GetTokenInformation
(hToken, TokenUser, sida, sidLen, sidLen) then
begin
break;
end;
if GetLastError ERROR_INSUFFICIENT_BUFFER then
begin
RaiseLastWin32Error
end;
until False;
unLen := 0;
dnLen := 256;
repeat
SetLength (userName, unLen);
SetLength (domainName, dnLen);
if LookupAccountSid ('', sida^.Sid, PChar (userName), unLen,
PChar (domainName), dnLen, use) then
begin
break;
end;
if GetLastError ERROR_INSUFFICIENT_BUFFER then
begin
RaiseLastWin32Error;
end;
until False;
Result := PChar (domainName)
finally
CloseHandle (hToken);
FreeMem (sida);
end
end;
function fncRetornaMaquina : String;
var
i : Integer;
lpBuffer : PChar;
nSize : Cardinal;
strAux : String;
begin
//Retorna o Nome da Máquina
nSize:= MAX_COMPUTERNAME_LENGTH + 1;
lpBuffer := StrAlloc(nSize);
GetComputerName(lpBuffer, nSize);
Result := String(lpBuffer);
StrDispose(lpBuffer);
end;
[]s Angélica
- Original Message -
From: Desenvolvimento (Anderson) [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 14, 2006 10:22 AM
Subject: Re: [delphi-br] Pegar Dominio/Grupo de trabalho
na paleta de componentes JEDI (jvSystem) tem um componente chamado
JvComputarInfoEx.
Nele, tem uma propriedade chamada IDENTIFICATION.
Tem tudo.
se não quiser instalar a paleta jedi, me fala q passo o codigo...
mas eu acho mais facil instalar a JEDI...
- Original Message -
From: Moked - Tamara (Brazil)
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 14, 2006 8:58 AM
Subject: RES: [delphi-br] Pegar Dominio/Grupo de trabalho
Vinicius,
Desculpe a minha ignorância, mas o q seria o grupo de trabalho?
Obrigada,
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vinicius S. L. Ribeiro
Enviada em: quinta-feira, 13 de julho de 2006 21:01
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Pegar Dominio/Grupo de trabalho
E ae pessoal, blz ?
Alguem sabe como faco pra pegar o Dominio ou Grupo de Trabalho que o
computador faz parte atraves do Delphi ?
Valeu!
--
Atenciosamente,
Vinicius S. L. Ribeiro
[EMAIL PROTECTED]
GNU/Linux User #293209.
Get counted: http://counter.li.org/
___
Você quer respostas para suas perguntas? Ou você sabe muito e quer
compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
__ Informação do NOD32 IMON 1.1660 (20060714) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] HTML
Valeu Muito Origado,
Em 14/07/06, Rodrigo Mota [EMAIL PROTECTED] escreveu:
da uma alterada nesse código q vc ja consegue anexar
a com a vara e o peixe na mão só fritara seu gosto.
abs.
Rodrigo Mota.
//
// Gera uma String unica baseada no relogio do windows
//
Function CreateUniqueID(HexMode:Boolean=True):String;
Var A : Int64;
Begin
a := Trunc(Now*1);
If HexMode Then Result := IntToHex(a,14) Else Result := IntToStr(a);
Sleep(50);
End;
procedure TForm1.Button1Click(Sender: TObject);
Var newText : TIdText;
sPath : String;
newAttach : TIdAttachment;
imgID1, imgName1 : String;
imgID2, imgName2 : String;
begin
// Endereço e ID das Imagens
imgName1 := 'c:\\mail\\imagem1.jpg';
imgID1 := CreateUniqueID;
imgName2 := 'c:\\mail\\imagem2.jpg';
imgID2 := CreateUniqueID;
// Configura o Servidor
IdSMTP.Username := 'seu_login';
IdSMTP.Password := 'sua_senha';
IdSMTP.Host := 'seu_servidor_smtp';
// Configura o Remetente da Mensagem
IdMessage.Clear;
IdMessage.Subject := 'Teste de Envio de Mensagem';
IdMessage.From.Address := '[EMAIL PROTECTED]';
IdMessage.From.Name http://idmessage.from.name/:= 'Adenilton
Rodrigues';
IdMessage.Subject := 'My Subject';
// configura os destinatários
IdMessage.Recipients.Clear;
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '
[EMAIL PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name:=
'Adenilton Rodrigues';
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '
[EMAIL PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name:=
'Adenilton Rodrigues';
// Adiciona o HTML ao corpo da mensagem
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/html';
newText.Body.Add('HTMLBODY');
newText.Body.Add('H2Teste de Envio de Email HTML Embeded/H2');
newText.Body.Add('IMG
newText.Body.Add('IMG
newText.Body.Add('/BODYHTML');
// Adiciona uma parte texto ao corpo
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/plain';
newText.Body.Add('Este email só será visualizado em padrão HTML');
// Anexa a primeira imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName1);
newAttach.ContentType:= 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := ''+imgId1+'';
// Anexa a segunda imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName2);
newAttach.ContentType:= 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := ''+imgId2+'';
// Envia
IdSMTP.Connect;
Try
if IdSMTP.Connected then Begin
IdSMTP.Send(IdMessage);
End
Finally
IdSMTP.Disconnect;
End;
end;
Basicamente a técnica consiste em trocar os nomes das imagens no corpo do
HTML (IMG SRC) por um identificador único, usando e anexar essas imagens
referenciando-as ao seus respectivos identificadores.
Veja que foram usadas duas variaveis string para comportar os nomes das
imagens e seus IDs. A solução ideal é:
1. Ler o arquivo html diretamente do disco (loadfromfile)
2. Executar uma varredura e trocar todos os IMG SRC por um ID unico.
3. Anexar as imagens ao corpo do email.
4. Enviar.
On Fri, 14 Jul 2006 20:39:47 -0300, Leandro Belanda [EMAIL PROTECTED]
escreveu:
De: Leandro Belanda [EMAIL PROTECTED]
Data: Fri, 14 Jul 2006 20:39:47 -0300
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] HTML
Caro amigo Rodrigo, seu desenvolvimento evia anexo???
Tenho que desenvolver um programa que envia anexo.
Em 14/07/06, Rodrigo [EMAIL PROTECTED] escreveu:
boa tarde galera,
estou fazendo um programinha para enviar e-mail no meu
sistema, gostaria que a pessoa pudesse formatar o texto
de acordo com os botões ...e tal negrito fonte...
tem algum componente para tal..a parte de envio ja
tenho os componentes da pasta Indy
abs.
[As partes desta mensagem que não continham texto foram removidas]
--
==
Leandro Belanda
MSN: [EMAIL PROTECTED]
É bom ser importante, mas é mais importante ser bom.
[As partes desta mensagem que não continham texto foram removidas]
--
==
Leandro Belanda
MSN: [EMAIL PROTECTED]
É bom ser importante, mas é mais importante ser bom.
[As partes desta mensagem que não
Re: [delphi-br] Re: max(code)
if Query.Active then
Query.Close;
Query.SQL.Text := Format('SELECT *, max(code) as maxCode FROM %s',
[TableName]);
Query.Open;
code := Query.FieldByName('maxCode').AsString;
Mude para:
if Query.Active then
Query.Close;
Query.SQL.Text := Format('SELECT max(%s.code) FROM
%s',[TableName,TableName]);
Query.Open;
code := Query.Fields[0].AsString;
talvez funcione
[]'s
Francisco Thiago de Almeida
Enter Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]
http://enterplug.no-ip.com/sistema_ctrc/
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e
anti-spam realmente eficaz.
http://mail.yahoo.com.br/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Duvidas SQL
boa tarde estou executando um comando SQL, mas não estou conseguindo resolver o meu problema, alguem poderia me dar uma ajuda ? SELECT A.CODIGO, A.QTD, A.PUNIT, A.OPERACAO, B.NOME FROM VENDAS A, PRODUTOS B WHERE B.CODIGO = A.CODIGO AND A.CODIGO IN (SELECT CODIGO FROM PRODUTOS WHERE COD_F = :CODF está me retornando os seguintes registros: codigo qtd punit operacao nome 3007 10 2,50 venda batata doce 3006 05 1,50 vendaarroz 3007 12 2,50 venda batata doce 3009 03 1,29 venda feijao 3007 10 2,50 venda batata doce até ae tudo certo, mas agora eu gostaria de montar outro SQL que me retornasse os registros assim, somando os codigo que forem iguais 3007 32 2,50 venda batata doce 3006 05 1,50 vendaarroz 3009 03 1,29 venda feijao alguem saberia me esclarecer como faze-lo ? obrigado Paulo ___ 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] 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] Duvidas SQL
--- Paulo Yahoo escreveu: boa tarde estou executando um comando SQL, mas não estou conseguindo resolver o meu problema, alguem poderia me dar uma ajuda ? SELECT A.CODIGO, A.QTD, A.PUNIT, A.OPERACAO, B.NOME FROM VENDAS A, PRODUTOS B WHERE B.CODIGO = A.CODIGO AND A.CODIGO IN (SELECT CODIGO FROM PRODUTOS WHERE COD_F = :CODF está me retornando os seguintes registros: codigo qtd punit operacao nome 3007 10 2,50 venda batata doce 3006 05 1,50 vendaarroz 3007 12 2,50 venda batata doce 3009 03 1,29 venda feijao 3007 10 2,50 venda batata doce até ae tudo certo, mas agora eu gostaria de montar outro SQL que me retornasse os registros assim, somando os codigo que forem iguais 3007 32 2,50 venda batata doce 3006 05 1,50 vendaarroz 3009 03 1,29 venda feijao alguem saberia me esclarecer como faze-lo ? obrigado Paulo [--x--] [Welson] Tenta algo como: SELECT A.CODIGO, A.QTD, Sum(A.PUNIT), A.OPERACAO, B.NOME FROM VENDAS A, PRODUTOS B WHERE B.CODIGO = A.CODIGO AND A.CODIGO IN (SELECT CODIGO FROM PRODUTOS WHERE COD_F = :CODF Group By A.CODIGO, A.QTD, A.OPERACAO, B.NOME = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Duvidas em SQL
boa tarde estou executando um comando SQL, mas não estou conseguindo resolver o meu problema, alguem poderia me dar uma ajuda ? SELECT A.CODIGO, A.QTD, A.PUNIT, A.OPERACAO, B.NOME FROM VENDAS A, PRODUTOS B WHERE B.CODIGO = A.CODIGO AND A.CODIGO IN (SELECT CODIGO FROM PRODUTOS WHERE COD_F = :CODF está me retornando os seguintes registros: codigo qtd punit operacao nome 3007 10 2,50 venda batata doce 3006 05 1,50 vendaarroz 3007 12 2,50 venda batata doce 3009 03 1,29 venda feijao 3007 10 2,50 venda batata doce até ae tudo certo, mas agora eu gostaria de montar outro SQL que me retornasse os registros assim, somando os codigo que forem iguais 3007 32 2,50 venda batata doce 3006 05 1,50 vendaarroz 3009 03 1,29 venda feijao alguem saberia me esclarecer como faze-lo ? obrigado Paulo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Arredondar valores
Olá pessoal, estou com o seguinte problema: Quando faço : BD.ItemValor.AsCurrency := BD.ItemPrecoUnitario.AsCurrency * BD.ItemQuantidade.AsCurrency ele faz algo esquisito. O Valor de BD.ItemPrecoUnitario é 2,318 e o valor de BD.Itemquantidade é 100. Só que ele mostra 231,8 quando multiplico. O certo não seria 232,00?Pois deveria arredondar 2,318 para 2,32 e depois multiplicar por 100 certo? Alex [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
