Res: [delphi-br] Delphi + MySQL
use o zeos ---Mensagem original--- De: HNS Informática Data: 10/10/05 17:31:14 Para: Lista DelphiBr Assunto: [delphi-br] Delphi + MySQL Estou iniciando o uso do Delphi5 com MySQL, gostaria de saber se alguém sabe onde encontrar um bom componente de acesso ao MySQL para Delphi5 e um materia introdutório de como programar com MySQL, tipo, inserir, excluir, editar registros usando SQL. Abraços Charles Chiodi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Programação para Linux.
O que a comunidade Delphi esta usando para desenvolver os seus aplicativos para Linux ? Não sei esse assunto já foi discutido aqui. Att. Fernando Fabril [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] VCL ou Windows form
Olá pessoal, muitos desenvolvedores tem feito esta pergunta. 1 - VCL existe para Win32 e para .NET através da VCL.NET, se você fizer uma aplicação VCL.NET terá uma aplicação .NET 2 - WinForms é baseado na FCL, para os desenvolvedores Delphi que estão acostumados com VCL nem querem passar perto de FCL, não tem metade dos componentes da VCL, utilizar VCL.NET é uma forma de vocês conseguirem evoluir em .NET mantendo o código legado e criando novas aplicações com a garantia que a Borland sempre deu na compatibilidade de código entre versões e tudo isso com alta produtividade, hoje temos que entregar mais projetos, com menos pessoas, menos tempo e mais barato :o) 3 - Começar a desenvolver aplicações em WinForms utilizando MONO na minha opinião é um erro, a parte WinForms do MONO não está estável o suficiente, e sinceramente 1 empresa em 1 milhão vai utilizar Linux no Desktop, as empresa que vi fazendo isso se arrependeram, já em ASP.NET o MONO está mais estável e várias pessoas utilizam, e Linux realmente pegou na parte servidora, muito cuidado ao tomarem esse tipo de decisão isso pode afetar o futuro do seu negócio. 4 - Documentação .NET, é obrigação da Microsoft fornecer a documentação sobre o Framework, a Borland disponibiliza documentação sobre o Delphi e diversos livros são encontrados no mercado, inclusive já indiquei o Guia do Desenvolvedor de Delphi for .NET do Xavier Pacheco (http://blogs.borland.com/andreanolanusse/archive/2005/10/04/21577.aspx) Algumas outras fontes de informação: - BDN - Borland Developer Network - http://bdn.borland.com - você irá encontrar diversos artigos e vídeos sobre os produtos Borland - Code Central - http://cc.borland.com - diversos fontes de aplicações em Delphi - Revista ClubeDelphi - www.devmedia.com.br/clubedelphi - Mensalmente artigos sobre Delphi - Revista ActiveDelphi - www.activedelphi.com.br - Mensalmente artigos sobre Delphi E claro as listas de discussão, a Borland prestigia muito a comunidade de desenvolvedores, por isso estamos sempre por aqui dando dicas, ajudando a responder e trazendo outros benefícios. No BorCon teremos uma palestra de como executar aplicações Delphi 2005 em Linux e MacOS através do Mono, vai ser muito interessante, isso será mostrado na práticas vocês, uma aplicação rodando em Linux e sendo acessada de Windows. O BorCon será de 17 a 19 de novembro, todas as informações estão em http://info.borland.com.br Espero ter ajudado. Abraços, Andreano Lanusse System Engineer Borland Latin America Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - www.borland.com.br blocked::http://www.borland.com.br/ A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de João Paulo EsPyl Enviada em: segunda-feira, 10 de outubro de 2005 22:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] VCL ou Windows form Boa noite. Tambem não tenho profundo conhecimento sobre o D2005, mas pelo que li e pelo que resolvemos adotar aqui na empresa posso te falar o seguinte: Se for usar para desenvolvimentos de novos projetos, onde não vá querer reutilizar codigos do VCL, adote o padrao windows form, pois é o que a propria Borland tem indicado, alem de que esta plataforma é totalmente .NET podendo depois rodar em qualquer FrameWork que seja .NET. Tambem esteja preparado a reaprender algumas coisas, alem de que não vai encontrar muitos materiais didáticos sobre o assunto, a nao ser no site da propria Microsoft que tem um bom material (em ingles) sobre o assunto. Adotamos este procedimento aqui na empresa, porque queremos futuramente rodar nossos aplicativos em linux, e existe um projeto chamado MONO que está comprometido a rodar aplicacoes totalmente .NET (no caso windows form) na plataforma acima aludida. No referido projeto está fora as aplicacoes feitas no padrao VCL.NET, pois o mesmo mantem padrao da nossa conhecida VCL e nao é totalmente .NET. []s _ João Paulo Pyl EsPyl Informática e Sistemas S/C Ltda Sistemas para Gestão Pública Site: www.espyl.com.br Cascavel - Paraná FoneFax: (45) 3224-7328 - Original Message - From: Ailton Branco [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, October 10, 2005 10:52 AM Subject: [delphi-br] VCL ou Windows form Sou iniciante no windows 2005 e criei dois projetos para teste... um VCL Dot net e o windows form Dot Net vi as diferenças e ainda nao caiu a ficha qual devo usar ?? os dois sao dot net ??? qual a diferença entre um e outro estou com uma copia demo ainda nao tenho a original tendo em vista que estou apenas
[delphi-br] Componentes de Acesso
Bom dia a todos, Gostaria de aproveitar a experiência de vocês para tirar uma duvida, QUAL O MELHOR (mais rápido) COMPONENTE PARA ACESSO AO FIREBIRD/ INTERBASE? Obrigado Paulo Dias de Souza Programador Delphi\ Interbase _ [EMAIL PROTECTED] ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Trigger no Firebird nao dispara
ja fiz muita trigger com alteracao depois e funcionou -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Madsom Silva Enviada em: segunda-feira, 10 de outubro de 2005 19:15 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Trigger no Firebird nao dispara Celio, tem duas alterações : AFTER por BEFORE e 10 por 0 a alteração está sendo feita depois da gravação o certo seria antes. Sem mais. Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Celio Ricardo Enviada em: segunda-feira, 10 de outubro de 2005 18:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Trigger no Firebird nao dispara Estou tentando criar triggers no FB, sem sucesso. Estou utilizando o EMS IBMANAGER para cria-los. Fiz esse trigger, que é o único no evento afterinsert da tabela ISaida, onde ele verifica se o campo USARCOMNEG esta T ou F, e, dependendo da condicao insere um valor total no campo VLCOMISSAONEG. Os campos VLCOMISSAO e VLCOMISSAONEG sao da propria tabela tambem. CREATE TRIGGER VERIFICA_COMISSAO_USADA FOR ISAIDA ACTIVE AFTER INSERT POSITION 10 AS BEGIN new.vlcomissaovenda = 0; if (new.usarcomneg = 'T') then new.vlcomissaovenda = new.vlcomissaoneg; else new.vlcomissaovenda = new.vlcomissao; END Alguem poderia me ajudar, estou pirando =) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.11.14/128 - Release Date: 10/10/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: RES: [delphi-br] Trigger no Firebird nao dispara
Cara, me passa o create da tabela que eu te ajudo! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Celio Ricardo Enviada em: segunda-feira, 10 de outubro de 2005 18:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Trigger no Firebird nao dispara Elazar, obrigado por responder. Eu mudei o position para ver se funcionava. Nao funciona de forma nenhuma, estou desconfiado que, talvez, meu FB precise de alguma configuracao de acesso para poder executar triggers (os campos que sao autocalculados funcionam). Se puder ajudar, agradeco... --- Em delphi-br@yahoogrupos.com.br, Elazar [EMAIL PROTECTED] escreveu nao chegeui a testar, mas tente deixar o POSITION em 0 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Componentes de Acesso
Bom dia! Eu uso o MDO e acredito ser muito bom. Tem também o ZeosDBO, porém com esse o executável fica um pouco maior, mas tem a vantagem de, caso queira usar outro Banco de Dados, será bem mais fácil, pois ele acessa vários Banco de Dados. Boa sorte. Ulisses - Original Message - From: Paulo Dias de Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 8:01 AM Subject: [delphi-br] Componentes de Acesso Bom dia a todos, Gostaria de aproveitar a experiência de vocês para tirar uma duvida, QUAL O MELHOR (mais rápido) COMPONENTE PARA ACESSO AO FIREBIRD/ INTERBASE? Obrigado Paulo Dias de Souza Programador Delphi\ Interbase _ [EMAIL PROTECTED] ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] SQL: 2 tabelas vários campos
Ex. CREATE TABLE FUNCIONARIO (CODIGO INTEGER NOT NULL, NOMEVARCHAR(100)); CREATE TABLE SETOR (CODIGO INTEGER NOT NULL, RESPONSAVEL INTEGER NOT NULL, GERENTE INTEGER NOT NULL, SUBGERENTE INTEGER NOT NULL) ( mais ou menos isso neh?...ocultei chaves...foreings..) bem voce pode fazer em um unico select retornar toda as informacooes ex: SELECT SETOR.CODIGO, SETOR.RESPONSAVEL, SETOR.GERENTE, SETOR.SUBGERENTE, RESPONSAVEL.NOME NOMERESPONSAVEL, GERENTE.NOME NOMEGERENTE, SUBGERENTE.NOME NOMESUBGERENTE FROM SETOR SETOR LEFT JOIN FUNCIONARIO RESPONSAVEL ON SETOR.RESPONSAVEL = RESPONSAVEL.CODIGO LEFT JOIN FUNCIONARIO GERENTE ON SETOR.GERENTE = GERENTE.CODIGO LEFT JOIN FUNCIONARIO SUBGERENTE ON SETOR.SUBGERENTE = SUBGERENTE.CODIGO ...nao cheguei a testar...(deve ter algum erro de escrita) mas a sintaxe e esta -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcos Jordão Enviada em: segunda-feira, 10 de outubro de 2005 22:44 Para: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Assunto: [delphi-br] SQL: 2 tabelas vários campos Gostaria que alguém me ajudasse nessa: Tenho uma tabela de FUNCIONARIO e uma tabela de SETOR Na tabela SETOR tenho os campos: RESPONSAVEL, GERENTE e SUB-GERENTE, os quais armazenam o código das pessoas cadastradas na tabela FUNCIONARIO. Gostaria de pegar o nome deles que está na tabela FUNCIONARIO sem ter que fazer 3 consultas. Algo que ficasse assim: RESPONSAVEL | GERENTE|SUB-GERENTE Jose | Claudio |Augusto Desde já agradeço, Marcos Antonio Campos Jordã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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Undefined service gds_db/tcp - Erro no Windows XP
Oi pessoal, algumas pessoas tem me reportado esse erro após instalarem algumas atualizações do Windows XP. Postei no meu blogs um artigo de como resolver o problema. http://blogs.borland.com/andreanolanusse/archive/2005/10/11/21677.aspx Abraços Andreano Lanusse System Engineer - Development Tools Tel.: (55 11) 2165-8000 / 8196-5912 [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ A Borland Software é líder mundial em soluções independentes de plataforma para a Criação Otimizada de Software (Software Delivery Optimization), auxiliando nossos clientes a transporem as barreiras atuais do desenvolvimento, para maximizar o valor do software para seu negócio. http://info.borland.com.br/borcon [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OFF TOPIC (desarmamento)
Ola bom dia galera... sei que o assunto nao tem nada a ver com o delphi...e me desculpe por isso.. mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...? pq? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Consulta - Urgente
Olá, preciso de uma ajuda urgente, se me responderem eu agradeço. Eu estou fazendo uma inserção no delphi, após inserir, eu quero saber, através de uma consulta, qual ID foi inserido na tabela: result:=DMConsulta.QConsulta_id.Fields.Fields[0].asinteger; A variável result é do tipo integer. Mas quando executo dá o seguinte erro: List index of bounds[0] Eu precisava de um exemplo simples e bom para se realizar consultas e receber essa consulta através de uma variável. -- FAVOR 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] ROLE permissões
E ai galera, Quais permissões um Usuário deve ter para poder criar permissões com ROLE, altera etc.. Só estou conseguindo criar roles com o SYSDBA, com outros não... Valeu... Thiapo [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] OFF TOPIC (desarmamento)
Elazar, Bom dia! Me desculpa, mas este tipo de assunto que não nada a ver com o Delphi e nem com desenvolvimento, só tumultua a lista. Acho que isso já rolou aqui e em outras listas que participo, gerou discussões intermináveis. Não sou o dono da lista e nem da verdade. Mas na minha opinião, esta lista não é para esse tipo de assunto. Espero que não se estenda como outros off-topic que aparecem. Mais uma ves, me desculpe! Wilton Elazar wrote: Ola bom dia galera... sei que o assunto nao tem nada a ver com o delphi...e me desculpe por isso.. mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...? pq? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] OFF TOPIC (desarmamento)
Não tenho nada a dizer, aqui é uma lista relacionada a delphi... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Elazar Enviada em: terça-feira, 11 de outubro de 2005 09:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] OFF TOPIC (desarmamento) Ola bom dia galera... sei que o assunto nao tem nada a ver com o delphi...e me desculpe por isso.. mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...? pq? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] OFF TOPIC (desarmamento)
O que tenho a dizer é que este assunto não é assunto pra ser discutido aqui na lista. []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Elazar Enviada em: terça-feira, 11 de outubro de 2005 09:15 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] OFF TOPIC (desarmamento) Ola bom dia galera... sei que o assunto nao tem nada a ver com o delphi...e me desculpe por isso.. mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...? pq? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Número de registros filtrados pela query
Bom dia pessoal. Preciso saber quantos registros foram filtrados por uma query. O código SQL é bem simples, assim: Select * from Coletanea Where ColDono = :CodigoDoDono Esse parâmetro é passado depois no Delphi. Isso serve para saber quantas coletaneas um usuário do sistema tem. Como pegar o número de registros que forem filtrados? Banco SQLServer, Delphi7, ADO Agradeço a ajuda. Rodrigo Tognin Estudante e estagiário Técnico em informática ESALQ/USP - IPEF -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Consulta - Urgente
Parece que tem um fields a mais. tente retirar um Fields, assim: result := DMConsulta.QConsulta_id.Fields[0].asinteger; Se não funcionar, dê um last na tabela: DMConsulta.QConsulta_id.Last; Espero que funcione! Abraço Rodrigo Tognin -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de solangevoss Enviada em: terça-feira, 11 de outubro de 2005 09:16 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Consulta - Urgente Olá, preciso de uma ajuda urgente, se me responderem eu agradeço. Eu estou fazendo uma inserção no delphi, após inserir, eu quero saber, através de uma consulta, qual ID foi inserido na tabela: result:=DMConsulta.QConsulta_id.Fields.Fields[0].asinteger; A variável result é do tipo integer. Mas quando executo dá o seguinte erro: List index of bounds[0] Eu precisava de um exemplo simples e bom para se realizar consultas e receber essa consulta através de uma variável. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OFF TOPIC (desarmamento)
Acho que se você fizer uma rotina usando numeros inteiros randomicos e colocando o Par para SIM e o impar para NÃO você vai achar a resposta... Ou parem de colocar esse tipo de coisa aqui POXA, isso aqui é uma lista de DELPHI e não lista de escolhas pessoais... Elazar [EMAIL PROTECTED] escreveu: Ola bom dia galera... sei que o assunto nao tem nada a ver com o delphi...e me desculpe por isso.. mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...? pq? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. Thiago de Castro X. da Silveira Pré-Vestibular Pitágoras Unidades Centro, Savassi e Belvedere. Setor TI telefone: +55 (31) 3274-1088 e-mails: [EMAIL PROTECTED] [EMAIL PROTECTED] - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [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] Edit no popup
Alguém sabe se é possível colocar um edit no popup menu do tray icon? Grato, Márcio. [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] Edit no popup
Nunca pensei nisto. Menu é menu, tenho quase certeza que não é possível - não é lógico. O que você deseja fazer? (pq este edit?) Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Marcio Amorim de Araujo [EMAIL PROTECTED] To: DTDelphi [EMAIL PROTECTED]; Delphi BR delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 10:51 AM Subject: [delphi-br] Edit no popup Alguém sabe se é possível colocar um edit no popup menu do tray icon? Grato, Márcio. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Número de registros filtrados pela q uery
Query.RecordCount Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Rodrigo Tognin [EMAIL PROTECTED] To: Delphi-Br delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 10:00 AM Subject: [delphi-br] Número de registros filtrados pela query Bom dia pessoal. Preciso saber quantos registros foram filtrados por uma query. O código SQL é bem simples, assim: Select * from Coletanea Where ColDono = :CodigoDoDono Esse parâmetro é passado depois no Delphi. Isso serve para saber quantas coletaneas um usuário do sistema tem. Como pegar o número de registros que forem filtrados? Banco SQLServer, Delphi7, ADO Agradeço a ajuda. Rodrigo Tognin Estudante e estagiário Técnico em informática ESALQ/USP - IPEF -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Abrir Internet Explorer
Não funcionou, ele abriu a página numa página ja aberta -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de TObject Enviada em: segunda-feira, 10 de outubro de 2005 18:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Abrir Internet Explorer Acho que o código abaixo resolve teu problema, espero que ajude. procedure TCadCliente.SpeedButton1Click(Sender: TObject); var Site: string; begin if HomePage.Text '' then begin Site := trim(HomePage.Text); ShellExecute(GetDesktopWindow, 'open', pchar(Site), nil, nil, sw_ShowNormal); end; end; - Original Message - From: Eduardo Silva ® To: Grupo Delphi-br Sent: Monday, October 10, 2005 3:27 PM Subject: [delphi-br] Abrir Internet Explorer Galera, eu tenho uma rotina para abrir o Internet Explorer. O que eu gostaria é que se ele estiver berto, quando eu clicar em um link, ele abra outra página e não na mesma que esta aberta. Alguém sabe como fazer isso? OBrigado. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1248 (20051010) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Abrir Internet Explorer
Nao opcoes avançadas do I.E., desmarque a opcao Reutilizar janelas para iniciar os atalhos att, Leandro - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 11:13 AM Subject: RES: [delphi-br] Abrir Internet Explorer Não funcionou, ele abriu a página numa página ja aberta -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de TObject Enviada em: segunda-feira, 10 de outubro de 2005 18:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Abrir Internet Explorer Acho que o código abaixo resolve teu problema, espero que ajude. procedure TCadCliente.SpeedButton1Click(Sender: TObject); var Site: string; begin if HomePage.Text '' then begin Site := trim(HomePage.Text); ShellExecute(GetDesktopWindow, 'open', pchar(Site), nil, nil, sw_ShowNormal); end; end; - Original Message - From: Eduardo Silva ® To: Grupo Delphi-br Sent: Monday, October 10, 2005 3:27 PM Subject: [delphi-br] Abrir Internet Explorer Galera, eu tenho uma rotina para abrir o Internet Explorer. O que eu gostaria é que se ele estiver berto, quando eu clicar em um link, ele abra outra página e não na mesma que esta aberta. Alguém sabe como fazer isso? OBrigado. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1248 (20051010) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Edit no popup
É q eu queria fazer uma passagem de parâmetros para o programa sem ter q abrir uma tela nova só para digitar estes parâmetros. Seria mais fácil clicar lá no popup e já digitar o q preciso. Sacou? Será q dá? --- Em delphi-br@yahoogrupos.com.br, Roger [EMAIL PROTECTED] escreveu Nunca pensei nisto. Menu é menu, tenho quase certeza que não é possível - não é lógico. O que você deseja fazer? (pq este edit?) Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Marcio Amorim de Araujo [EMAIL PROTECTED] To: DTDelphi [EMAIL PROTECTED]; Delphi BR delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 10:51 AM Subject: [delphi-br] Edit no popup Alguém sabe se é possível colocar um edit no popup menu do tray icon? Grato, Márcio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Re: Edit no popup
Amigo, não sei como, mas é possível colocar controles no popup sim, o Emule faz isso. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de marcioamorimaraujo Enviada em: terça-feira, 11 de outubro de 2005 11:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Edit no popup É q eu queria fazer uma passagem de parâmetros para o programa sem ter q abrir uma tela nova só para digitar estes parâmetros. Seria mais fácil clicar lá no popup e já digitar o q preciso. Sacou? Será q dá? --- Em delphi-br@yahoogrupos.com.br, Roger [EMAIL PROTECTED] escreveu Nunca pensei nisto. Menu é menu, tenho quase certeza que não é possível - não é lógico. O que você deseja fazer? (pq este edit?) Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Marcio Amorim de Araujo [EMAIL PROTECTED] To: DTDelphi [EMAIL PROTECTED]; Delphi BR delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 10:51 AM Subject: [delphi-br] Edit no popup Alguém sabe se é possível colocar um edit no popup menu do tray icon? Grato, Márcio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Edit no popup
Saiu uma materia na INFO, acho q foi a passada ou retrasada...na Capa esta o Windows Vista. Ali dizia como se altera os menus pop-up...inclusive do proprio windows...e adicionando novas funções!!! espero ter ajudado! flw - Original Message - From: Filipe Xavier Ramalho [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 11:57 AM Subject: RES: [delphi-br] Re: Edit no popup Amigo, não sei como, mas é possível colocar controles no popup sim, o Emule faz isso. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de marcioamorimaraujo Enviada em: terça-feira, 11 de outubro de 2005 11:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: Edit no popup É q eu queria fazer uma passagem de parâmetros para o programa sem ter q abrir uma tela nova só para digitar estes parâmetros. Seria mais fácil clicar lá no popup e já digitar o q preciso. Sacou? Será q dá? --- Em delphi-br@yahoogrupos.com.br, Roger [EMAIL PROTECTED] escreveu Nunca pensei nisto. Menu é menu, tenho quase certeza que não é possível - não é lógico. O que você deseja fazer? (pq este edit?) Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Marcio Amorim de Araujo [EMAIL PROTECTED] To: DTDelphi [EMAIL PROTECTED]; Delphi BR delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 10:51 AM Subject: [delphi-br] Edit no popup Alguém sabe se é possível colocar um edit no popup menu do tray icon? Grato, Márcio. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos __ Informação do NOD32 1.1249 (20051011) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Herança???
Bom dia galera, Tenho um form, no qual implementei várias funcionalidades e todos os outros herdam dele. Até aí tudo bem. Porém o Delphi sempre obriga que eu adicione ele no projeto e que o fonte (.pas e .dfm) esteja disponível. Senão tiver diz que não foi possível abrir o ancestor. Existe algo que possa ser feito? Registrar o form na IDE ou algo? Pela atenção dos amigos, obrigado. Celso Lorenzetti. [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] Testar Porta de Saida...
Olá pessoal... tô com um probleminha aqui... Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean; Const Portas :Byte = $02; Var Res :Byte; Begin Asm mov ah,Portas; mov dx,Porta; Int $17; //- aqui dá um Access Violation... mov Res,ah; end; Result := (Res and $80) = $80; end; em qq porta q eu escolher... alguém ai manja de Asm pra me dar uma dicazinha de como resolver este erro? os valores para porta são: LPT1 = 0; LPT2 = 1; LPT3 = 2; LPT4 = 3; COM1 = 8; COM2 = 9; COM3 = 10; COM4 = 11; caso não seja nenhuma destas então deve ser um PATH válido com um arquivo TXT. Ex: 'C:\Windows\impressao.txt' Obrigado por qq ajuda... Sérgio A Souza Analista de Sistemas THOMASINI Associados Automação Comercial e Industrial e-mail: [EMAIL PROTECTED] MSN/Skype: [EMAIL PROTECTED] msn PVT: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ROLE permissões
E ai galera, Quais permissões um Usuário deve ter para poder criar uma ROLE e determinar as permissoões dela, tenho um usuario sem nenhuma permissão, e conecto o banco ultilizando uma role. Só estou conseguindo criar, alterar dar grant, revoke roles com o SYSDBA, com outros usuarios não... Valeu... Thiago [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] Testar Porta de Saida...
Eu achei esse texto aqui, ve se ajuda...
Verificar se Impressora esta Conectada
A dica abaixo apresenta o código para implementação de uma função para
verificar se a impressora esta conectada.
Para implementar esta função é necessário que o código gerado manipule algumas
interrupções da Bios (Sistema Básico de Entrada e Saída) responsáveis pelo
controle da porta paralela (Interrupção $17).
A interrupção $17 utiliza dois registros ah e dx, o registrador ah indica neste
caso o acesso a porta paralela e o registrador dx indica qual das portas será
testada, 0 para LPT1 e 1 para LPT2.
Para saber se a porta esta ligada (impressora conectada) o resultado da
operação de tratamento de interrupção deve ser $80.
Código Completo:
Function OnLine(Porta:Word):Boolean;Const Portas :Byte = $02;Var Res
:Byte;Begin { Código em Assembler } Asm mov ah,Portas; {Requisita o acesso as
portas}mov dx,Porta;{Define a porta de teste}Int $17; {Chama a interrupção de
Impressora} mov Res,ah; {Guarda em Res o resultado da operação } end; Result :=
(Res and $80) = $80; {Testa o valor de saída}End;
sa_souza [EMAIL PROTECTED] escreveu:
Olá pessoal...
tô com um probleminha aqui...
Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean;
Const Portas :Byte = $02;
Var Res :Byte;
Begin
Asm
mov ah,Portas;
mov dx,Porta;
Int $17; //- aqui dá um Access Violation...
mov Res,ah;
end;
Result := (Res and $80) = $80;
end;
em qq porta q eu escolher... alguém ai manja de Asm pra me dar uma
dicazinha de como resolver este erro?
os valores para porta são:
LPT1 = 0;
LPT2 = 1;
LPT3 = 2;
LPT4 = 3;
COM1 = 8;
COM2 = 9;
COM3 = 10;
COM4 = 11;
caso não seja nenhuma destas então deve ser um PATH válido com um
arquivo TXT. Ex: 'C:\Windows\impressao.txt'
Obrigado por qq ajuda...
Sérgio A Souza
Analista de Sistemas
THOMASINI Associados
Automação Comercial e Industrial
e-mail: [EMAIL PROTECTED]
MSN/Skype: [EMAIL PROTECTED]
msn PVT: [EMAIL PROTECTED]
Thiago de Castro X. da Silveira
Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!
[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] Testar Porta de Saida (NOVO)
Achei esse outro aqui tbem...
Verificando se a impressora está ativa
Na sua unit, faça a chamada abaixo:
While not PrinterOnline() dobegin MsgBox('Verifique a
Impressora!','ATENÇÃO');end; Function PrinterOnLine : Boolean;Const PrnStInt :
Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2,
etc. }Var nResult : byte;Begin (* PrinterOnLine*) Asm mov ah,StRq; mov
dx,PrnNum; Int $17; mov nResult,ah;end; PrinterOnLine := (nResult and $80) =
$80;End;
Thiago de Castro X. da Silveira
Pré-Vestibular Pitágoras
Unidades Centro, Savassi e Belvedere.
Setor TI
telefone: +55 (31) 3274-1088
e-mails:
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Abrir Internet Explorer
Infelizmente não... Seria via registro do windows, mas nao sei a chave... Leandro - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 1:09 PM Subject: RES: [delphi-br] Abrir Internet Explorer Cara, funcionou, será que vc sabe como desabilitar essa opção via programação? Ai eu colocaria uma opção no sistema se o usuário quer ou não -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Leandro Enviada em: terça-feira, 11 de outubro de 2005 11:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Abrir Internet Explorer Nao opcoes avançadas do I.E., desmarque a opcao Reutilizar janelas para iniciar os atalhos att, Leandro - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 11:13 AM Subject: RES: [delphi-br] Abrir Internet Explorer Não funcionou, ele abriu a página numa página ja aberta -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de TObject Enviada em: segunda-feira, 10 de outubro de 2005 18:34 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Abrir Internet Explorer Acho que o código abaixo resolve teu problema, espero que ajude. procedure TCadCliente.SpeedButton1Click(Sender: TObject); var Site: string; begin if HomePage.Text '' then begin Site := trim(HomePage.Text); ShellExecute(GetDesktopWindow, 'open', pchar(Site), nil, nil, sw_ShowNormal); end; end; - Original Message - From: Eduardo Silva ® To: Grupo Delphi-br Sent: Monday, October 10, 2005 3:27 PM Subject: [delphi-br] Abrir Internet Explorer Galera, eu tenho uma rotina para abrir o Internet Explorer. O que eu gostaria é que se ele estiver berto, quando eu clicar em um link, ele abra outra página e não na mesma que esta aberta. Alguém sabe como fazer isso? OBrigado. ~\\|//~ -(o o)- o--oOOOo--(_)--oOOOo-o || | Eduardo de Almeida Silva | | Câmara Municipal de Lençóis Paulista | | [EMAIL PROTECTED] - (14)3263-0326 | || |.oooO Oooo. | o( )---( )---o \ ( ) / \_) (_/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- -- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1248 (20051010) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1249 (20051011) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http
Res: [delphi-br] Testar Porta de Saida...
se o SO é Win XP, tente mudar no setup da máquina a porta paralela de ECP para SPP. ---Mensagem original--- De: sa_souza Data: 10/11/05 13:50:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Testar Porta de Saida... Olá pessoal... tô com um probleminha aqui... Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean; Const Portas :Byte = $02; Var Res :Byte; Begin Asm mov ah,Portas; mov dx,Porta; Int $17; //- aqui dá um Access Violation... mov Res,ah; end; Result := (Res and $80) = $80; end; em qq porta q eu escolher... alguém ai manja de Asm pra me dar uma dicazinha de como resolver este erro? os valores para porta são: LPT1 = 0; LPT2 = 1; LPT3 = 2; LPT4 = 3; COM1 = 8; COM2 = 9; COM3 = 10; COM4 = 11; caso não seja nenhuma destas então deve ser um PATH válido com um arquivo TXT. Ex: 'C:\Windows\impressao.txt' Obrigado por qq ajuda... Sérgio A Souza Analista de Sistemas THOMASINI Associados Automação Comercial e Industrial e-mail: [EMAIL PROTECTED] MSN/Skype: [EMAIL PROTECTED] msn PVT: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] OFF TOPIC (desarmamento)
Concordo com meus amigos acima, aqui não é lista para se discutir isso, por que vc não posta uma pergunta sobre Delphi? Te garanto que vao lhe responder, deixe esse tipo de discursão para outros lugares ou então crie um grupo novo para tal discursão, mas não vamos sujar a nossa lista. Em 11/10/05, thiago castro[EMAIL PROTECTED] escreveu: Acho que se você fizer uma rotina usando numeros inteiros randomicos e colocando o Par para SIM e o impar para NÃO você vai achar a resposta... Ou parem de colocar esse tipo de coisa aqui POXA, isso aqui é uma lista de DELPHI e não lista de escolhas pessoais... Elazar [EMAIL PROTECTED] escreveu: Ola bom dia galera... sei que o assunto nao tem nada a ver com o delphi...e me desculpe por isso.. mas o que voces tem a dizer sobre o desarmamento...e contra? a favor...? pq? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. Thiago de Castro X. da Silveira Pré-Vestibular Pitágoras Unidades Centro, Savassi e Belvedere. Setor TI telefone: +55 (31) 3274-1088 e-mails: [EMAIL PROTECTED] [EMAIL PROTECTED] - Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- []'s Emerson Moreno O grande sábio aprende por ensinar! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Vaga para Analista Programador DELPHI
Zona Sul??? - Original Message - From: patty_mrbr [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 2:32 PM Subject: [delphi-br] Vaga para Analista Programador DELPHI A WA Informática busca profissionais especialista em Delphi (desenvolvimento para WEB) com experiência de, no minimo, 1 ano em .net e profundos conhecimentos em Diagramas entidade relacionamento para atuar em grande cliente da área de Tecnologia localizado na Zona Sul por prazo indeterminado (profissional irá integrar equipe). Forma de contratação cooperativa. Profissionais que tiver interesse encaminhar cv's para [EMAIL PROTECTED], colocando no assunto Delphi e no corpo da mensagem a pretensão de valor hora. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda com Threads e Arquivos binários
Prezados Amigos,
Tudo bem?
Tenho que desenvolver uma aplicação que receberá vários
bloco de 2kb
através de uma porta específica. Acontece que estes blocos
são da
ordem de milhões/hora e a única forma que imaginei seria, a
cada bloco
que eu receber na porta que estou escutando (uso delphi 4 e com o
componente TServerSocket), pensei em armazenar em um arquivo
binário
em um diretório específico.
Uma outra aplicação estará full time pesquisando este
diretório
verificando a existência dos arquivos. Existindo, irá lê-los,
processá-los e apagá-los.
Consegui simular a chegada dos blocos de 2k sendo que estou usando
threads para isso, tendo em vista a imensa quantidade que terei de
gravar o tempo todo e não posso (de jeito nenhum) perder nenhum
bloco
destes que receber. Acho que até aí está correto não ? :)
Bom, quando a thread é chamada, reparei que ela cria uma
instãncia no
gerenciador de tarefas, e várias ao mesmo tempo. Queria ter
certeza de
liberar a memória após a gravação de cada arquivo,
desafogando a máquina.
Eu chamo a thread assim:
GeraArquivo := TGravaArquivo.Cria(Socket.ReceiveText);
Segue o código da thread:
unit UThreadGravaArquivo;
interface
uses
Classes, SysUtils ;
type
TGravaArquivo = class(TThread)
private
{ Private declarations }
vMeuConteudo : String;
F : TextFile;
protected
procedure Execute; override;
procedure Processo;
public
constructor Cria(vConteudo: String);
end;
Const
caminho_App = 'D:\Pulse\Pulse_Desktop\unread\';
implementation
{ Important: Methods and properties of objects in VCL can only be used
in a
method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure TGravaArquivo.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }
{ TGravaArquivo }
constructor TGravaArquivo.Cria(vConteudo: String);
begin
Create(False);
vMeuConteudo := vConteudo;
FreeOnTerminate := True;
end;
procedure TGravaArquivo.Execute;
begin
Synchronize(Processo);
end;
procedure TGravaArquivo.Processo;
var
Year, Month, Day, Hour, Min, Sec, MSec: Word;
varq: string;
begin
DecodeDate(Now, Year, Month, Day);
DecodeTime(Now, Hour, Min, Sec, MSec);
varq := 'cdr_' + IntToStr(Day) + IntToStr(Month) + IntToStr(Year)+
IntToStr(Hour) + IntToStr(Min) + IntToStr(Sec) +IntToStr(Msec) +
'.cdr';
try
if not FileExists(caminho_App + varq) then
begin
AssignFile(f, (caminho_App + varq) );
Rewrite(f);
end;
Write(f,vMeuConteudo);
CloseFile(f);
except
raise;
end;
end;
end.
Desde já agradeço a atenção dispensada.
Atenciosamente,
Fabiano Monteiro
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Edit no popup - A SOLUÇÃO
Pra quem quiser usar este e qualquer outro recurso no popup, segue a solução.
Numa nova aplicação, criem dois forms. Vá ao primeiro form, clique com o botão
direito, escolha view as text e aí cole o código abaixo:
object Form1: TForm1
Left = 272
Top = 287
Width = 409
Height = 214
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu1
PixelsPerInch = 96
TextHeight = 13
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 96
Top = 72
end
end
Clique com o botão direito, escolha view as form para voltar ao normal.
Repita todo o processo com o segundo form. Segue o código:
object Form2: TForm2
Left = 320
Top = 238
AutoSize = True
BorderIcons = []
BorderStyle = bsNone
Caption = 'Form2'
ClientHeight = 75
ClientWidth = 115
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnDeactivate = FormDeactivate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 113
Height = 75
BevelInner = bvRaised
TabOrder = 0
object Bevel1: TBevel
Left = 0
Top = 51
Width = 112
Height = 2
end
object MaskEdit1: TMaskEdit
Left = 54
Top = 7
Width = 47
Height = 15
BorderStyle = bsNone
EditMask = '!90:00;1;_'
MaxLength = 5
TabOrder = 0
Text = ' : '
end
object MaskEdit2: TMaskEdit
Left = 54
Top = 29
Width = 47
Height = 14
BorderStyle = bsNone
EditMask = '!90:00;1;_'
MaxLength = 5
TabOrder = 1
Text = ' : '
end
object StaticText1: TStaticText
Left = 37
Top = 56
Width = 37
Height = 17
Alignment = taCenter
Caption = 'Fechar'
Color = clBtnFace
ParentColor = False
TabOrder = 2
OnClick = StaticText1Click
end
object StaticText2: TStaticText
Left = 9
Top = 8
Width = 24
Height = 17
Caption = 'Liga'
TabOrder = 3
end
object StaticText3: TStaticText
Left = 9
Top = 29
Width = 39
Height = 17
Caption = 'Desliga'
TabOrder = 4
end
end
end
Agora seguem os códigos das duas Units:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
procedure PopupMenu1Popup(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
Form2.Top:= Mouse.CursorPos.Y;
Form2.Left:= Mouse.CursorPos.X;
Form2.Show;
Form2.MaskEdit1.SetFocus;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Mask;
type
TForm2 = class(TForm)
Panel1: TPanel;
StaticText1: TStaticText;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
StaticText2: TStaticText;
StaticText3: TStaticText;
Bevel1: TBevel;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormDeactivate(Sender: TObject);
procedure StaticText1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key = 13 Then Begin
If MaskEdit1.Focused Then
Form2.MaskEdit2.SetFocus
Else
Close;
End;
end;
procedure TForm2.FormDeactivate(Sender: TObject);
begin
Close;
end;
procedure TForm2.StaticText1Click(Sender: TObject);
begin
Close;
end;
end.
Usem e abusem.
Márcio.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RES: [delphi-br] Dúvida: número de registros junto com um select na DbGrid
/* Exemplo mastigadinho */ CREATE TABLE COLETANEA (CODIGO INTEGER NOT NULL, NOME VARCHAR(100), CONSTRAINT PK_COLETANEA PRIMARY KEY(CODIGO) USING INDEX IDX_PK_COLETANEA); INSERT INTO COLETANEA (CODIGO, NOME) VALUES (1, 'Elazar'); INSERT INTO COLETANEA (CODIGO, NOME) VALUES (2, 'Pedro'); COMMIT WORK; SELECT COLETANEA.CODIGO, COLETANEA.NOME FROM COLETANEA COLETANEA WHERE COLETANEA.CODIGO = :CODIGODODONO UNION ALL SELECT CAST(NULL AS INTEGER) CODIGO, CAST((SELECT ' Totao de registros ' || COUNT(*) FROM COLETANEA WHERE CODIGO = :CODIGODODONO) AS VARCHAR(100)) NOME FROM RDB$DATABASE Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rodrigo Tognin Enviada em: terça-feira, 11 de outubro de 2005 14:12 Para: Delphi-Br Assunto: [delphi-br] Dúvida: número de registros junto com um select na DbGrid Boa tarde, mais uma dúvida... Estou com uma DbGrid que aparecerá o resultado de um select simples: select Coletanea.ColCodigo, Coletanea.ColNome From Coletanea Where Coletanea.ColDono = :CodigoDoDono Só que na terceira coluna dessa DbGrid quero que apareça o número de registros filtrados de um outro select. Como eu faria isso? D7 + ADO + SQL Server 2000 Abraço a todos Rodrigo Tognin Estudante e estagiário Técnico em informática ESALQ/USP - IPEF -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Edit no popup
Não sei se é bem isso que você quer, mas vai aí um
codigo que cria um edit quando clicar com botão
direito do mouse. Quando você teclar Enter no edit ou
clicar no form ele some.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
procedure FormContextPopup(Sender: TObject;
MousePos: TPoint;
var Handled: Boolean);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
Edit : TEdit;
procedure FazQualquerCoisa(Sender: TObject; var
Key: Char);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FazQualquerCoisa(Sender: TObject; var
Key: Char);
begin
if (Key = #13) then
begin
ShowMessage('QualquerCoisa');
Edit.Visible := False;
end;
end;
procedure TForm1.FormContextPopup(Sender: TObject;
MousePos: TPoint;
var Handled: Boolean);
var Ponto : TPoint;
begin
if (Edit = nil) then
begin
Edit := TEdit.Create(Form1);
Edit.Parent := Form1;
Edit.OnKeyPress := FazQualquerCoisa;
end;
GetCursorPos(Ponto);
Edit.Top := Ponto.Y-100;
Edit.Left := Ponto.X-100;
Edit.Visible := True;
Edit.Clear;
Edit.SetFocus;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Edit.Visible := False;
end;
end.
É q eu queria fazer uma passagem de parâmetros para o
programa sem
ter q abrir uma tela nova só para digitar estes
parâmetros.
Seria mais fácil clicar lá no popup e já digitar o q
preciso.
Sacou? Será q dá?
___
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Dificuldade em usar rotina generica do proj SDI no MDI
Pessoal, Tenho 1 Sistema q roda numa boa em SDI. Tenho uma unit uRotinasGen (rotinas genericas), onde: Limpo campos dos Forms, Travo Campo, escondo, enfim passo o nome do form e mando brasa! Fiz uma mudança para MDI, mas não consigo executar estas rotinas genéricas. Mensagem é: Access Violation Na passagem o Form fica certo, mas na unit o Form fica nil procedure TFrmPrinc.Rota1Click(Sender: TObject); begin Form2 := TForm2.Create(self); end; procedure LimpaEdit(Form: TForm); var i : Integer; begin for i := 0 to Form.ComponentCount - 1 do begin if Form.Components[i] is TCustomEdit then (Form.Components[i] as TCustomEdit).Clear; if Form.Components[i] is TStaticText then (Form.Components[i] as TStaticText).Caption := ''; if Form.Components[i] is TMemo then (Form.Components[i] as TMemo).Clear; end; Grato Claudemir. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] [OFF-TOPIC] Vaga de emprego para SP - Liberdade
Caros amigos, Preciso contratar com urgência um funcionário para trabalhar com suporte ao usuário, gerenciamento de backups e de rede local e manutenção de nossa home page. Lembrando que não usamos nada muito complexo. Tudo muito simples. Tudo sem complicações e sem pressão, pois o atendimento ao usuário é interno. Mandem curriculum para [EMAIL PROTECTED] . O salário será negociado com o interessado na ocasião da entrevista, mas está em girando na faixa dos R$1.100,00. Abraços... Marcus Vinicius Scarpelli C.I.O FECESP -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] [OFF-TOPIC] Vaga de emprego para SP - Liberdade
Marcus,. Poste esta mensagem também na lista delphi-empregos [EMAIL PROTECTED] []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Marcus Enviada em: terça-feira, 11 de outubro de 2005 16:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [OFF-TOPIC] Vaga de emprego para SP - Liberdade Caros amigos, Preciso contratar com urgência um funcionário para trabalhar com suporte ao usuário, gerenciamento de backups e de rede local e manutenção de nossa home page. Lembrando que não usamos nada muito complexo. Tudo muito simples. Tudo sem complicações e sem pressão, pois o atendimento ao usuário é interno. Mandem curriculum para [EMAIL PROTECTED] . O salário será negociado com o interessado na ocasião da entrevista, mas está em girando na faixa dos R$1.100,00. Abraços... Marcus Vinicius Scarpelli C.I.O FECESP -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Trigger no Firebird nao dispara
Na própria tabela, sem dar update de forma explícita ? Blza então, pois no meu não funcionou. Inclusive no Oracle da erro na criação da trigger, ele nem deixa criar pois não faz sentido alterar o conteudo do atributo depois do registro gravado. Queria ter ajudado. Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Elazar Enviada em: terça-feira, 11 de outubro de 2005 08:38 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Trigger no Firebird nao dispara ja fiz muita trigger com alteracao depois e funcionou -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Madsom Silva Enviada em: segunda-feira, 10 de outubro de 2005 19:15 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Trigger no Firebird nao dispar a Celio, tem duas alterações : AFTER por BEFORE e 10 por 0 a alteração está sendo feita depois da gravação o certo seria antes. Sem mais. Madsom. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Celio Ricardo Enviada em: segunda-feira, 10 de outubro de 2005 18:00 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Trigger no Firebird nao dispara Estou tentando criar triggers no FB, sem sucesso. Estou utilizando o EMS IBMANAGER para cria-los. Fiz esse trigger, que é o único no evento afterinsert da tabela ISaida, onde ele verifica se o campo USARCOMNEG esta T ou F, e, dependendo da condicao insere um valor total no campo VLCOMISSAONEG. Os campos VLCOMISSAO e VLCOMISSAONEG sao da propria tabela tambem. CREATE TRIGGER VERIFICA_COMISSAO_USADA FOR ISAIDA ACTIVE AFTER INSERT POSITION 10 AS BEGIN new.vlcomissaovenda = 0; if (new.usarcomneg = 'T') then new.vlcomissaovenda = new.vlcomissaoneg; else new.vlcomissaovenda = new.vlcomissao; END Alguem poderia me ajudar, estou pirando =) -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.11.14/128 - Release Date: 10/10/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_ps2_celv550.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.11.14/129 - Release Date: 11/10/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site
Re: [delphi-br] Efeito Cascata
Olá Sergio... Pelo que entendi vc quer uma barra vertical do tipo daquela do outlook. Se for existem componentes chamados outlook bar que fazem isso. Uma delas é a VSOutlook Bar. Me parece que vinha no cd do Delphi 5 não tenho certeza. Não sei também se existe alguma outra versão mais recente. Nunca usei esse componente. Mas é só dar uma pesquisada que com certeza vc vai encontrar algum pra versão que está usando. Té+ Claudiney - Original Message - From: Sérgio [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, October 11, 2005 4:33 PM Subject: [delphi-br] Efeito Cascata MANDEI ESTA PARA A LISTA LISTA-DELPHI MAS PARECE Q A MSG NAO CHEGOU, POR ISSO TO MANDANDO PRA ESTA LISTA...(desculpe se acontecer um cross posting )...nao era minha intenção... Galera, desculpe pelo jeito q to formulando a questão. Sei q a lista nao aceita anexos, tal mais para a minha explicacao nao encontrei outra forma.. Segte, como no Access, no lado esquerdo da figura ae, tem o menu OBJETOS e GRUPOS, e dentro deles tem seus submenus, como por exemplo, dentro de OBJETOS tem tabelas, consultas, formularios, etc, etc... Qdo clicamos sobre OBJETOS, o mesmo faz um efeito cascata mostrando seus submenus, e empurra o menu GRUPOS para baixo. Se clicarmos novamente, ele esconde os submenus e puxa o menu GRUPOS para cima novamente...e assim por diante... Se vcs me entenderam, eu queria saber se há algum componente no DELPHI que faz isso direto pois via codigo, eu ja vi...e até jah fiz algo parecido... Aguardo o retorno de vcs... Valeu Sérgio [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Dificuldade em usar rotina generica do proj SDI no MDI
procedure LimpaEdit(Form: TForm); var i : Integer; begin if Form = nil then exit; for i := 0 to Form.ComponentCount - 1 do begin if Form.Components[i] is TCustomEdit then (Form.Components[i] as TCustomEdit).Clear; if Form.Components[i] is TStaticText then (Form.Components[i] as TStaticText).Caption := ''; if Form.Components[i] is TMemo then (Form.Components[i] as TMemo).Clear; end; resolve? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de klausbento Enviada em: terça-feira, 11 de outubro de 2005 16:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dificuldade em usar rotina generica do proj SDI no MDI Pessoal, Tenho 1 Sistema q roda numa boa em SDI. Tenho uma unit uRotinasGen (rotinas genericas), onde: Limpo campos dos Forms, Travo Campo, escondo, enfim passo o nome do form e mando brasa! Fiz uma mudança para MDI, mas não consigo executar estas rotinas genéricas. Mensagem é: Access Violation Na passagem o Form fica certo, mas na unit o Form fica nil procedure TFrmPrinc.Rota1Click(Sender: TObject); begin Form2 := TForm2.Create(self); end; procedure LimpaEdit(Form: TForm); var i : Integer; begin for i := 0 to Form.ComponentCount - 1 do begin if Form.Components[i] is TCustomEdit then (Form.Components[i] as TCustomEdit).Clear; if Form.Components[i] is TStaticText then (Form.Components[i] as TStaticText).Caption := ''; if Form.Components[i] is TMemo then (Form.Components[i] as TMemo).Clear; end; Grato Claudemir. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.i1.yimg.com/br.yimg.com/i/071005_324418_pop_notebooks_c.gif _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] mais sobre o DeXter (Delphi 10)
vejam o artigo: http://www.internetnews.com/dev-news/article.php/3554906 a menção ao Highlander (BDS2007) mantém a previsão do postado no blog da borland sobre o .NET 2.0 - que, claro, só vai estar estável no 2.1 ou 2.2, he, he. Carlos -- FAVOR 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] String para TPersistent - ou outro caminho
Povo
Tenho um trecho de código que funcionaria da seguinte forma, com um
componente TRichEdit:
RchEdtHmDiagnostico.Lines.Assign(DtMdlRhMedicoServer.QryDiag.FieldbyName('TXT_DIAGNOSTICO'))
O problema é que o valor do banco vem criptografado. A função que
descriptografa devolve um string. Ora, como o conteúdo é RTF, estão aparecendo
todos os caracteres de formatação RTF...
Alguém sabe como transformar de string para tpersistent ou conhece outra
solução?
Atenciosamente
Cândido Luís Dias Ferreira
[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] linha muito grande
estou tentando inserir uma linha numa query, porém se eu adicionar todos os
campos vai ficar muito grande, como posso fazer pra fazer uma linha para cada
campo da tabela?
ex:
frmacesso.query.Sql.Add ('insert into usuarios
(Login)'+'Values('+editusuario.text+')');
quero fazer uma linha para Login, outra para nome, etc etc etc.. pois tenho 20
campos na tabela e na mesma linha fica dificil...
att
charles chiodi
hns informatica
[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 AO TENTAR UMA CONSULTA SQL COM UNION
Pessoal estou tentando fazer uma consulta usando union, funciona legal se eu
coloco somente where dts = :dts, porem se acrecento a consunta o between, da
erro,
CONVERSION ERROR FROM STING 2005-10-11
Etou utilizando este comando sql e o valor vem de dos maskedits onde o valor
seria 11/10/2005:
select TIPO || nota as doc, data, dts, qtd from itensnota
where dts = :dts
and (3 between :d1 and :d2)
union
select TIPO || idpedido as doc,data, dts, qtd from itenspedido
where dts = :dts
and (3 between :d1 and :d2)
order by 3 desc
e no delphi faço assim
cdsKardex.close;
with qrKardex do
begin
close;
sql.Clear;
sql.Add('select TIPO || nota as doc, data, dts, qtd from itensnota ')
sql.Add('where dts = :dts ');
sql.Add('and (3 between :d1 and :d2) ') ;
sql.Add('union ');
sql.Add('select TIPO || idpedido as doc,data, dts, qtd from
itenspedido ');
sql.Add('where dts = :dts ');
sql.Add('and (3 between :d1 and :d2) ');
sql.Add('order by 3 desc');
ParamByName('dts').Value := cboCodigo.Text;
ParamByName('d1').AsDate := strtodate(MaskEdit1.Text);
ParamByName('d2').asdate := strtodate(MaskEdit2.Text);
open;
end;
cdsKardex.Open;
Alguem poderia me ajudar por favor??
Miguel Villacorta
4446-4100 R 4126
71381739
[EMAIL PROTECTED]
www.dpfautopecas.com.br
MSN [EMAIL PROTECTED]
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.13/124 - Release Date: 7/10/2005
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Código Errado
gente, perdoe minha ignorancia, mas não estou conseguindo acertar o codigo de
inserção via sql... alguém poderia dar uma olhada?
frmacesso.query.sql.add('insert into usuarios (Login,Senha,Nome)');
frmacesso.query.sql.add(' Values');
frmacesso.query.sql.add(editusuario.text);
frmacesso.query.sql.add(',' +editsenha.text);
frmacesso.query.sql.add(','editnome.text+')');
alguém poderia por no delphi e rodar pra saber onde está o erro? agradeço...
att charles chiodi
[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] OPERATION NOT APLICATE
Pessoal estou desesperado tenho um sistema em delphi de controle de pedidos de compras, o problema é o seguinte, ao abrir algumas telas da o erro OPERATION NOT APLICATE o SO é XP, mas em algumas máquinas com xp ele funciona, e em outras nao, estou usando dbexpress com client data set na pasta onde está o executavel coloquei as seguintes dlls fbclient.dll dbexpint.dll midas.dll mscoree.dll o q mais devo fazer?? Por favor alguem me ajude!!! Miguel Villacorta 4446-4100 R 4126 71381739 [EMAIL PROTECTED] www.dpfautopecas.com.br MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.11.13/124 - Release Date: 7/10/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Edit no popup
Não sei se é bem isso que você quer, mas vai aí um codigo que cria um edit
quando clicar com botão direito do mouse. Quando você teclar Enter no edit ou
clicar no form ele some.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
Edit : TEdit;
procedure FazQualquerCoisa(Sender: TObject; var Key: Char);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FazQualquerCoisa(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
ShowMessage('QualquerCoisa');
Edit.Visible := False;
end;
end;
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
var Ponto : TPoint;
begin
if (Edit = nil) then
begin
Edit := TEdit.Create(Form1);
Edit.Parent := Form1;
Edit.OnKeyPress := FazQualquerCoisa;
end;
GetCursorPos(Ponto);
Edit.Top := Ponto.Y-100;
Edit.Left := Ponto.X-100;
Edit.Visible := True;
Edit.Clear;
Edit.SetFocus;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
Edit.Visible := False;
end;
end.
É q eu queria fazer uma passagem de parâmetros para o programa sem
ter q abrir uma tela nova só para digitar estes parâmetros.
Seria mais fácil clicar lá no popup e já digitar o q preciso.
Sacou? Será q dá?
[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] Número de registros filtrados pela query
Bom dia Rodrigo Vc pode utilizar a propriedade RecordCount: Label1.caption := IntToStr(ADOQuery1.RecordCount); Um Grande Abraço, Vanderson Sá --- Rodrigo Tognin [EMAIL PROTECTED] escreveu: - Bom dia pessoal. Preciso saber quantos registros foram filtrados por uma query. O código SQL é bem simples, assim: Select * from Coletanea Where ColDono = :CodigoDoDono Esse parâmetro é passado depois no Delphi. Isso serve para saber quantas coletaneas um usuário do sistema tem. Como pegar o número de registros que forem filtrados? Banco SQLServer, Delphi7, ADO Agradeço a ajuda. Rodrigo Tognin Estudante e estagiário Técnico em informática ESALQ/USP - IPEF -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. Vanderson de Sá Programador Tel.: (21) 9243-7035 [EMAIL PROTECTED] ___ Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Data do sistema
pessoal, como faço pra receber a data do sistema numa sql?
frmacesso.query.ParamByName ('Datacad').value := date;
[da erro
[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] Fechar Mdi
Criei minha tela no delphi 2005 desta forma procedure TPrincipal.Button1_Click(sender: System.Object; e: System.EventArgs); Var Tela : TModeloBase; begin Tela := TModeloBase.Create; Tela.MdiParent:= self; Tela.Show; end; mas quando eu pressiono novamente o botao o sistema cria mais uma tela igual e eu gostaria de ter apenas uma aberta portanto se existir gostaria que o sistema apenas mostrasse e nao criar uma nova... alguem pode me ajudar ??? [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] Abrir Outlook Express
Alguém sabe que evento devo fazer para quando clicam em um label contendo um endereço de e-mail abrir o outlook com aquele endereço? a mesma coisa com um site att Charles Chiodi [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] Atualização de dados Paradox / MySQL
Pessoal, quando eu usava paradox eu usava um timer para atualizar os dados pela rede... agora eu estou usando mysql e notei que preciso fazer a mesma coisa para atualizar os dados na tela das outras maquinas, será que é porque estou usanto table ou com query tem que fazer a mesma coisa, ou seja, abrir e fechar a query? att Charles A. Chiodi [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] Res: Código Errado
vc pode tentar assim:
frmacesso.query.sql.add('insert into usuarios (Login,Senha,Nome)');
frmacesso.query.sql.add(' Values');
frmacesso.query.sql.add('''+editusuario.text+''');
frmacesso.query.sql.add(',''' +editsenha.text+''');
frmacesso.query.sql.add(','''+editnome.text+''')');
ou assim:
frmacesso.query.sql.add('insert into usuarios (Login,Senha,Nome)');
frmacesso.query.sql.add(' Values');
frmacesso.query.sql.add(':usuario');
frmacesso.query.sql.add(',' +':senha');
frmacesso.query.sql.add(','+':nome')');
e antes de abrir a query:
frmacesso.query.params[0].asstring:=editusuario.txt;
frmacesso.query.params[1].asstring:=editsenha.txt;
frmacesso.query.params[2].asstring:=editnome.txt;
---Mensagem original---
De: HNS Informática
Data: 10/11/05 19:29:24
Para: Lista DelphiBr; DelphiTotal
Assunto: Código Errado
gente, perdoe minha ignorancia, mas não estou conseguindo acertar o codigo
de inserção via sql... alguém poderia dar uma olhada?
frmacesso.query.sql.add('insert into usuarios (Login,Senha,Nome)');
frmacesso.query.sql.add(' Values');
frmacesso.query.sql.add(editusuario.text);
frmacesso.query.sql.add(',' +editsenha.text);
frmacesso.query.sql.add(','editnome.text+')');
alguém poderia por no delphi e rodar pra saber onde está o erro? agradeço...
att charles chiodi
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Res: [delphi-br] Alterar valor de Um Campo
frmacesso.query.Sql.Add ('update usuarios set senha=:senha');
frmacesso.query.paramByName('senha').asstring:=editsenha.txt:
para mais comapos so adiconar no set separados por virgula, nao esqueça da
condição do update ou serja
where condição_de_alteração...
---Mensagem original---
De: HNS Informática
Data: 10/11/05 19:35:23
Para: Lista DelphiBr; DelphiTotal
Assunto: [delphi-br] Alterar valor de Um Campo
Pessoal, para inserir registros na tabela fiz o seguinte
frmacesso.query.Sql.Add ('insert into usuarios (Login,Senha,Nome
Endereco,Numero,Bairro,Cidade,Estado,Cep,Fone,Celular,Cpf,Rg,Email,Msn,Site
Datacad)');
frmacesso.query.Sql.Add ('Values(:Login, :Senha, :Nome, :Endereco,
:Numero, :Bairro, :Cidade, :Estado, :Cep, :Fone, :Celular, :Cpf, :Rg, :Email
:Msn, :Site, :Datacad)');
frmacesso.query.ParamByName ('Login').value := editusuario.text;
frmacesso.query.ParamByName ('Senha').value := editsenha.text;
frmacesso.query.ParamByName ('Nome').value := editnome.text;
frmacesso.query.ParamByName ('Endereco').value := editendereco.text;
frmacesso.query.ParamByName ('Numero').value := editnumero.text;
frmacesso.query.ParamByName ('Bairro').value := editbairro.text;
frmacesso.query.ParamByName ('Cidade').value := editcidade.text;
frmacesso.query.ParamByName ('Estado').value := editestado.text;
frmacesso.query.ParamByName ('Cep').value := editcep.text;
frmacesso.query.ParamByName ('Fone').value := editfone.text;
frmacesso.query.ParamByName ('Celular').value := editcelular.text;
frmacesso.query.ParamByName ('Cpf').value := editcpf.text;
frmacesso.query.ParamByName ('Rg').value := editrg.text;
frmacesso.query.ParamByName ('Email').value := editmail.text;
frmacesso.query.ParamByName ('Msn').value := editmsn.text;
frmacesso.query.ParamByName ('Site').value := editsite.text;
frmacesso.query.ParamByName ('Datacad').value := date;
e para alterar apenas o valor de um campo desse registro, como faço?
alguém poderia escrever o código pra mim?
att.. Charles A. Chiodi
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ajuda com Threads e Arquivos binários
Não sei se estou ajudando em alguma coisa, mas pra que serve a linha
FreeOnTerminate := True; ? Não seria isso?
Bom, se não for, desculpe minha ignorância e por favor me diga a função disso.
Obrigado.
Atenciosamente,
--
Thiago de Oliveira Quinelato.
Aluno do 4º Módulo do Curso Técnico de Informática Industrial - CTU/UFJF.
Aluno da 3ª série A do Ensino Médio - CTU/UFJF.
Programador de Pascal, Delphi, PHP, Java e MySQL, com conceitos da linguagem C.
Em 11/10/05, fabiano_monteiro2000[EMAIL PROTECTED] escreveu:
Prezados Amigos,
Tudo bem?
Tenho que desenvolver uma aplicação que receberá vários
bloco de 2kb
através de uma porta específica. Acontece que estes blocos
são da
ordem de milhões/hora e a única forma que imaginei seria, a
cada bloco
que eu receber na porta que estou escutando (uso delphi 4 e com o
componente TServerSocket), pensei em armazenar em um arquivo
binário
em um diretório específico.
Uma outra aplicação estará full time pesquisando este
diretório
verificando a existência dos arquivos. Existindo, irá lê-los,
processá-los e apagá-los.
Consegui simular a chegada dos blocos de 2k sendo que estou usando
threads para isso, tendo em vista a imensa quantidade que terei de
gravar o tempo todo e não posso (de jeito nenhum) perder nenhum
bloco
destes que receber. Acho que até aí está correto não ? :)
Bom, quando a thread é chamada, reparei que ela cria uma
instãncia no
gerenciador de tarefas, e várias ao mesmo tempo. Queria ter
certeza de
liberar a memória após a gravação de cada arquivo,
desafogando a máquina.
Eu chamo a thread assim:
GeraArquivo := TGravaArquivo.Cria(Socket.ReceiveText);
Segue o código da thread:
unit UThreadGravaArquivo;
interface
uses
Classes, SysUtils ;
type
TGravaArquivo = class(TThread)
private
{ Private declarations }
vMeuConteudo : String;
F : TextFile;
protected
procedure Execute; override;
procedure Processo;
public
constructor Cria(vConteudo: String);
end;
Const
caminho_App = 'D:\Pulse\Pulse_Desktop\unread\';
implementation
{ Important: Methods and properties of objects in VCL can only be used
in a
method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure TGravaArquivo.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }
{ TGravaArquivo }
constructor TGravaArquivo.Cria(vConteudo: String);
begin
Create(False);
vMeuConteudo := vConteudo;
FreeOnTerminate := True;
end;
procedure TGravaArquivo.Execute;
begin
Synchronize(Processo);
end;
procedure TGravaArquivo.Processo;
var
Year, Month, Day, Hour, Min, Sec, MSec: Word;
varq: string;
begin
DecodeDate(Now, Year, Month, Day);
DecodeTime(Now, Hour, Min, Sec, MSec);
varq := 'cdr_' + IntToStr(Day) + IntToStr(Month) + IntToStr(Year)+
IntToStr(Hour) + IntToStr(Min) + IntToStr(Sec) +IntToStr(Msec) +
'.cdr';
try
if not FileExists(caminho_App + varq) then
begin
AssignFile(f, (caminho_App + varq) );
Rewrite(f);
end;
Write(f,vMeuConteudo);
CloseFile(f);
except
raise;
end;
end;
end.
Desde já agradeço a atenção dispensada.
Atenciosamente,
Fabiano Monteiro
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
--
FAVOR 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
