RE: [delphi-br] [OFF -TOPIC] Certificaçõe s: Alegria e Tristeza
Já comemorei, colega. Me contemplaram com uma garrafa de whisky na boate onde toco nos finais de semana como DJ. ;) Sds. To: delphi-br@yahoogrupos.com.br From: dir...@gmail.com Date: Wed, 1 Sep 2010 20:24:22 -0300 Subject: Re: [delphi-br] [OFF-TOPIC] Certificações: Alegria e Tristeza Meus parabéns, Rubem! Toda conquista deve ser comemorada. Já escolheu como vai comemorar a sua? -- Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em 1 de setembro de 2010 18:35, Rubem Rocha escreveu: Colegas da lista, Venho por meio desta anunciar que iniciei minha empreitada para obter minhas certificações na área de TI, especificamente em desenvolvimento de software. Neste último final de semana, após 3 tentativas, consegui passar no exame 70-536 (Microsoft .NET Framework 2.0 Application Development Foundation), obrigatório para quem quer tornar-me MCTS (Microsoft Certified Technical Specialist) em desenvolvimento .NET. Inicialmente, buscarei a certificação MCTS para ASP.NET, e farei portanto o exame 70-562 (Microsoft .NET Framework 3.5 ASP.NET Application Development). No momento sou somente um MCP, mas isto já é muito gratificante. Quero também neste momento compartilhar com os colegas minha alegria e, ao mesmo tempo, a minha tristeza. Alegre por estar a um passo de conseguir uma das 10(dez) http://www.zdnet.com/blog/btl/the-10-best-it-certifications/11189 Melhores Certificações na Área de TI, após quase dois anos trabalhando com .NET e alguns finais de semana estudando muito; E triste por não existir uma sistemática para aplicação de exames de certificação semelhante para produtos Embarcadero, que nos permita simplesmente nos prepararmos, independente de fazer curso oficial ou não, e podemos agendar a prova para fazermos quando, onde e em que horário quisermos, sem precisar de um instrutor certificado Embarcadero aplicar a prova. Já questionei isso inúmeras vezes e ainda questiono porque uma empresa do porte da Embarcadero, que tem produtos renomados e consagrados a nível de ferramentas para desenvolvedores de software, não permite tal flexibilidade para aplicação dos exames de certificação. Se a Embarcadero tivesse essa flexibilidade, fatalmente muitos de nós já seríamos profissionais certificados em Delphi, atuando em suas respectivas regiões para, assim como o Bruno Lichot, auxiliar a comunidade de desenvolvedores no Brasil e atuar na evangelização sobre o produto. Realmente isso me entristece, como também me entristece não ver figurada nesta lista que mencionei pelo menos uma certificação da Embacadero, em função da consagrada produtividade e recursos de desenvolvimento que o Delphi possui. Hoje me sinto orgulhoso em trilhar e conquistar passos importantes para figurar no seleto grupo de profissionais reconhecidos mundialmente na área de TI, mas ficaria mais orgulhoso ainda se isso ocorresse também com Delphi. Sds., Rubem Nascimento da Rocha 92 8429 2865 rubem.ro...@digitalti.com.br rubem.rocha%40digitalti.com.br assinatura email Digital TI - Coordenação de Automação Av. Carvalho Leal, 1330 - 1º Andar Cachoeirinha - 69065-001 Manaus/AM Call Center: 92 2101-0100 http://www.dtmanaus.com.br www.digitalti.com.br MCP(rgb) Certification ID: 6961400 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: Quem grande empresa usa Delphi ?
Microsiga e RM agora atendem por um único nome: TOTVS (leia-se TOTUS). E a informação que tenho (segura) é que eles estão com investimento pesado em plataforma .NET! Microsiga usava (e acredito que ainda usa) uma linguagem proprietária deles, chamada ADVPL e baseada na linguagem Clipper. Se essa linguagem própria foi feita em Delphi, é algo a ser investigado! A RM Sistemas usava Delphi, mas vai voltar-se totalmente ao .NET! Sds. To: delphi-br@yahoogrupos.com.br From: felli...@gmail.com Date: Tue, 3 Aug 2010 13:11:40 -0300 Subject: Re: [delphi-br] Re: Quem grande empresa usa Delphi ? Há muito tempo ouvi dizer que a RM e MicroSiga usavam Delphi... agora, se continuam não sei... []s Em 3 de agosto de 2010 12:53, simoesluciano simoesluci...@yahoo.com.brescreveu: http://www.embarcadero.com/rad-in-action/application-showcase# Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Dirlei Dionísio dir...@... escreveu Algum tempo atrás, em algum lugar na internet, vi uma lista de aplicações conhecidas feitas em Delphi. Foi lá que vi que o Skype é feito em Delphi. Há muitas outras, mas também não lembro pra citar. Dê uma pesquisada que com certeza você vai encontrar. -- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: Quem grande empresa usa Delphi ?
Acabei de conferir o produto principal deles, chamado SIENGE. É um ERP específico para empresas de construção civil. Mas, pelo vídeo de apresentação, eles dizem que é feito em Java!! :-| Sds. To: delphi-br@yahoogrupos.com.br From: cdcu...@gmail.com Date: Tue, 3 Aug 2010 15:31:39 -0300 Subject: Re: [delphi-br] Re: Quem grande empresa usa Delphi ? Para acrescentar a lista, posso citar uma empresa de SC que possui mais de 800 clientes: http://www.softplan.com.br -- Charlestown [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [DIC A] Raudus - Aplicaçõ es RIA com Delphi 7/ 2006/2007
Então, é mais em conta uma licença da ExtJS ou do IntraWeb? Sds. To: delphi-br@yahoogrupos.com.br From: jack...@toolsandcomps.com Date: Tue, 20 Jul 2010 18:04:12 -0300 Subject: Re: [delphi-br] [DICA] Raudus - Aplicações RIA com Delphi 7/2006/2007 A ferramenta Raudus é um conjunto de componentes para desenvolvimento web baseados em AJAX. Raudus usa a biblioteca ExtJS GUI library. O processo de desenvolvimento é muito similar ao desenvolvimento de aplicações desktop. Vale lembrar que a ExtJS não é gratuita. Você pode usá-la sem pagar nada apenas em projetos Open Source (http://www.sencha.com/products/license.php). Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br _ PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS NOVIDADES. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:PREPARE-SE83:- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [ ClientDataSet atualizar base offline ]
Interessante essa discussão. Gostaria tb de saber como poderia pegar uma massa de dados, seja em formato MyBase ou XML Datapacket do ClientDataSet, e aplicá-la para ser atualizada em um banco de dados. Esa discussão é interessante para o caso de atuação do cliente off-line até que o servidor volte à operar. Sds. To: delphi-br@yahoogrupos.com.br From: mar...@sulfabril.com.br Date: Mon, 19 Jul 2010 13:03:50 -0300 Subject: Re: [delphi-br] [ ClientDataSet atualizar base offline ] Ola Dirlei !! desculpe , mas nao captei a mensagem !! como parsear ?? terei dois XML/CDS cliente.xml e inclusao.xml ??? Att. MArcio At 11:14 19/7/2010 -0300, you wrote: Se entendi corretamente, você poderia gerar um XML/MyBase com o delta (registros incluidos, alterados e excluidos), parsear esse delta no cliente e efetivar as alterações no XML/MyBase definitivo. -- Dirlei Dionísio Novo artigo: // Não comente seu código http://MaisQueBomCodigo.blogspot.comhttp://MaisQueBomCodigo.blogspot.com Em 19 de julho de 2010 10:50, Marcio mailto:marcio%40sulfabril.com.brmar...@sulfabril.com.br escreveu: Ola Pessoal . estou criando uma aplicação on/offline , gostaria de saber se é possivel atualizar parcialmente o clientDataset ( mybase XML ) ?? ou seja ja baixei os dados dos clientes (sqlConetion SqlDataset provider clienteDatSet ) hoje , caso ocorra alguma alteracao nos dados cadastrais NO SERVIDOR , baixar so os cliente alterados . ps no servidor sempre que altero um dado fica gravado a data de modificacao ,, ai poderia comparar com a ultima data do arquivo XML e tal . mas como sobrepor isso no cliente data set ??? sem ter que baixar toda a tabela de cliente .. alguem ja viu algo parecido ?? alguem tem algum material para eu estudar?? Att, Marcio. Blumenau-SC [As partes desta mensagem que não continham texto foram removidas] _ TRANSFORME SUAS FOTOS EM EMOTICONS PARA O MESSENGER. CLIQUE AQUI PARA COMEÇAR. http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Pegar Nome do Computador
O mais importante vc não mencionou: o erro! Sds. To: delphi-br@yahoogrupos.com.br From: develo...@marketingrapido.com.br Date: Mon, 19 Jul 2010 10:57:45 -0300 Subject: [delphi-br] Pegar Nome do Computador Ola, estou tentando pegar o nome do computador com a rotina abaixo porem nao funciona da erro no GetComputerName, estou utilizando o Delpho 2010, alguem pode me ajudar? Function RetNmComp: String; var lpBuffer: Array [0 .. 20] of Char; nSize: Word; mRet: Boolean; erro: Word; begin nSize := 120; mRet := GetComputerName(lpBuffer, nSize); if mRet then Result := lpBuffer else begin erro := GetLastError(); MessageDlg('Ocorreu o erro ' + IntToStr(erro) + ' ao procurar o nome do computador.', mtError, [mbOk], 0); Result := ''; end; end; []s, -- Pablo Farias Market Sistemas Fone (81)3685.1562 www.marketsistemas.com.br _ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Abrir aquivo txt no notepad
O NOTEPAD não tem opção que permita, a partir da sua chamada via linha de comando, selecionar a fonte a ser usada para edição. Sugiro que busque qual a chave no registro do Windows que armazena a fonte usada pelo Notepad e altere-a antes de chamar o Notepad para a fonte desejada. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: alss...@yahoo.com.br Date: Fri, 16 Jul 2010 20:45:44 -0300 Subject: Re: [delphi-br] Abrir aquivo txt no notepad Pessoal, o que eu quero é que o meu software abra um arquivo txt. Estou fazendo da seguinte maneira: WinExec(pchar('notepad.exe ' + ExtractFileDir(Application.ExeName) + '\NomedoArquivo.txt'), SW_SHOW); Eu gostaria que o NotePad já abrisse com a fonte Courier. _ PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS NOVIDADES. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:PREPARE-SE83:- [As partes desta mensagem que não continham texto foram removidas]
RE: RES: RES: [delph i-br] Importação de Arquivo
Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves _ ACESSE SEUS EMAILS DE QUALQUER LUGAR PELO SEU CELULAR. CLIQUE E VEJA COMO FAZER ISSO. http://celular.windowslive.com.br/hotmail.asp?produto=Hotmailutm_source=Live_Hotmailutm_medium=Taglineutm_content=ACESSESEUS85utm_campaign=MobileServices [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: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: RES: [delphi-br] MethodAddress retornando NIL
A RTTI permite acesso somente aos elementos (propriedades e métodos) declarados na seção published de um objeto. Escopos de visibilidade abaixo disso (public, protected ou private) não tem como! Sds. To: delphi-br@yahoogrupos.com.br From: developer.syst...@yahoo.com Date: Wed, 14 Jul 2010 19:21:27 + Subject: Re: RES: [delphi-br] MethodAddress retornando NIL Olá José, o seu exemplo e do about.com, em resumo é o mesmo que postei, funcionando somente para os próprios métodos (published), e eu quero testar (ponteiro)/chamar métodos do edit, combobox, form, etc, ou seja, irei informar o objeto do componente e a string com o nome do método. Sabe alguma forma ? Grato, Eric _ QUER ANEXAR VÁRIAS FOTOS NUM EMAIL? PREPARE-SE PARA O NOVO HOTMAIL. CLIQUE AQUI. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:QUERANEXAR80:- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] EditMask em TField
Posta a máscara que vc está usando. Sds. From: jho...@gmail.com Date: Wed, 7 Jul 2010 14:09:15 -0300 Subject: [delphi-br] EditMask em TField E ai galera, É o seguinte, eu tenho um formulário que tem um campo de telefone com a máscara configurada corretamente... O que acontece é o seguinte... eu abro o formulário e passo pelo campo vazio, entro e saiu dele sem problemas, agora, a partir do momento que esse campo passar a ter um valor eu já não consigo mais deletar esse valor, cada vez que vou tentar apagar o valor do campo e tentar sair do campo ocorre o seguinte erro Invalid input value. Use escape key to abandon changes, o maskedit naum deveria validar apenas se existisse um valor no campo? Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) _ ACESSE SEUS EMAILS DE QUALQUER LUGAR PELO SEU CELULAR. CLIQUE E VEJA COMO FAZER ISSO. http://celular.windowslive.com.br/hotmail.asp?produto=Hotmailutm_source=Live_Hotmailutm_medium=Taglineutm_content=ACESSESEUS85utm_campaign=MobileServices [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: Sistema de atividades
Não esqueçam do UMBRACO, feito em .NET Site do projeto: http://umbraco.codeplex.com/ Sds. To: delphi-br@yahoogrupos.com.br From: developer.syst...@yahoo.com Date: Wed, 30 Jun 2010 17:09:37 + Subject: [delphi-br] Re: Sistema de atividades Esta politica interna de acesso era desnecessário citar no seu tópico, ainda mais que conhece o WTS, o que é evidente que conseguirá via Web de forma restrita. Algumas opções, não conheço na prática e não sei muitos detalhe do que precisa, então desculpe a bola fora :-D Joomla! é um sistema de gerenciamento de conteúdo - CMS (Content Management System), desenvolvido a partir do Mambo. Escrito em PHP, ele roda no servidor web Apache ou IIS e banco de dados MySQL. http://joomla.org/ SugarCRM é um sistema web de Gestão de Relacionamento com o Cliente (CRM) com módulos para gerenciamento de empresas e divisões, contatos, prospects, oportunidades, ocorrências, campanhas de marketing, projetos, documentos, agenda e histórico. http://www.sugarcrm.com/ Drupal é um framework modular e um sistema de gerenciamento de conteúdo (CMS). Permite criar e organizar conteúdo, manipular a aparência, automatizar tarefas administrativas, e definir permissões e papéis para usuários e colaboradores. http://drupal.org/ Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br, Murilo Cunha mcscu...@... escreveu Eric, O que quis dizer eh que o SERVIDOR nao pode ser acessado. NAO A APLICACAO. Nosso servidor nao quero colocar a disposicao de outros na NET, eh apenas para acesso local. Unica opcao de acesso que aceitaria eh se fosse bem segura. Como por exemplo: WTS que posso expirar a senha e direitos. Talvez uma VPN, mas nao sei se eh segura. Qual a opiniao de vcs? Gostaria de uma solucao barata para um mural de atividades acessivel de qualquer lugar do Brasil. Obrigado MuriloCunha On 30/06/2010 09:08, eric_developer wrote: Olá Murilo, talvez os demais tenham interpretado errado, não pode ser acessado de fora, esta se referindo fora do Brasil (o que entendi) ou da empresa ? Eric Developer Systems www.magaldi.eti.br Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Nosso servidor nao pode ser acessado de fora - regra de IP --- Em delphi-br@yahoogrupos.com.br, Murilo Cunhamcscunha@ escreveu Pessoal, Estou com uma duvida. Eu quero fazer um mural de atividades. Neste mural eu colocaria todas as atividades que o pessoal da empresa deveria executar. Por exemplo: Func. A - Fazer o fechamento do cliente A Func. B - Encerrar participacao na ativ. Y Func. B - Gerar relat. de fazendas e enviar para Fulano ... Entre outros itens (status de conclusao, data termino, inicio, comentarios...) Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Nosso servidor nao pode ser acessado de fora - regra de IP De que forma os senhores me indicam fazer esta aplicacao? Em Delphi ou Site na Web? OBS.: Se houver algum soft q tem esta funcionalidade, por favor, podem indicar Obrigado MuriloCunha _ QUER FICAR SEMPRE EM CONTATO COM SEUS AMIGOS? ACESSE O MESSENGER PELO SEU CELULAR. http://celular.windowslive.com.br/messenger.asp?produto=Messengerutm_source=Live_Hotmailutm_medium=Taglineutm_content=QUERFICARS82utm_campaign=MobileServices [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Sistema de atividades
Não tem nem o que discutir. Se é remoto e deve ter acesso onde a pessoa estiver, é mais do que óbvio que a solução é web mesmo! Sds. To: delphi-br@yahoogrupos.com.br From: mcscu...@yahoo.com.br Date: Tue, 29 Jun 2010 16:59:42 -0300 Subject: [delphi-br] Sistema de atividades Pessoal, Estou com uma duvida. Eu quero fazer um mural de atividades. Neste mural eu colocaria todas as atividades que o pessoal da empresa deveria executar. Por exemplo: Func. A - Fazer o fechamento do cliente A Func. B - Encerrar participacao na ativ. Y Func. B - Gerar relat. de fazendas e enviar para Fulano ... Entre outros itens (status de conclusao, data termino, inicio, comentarios...) Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Nosso servidor nao pode ser acessado de fora - regra de IP De que forma os senhores me indicam fazer esta aplicacao? Em Delphi ou Site na Web? OBS.: Se houver algum soft q tem esta funcionalidade, por favor, podem indicar Obrigado MuriloCunha _ NINGUÉM PRECISA SABER O QUE VOCÊ ESTÁ COMPRANDO. LEIA MAIS SOBRE ESSE ASSUNTO AQUI. http://www.microsoft.com/brasil/windows/internet-explorer/features/browse-privately.aspx?tabid=1catid=1WT.mc_id=1590 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Edit ar clientdataset apó s applyupdates
Foram definidos corretamente os campos que são chave nesse ClientDataSet? Sds. To: delphi-br@yahoogrupos.com.br From: alss...@yahoo.com.br Date: Thu, 24 Jun 2010 11:30:00 -0300 Subject: [delphi-br] Editar clientdataset após applyupdates Tem algum jeito de editar um registro no clientdataset depois de dar o applyupdates? Sempre que tento fazer isso sempre dá a mensagem Record not found or changed by another user. Então eu tenho que fechar o clientdataset e fazer a consulta novamente. _ O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS AQUI. http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1catid=1WT.mc_id=1589 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Duvida NFe com duas CFOP
Uma coisa é natureza de operação, e outra coisa é CFOP. Tem gente que pensa que ambos são a mesma coisa. E ao implementar projetos de NF-e em empresas, eu descobri que há décadas um não tem nada haver com o outro. Ou seja, você pode ter itens com CFOP's diferentes em uma NF-e, desde que estejam relacionadas com a natureza de operação da NF-e. Sugiro que vc procure algum consultor especializado em NF-e pra dirimir essa dúvida. Não vá cair na besteira de solucionar essa dúvida com um contador, pq a maioria dos contadores ou não sabem nem para onde vai esse negócio de NF-e ou, assim como vc, devem imaginar que CFOP e natureza de operação são a mesma coisa. Sds. To: delphi-br@yahoogrupos.com.br From: samuelba...@yahoo.com.br Date: Wed, 16 Jun 2010 17:53:08 -0300 Subject: [delphi-br] Duvida NFe com duas CFOP Olá! Tenho uma dúvida a respeito da NFe com duas CFOP, maioria dos sistemas ao cadastrar uma venda você selecionava uma operação fiscal onde na operação tinha as suas configurações e as cfop de dentro e fora do estado, até ai tudo bem. Porém agora para NFe tenho umas dúvidas: Teria que ser eliminada a opção de selecionar a operação fiscal na venda e passar a ser selecionada a cada item da venda cadatrado? Se a resposta for sim, muita coisa mudaria como apuração de impostos, integrações com sitemas contábeis, que até então era feita pela operação fiscal da nota certo? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com _ O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS AQUI. http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1catid=1WT.mc_id=1589 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Funç ão Explode
Não tem nativa. Vai ter que implementar. Exemplo de implementação: { Retorna um TStrings contendo em cada posição cada palavra de um texto especificado } function SplitStr(const s: string; sep: Char): TStrings; overload; begin Result := TStringList.Create; Result.Delimiter := sep; Result.DelimitedText := s; end; { Retorna um array dinâmico de strings contendo em cada posição cada palavra de um texto especificado } function SplitStr(const s: string; sep: Char): TStringDynArray; overload; var ls: TStrings; begin ls := SplitStr(s, sep); SetLength(Result, 0); while ls.Count 0 do begin SetLength(Result, Succ(Length(Result))); Result[High(Result)] := ls[0]; ls.Delete(0); end; end; Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Tue, 15 Jun 2010 07:55:25 -0700 Subject: [delphi-br] Função Explode Delphi tem alguma função explode nativa? ou vou ter que implementar? por exemplo: A string: str := teste,teste,teste,teste explode(str,','); retorna uma stringlist: teste teste teste tese _ O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS AQUI. http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1catid=1WT.mc_id=1589 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [OFF ] Aniversário do Bru no Lichot
O sucesso é consequencia do que somos e fazemos neste plano. Por isso, não lhe desejo sucesso, pois pelo caráter que você demonstra pelas suas valiosas contribuições à comunidade Delphi no Brasil, sabemos que você ou está próximo do sucesso, ou com muito trabalho e afinco já o alcançou. Portanto, desejo-lhe saúde, paz e muitas bençãos do Pai Eterno na sua vida. Felicidades e parabéns. Sds. To: delphi-br@yahoogrupos.com.br From: xandi...@terra.com.br Date: Thu, 10 Jun 2010 11:17:57 -0300 Subject: Re: [delphi-br] [OFF] Aniversário do Bruno Lichot Parabéns Bruno! Tudo de bom! Abraço! Alexandre Em 10/6/2010 11:06, Nivaldo Stainle escreveu: Outro Fã, parabéns, felicidades e muitos anos de vida, o bolo você leva em Piracicaba(rs) que DEUS te abençõe e ilumine teus passos. abraços. Stainle --- Em qui, 10/6/10, Adriano Santos asrsan...@gmail.com mailto:asrsantos%40gmail.com escreveu: De: Adriano Santos asrsan...@gmail.com mailto:asrsantos%40gmail.com Assunto: [delphi-br] [OFF] Aniversário do Bruno Lichot Para: Delphi-br delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 10 de Junho de 2010, 10:47 Ae, Hoje é o grande dia. 30 anos de honestidade, comprometimento, garra, luta. Ae Brother, sou seu fã cara. Muita paz, alegria, sucesso, luz, saúde e vixi, tudo que o cara lá de cima te mandar. Forte abraço -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com _ VEJA SEUS EMAILS ONDE QUER QUE VOCÊ ESTEJA, ACESSE O HOTMAIL PELO SEU CELULAR AGORA. http://celular.windowslive.com.br/hotmail.asp?produto=Hotmailutm_source=Live_Hotmailutm_medium=Taglineutm_content=VEJASEUSEM84utm_campaign=MobileServices [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] SQL Embarcado
O SQL Server 2008 não possui versões embbeded. Ou seja, vais ter q instalar o SQL Server 2008 Express nesse cliente. Não tem jeito. Sds. To: delphi-br@yahoogrupos.com.br From: wchag...@bol.com.br Date: Thu, 10 Jun 2010 16:02:24 -0300 Subject: Re: [delphi-br] SQL Embarcado Voce quer inserir o banco dentro do .exe, ainda mais um SQL Server? Sinceramente eu nunca ouvi falar nisto. Acho que não há como []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Eny Urias To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 10, 2010 2:02 PM Subject: [delphi-br] SQL Embarcado Gente, eu li vários posts do forum sobre DB embarcado... E ainda não achei uma afirmativa ou uma negativa concreta sobre esse assunto então, se alguém puder ajudar agradeço! Tenho um sistema rodando com SQL Express 2008 que eu pretendo apresentar para novos clientes Eu gostaria de saber se existe a possibilidade de eu levar o DB junto com o executável para colocar no cliente para ele experimentar sem eu ter que instalar o SQL na máquina. Se alguém já passou por isso e conseguiu uma solução por favor, me dê uma luz! Grata, -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles _ O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS AQUI. http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1catid=1WT.mc_id=1589 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] FastCubo
O que é FastCubo??? Sds. To: delphi-br@yahoogrupos.com.br From: wild...@grupo3w.com.br Date: Tue, 1 Jun 2010 22:52:53 -0300 Subject: [delphi-br] FastCubo Olá pessoal gostaria de estar tendo conato com usuários do fastcubo pois não estou conseguindo criar um campo calculado com calculo de % entre um valor e outro. Agradeço qualquer ajuda. _ DIVIRTA SEUS AMIGOS NO MESSENGER. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS, É GRÁTIS. http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Abrir empresa
Tb gostaria de saber mais sobre isso! Sds. To: delphi-br@yahoogrupos.com.br From: enyur...@yahoo.com.br Date: Wed, 2 Jun 2010 13:13:37 -0700 Subject: [delphi-br] Abrir empresa Oi gente! Alguém aqui trabalha por conta e tem firma aberta? Me falaram sobre o cadastro de Empreendedor Individual (http://www.portaldoempreendedor.gov.br). Mas não tem nenhuma categoria que se encaixe em analise e desenvolvimento... Se alguém já tiver experiencia e quiser dar um luz eu agradeço! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles _ QUER FICAR SEMPRE EM CONTATO COM SEUS AMIGOS? ACESSE O MESSENGER PELO SEU CELULAR. http://celular.windowslive.com.br/messenger.asp?produto=Messengerutm_source=Live_Hotmailutm_medium=Taglineutm_content=QUERFICARS82utm_campaign=MobileServices [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Meus Exemplos Delphi
Exemplos que desenvolvi e postei na área de arquivos da lista de discussão delphi-br, em http://br.groups.yahoo.com/group/delphi-br/files/Exemplos/. Cronometro e DBGrid.rar - Exemplo de como mostrar uma coluna de cronômetro em um dataset e este ser visualizado em um DBGrid e atualizado via TTimer. Cálculos com DBGrid e ClientDataSet.zip - Exemplo de totalização automática e condicional de campos em um ClientDataset, usando campos Aggregate. DBGrid e ProgressBar.rar - Exemplo de como implementar o efeito de uma barra de progresso em um DBGrid sem a necessidade de usar o componente TProgressBar. Entrada de Dados Sem Letras Acentuadas.zip - Exemplo de como implementar, de forma extremamente simples, entradas de dados sem acentuação usando controles data-aware, e sem a necessidade de codificar eventos OnKeyPress em controles de edição. pConvUtils.zip - Exemplo de como utilizar as bibliotecas de conversão de medidas presentes no Delphi 7. SmartLowLevelLibSample.rar - Exemplo de uso da minha biblioteca COM (SmartLowLevelLib.dll) que desenvolvi para acessar portas de I/O do computador sem a necessidade de drivers de terceiros (InpOut32, DirectIO, PortIO, etc.) _ DIVIRTA SEUS AMIGOS NO MESSENGER. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS, É GRÁTIS. http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Ao moderador
Moderador, Um colega da lista está banido e ele gostaria de participar novamente da lista. Falei sobre esse problema já faz tempo (diria até que mais de ano que isso foi falado pra vc) e vc disse que havia alguma coisa relacionada com o Yahoo. O ID do colega é silvio_silva2004. Veja o que pode ser feito, por favor! Grato! _ CANSADO DE ENTRAR EM TODAS AS SUAS DIFERENTES CONTAS DE EMAIL? JUNTE TODAS AGORA. http://www.windowslive.com.br/public/product.aspx/view/1?cname=agregadorocid=Hotmail:MSN:Messenger:Tagline:1x1:agregador:- [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Unidade virtual
Quem procura, acha! http://lib.seven.com.br/ampliar.asp?codcat=0codartigo=742 Sds. To: delphi-br@yahoogrupos.com.br From: c...@borborema.com.br Date: Wed, 12 May 2010 15:06:00 -0300 Subject: [delphi-br] Unidade virtual Pessoal, Tem como eu criar uma unidade virtual em runtime para fazer o seguinte : quero copiar via FTP um certo arquivos onde o destino seria a minha unidade virtual e depois mandar o SO abri. ex: FTP:=TIdFTP.Create(Application); with FTP do begin try begin Username:='user'; Password:='senha'; Host:=Servidor; Connect; Get(Codigo, 'X:Arquivo.doc', true); Disconnect; end; except on E: Exception do begin ShowMessage(E.Message); end; end; Onde X:Arquivo.doc o X seria minha unidade virtual. depois eu colocaria : ShellExecute(Handle, 'open', Pchar(Arquivo.doc), Pchar(''), PChar('X:\'), SW_SHOWNORMAL) mandando assim abrir o Arquivo.doc pelo sistema. hoje já esta funcionando só que mando para uma pasta na minha unidade C: Obrigado Alexandre _ DEIXE SUAS CONVERSAS MAIS DIVERTIDAS. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS, É GRÁTIS. http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Checar data
Mais uma coisa. Valores de campos de um dataset devem ser consultados usando objetos TField ou usando o método FieldByName() do DataSet, pois pode ocorrer de estar havendo alguma operação no dataset que não esteja ainda refletida no controle data-aware. Sds. To: delphi-br@yahoogrupos.com.br From: analu...@stemmann.com.br Date: Mon, 10 May 2010 09:08:40 -0300 Subject: RES: [delphi-br] Checar data Bom dia, O problema aí, na minha opinião, é que vc está comparando as datas como String. Tem que compara-las com formato de data mesmo. Pegue o campo que alimenta o DBEdit e coloque o .asdatetime pra fazer a comparação, ou use o StrToDate(DBEdit19).text StrToDate(DBEdit13.text) Espero ter ajudado, Analucia Vardanega Analista/Programadora Stemmann Indústria e Comércio Ltda Porto Feliz - SP PABX: +55 (15) 3261-9190 http://www.stemmann.com.br www.stemmann.com.br _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Gestão - Premium Enviada em: segunda-feira, 10 de maio de 2010 09:05 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Checar data Olá a todos Estou chegando duas datas se a segunda data for maior que a primeira, ele aborta o lançamento. minha dúvida e que mesmo a segunda data ser anterior a primeira, ele aborta o lançamento estou utilizando sqlserver IF DBEdit19.text DBEdit13.text Then begin ShowMessage('Erro!!!, Nota so podera ser lançada quando a data do estoque estiver em '+ DBEdit19.text + ''); DBEdit17.setfocus; abort; end; Atenciosamente, Sérgio E. Santo Depto. Gestão US - US 001 ges...@premiumalime mailto:gestao%40premiumalimentacao.com.br ntacao.com.br Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender 11 - 3378-4501 35 - 3422-9949 11 - 8498-4582 visite nosso site... www.premiumalimentacao.com.br A Premium é uma concessionária moderna e ágil quando o assunto é solução em alimentação coletiva, atuando em todo o interior dos estados de São Paulo e Minas Gerais desde1998 e pronta para atuar em todas as regiões do país, esta preparada para oferecer produtos e serviços com excelência em qualidade nos segmentos da indústria, saúde, comércio e serviços, educação, agro-negócio e outros onde nossas soluções sejam bem vindas. Possuimos um diversificado e flexível portifólio para soluções completas das necessidades dos Clientes e Consumidores. _ VOCÊ PODE TER 25 GB GRATUITOS PARA ARMAZENAR SEUS ARQUIVOS NA WEB. VEJA AQUI COMO. http://www.windowslive.com.br/public/product.aspx/view/1?cname=skydriveocid=Hotmail:MSN:Messenger:Tagline:1x1:skydrive:- [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: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Calcular base reduzida em uma operacao de substituicao tributaria
Este assunto é totalmente off-topic, fora do escopo da lista. Sugiro que você poste essa dúvida em uma lista relacionada com assuntos de tributação, escrituração fiscal ou automação comercial. Como sugestão de lista relacionada com sua dúvida, temos a lista AutomacaoTotal do Yahoo, no endereço http://br.groups.yahoo.com/group/AutomacaoTotal. Sugere-se ainda que ao postar dúvidas relacionadas a assuntos fora do escopo desta lista, que ao fizer informe o assunto da mensagem com o prefixo '[OFF-TOPIC]' na frente. Sds. To: delphi-br@yahoogrupos.com.br From: auriston.del...@yahoo.com.br Date: Mon, 10 May 2010 00:16:54 + Subject: [delphi-br] Calcular base reduzida em uma operacao de substituicao tributaria Boa Noite, Como se calcula base reduzida em uma operacao de substituicao tributaria ? Reduz primeiro, e depois aplica o mva ? Poderiam me passar a formula ? Auriston _ DEIXE SUAS CONVERSAS MAIS DIVERTIDAS. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS, É GRÁTIS. http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Seproc
Ou faz convênio com essas instituições de proteção de crédito e eles te fornecem a documentação pra fazer essa integração, ou então opte por usar webservices de empresas parceiras dessas instituições. Essas parceiras possuem webservices que podem ser consultados, fornecendo os mais variados tipos de consultas, mas o uso dessas parceiras está condicionado a compra de créditos, como um sistema de telefonia celular pré-pago, para poder efetuar as consulas. Pesquise sobre isso na Internet. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: del...@arrobbasistemas.com.br Date: Fri, 7 May 2010 10:24:24 -0300 Subject: [delphi-br] Seproc Bom dia, Tenho que interligar minha aplicação com o SPC/Serasa, alguém Já fez isto ?? tem algum WebService ??? Antonio C. de M. Pires Arrobba Sistemas _ DIVIRTA SEUS AMIGOS NO MESSENGER. TRANSFORME AQUI SUAS FOTOS EM EMOTICONS, É GRÁTIS. http://ilm.windowslive.com.br/?ocid=ILM:ILM:Hotmail:Tagline:1x1:Tagline [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Parâ metros para um execu tável
O Delphi permite criar aplicativos do tipo console. Basta adicionar, após a declaração program, no fonte do projeto .dpr, a diretiva {$APPTYPE CONSOLE}. Exemplo: program MeuPrimeiroAppConsole; {$APPTYPE CONSOLE} uses SysUtils; var i: integer; begin WriteLn('Eu sou um exemplo de aplicativo console feito em Delphi!'); if ParamCount 0 then begin WriteLn('Você passou para mim os seguintes parametros:'); for i := 1 to ParamCount do WriteLn(ParamStr(i)); end; end. Exemplo de chamada em um .BAT (Chamada.BAT): @echo off call MeuPrimeiroAppConsole.exe param1 param2 param3 A saída da chamada desse .BAT será: C:\call Chamada.BAT Eu sou um exemplo de aplicativo console feito em Delphi! Você passou para mim os seguintes parametros: param1 param2 param3 C:\ Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: san...@serel.com.br Date: Thu, 29 Apr 2010 17:10:53 -0300 Subject: [delphi-br] Parâmetros para um executável Olá amigos, boa tarde. Preciso de uma ajuda. Nós temos que criar um programa para um cliente que ele irá rodar através de um arquivo .BAT Até aí nenhum mistério, o problema é que este programa não pode ter 'tela' nenhuma, ficará 'invisível' ao usuário, mas tenho que passar dois parâmetros para ele. A idéia inicial seria colocar na linha do .BAT : Programa.EXE, Parâmetro-1,Parâmetro-02 Ou seja, os parâmetros seriam colocados na linha do bat... alguém tem alguma idéia de como posso fazer isso ?? Brigadão e Abraço a todos Sandro Ricardo _ O Internet Explorer 8 te dá dicas de como navegar mais seguro. Clique para ler todas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] NFS-e de Curitiba
Poste o código completo da sua implementação pra que alguém na lista possa avaliar. Sds. To: automacaoto...@yahoogrupos.com.br; delphi-bol...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br; delphi-to...@yahoogrupos.com.br; delphitodel...@yahoogrupos.com.br; dtdel...@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br From: mtsys.lis...@gmail.com Date: Fri, 23 Apr 2010 20:57:16 -0300 Subject: [delphi-br] NFS-e de Curitiba Olá pessoal, alguém aqui já desenvolveu a NFS-e para o municipio de Curitiba. Importe o WSDL do site corretamente, colquei no Delphi, ele compila mas quando mando enviar usando o comado Retorno := Envio.RecepcionarLoteRps(Lote); dá erro de acesso de memória. Pq será? []s Marlon _ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler as dicas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br From: fabio_...@yahoo.com.br Date: Mon, 19 Apr 2010 21:32:58 -0300 Subject: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz _ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler as dicas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como usar uma DLL criada pelo DotNet no Delphi
Se esse assembly .NET foi gerado para ser acessado também como um componente COM, então basta apenas importar as definições do mesmo no Delphi. Mas se, e somente se, o assembly tiver sido compilado para ser também usado como um componente COM. Certifique-se disso. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: mconta...@yahoo.com.br Date: Thu, 15 Apr 2010 08:36:39 -0700 Subject: [delphi-br] Como usar uma DLL criada pelo DotNet no Delphi Colegas, boa tarde, tenho que usar em uma aplicação desenvolvida em Delphi 7 uma DLL construída através do DotNet. Alguém poderia me dar umas dicas ou me ajudar | Desde já agradeço a colaboração de todos. Abaço a todos. Marco Antônio. Consultor Analista de Sistemas. _ O Internet Explorer 8 te dá dicas de como navegar mais seguro. Clique para ler todas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Campo Agregado no CLientDataSet
As expressões de um campo agregado não dão suporte algum para funções ou construções de expressões condicionais, apenas expressões que envolvem funções de agregação (SUM, AVG, COUNT, etc.). Sds. To: delphi-br@yahoogrupos.com.br From: henrique_fi...@yahoo.com.br Date: Thu, 8 Apr 2010 16:56:16 -0300 Subject: [delphi-br] Campo Agregado no CLientDataSet Pessoal, boa tarde. Alguem sabe me dizer se há como colocar condição na propriedade EXPRESSION de um campo agregado no clientDataSet ?? Tipo ao inves de fazer apenas um SUM(VALOR) fazer tipo um SUM(DECODE(ColunaX, 0, 0, VALOR)) Obrigado e fico aguardo. Sérgio _ Você sabia que seu navegador te ajuda a ficar longe de vírus? Leia mais sobre isso. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Re: Iniciar aplicativo minimizado
A título de informação, a área onde fica o relógio e outros ícones de aplicativos é conhecida como System Tray, Bandeja do Windows ou Bandeja do Sistema. Sobre aplicativos minimizados no System Tray, tem dicas interessantes no site http://delphi.about.com. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: simoesluci...@yahoo.com.br Date: Thu, 8 Apr 2010 17:27:00 + Subject: [delphi-br] Re: Iniciar aplicativo minimizado Pesquisa sobre o uso de Tray Icon. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Albuquerque sys.e...@... escreveu Como faço para iniciar meu aplicativo de forma minimizada ao lado do relógio do Windows ? _ O Internet Explorer 8 te dá dicas de como navegar mais seguro. Clique para ler todas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [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: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Duplicar registro no firebird
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à aplicação. Sds. To: delphi-br@yahoogrupos.com.br From: ral...@gmail.com Date: Fri, 12 Mar 2010 07:20:01 -0300 Subject: [delphi-br] Duplicar registro no firebird Bom dia. Venho mais uma vez, pedir a ajuda dos nobres colegas. Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos com duas tabelas devidamente ligadas (master detail). Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a quantidade de documentos a digitalizar. Com base nesta quantidade digitada, queria que fosse gravado em banco a quantidade de registros informado no campo QtdPag. Na verdade, os registros seriam duplicados e salvos em banco de acordo com a quantidade informada. Estou tentando desta maneira abaixo: procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject); begin btnSalvarTCM.Click; DM.cds_TCM_A.Open; Try For Docs := 1 to StrToInt(QtdPag.Text) do begin DM.cds_TCM_A.Insert; DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text; DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption; DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text; DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text; DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption; DM.cds_TCM_A.Post; DM.cds_TCM_A.ApplyUpdates(-1); end; finally ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do documento:'+#13+''+RxDBLookupCombo1.Text+''); end; end; Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros, mas no banco é gravado somente 1 registro. Como poderia resolver este problema? Abraços. Ralp Alves Bezerra _ Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer 8 agora. http://go.microsoft.com/?linkid=9707132 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como saber se compartilh amento na rede é som ente leitura?
Simples! Tenta criar um arquivo dentro dele! Se ele não permitir, é por que ele é somente-leitura. Sds. To: delphi-br@yahoogrupos.com.br From: rlma...@gmail.com Date: Thu, 4 Mar 2010 09:29:30 -0300 Subject: [delphi-br] Como saber se compartilhamento na rede é somente leitura? Preciso saber se um determinado compartilhamento na rede é somente leitura. Ex: \\servidor\c Preciso saber se esse compartilhamento é somente leitura ou tenho acesso a escrita. Obrigado. At. rlmariz _ Navegue sem medo com o Internet Explorer 8. Clique aqui para instalar gratuitamente. http://go.microsoft.com/?linkid=9707132 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] VLC Crystal Reports
Antes que perguntem, o Erick tá procurando a VCL Dephi 7 para Crystal Reports! :) Sds. To: delphi-br@yahoogrupos.com.br From: t...@sprintercargo.com.br Date: Tue, 23 Feb 2010 11:51:33 -0300 Subject: [delphi-br] VLC Crystal Reports Bom dia ! Alguem ai sabe, onde consigo a VLC do Crystal Reports para Delphi 7 ? Obrigado Erick ( LPC Sistemas ) _ Quer deixar seus vídeos mais divertidos? Com o Movie Maker isso fica fácil. http://www.windowslive.com.br/public/tip.aspx/view/87?product=4ocid=Windows Live:Dicas - Movie Maker:Hotmail:Tagline:1x1:Titulo Legendas Creditos [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Abstract error
A exceção é clara. Segundo o help do Delphi, EAbstractError is the exception class for attempts to call an abstract method. Ou seja, você está querendo usar uma classe que possui métodos abstratos, que não foram implementados. Toda vez que vc tenta instanciar classes assim, o Delphi levanta essa exceção. Sobre a classe TStrings, o help do Delphi diz que Derive a class from TStrings to store and manipulate a list of strings. TStrings contains abstract or, in C++ terminology, pure virtual methods and should not be directly instantiated. Ou seja, a classe TStrings possui métodos abstratos e por isso vc deve usar classes derivadas de TStrings. Resumo da ópera: declare a variável Links como sendo um objeto a ser instanciado da classe TStringList ao invés de TStrings. TStringList é uma classe derivada de TStrings, e por esse motivo vc pode passar um objeto TStringList como argumento para o parâmetro Values da função ExtractHtmlTagValues. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: ctocv...@yahoo.com.br Date: Tue, 23 Feb 2010 22:07:52 -0300 Subject: [delphi-br] Abstract error Deve ser fácil mais por favor socorro. Estou tendo um Abstract erro no código abaixo. O que pode ser? procedure TForm4.ArquivosClick(Sender: TObject); var Links: TStrings; i: integer; begin Links := TStrings.Create; mmArquivo.Lines.Clear; mmArquivo.Lines.LoadFromFile(Arquivos.FileName); i := ExtractHtmlTagValues(mmArquivo.Text, 'A', 'HREF', Links); Showmessage(Links.Text); end; function ExtractHtmlTagValues(const HtmlText: string; TagName, AttribName:string; var Values: TStrings): integer; [As partes desta mensagem que não continham texto foram removidas] _ No Messenger você pode tranformar sua imagem de exibição num vídeo. Veja aqui! http://www.windowslive.com.br/public/tip.aspx/view/97?product=2ocid=Windows Live:Dicas - Imagem Dinamica:Hotmail:Tagline:1x1:Mexa-se [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: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Localizar texto StringList
Duas alternativas: 1) If SeuStringList.IndexOf('palavra_para_procurar') -1 then { achou! } 2) If AnsiPos('palavra_para_procurar', SeuStringList.Text) -1 then { achou! } Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: samuelba...@yahoo.com.br Date: Fri, 19 Feb 2010 09:46:03 -0300 Subject: [delphi-br] Localizar texto StringList Bom dia! Gostaria de saber como faço para localizar um texto dentro de uma StringList, tem como? Alguem sabe? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com _ Quer deixar seus vídeos mais divertidos? Com o Movie Maker isso fica fácil. http://www.windowslive.com.br/public/tip.aspx/view/87?product=4ocid=Windows Live:Dicas - Movie Maker:Hotmail:Tagline:1x1:Titulo Legendas Creditos [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] QRCo mpositeReport unindo dois relatórios
O que vc quer fazer é uma abordagem do tipo um relatório que, para cada registro, seja impresso logo em seguida uma espécie de sub-relatório. O QRCompositeReport não contempla essa abordagem. O que ele faz é permitir que dois ou mais relatórios possam ser impressos seguidamente, um de cada vez. Sds. To: delphi-br@yahoogrupos.com.br From: jcsguio...@gmail.com Date: Thu, 18 Feb 2010 10:33:39 -0300 Subject: [delphi-br] QRCompositeReport unindo dois relatórios Olá pessoal, estou utilizando o *QRCompositeReport **para unir dois relatórios, mas não estou conseguindo fazer da maneira que preciso.* *Tenho dois relatórios distintos.* *Para cada registro do relatório 1 tenho que exibir o relatório 2.* * * *Com o QRCompositeReport o que consegui fazer foi apenas exibir todos registros do relatório 1 e em seguida os registros do relatório 2.* * * Obrigado, Júlio César Santiago Guiótti _ Quer compartilhar fotos com seus amigos? Conheça agora o Windows Live Fotos. http://www.eutenhomaisnowindowslive.com.br/?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=InfuseSocial [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Mudando Status do DataSet
Depure mais apuradamente os eventos do dataset e, pricipalmente, do formulário de cadastro em questão. Se tiver algum time neste formulário, verifique o impacto do código do evento OnTimer neste formulário. É o único jeito de descobrir o que acontece. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: stainle2...@yahoo.com.br Date: Thu, 4 Feb 2010 13:14:23 + Subject: [delphi-br] Mudando Status do DataSet bom dia, tenho um programa que ao entrar no Form para Incluir ou Alterar (forms distintos), após alguns segundos o Insert ou o Edit deixar de estar e quando vou gravar dá um erro que não está nem em Edit ou Insert; em algum lugar do programa deve estar tendo ou um Cancel ou um Refresh nestas tabelas, como eu poderia saber onde está acontecendo isto ?, nestes form´s tenho certeze que não são, pois uso-os num outro projeto menor e isto não acontece. grato Stainle _ Quer deixar seus vídeos mais divertidos? Com o Movie Maker isso fica fácil. http://www.windowslive.com.br/public/tip.aspx/view/87?product=4ocid=Windows Live:Dicas - Movie Maker:Hotmail:Tagline:1x1:Titulo Legendas Creditos [As partes desta mensagem que não continham texto foram removidas]
RE: [ Re: [delphi-br] Reconhecimento de voz no delphi
JNP, ele não quer busca fonética. Ele quer que o software literalmente reconheça voz coletada de um microfone e que possa permitir traduzir que se fala ao microfone em comandos para serem processados pelo software. Sds. To: delphi-br@yahoogrupos.com.br From: j...@netsite.com.br Date: Mon, 1 Feb 2010 22:57:08 -0200 Subject: Re: [ Re: [delphi-br] Reconhecimento de voz no delphi Olá Rafael, dá uma procurada por Soundex... []s, José Nilton Pace (JNP Software)... _ Quer 25GB de armazenamento gratuito na Internet? Conheça agora o SkyDrive. http://www.eutenhomaisnowindowslive.com.br/?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=InfuseSocial [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Fazer um componente derivado de TListBox
O TValueListEditor não te serve? Sds. To: delphi-br@yahoogrupos.com.br From: embarcadel...@yahoo.com.br Date: Sat, 30 Jan 2010 01:06:05 -0300 Subject: [delphi-br] Fazer um componente derivado de TListBox Olá, alguém que manja em criar componentes, dá uma ajuda aqui... Não usa Banco de Dados Quero criar um componente derivado de um TListBox. A diferença seja que ele tenha um outro campo denominado Value. Este campo Value seja indexado pelo valor Items do TListBox. No campo Value será colocado o path e o nome de arquivos e não será visível no componente. Tentei procurar um componente assim e não encontrei, nem no JEDI. Grato, abaixo está o esqueleto padrão: -- unit ItemsListBox; interface uses SysUtils, Classes, Controls, StdCtrls; type TItemsListBox = class(TListBox) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Additional', [TItemsListBox]); end; end. _ Agora é fácil compartilhar fotos no Messenger: solte todas na janelinha. Veja como! http://www.windowslive.com.br/public/tip.aspx/view/77?product=2ocid=CRM-WindowsLive:dicaCompartilhamentoFotos:Tagline:WLCRM:On:WL:pt-BR:Messenger [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Um atualizador profissional (opensource)...
?? To: delphi-br@yahoogrupos.com.br From: embarcadel...@yahoo.com.br Date: Sat, 30 Jan 2010 02:16:13 -0300 Subject: [delphi-br] Um atualizador profissional (opensource)... Finalmente, esse é um bom atualizador de programa, e OpenSource. Leia o artigo e, principalmente, os comentários (erros e soluções). Baixei, instalei, testei e funcionando 100% Como é bom navegar na internet sem estar procurando nada em especial, encontramos cada coisa!!! :) blz _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dicas
SharpE (http://delphi.about.com/b/2010/01/25/sharpe-open-source-delphi-windows-shell-replacement.htm?nl=1) - Incremento ao Shell do Windows, com código fonte aberto e escrito em Delphi. Extraia Links de páginas HTML - http://delphi.about.com/b/2010/01/26/extract-links-from-a-html-page-using-delphi-get-href-attribute-from-the-a-tags.htm Salve páginas web como HTML ou MHT - http://delphi.about.com/od/twebbrowser/a/save-as-mht.htm Sds. _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Componente para Agenda
Já olhou os componentes que tem na JVCL (JEDI Visual Component Library)? Sds. To: delphi-br@yahoogrupos.com.br From: gyncow...@yahoo.com.br Date: Tue, 26 Jan 2010 05:57:18 -0800 Subject: [delphi-br] Componente para Agenda Bom dia a todos, preciso desenvolver um software de agenda e gostaria de sugestões quanto a componentes para exibir os compromissos. Já olhei os componentes ExpressScheduller, mas prefiria que fossem componentes open sources ou free. Se tiverem alguma indicação agradeço desde já. Atenciosamente, André Luis da Silveira _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Comp onente no JEDI compa tível com CurrencyEdit
Corretíssimo, Nazareno! É isso mesmo! Sds. To: delphi-br@yahoogrupos.com.br From: nazareno.nobr...@gmail.com Date: Tue, 26 Jan 2010 11:00:35 -0300 Subject: Re: [delphi-br] Componente no JEDI compatível com CurrencyEdit amigo, se nao me angano no site da jedi tem um utilitario q convert do rx para jcl/jvcl, pois o rx foi incorporado ao jedi 2010/1/26 Tico doutort...@gmail.com Pessoal, tenho um sistema em Delphi7 e estou migrando para o 2010. Existe algum componente no Jedi compatível com o CurrencyEdit? Abraços. João Carlos _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Erro Leitura Registro Windows 7
Particularmente usaria a dica do artigo publicado em http://www.delphi3000.com/articles/article_3851.asp, e o adaptaria para detecter versões do Windows 7. Ou seja, acho melhor usar a API do Windows para detectar e analisar qual a versão em uso. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: ml.li...@gmail.com Date: Thu, 21 Jan 2010 12:14:56 -0200 Subject: Re: [delphi-br] Erro Leitura Registro Windows 7 Deve ser problemas com permissão mesmo. Mas se é somente pra retornar a versão so windows você poderia tentar resolver isso abrindo a chave como somente leitura nesse caso: registro_aux.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows NT\CurrentVersion') Vê ai se funfa! _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DICAS] Tratamento d e Exceções
http://www.delphi3000.com/articles/article_3308.asp Mostrando Diálogos Customizados de Exceção e Escrevendo Ocorrência de Exceções no Log de Eventos do Windows http://www.delphi3000.com/articles/article_3191.asp Pequeno Framework para Tratamento de Exceções http://www.delphi3000.com/articles/article_3703.asp Tratamento Avançado de Exceções para Encontrar Nome do Arquivo Fonte, Pilha de Chamada, etc. Sds. _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] T2Ti OFF
Pra mim, apesar de off-topic, esse assunto é fora do escopo da lista, pq esse projeto da T2Ti envolve Java. Sds. To: delphi-br@yahoogrupos.com.br; n...@yahoogrupos.com.br From: berdamzi...@yahoo.com.br Date: Tue, 19 Jan 2010 22:12:04 -0200 Subject: [delphi-br] T2Ti OFF Galera, tá rolando por aqui e no grupo de delphi, um curso sobre ERP da empresa T2Ti, alguém da lista já utilizou os serviços dessa empresa ?? Como foram?? Vale a pena ?? _ Deixe seu computador compatível com a sua vida. Clique para conhecer o Windows 7! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] SQL Server 2008
Duas coisas: 1) Até o SQL Server, era Enteprise Manager. Agora é Management Studio. 2) Essa sua dúvida é mais relacionada a banco de dados do que a Delphi propriamente dito. Da próxima vez, coloca um OFF-TOPIC no assunto. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: heraldo_andr...@yahoo.com.br Date: Mon, 18 Jan 2010 03:14:28 -0800 Subject: [delphi-br] SQL Server 2008 Ola pessoal, uso o sql server 2000, gostaria de migrar para o sql server 2008, ja ate instalei ele em uma maquina para testar, mas nao achei o ENTERPRISE MANAGER e o QUERY ANALISER, alguem pode me ajudar ... _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] SQL Server 2008
Uma retificação. Onde se lê, Até o SQL Server, era Enteprise Manager, leia-se Até o SQL Server 2000, era Enteprise Manager. Sds. To: delphi-br@yahoogrupos.com.br From: djpardalro...@hotmail.com Date: Mon, 18 Jan 2010 15:58:33 + Subject: RE: [delphi-br] SQL Server 2008 Duas coisas: 1) Até o SQL Server, era Enteprise Manager. Agora é Management Studio. 2) Essa sua dúvida é mais relacionada a banco de dados do que a Delphi propriamente dito. Da próxima vez, coloca um OFF-TOPIC no assunto. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: heraldo_andr...@yahoo.com.br Date: Mon, 18 Jan 2010 03:14:28 -0800 Subject: [delphi-br] SQL Server 2008 Ola pessoal, uso o sql server 2000, gostaria de migrar para o sql server 2008, ja ate instalei ele em uma maquina para testar, mas nao achei o ENTERPRISE MANAGER e o QUERY ANALISER, alguem pode me ajudar ... _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda array dinamico DLL
Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Wed, 13 Jan 2010 05:50:45 -0800 Subject: [delphi-br] Ajuda array dinamico DLL Bom dia! Estou com problemas em uma função de uma dll que estou criando. A função recebe um array dinamico de um tipo de dado. De acordo com a quantidade de informação, a dll altera o tamanho e preenche o array. Na aplicação pego o array e passo para outra função preencher preencher um item de um Mainmenu. consigo acessar e usar os dados do array que a dll alterou sem erros. Mas depois, quando a aplicação já carregou, quando eu clico no item que adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro não ocorre. Por exemplo : procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL); begin if length(Lista) = 0 then exit; Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi carregada end; procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL); begin if length(Lista) = 0 then exit; Menu.caption :='Teste' //sem erro end; Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada. Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao deveria ocorrer. Função da dll que me retorna o que preciso: procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ; var Item : TMenuDLL; begin item := TMenuDLL.Create('DLL','FunçõesCliente'); item.Caption := 'DLL Funções de Clientes'; SetLength( Lista ,( length(lista)+1) ); Lista[length(lista)-1] := (item); item := TMenuDLL.Create('DLL','CadastroCliente'); item.Caption := 'Cadastro de Cliente'; SetLength(Lista,length(lista)+1 ); Lista[length(lista)-1] := (item); end; //Array type TListaMenuDLL = array of TMenuDLL; //Tipo de dado TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; uso o delphi 2007 Se aguém puder dar alguma sugestão, Obrigado! _ Deixe seu computador compatível com a sua vida. Clique para conhecer o Windows 7! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda array dinamico DLL
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Meus Exemplos Dispon ibilizados na Área d e Arquivos da Lista
Endereço: http://br.groups.yahoo.com/group/delphi-br/files/Exemplos/ Cronometro e DBGrid.rar Exemplo de como mostrar uma coluna de cronômetro em um dataset e este ser visualizado em um DBGrid e atualizado via TTimer. Cálculos com DBGrid e ClientDataSet.zip Exemplo de totalização automática e condicional de campos em um ClientDataset, usando campos Aggregate. DBGrid e ProgressBar.rar Exemplo de como implementar o efeito de uma barra de progresso em um DBGrid sem a necessidade de usar o componente TProgressBar. Entrada de Dados Sem Letras Acentuadas.zip Exemplo de como implementar, de forma extremamente simples, entradas de dados sem acentuação usando controles data-aware, e sem a necessidade de codificar eventos OnKeyPress em controles de edição. pConvUtils.zip Exemplo de como utilizar as bibliotecas de conversão de medidas presentes no Delphi 7. Sds. _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] Calculo em DBGrid
O exemplo soma um campo calculado internamente (fkinternalCalc) que poderá ter o valor informado ou o valor zero, dependendo do flag indicando se deve ou não totalizar. Acredito que usando esta idéia, e implementando mais algumas alterações, vc poderá resolver seu problema a partir do meu exemplo. Boa sorte. Sds. P.S.: Você baixou o mesmo exemplo disponibilizado na área de arquivos da lista? To: delphi-br@yahoogrupos.com.br From: harleydiaskoeh...@yahoo.com.br Date: Fri, 8 Jan 2010 11:47:03 + Subject: Re: RES: [delphi-br] Calculo em DBGrid Não é bem isso que preciso. Talvez eu tenha entendido de forma errado o seu exemplo. Na pratica seria o que esta abaixo. tenho um grid com os seguintes campos: ID DESCRICAO VALOR 1 CTA 1 SOMA CTA 2 E CTA 3 2 CTA 2 20,00 3 CTA 3 SOMA CTA 4 E CTA 5 4 CTA 4 15,00 5 CTA 5 30,00 Hoje eu faço isso funcioanar com botão que realiza os calculos e atualizada os valores da coluna VALOR. O que eu preciso é eliminar o clique nesse botão, ou seja se o usuario alterar o valor de CTA 2, ou CTA 4 ou CTA 5 automaticamente atualize CTA 3 e CTA 1. Se puder me ajudar agradeço. --- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu No seu Delphi, crie um novo projeto de aplicação Windows. Em seguida, remova o formulário criado do projeto. A seguir, copie e cole os conteúdos abaixo para criar os respectivos arquivos mencionados, Unit1.dfm e Unit2.dfm. Depois, adicione o Unit1.pas criado. Execute a aplicação. Espero que seja o que você procurava. Boa sorte. Sds. { Unit1.dfm início } object dbgCalculo: TdbgCalculo Left = 73 Top = 126 BorderStyle = bsDialog Caption = 'Cálculos com ClientDataSets e DBGrids' ClientHeight = 370 ClientWidth = 594 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 14 object lblTotal: TLabel Left = 337 Top = 346 Width = 63 Height = 14 Alignment = taRightJustify Caption = 'Total Geral:' end object dbgCalculo: TDBGrid Left = 4 Top = 4 Width = 584 Height = 333 DataSource = dsCalculo Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'Tahoma' TitleFont.Style = [] end object panTotal: TPanel Left = 406 Top = 344 Width = 104 Height = 18 BevelOuter = bvLowered TabOrder = 1 object dbtTotal: TDBText Left = 1 Top = 1 Width = 102 Height = 16 Align = alClient Alignment = taRightJustify DataField = 'TotalValorTotaliza' DataSource = dsCalculo Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end end object cdsCalculo: TClientDataSet Active = True Aggregates = AggregatesActive = True Params = BeforePost = cdsCalculoBeforePost OnNewRecord = cdsCalculoNewRecord Left = 184 Top = 212 Data = { 62009619E0BD0100180004000300620002494404 0001000944657363726963616F01004900010005574944544802 00020032000556616C6F720800040008546F74616C697A6102000300 } object cdsCalculoID: TIntegerField DisplayWidth = 7 FieldName = 'ID' end object cdsCalculoDescricao: TStringField DisplayLabel = 'Descrição' DisplayWidth = 50 FieldName = 'Descricao' Size = 50 end object cdsCalculoValor: TFloatField DisplayWidth = 10 FieldName = 'Valor' DisplayFormat = '#,##0.00' end object cdsCalculoTotaliza: TBooleanField DisplayLabel = 'Totalizar ?' DisplayWidth = 10 FieldName = 'Totaliza' OnChange = cdsCalculoTotalizaChange OnGetText = cdsCalculoTotalizaGetText OnSetText = cdsCalculoTotalizaSetText end object cdsCalculoValorTotaliza: TFloatField FieldKind = fkInternalCalc FieldName = 'ValorTotaliza' Visible = False end object cdsCalculoTotalValorTotaliza: TAggregateField FieldName = 'TotalValorTotaliza' Active = True Expression = 'SUM(ValorTotaliza)' IndexName = 'DEFAULT_ORDER' end end object dsCalculo: TDataSource DataSet = cdsCalculo Left = 260 Top = 212 end end { Unit1.dfm final } { Unit1.pas início } unit Unit1; interface uses Classes, Forms, Windows, DB, DBClient, StdCtrls, Controls, DBCtrls, ExtCtrls, Grids, DBGrids; type TdbgCalculo = class(TForm) cdsCalculo: TClientDataSet; dsCalculo: TDataSource; dbgCalculo: TDBGrid; panTotal: TPanel; dbtTotal: TDBText; lblTotal: TLabel; cdsCalculoDescricao: TStringField; cdsCalculoID: TIntegerField;
RE: RES: [delphi-br] Calculo em DBGrid
Acabei de postar na área de arquivos da lista um .ZIP contendo este código fonte de exemplo. Espero que possa ser de grande ajuda não somente para o Harley mas para todos. O exemplo encontra-se em http://br.groups.yahoo.com/group/delphi-br/files/Exemplos/ Sds. To: delphi-br@yahoogrupos.com.br From: rubem.ro...@dtmanaus.com.br Date: Thu, 7 Jan 2010 18:39:02 -0400 Subject: RES: [delphi-br] Calculo em DBGrid No seu Delphi, crie um novo projeto de aplicação Windows. Em seguida, remova o formulário criado do projeto. A seguir, copie e cole os conteúdos abaixo para criar os respectivos arquivos mencionados, Unit1.dfm e Unit2.dfm. Depois, adicione o Unit1.pas criado. Execute a aplicação. Espero que seja o que você procurava. Boa sorte. Sds. { Unit1.dfm início } object dbgCalculo: TdbgCalculo Left = 73 Top = 126 BorderStyle = bsDialog Caption = 'Cálculos com ClientDataSets e DBGrids' ClientHeight = 370 ClientWidth = 594 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 14 object lblTotal: TLabel Left = 337 Top = 346 Width = 63 Height = 14 Alignment = taRightJustify Caption = 'Total Geral:' end object dbgCalculo: TDBGrid Left = 4 Top = 4 Width = 584 Height = 333 DataSource = dsCalculo Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Charset = ANSI_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = 'Tahoma' TitleFont.Style = [] end object panTotal: TPanel Left = 406 Top = 344 Width = 104 Height = 18 BevelOuter = bvLowered TabOrder = 1 object dbtTotal: TDBText Left = 1 Top = 1 Width = 102 Height = 16 Align = alClient Alignment = taRightJustify DataField = 'TotalValorTotaliza' DataSource = dsCalculo Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end end object cdsCalculo: TClientDataSet Active = True Aggregates = AggregatesActive = True Params = BeforePost = cdsCalculoBeforePost OnNewRecord = cdsCalculoNewRecord Left = 184 Top = 212 Data = { 62009619E0BD0100180004000300620002494404 0001000944657363726963616F01004900010005574944544802 00020032000556616C6F720800040008546F74616C697A6102000300 } object cdsCalculoID: TIntegerField DisplayWidth = 7 FieldName = 'ID' end object cdsCalculoDescricao: TStringField DisplayLabel = 'Descrição' DisplayWidth = 50 FieldName = 'Descricao' Size = 50 end object cdsCalculoValor: TFloatField DisplayWidth = 10 FieldName = 'Valor' DisplayFormat = '#,##0.00' end object cdsCalculoTotaliza: TBooleanField DisplayLabel = 'Totalizar ?' DisplayWidth = 10 FieldName = 'Totaliza' OnChange = cdsCalculoTotalizaChange OnGetText = cdsCalculoTotalizaGetText OnSetText = cdsCalculoTotalizaSetText end object cdsCalculoValorTotaliza: TFloatField FieldKind = fkInternalCalc FieldName = 'ValorTotaliza' Visible = False end object cdsCalculoTotalValorTotaliza: TAggregateField FieldName = 'TotalValorTotaliza' Active = True Expression = 'SUM(ValorTotaliza)' IndexName = 'DEFAULT_ORDER' end end object dsCalculo: TDataSource DataSet = cdsCalculo Left = 260 Top = 212 end end { Unit1.dfm final } { Unit1.pas início } unit Unit1; interface uses Classes, Forms, Windows, DB, DBClient, StdCtrls, Controls, DBCtrls, ExtCtrls, Grids, DBGrids; type TdbgCalculo = class(TForm) cdsCalculo: TClientDataSet; dsCalculo: TDataSource; dbgCalculo: TDBGrid; panTotal: TPanel; dbtTotal: TDBText; lblTotal: TLabel; cdsCalculoDescricao: TStringField; cdsCalculoID: TIntegerField; cdsCalculoValor: TFloatField; cdsCalculoTotaliza: TBooleanField; cdsCalculoValorTotaliza: TFloatField; cdsCalculoTotalValorTotaliza: TAggregateField; procedure cdsCalculoNewRecord(DataSet: TDataSet); procedure cdsCalculoTotalizaGetText(Sender: TField; var Text: String; DisplayText: Boolean); procedure cdsCalculoTotalizaChange(Sender: TField); procedure cdsCalculoBeforePost(DataSet: TDataSet); procedure cdsCalculoTotalizaSetText(Sender: TField; const Text: String); public constructor Create(AOwner: TComponent); override; end; var dbgCalculo: TdbgCalculo; implementation uses SysUtils; {$R *.dfm} procedure TdbgCalculo.cdsCalculoNewRecord(DataSet: TDataSet); begin cdsCalculoTotaliza.AsBoolean := true; cdsCalculoTotalizaChange(cdsCalculoTotaliza); end; constructor TdbgCalculo.Create(AOwner: TComponent); begin inherited Create(AOwner); // Configura uma lista de campos para uma combo que o DBGrid // automaticamente mostrará quando o usuário for informar // se o valor será totalizado ou não dbgCalculo.Columns[3].PickList.Text := 'NÃO' + sLineBreak + 'SIM'; end; procedure
RE: [delphi-br] Dici onário de dados
Que tipo de dicionários de dados vc está especificamente se referindo? Pode ter gente aqui que entenda Dicionário de Dados como o catálogo de um banco de dados contendo informações de metadados e definições de objetos do banco, como triggers, views e stored procedures. Ou então gente que ache que vc quer debater sobre o uso de algo que eu, particularmente, defino como Dicionário de Dados Ativo, onde vc define configurações usadas para apresentação de campos em telas e relatórios, com possibilidade ainda de definir algumas regras de validação. Se for o segundo tipo, acho muito difícil que alguém tenha usado isso na prática. O máximo que eu já vi disso foi um artigo na revista ClubeDelphi onde abordaram geração dinâmica de formulários baseado em informações contidas em um banco de dados. Não me recordo o número da edição da revista, mas que isso saiu na ClubeDelphi, saiu sim! Se for ainda sobre o segundo tipo, discorra aqui na lista a respeito do que seria ideal para que esse tipo de dicionário de dados lhe atendesse na sua necessidade diária de desenvolvimento de sistemas de informação. Quem sabe a sua necessidade também seja de outros colegas desta lista. Sds. To: delphi-br@yahoogrupos.com.br From: berdamzi...@yahoo.com.br Date: Fri, 8 Jan 2010 20:08:52 -0200 Subject: Re: [delphi-br] Dicionário de dados ngm ??? Berdam escreveu: galera bom dia, alguém aqui da lista faz uso de dicionário de dados ?? Alguém por favor poderia disponibilizar algum exemplo prático ?? tempos atrás ouve uma discussão sobre isso, mas n encontrei muita coisa prática para estudo. Obrigado _ Agora é fácil compartilhar fotos no Messenger: solte todas na janelinha. Veja como! http://www.windowslive.com.br/public/tip.aspx/view/77?product=2ocid=CRM-WindowsLive:dicaCompartilhamentoFotos:Tagline:WLCRM:On:WL:pt-BR:Messenger [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] variavel tipo date em consulta sql
1) Declare essas duas variáveis como sendo strings; 2) Faça a atribuição dos valores da seguinte forma: dtinicial := FormatDateTime('mm/dd/', DateTimePicker1.Date); //recebe a data inicial dtfinal := FormatDateTime('mm/dd/', DateTimePicker2.Date); //recebe a data final Você estava concatenando valores date como se fossem strings, e em Object Pascal vc deve convertê-los para string. Seu código final deverá ficar assim: dtinicial := FormatDateTime('mm/dd/', DateTimePicker1.Date); //recebe a data inicial dtfinal := FormatDateTime('mm/dd/', DateTimePicker2.Date); //recebe a data final dm.adodsCaixa.Close; dm.adodsCaixa.commandtext:='select cod_pagto, data_pgto, codvenda, tipopessoa, modo_pgto, vlr_pgto, cod_usuario from caixa where data_pgto='+dtinicial+' and data_pgto='+dtfinal+''; dm.adodsCaixa.open; Veja se assim dá certo. Sds. To: delphi-br@yahoogrupos.com.br From: asandro1...@yahoo.com.br Date: Mon, 4 Jan 2010 02:01:38 + Subject: [delphi-br] variavel tipo date em consulta sql Olá pessoal Já percorri muitos sites mas não encontrei uma forma de colocar uma variavel do tipo date(mysql) dentro de uma consulta sql. Preciso fazer uma comparação de data incicial e data final. Segue parte do código dtinicial:=DateTimePicker1.Date; //recebe a data inicial dtfinal:=DateTimePicker2.Date; //recebe a data final dm.adodsCaixa.Close; dm.adodsCaixa.commandtext:='select cod_pagto, data_pgto, codvenda, tipopessoa, modo_pgto, vlr_pgto, cod_usuario from caixa where data_pgto='+dtinicial+' and data_pgto='+dtfinal+''; dm.adodsCaixa.open; A forma que eu estou colocando as variaveis dentro da consulta sql é para utilizar com variáveis do tipo string mas não sei como colocar as do tipo date. Também não consegui utilizar o BETWEEN. Acredito que o problema seja só com as variáveis mesmo. Alguém pode me ajudar? Grato Alex Silva _ Windows 7: agora com conexões automáticas de rede. Conheça. http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Classe descendente de TDataSet
Crie Seu Próprio DataSet Parte 1 - http://www.delphi3000.com/articles/article_3420.asp Parte 2 - http://www.delphi3000.com/articles/article_3421.asp Sds. To: delphi-br@yahoogrupos.com.br From: jmariogue...@gmail.com Date: Mon, 28 Dec 2009 10:18:15 -0200 Subject: Re: [delphi-br] Classe descendente de TDataSet Sim. O codesearch do Google esta me ajudando bastante, mas entrei numa sinuca de bico. Mesmo assim obrigado pelas considerações. _ Navegue com segurança com o Novo Internet Explorer 8. Baixe agora, é gratis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag4utm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ordenar TIBOQuery
Não ordena. Se quer ordenação de uma consulta SQL a partir de um componente de consulta (TIBOQuery, TQuery, TADOQuery, etc.), sõ reenviando a sentença SQL redefinida com uma cláusula ORDER BY. Se quer ordenação na parte cliente, sem ter que reenviar a consulta ao servidor, use ClientDataSet mesmo. Ele tem gabarito para isso. Já os outros componentes citados, não. Sds. To: nunesfel...@yahoo.com.br From: nunesfel...@yahoo.com.br Date: Tue, 15 Dec 2009 13:45:42 -0200 Subject: [delphi-br] Ordenar TIBOQuery Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi _ Fique protegido de ameças utilizando o Novo Internet Explorer 8. Baixe já, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag1utm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ver as dlls usadas pelo delphi
1) Meu nome é no singular, Rubem. rsrs. 2) Eu achei a mensaem antiga! http://br.groups.yahoo.com/group/delphi-br/message/186447 Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: berdamzi...@yahoo.com.br Date: Thu, 10 Dec 2009 05:37:21 -0800 Subject: [delphi-br] Ver as dlls usadas pelo delphi Olá, pessoal tempo atrás o rubem, rubens, falou sobre um atalho para verificar quais dll o delphi está usaod, tentei procurar no histórico mas n achei. Alghuém lembra ?? -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê _ Faça transações bancárias de maneira segura. Baixe agora o Novo Internet Explorer 8. http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag2utm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Colocando um CheckBox na Grid
Qual a versão do Delphi que vc usa? Sds. To: delphi-br@yahoogrupos.com.br From: samuca_1...@yahoo.com.br Date: Wed, 9 Dec 2009 17:20:41 -0300 Subject: [delphi-br] Colocando um CheckBox na Grid Amigos, Boa Tarde, No link abaixo encontrei informações de como fazer no Delphi para colocar um CheckBox na grid, Fiz todos os procedimentos, mas na hora de compilar diz que a chamda DrawFrameControl não está declarada. Pelo overview do Help cota a user32.lib e a winuser.h, porém não encontrei nenhuma da duas na minha máquina. http://delphi.about.com/od/usedbvcl/l/aa082003a.htm Alguém pode me ajudar? Antecipadamente agradeço Samuca _ Navegue com segurança com o Novo Internet Explorer 8. Baixe agora, é gratis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag4utm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Pesquisa Mostra Declínio do MySQL
Pesquisa mostra declínio do MySQLJames Della Valle, de INFO Online Sexta-feira, 04 de dezembro de 2009 - 13h52 SÃO PAULO PostgreSQL e MariaDB estão crescendo, enquanto o MySQL perde espaço, segundo uma pesquisa realizada esta semana pelo 451 Group. Para o grupo, os números devem refletir a posição dos usuários diante da fusão entre a Oracle e a Sun Microsystems, responsáveis pelo desenvolvimento do banco de dados. Segundo o estudo (http://blogs.the451group.com/opensource/2009/12/04/451-group-survey-highlights-user-concerns-over-oracles-proposed-ownership-of-mysql/), 347 respondentes acreditam que o uso do MySQL deve cair de 82,1% para 78,7% em 2011 e até 2014 o número deve chegar a 72,3%. Além disso, eles acreditam que a transação entre as duas empresas é um dos fatores que devem canalizar o efeito. Em relação a esse ponto, 15% dos usuários de software livre e 14,4% dos usuários específicos do banco de dados afirmaram que eles não gostaram do acordo. O MariaDB deve crescer de zero para 3,7% em 2014, enquanto que o PostgreSQL deve chegar a 30,5% do mercado no mesmo período. Fonte: http://info.abril.com.br/noticias/ti/pesquisa-mostra-declinio-do-mysql-04122009-28.shl _ Fique protegido de ameças utilizando o Novo Internet Explorer 8. Baixe já, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag1utm_campaign=IE8 [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: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Largura de colunas de DBGrid
Talvez vc esteja usando uma versão do Delphi superior a versão 7, que até hoje uso e tem dado conta do recado, seja projetos desktop, client-server, 'n'-camadas ou web. Sds. To: delphi-br@yahoogrupos.com.br From: stephen.wil...@ipswichhospital.nhs.uk Date: Tue, 1 Dec 2009 09:20:13 + Subject: RE: [delphi-br] Largura de colunas de DBGrid Caros Rubem, Matheus e Leandro Obrigado pela ajuda. Lamento que eu nao explicou muito bem o meu problema e que o meu Portugues esta incorreto:: talvez em vez de utilizavel formula eu deveria ter escrito Funcao util para todas as instancias? Enfim, para explicar: Eu tenho uma consulta cuja dados sao exibidos em DBGrid1, e o texto SQL desta consulta eh deteminado por qualquer relatorio o usuario seleciona em uma lista, e assim o numero e o tamanho físico dos campos variam de acordo com a selecao que o usuario fez. Assim, a largura física das colunas deve ser determinada de novo cada vez que a consulta eh executada. No momento em que o meu 'kludge' eh suficiente para os poucos relatorios que existem atualmente, mas a quantidade de relatorios disponiveis para o usuario ira crescer pouco a pouco e minha 'solucao' nao ficara sempre util Ate agora tenho tentado a sugestao de Rubem, mas recebo um erro Incompatible types Integer and tagSize here: if lFld is TNumericField then lCol.Width := StringExtent(lFld.EditMask, DBGrid1.Font) else lCol.Width := StringExtent(StringOfChar('Z', lFld.DisplayWidth),DBGrid1.Font); Vou continuar tentando . . . . . . Muito obrigado Abracos Steve -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of Matheus Nabao Sent: 30 November 2009 15:59 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Largura de colunas de DBGrid O seu exemplo usa tamanho fixo para todos os campos. Deve ser estranho. Você pode fazer isso com arquivo, onde você define as especificações dos tamanhos dos campos etc. E carrega na hora de criar a Grid. Mas afinal, o quê seria uma forma utilizável? _ Com o Internet Explorer 8 você tem seu contéudo favorito em poucos cliques. Conheça! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag5utm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] lista de compras ..
Ou então use um ClientDataSet em memória. Sds. To: delphi-br@yahoogrupos.com.br From: nazareno.nobr...@gmail.com Date: Mon, 23 Nov 2009 08:32:03 -0300 Subject: Re: [delphi-br] lista de compras .. Voce tambem pode usar um dbgrid com memorytable (acho q escreve assim) da suite de componentes da JEDI. e depois sair somando os registros e gravando os mesmos se necessorio no banco de dados 2009/11/21 berdam berdamzi...@yahoo.com.br pra que adicionar em memo, adicionado num stringgrid entao Felipe Milagres escreveu: bom dia ... estou com uma duvida .. estou pensando em fazer um prog. com sistema de compras (coisa pra escola) ... e tipo .. teria um formulario onde estaria listado todos os produtos cadastrados (talvez eu use um combobox para listá-los) quando o usuario seleciona o produto, os outros campos listao o preço e uma descrição .. tem um edit onde o usuario coloca a quantidade que deseja comprar .. até ai tudo beleza .. minha duvida é que : vai ter um botao 'add carrinho' onde ele vai pegar .. nome do produto (que está listado no combobox) + preço (que está listado em um edit) + quantidade comprada (que está listada em outro edit) .. e joga tudo isso em um Memo separado por espaço apos o usuario comprar tudo o que ele quer .. debaixo do memo tem um botao para calcular total da compra . que pega tudo o que está nele e faz o calculo .. resumindo .. como que eu faço para ele pegar cada item listado no memo para fazer o calculo ??? []s ... Felipe Milagres ... _ Novo windowslive.com.br. Descubra como juntar a galera com os produtos Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: RES: RES: [delphi-br] keylogger
O que mais tem são softwares que fazem monitoramento das atividades de colaboradores em suas redes corporativas. Desde que keyloggers até monitoramento de pacotes TCP/IP para monitorar as atividades dos colaboradores. Isso é um modo pacífico de utilização de um software como esses, inclusive amparado com respaldo jurídico. Até o momento, nada de errado na solicitação. Mas a partir do momento que vc quer um keylogger que precise ser instalado e que não seja detectado por um antivírus, isso é de se suspeitar. Já me contactarem uma vez pra fazer um programa assim, pra rastrear as ações de uma pessoa em seu notebook pessoal. Até grana alta queriam me pagar, mas recusei na hora. Além de ser algo que pode restringir minha liberdade a qualquer momento, bisbilhotar a vida alheia, a meu ver, além de ser falta de educação (cada um tem que cuidar da sua própria vida), é constitucionalmente ilegal. Sds. To: delphi-br@yahoogrupos.com.br From: marinilsonmore...@yahoo.com.br Date: Mon, 16 Nov 2009 20:06:22 -0200 Subject: RES: RES: [delphi-br] keylogger Pacifico eu não sei mas não me entendam mal tenho uma rede na empresa e quem quiser usar ela é segundo minhas regras. È só não escrever nada errado que nada de errado é capturado. Meus computadores são pra trabalho coisas pessoais é em computadores pessoais. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Enviada em: segunda-feira, 16 de novembro de 2009 14:17 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] keylogger Rubem, Gostaria da sua ajuda para me informar. Você pode ajudar? [ ]' Dirlei. Rubem Rocha escreveu: Por incrível que pareça, existe sim. Informe-se! Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Dirlei Dionísio Enviada em: domingo, 15 de novembro de 2009 19:50 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] keylogger Será que existe um propósito pacífico, mesmo no ambiente corporativo, para a utilização de um keylogger? _ Novo windowslive.com.br. Descubra como juntar a galera com os produtos Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Basico
Delphi 10? Vc ñ quer dizer RAD Studio 2006? Sds. To: delphi-br@yahoogrupos.com.br From: marinilsonmore...@yahoo.com.br Date: Sun, 15 Nov 2009 12:40:36 -0200 Subject: [delphi-br] Basico Alguém tem material básico de banco de dados Delphi 10??? _ Converse e compartilhe fotos ao mesmo tempo. Saiba como no novo Site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] keylogger
Se vc ñ tem um propósito pacífico, para uso corporativo, acredito que sua solicitação incita hacking para obter informações sigilosas de pessoas. Portanto, não vejo como positiva para o grupo sua solicitação. Sds. To: delphi-br@yahoogrupos.com.br From: marinilsonmore...@yahoo.com.br Date: Sun, 15 Nov 2009 07:25:54 -0200 Subject: [delphi-br] keylogger Alguém tem um keylogger bem completo que passa pelos ante virus escrito em Delphi se possível com código fonte _ Converse e compartilhe fotos ao mesmo tempo. Saiba como no novo Site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] DLLs x Componentes
Eu, particularmente, faria a separação de tais cálculos em packages (não em DLLs), e o tratamento da entrada dos dados, para facilitar tanto a edição dos dados como o tratamento dos controles da tela, eu faria com ClientDataSets em memória. Esta é a minha sugestão. Sds. To: delphi-br@yahoogrupos.com.br From: jose.new...@jnewton.com.br Date: Fri, 13 Nov 2009 10:33:17 -0300 Subject: RES: [delphi-br] DLLs x Componentes Caro Rubem, Quando me refiro a sábios, é pura brincadeira. Não levem a sério. Vou tentar dar um exemplo: O código que estou escrevendo está muito grande e existem cálculos repetitivos (muitos) que pretendo passar para DLL dinâmicas e desafogar meu algoritimo. A questão é que para economizar variáveis, tenho muitos componentes que são números que preciso manipular. Basicamente são Edits e stringGrids e muitas conversões, abaixo um bloco do código como exemplo: if EditEfetivoMOD.Text '' then Ef_Total := StrToFloat(EditEfetivoMOD.Text) else Ef_Total := 0; if EditAlojaMOD.Text '' then Al_Total := StrToFloat(EditAlojaMOD.Text) / 100 else Al_Total := 0; Ef_Aloja := Int((Ef_Total * Al_Total) + 0.50); // calcula total de alojados EditTotalAlojaMOD.Text := FloatToStr(Ef_Aloja); Grato pela ajuda, Sds Jose Newton De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: sexta-feira, 13 de novembro de 2009 09:59 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] DLLs x Componentes Prioridade: Alta Que tipo de manipulação em um componente de um form, via DLL, você quer fazer? Contextualize um exemplo hipotético (preferencialmente com algum tipo de código) que mostre mais claramente o que você gostaria de fazer. Sds. P.S.: Acredito que nesta lista não tenhamos sábios, gurus ou 'feras'. Sábio só tem Deus, guru só na Índia e feras só no zoológico ou na selva! ;) De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [delphi...@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] em Nome de Jose Newton Araujo [jose.new...@jnewton.com.br mailto:jose.newton%40jnewton.com.br ] Enviado: sexta-feira, 13 de novembro de 2009 0:39 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] DLLs x Componentes Aos mais sábios: Como fazer para que uma DLL manipule um componente (Edit.Text) num FORM ? Help-me Jose Newton _ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Necessito urgente do componente Duck Barcode
A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br From: nextc...@terra.com.br Date: Wed, 4 Nov 2009 16:29:15 -0200 Subject: Re: [delphi-br] Necessito urgente do componente Duck Barcode Caro colega Ve se serve este ai. Atenciosamente Washington André Muller da silva ### NextCorp Informática Ltda www.nextcorp.com.br nextc...@nextcorp.com.br nextc...@terra.com.br 0xx-(51)-3037-6605 ### - Original Message - From: Jorge Ericsson jericsson...@gmail.com To: undisclosed-recipients: Sent: Wednesday, November 04, 2009 2:52 PM Subject: [delphi-br] Necessito urgente do componente Duck Barcode Olá amigos, Alguém teria o componente Duck Barcode para Delphi 7 ? Necessito urgente para compilar uma aplicação antiga e não consigo mais encontrar um link funcional que me possibilite baixar novamente o componente. Se preferir me envie o link em PVT fico grato. Valew, Jorge Ericsson Brasília - DF . _ Novo windowslive.com.br. Descubra como juntar a galera com os produtos Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] uma ideia de como fazer
Eu criaria um TClientDataSet com um campo booleano do tipo fkInternalCalc. Depois, usaria o componente TDBCtrlGrid, dentro dele, montar a visualização de registros que eu desejo e, assim, poder usar o componente TDBCheckBox. Sds. To: delphi-br@yahoogrupos.com.br From: jose.new...@jnewton.com.br Date: Wed, 4 Nov 2009 15:55:13 -0300 Subject: RES: [delphi-br] uma ideia de como fazer Alexandra: Eu tentaria o seguinte: Percorrendo a tabela e criando CheckBoxes onde o caption atenda a identificação de cada registro, depois é abusar do Sender is TCheckBox e component.count Sds, Jose Newton De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de alessandra porto Enviada em: quarta-feira, 4 de novembro de 2009 13:26 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] uma ideia de como fazer Tenho uma tabela no BD que possui por exemplo 10 registros gostaria de criar em um form algum tipo de exibir esses 10 registros com um checkbox para cada registro e quando marcado o checkbox eu estaria selecionando aquele registro para impressão a ideia é como criar o numero de checkbox conforme o numero de registros desta tabela? ou teria uma forma mais pratica para selecionar registros para ser impressos? agradeço a todos que colaborarem . _ Novo site do Windows Live: Novidades, dicas dos produtos e muito mais. Conheça! http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Captcha - imagem de controles
Não vejo como válida esse questionamento, uma vez que o captcha é um recurso para impedir a ação de robôes na rede. Por este motivo, classifico essa 'dúvida' como OFF-TOPIC e altamente fora do contexto desta lista, tratando de um assunto relacionado a hacking. Com a palavra, o moderador da lista. Sds. To: delphi-br@yahoogrupos.com.br From: ctocv...@yahoo.com.br Date: Wed, 4 Nov 2009 17:15:05 -0200 Subject: [delphi-br] Captcha - imagem de controles Olá amigos, Alguém já burlou com sucesso um captcha? Abçs, Reinaldo . _ Agora a pressa é amiga da perfeição. Chegou o Windows 7. Conheça! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Desenhar Linha dentro do TabSheet
TTabSheet não possui uma propriedade protegida Canvas para acessá-la, isto pq TTabSheet não descende de TCustomControl, e sim de TWinControl. O que pode ser feito é remediar o desenho no TabSheet desenhando em um componente que tenha Canvas e que esteja dentro do TTabSheet. Numa primeira olhada ao help do Delphi, vi de cara o TPanel, que descente de TCustomControl, e portanto tem uma propriedade protegida Canvas para ser manipulada. Teste o seguinte roteiro: 1) Faça um uses no seu formulário para a unit ExtCtrls; 2) Defina a seguinte declaração ANTES da declaração do seu formulário: TPanel = class(ExtCtrls.TPanel) public property Canvas; end; Com esta declaração, mudamos a visibilidade da propriedade Canvas de protected para private. Assim, não precisamos de gatilhos de classes 'hacker' para acessar propriedades protegidas. 3) Adicione panels nos TTabSheets onde vc quer desenhar linhas. Depois de seguinte esse roteiro, vc poderá mudar seu código exemplo de form1.canvas.LineTo(30,50); para PanelTabSheet1.Canvas.LineTo(30, 50); assumindo PanelTabSheet1 é um TPanel de nome PanelTabSheet1 que está em um TTabSheet de nome TabSheet1. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Tue, 3 Nov 2009 08:15:23 -0800 Subject: [delphi-br] Desenhar Linha dentro do TabSheet Preciso criar uma grade para posicionamento de controles, como aquela do tempo de projeto do delphi7, só que dentro de um tabsheet. Se fosse um form eu faria o seguinte: form1.canvas.LineTo(30,50); mas no tabsheet não da, Alguem pode dar um opinião? . _ Você já ama o Messenger? Conheça ainda mais sobre ele no Novo site de Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Pesq uisa que atenda uma expressão
Banco de dados? Estrutura das tabelas envolvidas? ??? To: delphi-br@yahoogrupos.com.br From: jose.new...@jnewton.com.br Date: Tue, 3 Nov 2009 19:00:11 -0300 Subject: [delphi-br] Pesquisa que atenda uma expressão Senhores, aqui vai a bomba para a qual eu preciso de uma dica: Tenho um banco de dados com várias alternativas de transporte em função de preço e lotação. Preciso pesquisar de uma forma que o sistema responda À seguinte pergunta : 1) Qual o equipamento (alternativa) de transporte adequada para o mês face o efetivo que vou transportador e aos preços que me são ofertados ? Seguindo um curva o efetivo poderá ser : Ex: Mes1 = 20 pessoas / Mes2 = 30 / Mês3 = 90 Um array de meses indefinido que pode ser de 2 a 48 Muito obrigado Sds, Jose Newton . _ Novo windowslive.com.br. Descubra como juntar a galera com os produtos Windows Live. http://www.windowslive.com.br/?ocid=WindowsLive09_MSN_Hotmail_Tagline_out09 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como Instalar o JEDI
Suponho eu q vc quer instalar a JVCL (JEDI Visual Component Library). A título de ratificação, a JVCL é uma super coleção de componentes mantida pela comunidade de desenvolvedores intitulada JEDI - Joint Endeavor of Delphi Innovators (http://www.delphi-jedi.org/). Portanto, vc quer instalar a JVCL, e não a JEDI! No endereço http://jvcl.delphi-jedi.org/ vc poderá conferir informações e novidades sobre esta super coleção de componentes. Mas, de antemão, saiba que quando vc baixa e descompacta o pacote da JVCL, existe uma pasta que possui um instalador que, via linha de comando, é compilado e executado para efetuar a instalação da JVCL, não necssitando ter que fazer instalação braçal dos pacotes. Se vc já fez isso e não teve sucesso, verifique no endereço que mencionei no parágrafo anterior se existe alguma informação importante que possa lhe ajudar na instalação. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: joseffi...@yahoo.com.br Date: Mon, 2 Nov 2009 06:45:58 -0800 Subject: [delphi-br] Como Instalar o JEDI Caros compaheiros do grupo, alguem tem um artigo ensinando a instalar o JEDI. jé tentei de tudo para instalar no delphi6 ou no 2009, e não consegui. josé ferreira . _ Você sabia que pode acessar o Messenger direto do seu Hotmail? Descubra como! http://www.microsoft.com/brasil/windows/windowslive/products/tutoriais.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como Instalar o JEDI
Mais uma coisa: no endereço principal da comunidade JEDI, existe um link para a JCL - Jedi Class Library. Sugere-se instalar primeiro esta coleção antes de instalar a JVCL. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: djpardalro...@hotmail.com Date: Mon, 2 Nov 2009 16:19:17 + Subject: RE: [delphi-br] Como Instalar o JEDI Suponho eu q vc quer instalar a JVCL (JEDI Visual Component Library). A título de ratificação, a JVCL é uma super coleção de componentes mantida pela comunidade de desenvolvedores intitulada JEDI - Joint Endeavor of Delphi Innovators (http://www.delphi-jedi.org/). Portanto, vc quer instalar a JVCL, e não a JEDI! No endereço http://jvcl.delphi-jedi.org/ vc poderá conferir informações e novidades sobre esta super coleção de componentes. Mas, de antemão, saiba que quando vc baixa e descompacta o pacote da JVCL, existe uma pasta que possui um instalador que, via linha de comando, é compilado e executado para efetuar a instalação da JVCL, não necssitando ter que fazer instalação braçal dos pacotes. Se vc já fez isso e não teve sucesso, verifique no endereço que mencionei no parágrafo anterior se existe alguma informação importante que possa lhe ajudar na instalação. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: joseffi...@yahoo.com.br Date: Mon, 2 Nov 2009 06:45:58 -0800 Subject: [delphi-br] Como Instalar o JEDI Caros compaheiros do grupo, alguem tem um artigo ensinando a instalar o JEDI. jé tentei de tudo para instalar no delphi6 ou no 2009, e não consegui. josé ferreira . _ Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus e-mails? Começe a usar já! http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Mover shape de zoom com mouse
http://delphi.about.com/od/graphics/l/aa120198.htm Adapte as dicas de acordo com sua necessidade. Boa sorte. Sds. P.S.: Lembre-se sempre: quem procura, acha! To: delphi-br@yahoogrupos.com.br From: pablojfrei...@yahoo.com.br Date: Sun, 1 Nov 2009 03:24:59 -0800 Subject: [delphi-br] Mover shape de zoom com mouse Olá pessoal, estou querendo mover um shape, de forma de um zoom em uma imagem, porém estou com algumas: 1º) qdo eu coloco Timage dentro de um panel, o shape se move por trás do panel. Por que isso acontece? 2º) como faria pra mover em forma de zoom esse shape, no foco do meu mouse. A principio estou movendo e o shape está exebindo no tamanho original da imagem, e sem foco do mouse. Meus dados: image1:= que recebe uma imagem 800x600, mas é exibido no formulario em 417x417. procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var curs: tpoint; begin if image1.Picture.Bitmap= nil then shape1.Visible:= false else begin DoubleBuffered:=True; shape1.Visible:= true; getcursorpos(curs); shape1.Top:=curs.Y; shape1.Left:=curs.X; shape1.Brush.Bitmap:=Image1.Picture.Bitmap; end; Aguardo uma luz :D . _ Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus e-mails? Começe a usar já! http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Tigger
Acho q vc quer dizer trigger! Sds. To: delphi-br@yahoogrupos.com.br From: sergioinf...@yahoo.com.br Date: Thu, 29 Oct 2009 14:00:29 -0700 Subject: [delphi-br] Tigger Boa tarde Alguem poderia postqar um exemplode tigger pois gostaria de somar o saldo do estoque com a entrada. desde já agradeço Atenciosamente, Sérgio E. Santo Depto. Gestão US - US 001 degest.prem...@terra.com.br Premium - Responsabilidade e Garantia na Pratica Diária de Bem Atender 11 - 3378-4501 35 - 3422-9949 visite nosso site... www.premiumalimentacao.com.br . _ Você sabia que pode acessar o Messenger direto do seu Hotmail? Descubra como! http://www.microsoft.com/brasil/windows/windowslive/products/tutoriais.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Existe um jeito de pegar os Fields de uma Classe em RunTime?
Se estamos falando de campos em uma classe, e vc quer inspecioná-los, tenha em mente SEMPRE que a RTTI permite fazer o que vc quer, mas somente com itens que tenham sido declarados com visibilidade de escopo published. Se declarou os fields de sua classe com visibilidade de escopo abaixo disso (public, protected ou private), infelizmente não é possível. Sds. To: delphi-br@yahoogrupos.com.br From: felli...@gmail.com Date: Thu, 22 Oct 2009 07:21:44 -0300 Subject: [delphi-br] Existe um jeito de pegar os Fields de uma Classe em RunTime? Amigos, tenho uma classe, com diversos Fields... queria poder dar um for nos Fields e pegar os nomes, e que tipo são eles... isso existe? é possível? Obrigado. -- _ T.·.F.·.A.·. Fellipe Henrique . _ Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique aqui. http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ordenar campo calculado
Se o FieldKind (tipo do campo) for fkCalculated, realmente não é possível ordenar os dados de um dataset (e não ordenar um DBGrid) por ele. Mas se o FieldKind for fkInternalCalc, aí será possível ordenar os dados de um dataset (e não ordenar um DBGrid). Boa sorte. Sds. P.S.: Espero que esteja fazendo uso de ClientDataSet para esta ordenação, pq com datasets costumeiros, como queries ou tables, isso não irá funcionar To: delphi-br@yahoogrupos.com.br From: info...@yahoo.com.br Date: Fri, 16 Oct 2009 11:04:03 -0300 Subject: [delphi-br] Ordenar campo calculado Olá Srs Alguém sabe como ordenar campo calculado em um DBGrid? eu Uso TADOQuery Já pesquisei na NET e me deparei com vários post dizendo que não é possível, mas, eu vejo que é tão útil esse recurso que duvido que não existe uma maneira simples de se fazer. Agradeço Gilvan Costa . _ Você sabia que o Hotmail mudou? Clique e descubra as novidades. http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Chave composta
Especifique os campos na propriedad KeyField separados por ponto-e-vírgula (;). Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: felipearaujolo...@yahoo.com.br Date: Tue, 13 Oct 2009 14:37:15 -0300 Subject: [delphi-br] Chave composta Galera, boa tarde Estou com um problema Estou desenvolvendo um projeto para empresa no qual trabalho e estou tendo que trabalhar com chave composta no banco de dados. Eu consigo trabalhar com o tbLookupComboBox com chaves compostas(keyfield)? . _ Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus e-mails? Começe a usar já! http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Unindo programas
Dentro de dois units podem até existir definições de classes, tipos de dados, etc. com o mesmo nome, mas os nomes das units devem OBRIGATORIAMENTE serem diferentes. Renome-os para não ter dores de cabeça! Sds. To: delphi-br@yahoogrupos.com.br From: cic...@fiosecabos.ind.br Date: Thu, 8 Oct 2009 14:36:05 -0300 Subject: [delphi-br] Unindo programas Uma pergunta simples... Tenho dois diretorios com programas, formulários etc... Quero abrir o programa1 e inserir neste todos os forms do programa2 Vou no Project e seleciono Add To Project até ai tudo bem ... A minha pergunta é ... o que vai acontecer com as units que tem o mesmo nome ou seja unit1 do programa 1 e unit1 do programa2 qdo faço essa ação ... Posso fazer sem medo d perder formulários e units ou tenho que renomear todas primeiro ... FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br http://fiosecabos.ind.br/ - cic...@fiosecabos.ind.br . _ Você sabia que o Hotmail mudou? Clique e descubra as novidades. http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] serasa
Componente pra isso acho difícil ter. Alias, pra ser mais direto, até o momento não existe isso. Se seu cliente ou a empresa onde vc atua é filiada ao SERASA, obtenha com eles manuais de como pode ser feita a integração do mecanismo de consulta ao SERASA no seu aplicativo. A mesma recomendação é válida para consultas ao SPC. Ou então, ainda falando em SERASA, informe-se sobre o webservice do site http://www.consultacpf.com, do qual sou inclusive colaborador técnico. Sds. To: delphi-br@yahoogrupos.com.br From: portaldoinfe...@gmail.com Date: Thu, 1 Oct 2009 10:34:23 -0300 Subject: [delphi-br] serasa alguem sabe qual componente eu posso estar usando para pesquisar a situação de um cliente apartir do seu cpf pu cnpj -- Leonardo Carlos Baldino - The Highlander . _ Descubra todas as novidades do novo Internet Explorer 8 http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Orde m em que as dlls são procuradas pelo apl icativo
Segundo o excelente livro Programação Orientada a Objetos Usando o Delphi 3, esta é a ordem de busca de uma DLL: 1. Diretório/pasta a partir do qual aplicação foi executada; 2. Diretório/pasta corrente; 3. Diretório/pasta do sistema (Ex.: C:\Windows\System); 4. Diretório/pasta do Windows (Ex.: C:\Windows); 5. Diretórios/pastas listadas na variável de ambiente PATH. Sds. To: delphi-br@yahoogrupos.com.br From: compuvale.softw...@gmail.com Date: Wed, 30 Sep 2009 21:49:26 -0300 Subject: [delphi-br] Ordem em que as dlls são procuradas pelo aplicativo Boa noite, Uma dúvida simples, uma dll que é necessária por um aplicativo, primeiro o aplicativo verifica se a dll existe na pasta onde está o executável e depois vai pro path, correto? Penso especificamente na dll do firebird fbclient.dll, em colocá-la na pasta do executável no caso das estações. O que acontece se tiver um Firebird de outra versão instalado no micro? Qual dll será utilizada? A que está junto com o executável ou a que está instalada no windows? []s Andrei . _ Conheça os novos produtos Windows Live! Clique aqui. http://www.windowslive.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] nota fiscal eletronica duvidas
O que você quer fazer não é aceito por nenhuma SEFAZ. Para emitir uma NFe, é necessário acesso autenticado ao ambiente/webservice de produção da respectiva SEFAZ, e consequentemente a transmissão do arquivo XML da NFe devidamente assinado com um certificado digital. O que pode ser feito é, ao final do dia, os notebooks retornarem à empresa para terem seus pedidos lidos pelo servidor da empresa, e este sim se encarregaria de efetuar o processo supracitado. Sds. To: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br From: alessandraport...@yahoo.com.br Date: Tue, 22 Sep 2009 12:03:17 -0700 Subject: [delphi-br] nota fiscal eletronica duvidas amigos li a clube delphi 108 que fala sobre nota fiscal eletronica e fiquei com algumas duvidas : em um caso como este: tenho vendedores com notebook que não estão ligados a web , tem como eles emitirem nota eletronica e ao final do expediente enviar o arquivo via web? (se isso é aceito pela sefaz) e como isso é feito. a ideia seria desenvolver uma aplicação de controle de vendas que emitiria notas fiscais eletronicas e o bd da aplicação só seria atualizado ao conectar ao servidor da matriz talvez depois de 24 hs. isso é possivel? Grata pela atenção de todos . _ Você sabia que o Hotmail mudou? Clique e descubra as novidades. http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: RES: [delphi-br] nota fiscal eletronica duvidas
Particularmente, não vejo isso com bons olhos. Além da empresas ter um custo adicional adquiridindo um certificado digital A1 para cada notebook, isso abre margem para o vendedor fazer algum tipo de 'traquinagem' com o certificado digital da empresa. Sds. To: delphi-br@yahoogrupos.com.br From: cleiton.mac...@yahoo.com.br Date: Tue, 22 Sep 2009 18:10:31 -0300 Subject: RES: [delphi-br] nota fiscal eletronica duvidas Mas galera se os vendedores tiverem o CERTIFICADO DIGITAL eles podem sim emitir a NF-e de onde Eles tiverem, no caso deles eles teriam que conectar no sistema da empresa dele e emitir. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leandro Enviada em: terça-feira, 22 de setembro de 2009 16:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] nota fiscal eletronica duvidas nao.. vc n tera o codigo da nota fiscal entao ela n tera validade nenhuma.. oque vc pode fazer eh enviar a nota depois para seu cliente pela internet 2009/9/22 alessandra porto alessandraport...@yahoo.com.br mailto:alessandraporto11%40yahoo.com.br amigos li a clube delphi 108 que fala sobre nota fiscal eletronica e fiquei com algumas duvidas : em um caso como este: tenho vendedores com notebook que não estão ligados a web , tem como eles emitirem nota eletronica e ao final do expediente enviar o arquivo via web? (se isso é aceito pela sefaz) e como isso é feito. a ideia seria desenvolver uma aplicação de controle de vendas que emitiria notas fiscais eletronicas e o bd da aplicação só seria atualizado ao conectar ao servidor da matriz talvez depois de 24 hs. isso é possivel? Grata pela atenção de todos . _ Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique aqui. http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Copiar arquivo
Antes de copiar, vc ao menos verifica se o arquivo está em uso? Senão, veja o código abaixo: function IsFileInUse(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; HFileRes := CreateFile( PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; Sds. To: delphi-br@yahoogrupos.com.br From: berdamzi...@yahoo.com.br Date: Mon, 21 Sep 2009 13:06:39 -0700 Subject: [delphi-br] Copiar arquivo Olá pessoal, estou com uma dúvida aqui. Tenho um atualizador para atualizar os clientes. Estou copiando os arquivos através do comando copyfile do delphi, que realiza a transferência do servidor para a máquina do cliente. Algumas pessoas me falaram que a cópia por Tstream é melhor. Alguém tem alguma resposta a respeito disso.?? As vezes o método padrão do delphi (copyfiile (origem,destino)) não realiza a cópia. Acredito que também deva ser a rede do cliente que esteja congestionada. -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados - Unoesc Xanxerê . _ Você sabia que o Hotmail mudou? Clique e descubra as novidades. http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Dúvi das
Respondendo algumas das perguntas: Pergunta 1) Em Delphi, diferente da linguagem C/C++, o bloco principal de execução fica no arquivo .DPR do projeto de sua aplicação. Pergunta 2) Para saber exatamente o que é uma procedure e uma function, basta recordar dos conceitos elementares que aprendemos em lógica de programação. Uma procedure representa um procedimento, que executa um bloco de código sem retornar informação alguma. Já uma function representa uma função, que esta, além de executar um bloco de código, permitindo receber argumentos para sua execução, assim como um procedimento, pode retornar um valor. Perguta 3) De todas as instruções citadas, em Object Pascal apenas return não existe. Todos os demais são instruções para controlar o fluxo de execução do programa. Maiores informações sobre eles podem ser encontradas no próprio help do Delphi. Pergunta 5) Sim, todas essas estruturas mencionadas tb existem em Object Pascal. O que determina se um é melhor do que o outro é a necessidade de utilização do mesmo dentro do escopo a que se encaixa o programa e o problema que o mesmo se propõe a resolver. Boa sorte e bons estudos. Sds. To: delphi-br@yahoogrupos.com.br From: moniquegomes2...@gmail.com Date: Sun, 20 Sep 2009 05:52:58 + Subject: [delphi-br] Dúvidas Gente tô começando a estudar Delphi. Graças a vocês aqui do fórum. Minhas dúvidas são: 1) Há função main no Delphi como existe em C/C++? 2) O que é procedure e function? Quais as diferenças? 3) Podem me explicar o que são e as diferenças dos seguintes comandos: return, exit, continue, break (se existem em Delphi). 4) Para criar um formulário sei que pode escolher checkbox, listbox e outros. O problema é implementar. Vocês podem me ajudar e se possível colocar um código para poder me expressar melhor? 5) Existe em Delphi estruturas de dados, registros e arquivos como existem em C e em Pascal? Quais as diferenças e o que são melhores para usar? Na opinião de vocês quais dos 3 citados acima é melhor para um programa? Gente obrigada e sei que pode pintar novas dúvidas. Aguardo resposta de vocês. Beijos Monique . _ Acesse seu Hotmail de onde quer que esteja através do celular. Clique aqui. http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Alterar valor do registro
O usuário que logado na máquina, quando roda esse código, possui direitos administrativos sobre ela? Sds. To: delphi-br@yahoogrupos.com.br From: eduko...@yahoo.com.br Date: Thu, 10 Sep 2009 13:51:16 -0300 Subject: [delphi-br] Alterar valor do registro Galera, fiz o seguinte código para alterar o valor do registro e controlar a liberação/travamento das portas USB do meu micro. Só que não esta funcionando (não esta alterando o valor). Alguém pode me dar uma mão? Obrigado, procedure TForm1.btnLiberaClick(Sender: TObject); begin // HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR // Valor 3 para liberar // Chama o construtor do objeto Registro := TRegistry.Create; { Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela ainda não exista. } Registro.OpenKey (Raiz, True); // Grava as informações do form Registro.WriteInteger ('Start', 3); // Fecha a chave e o objeto Registro.CloseKey; Registro.Free; end; procedure TForm1.btnTravaClick(Sender: TObject); begin // HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR // Valor 4 para bloquear // Chama o construtor do objeto Registro := TRegistry.Create; { Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela ainda não exista. } Registro.OpenKey (Raiz, True); // Grava as informações do form Registro.WriteInteger ('Start', 4); // Fecha a chave e o objeto Registro.CloseKey; Registro.Free; end; . _ Acesse o Portal MSN do seu celular e se mantenha sempre atualizado. Clique aqui. http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Extrair campo de um DBDataEdit
A pergunta permanece: que componente TDBDataEdit é esse Sds. To: delphi-br@yahoogrupos.com.br From: marc...@systempro.com.br Date: Thu, 10 Sep 2009 08:00:09 -0300 Subject: Re: [delphi-br] Extrair campo de um DBDataEdit procedure Teste; var sData: AnsiString; dtData: TDateTime; iMes, iAno: Integer begin // Se esse DBDataEdit tiver uma proprietade tipo .Text ou .Caption é só atribuir para sData e ta feito. // Tem que usar DateUtils, mas é só ir em cima de MonthOf ou YearOf e teclar Ctrl+Shift+A... // sData='09/09/2009'; dtData:=StrToDate(sData); iMes:=MonthOf(dtData); iAno:YearOf(dtData); end; suelio Santos escreveu: Boa tarde galera.., É o seguinte queria saber se alguem sabe como eu pego só um campo de um TDBDataEdit, tipo no display eu tenho 09/09/2009, tem como eu pegar só o dia ou so o mês, direto do edit para passar como parametro? Desde já agradeço aos que por ventura me ajudar Suélio Santos Analista de Sistemas Focus Automação . _ Acesse seu Hotmail de onde quer que esteja através do celular. Clique aqui. http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] capturar campo do dbgrid
Alex, vc precisa entender que um DBGrid é um componente para visualizar, de forma tabular, os dados contidos em um dataset vinculado a um datasource. Portanto, é mais correto afirmar que você quer o conteúdo do campo (a.k.a. coluna) do registro (a.k.a. linha) corrente de um dataset. O componente TDBGrid possui uma propriedade que pode ser consultada em qualquer ponto de seu código para isso: a propriedade SelectedField. Informe-se mais sobre ele no help do Delphi. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: prism...@gmail.com Date: Sun, 6 Sep 2009 09:22:22 -0300 Subject: Re: [delphi-br] capturar campo do dbgrid Alex, Use o evento OnCellClick para isto: procedure TForm1.DBGrid1CellClick(Column: TColumn); begin Edit1.Text := Column.Field.AsString; end; ou o evento OnDblClick: procedure TForm1.DBGrid1DblClick(Sender: TObject); begin Edit1.Text := DBGrid1.Columns[1].Field.AsString; //-- Indique qual a coluna desejada começando em 0 end; Sucesso !! Moacir asandro1501 escreveu: Olá amigos Alguém pode me dizer como faço para capturar o valor de uma célula do dbgrid. O dbgrid está ligado num dataset que tem uma consulta no qual utilizei left join para relacionar com valores não iguais, preciso inserir um registro em uma das tabelas relacionadas, pra isso preciso do valor contido no dbgrid que é da outra tabela do relacionamento. Espero ter esclarecido a situação. Grato Alex Silva _ Você sabia que pode acessar o Messenger direto do seu Hotmail? Descubra como! http://www.microsoft.com/brasil/windows/windowslive/products/tutoriais.aspx [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [ARTIGO] O que houve com o Borland Delp hi? O que é CodeGea r? O que é Embarcade ro?
http://delphi.about.com/od/humorandfun/f/borland-delphi-codegear-delphi-embarcadero-delphi.htm _ Acesse seu Hotmail de onde quer que esteja através do celular. Clique aqui. http://www.windowslive.com.br/celular/home.asp?utm_source=MSN_Hotmailutm_medium=Taglineutm_campaign=MobileServices200908 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Monitorar rede
Projeto de um monitor de tráfego de rede feito em Delphi. http://delphi.about.com/od/fullcodeprojects/l/aa112903a.htm Sds. P.S.: Como eu sempre digo, quem procura acha! ;) To: delphi-br@yahoogrupos.com.br From: mora...@matrizsistemas.com.br Date: Sat, 22 Aug 2009 22:39:06 -0300 Subject: Re: [delphi-br] Monitorar rede Velhim eu fiz um codigo utilizando o winsock coloeuqie um timer e ele retrona pra mim primeiro se a rede estar atiava e depois se o ip que setei esta ativo ... da uma olhada ai n codigo Espero que ajude... Wash Moratti unit Uprincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, IniFiles, StdCtrls, Winsock, IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient; type TfPrincipal = class(TForm) Timer1: TTimer; stbar: TStatusBar; btLerConfig: TButton; lbIp: TLabel; lbCaminho: TLabel; edIp: TEdit; Ip: TLabel; btGravarIp: TButton; Label1: TLabel; procedure Timer1Timer(Sender: TObject); procedure btLerConfigClick(Sender: TObject); procedure btGravarIpClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } config : TIniFile ; ipCfg : string; function buscaIp: string; public { Public declarations } end; var fPrincipal: TfPrincipal; implementation uses UPing; {$R *.dfm} function GetLocalIP: string; type TaPInAddr = array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: array[0..63] of char; I: Integer; GInitData: TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe := GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] nil do Begin result := StrPas(inet_ntoa(pptr^[I]^)); result := StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end; procedure TfPrincipal.Timer1Timer(Sender: TObject); var IpLocal : string; begin IpLocal := GetLocalIp; // Comarando se é Servidor ou Estação if ( buscaIp = IpLocal ) or ( buscaIp = '127.0.0.1' ) then begin // Se for Servidor executa: fPrincipal.Color := clBtnFace; stbar.Panels[0].Text := 'Servidor'; stbar.Panels[1].Text := 'IP local é :' + IpLocal; end else begin // Se for estação executa: if Iplocal = '127.0.0.1' then begin // Se a Rede estiver Desativada Executa: Stbar.Panels[0].Text := 'Rede Desativada.'; stbar.Panels[1].Text := 'Servidor não encontrado !!!'; fPrincipal.Color := clInfoBk; end else begin // Se a Rede estiver Ativada Executa: Stbar.Panels[0].Text := 'Estação e seu Ip é: ' + GetLocalIP; fPrincipal.Color := clBtnFace; If Ping(buscaIp) then begin fPrincipal.Color := clBtnFace; stbar.Panels[1].Text := 'Servidor encontrado !!!'; end else begin fPrincipal.Color := clInfoBk; stbar.Panels[1].Text := 'Servidor não encontrado !!!'; end; end; end; end; procedure TfPrincipal.btLerConfigClick(Sender: TObject); begin config := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini'); try lbIp.Caption := config.ReadString('rede','ip',''); lbCaminho.Caption := config.ReadString('rede','caminho',ExtractFilePath(Application.ExeName)); finally config.Free; end; end; procedure TfPrincipal.btGravarIpClick(Sender: TObject); begin config := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini'); try config.WriteString('rede','ip',edIp.Text); finally Config.Free; end; btLerConfigClick(btLerConfig); end; procedure TfPrincipal.FormShow(Sender: TObject); begin if not FileExists(ExtractFilePath(Application.ExeName) + 'config.ini') then begin config := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini'); try config.WriteString('rede','ip',''); config.WriteString('rede','caminho',ExtractFilePath(Application.ExeName)); finally config.Free; end; end; end; function TfPrincipal.buscaIp: string; begin if FileExists(ExtractFilePath(Application.ExeName) + 'config.ini') then begin config := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'config.ini'); try result := config.ReadString('rede','ip',''); finally config.Free; end; end; end; procedure TfPrincipal.FormCreate(Sender: TObject); begin buscaIp; end; end. . _ Conheça os novos produtos Windows Live! Clique aqui. http://www.windowslive.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [OFF] Quem fez o download do OCR Delphi?
qual sugere? To: delphi-br@yahoogrupos.com.br From: mutu...@yahoo.com.br Date: Mon, 10 Aug 2009 23:27:02 -0400 Subject: Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi? avira, avast, avg.. todos sao antivirus com muitos falsos positivos.. instalem um bom antivirus.. 2009/8/10 Guionardo Furlan guiona...@gmail.com SpyBanker é o virus que o Avira detectou aqui. Nem abri o zip. 2009/8/10 OCRDelphi ocrdel...@gmail.com ocrdelphi%40gmail.com: Galera, Fiz um demo com uma rotina que abre um BMP (criptografado ou não) e passa o conteúdo desse BMP para um TEdit. O BMP contem caracteres, o OCR que desenvolvi captura e transforma em string. Estou fazendo uma nova maneira de login. O usuário digita a senha e a rotina verifica se são iguis, dessa forma, com um BMP criptografado e com OCR é quase impossível de alguém vir a decifrar a senha. Mais segurança para o programa. Deixei um demo no 4Share para vocês testarem. O link é: http://www.4shared.com/file/124008714/ab795c0f/Login_Senha_OCR.html Um membro da lista disse que estava com vírus, mas não é verdade. Faça o download do arquivo zipado e peçam para varrer o arquivo com seu anti-virus. Até no 4Shared, o próprio antivírus deles informa que não contem vírus. Eu não tenho intenção de passar vírus para ninguém. Sou programador e estou participando da lista Delphi-BR também. Agradeço a todos que testarem este programinha e venha a fazer um comentário sobre ele. ocrdel...@gmail.com ocrdelphi%40gmail.com -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://www.guionardofurlan.com.br -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] _ Conheça os novos produtos Windows Live! Clique aqui. http://www.windowslive.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Problema em abrir imagem
Meu caro, TImage não dá suporte a esse tipo de imagem. Ele tem suporte nativo somente para os formatos BMP e WMF (Window Metafile). Se olhasse o help, saberia disso. O máximo q pode ser feito no Delphi é embutir suporte adicional para que o TImage suporte imagens JPEG fazendo um uses para a unit JPeg. E só. Sugiro q vc pesquise pra saber se existe algum componente estilo TImage que permite suporte aos formatos q vc quer trabalhar no seu aplicativo. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: rodrigooj...@hotmail.com Date: Sun, 9 Aug 2009 00:08:32 + Subject: [delphi-br] Problema em abrir imagem Boa noite pessoal, estou com um probema em meu código. Tenho um botão que faz o seguinte; if OpenPictureDialog.Execute then begin ImageHolder.Picture.LoadFromFile(OpenPictureDialog.FileName); end; Mas o meu problema é que eu não estou conseguindo abrir em um Timage imagens de extensão .tif e .pcx, alguem pode me ajudar estou com uma certa urgencia . _ Deixe suas conversas mais divertidas. Baixe agora mesmo novos emoticons. É grátis! http://specials.br.msn.com/ilovemessenger/pacotes.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Dica ComboBox num String Grid
Quem procura,acha! http://www.swissdelphicenter.ch/en/showcode.php?id=406 Sds. To: delphi-br@yahoogrupos.com.br From: jose.new...@jnewton.com.br Date: Wed, 22 Jul 2009 10:09:44 -0300 Subject: [delphi-br] Dica ComboBox num String Grid Pessoal, preciso de um help Tem como colocar um Combo Box num string grid e fazer com que a célula automaticamente assuma o valor definido no combo ? Jose Newton . _ Com o Windows Live, você pode organizar, editar e compartilhar suas fotos. http://www.microsoft.com/brasil/windows/windowslive/products/photo-gallery-edit.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter double para byte
Em Object Pascal, um dado do tipo double ocupa 8 bytes. Portanto, se vc quer um valor do tipo double representado por bytes, vc vai precisar de um array de 8 bytes, e não apenas de um único byte. Veja exemplo abaixo (crie uma nova aplicação Console e depois copie, cole e execute o código a seguir): program DoubleToBytes; {$APPTYPE CONSOLE} procedure DoubleToByte(value: Double; var Result); var BufValue: double; Buffer: array[1..8] of byte absolute BufValue; begin Move(Buffer, Result, 8); end; var i: integer; Valor: Double; Resultado: array[1..8] of Byte; begin FillChar(Resultado, SizeOf(Resultado), 0); Valor := 1234.56; WriteLn(Valor:8:2); WriteLn; DoubleToByte(Valor, Resultado); for i := 1 to 8 do WriteLn(Resultado[i]); WriteLn; WriteLn(Eoln); end. Para saber mais sobre a palavra reservada absolute e a rotina FillChar(), consulte o help do Delphi. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: rodrigooj...@hotmail.com Date: Sat, 18 Jul 2009 23:13:54 + Subject: [delphi-br] Converter double para byte Alguem sabe como eu posso fazer para converter um double para byte . _ Novo Internet Explorer 8. Baixe agora, é grátis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter double para byte
Resultado errado? Sds. To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 13:57:31 -0300 Subject: Re: [delphi-br] Converter double para byte On Sat, Jul 18, 2009 at 8:13 PM, rodrigoojaparodrigooj...@hotmail.com wrote: Alguem sabe como eu posso fazer para converter um double para byte Com Round se você quiser arredondamento da parte fracionária, ou com... Trunc, acho, que ignora a parte fracionária. Vale lembrar que dependendo do valor guardado no double, você pode ter um resultado errado tal como foi colocado pelo Rubem. Joao Morais . _ Descubra todas as novidades do novo Internet Explorer 8 http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter double para byte
Mais uma coisa, se for pra fazer um typecast do trunc do valor double, vc terá o byte mais baixo. Cast direto de um double não é permitido; na hora de compilar, vai dar o erro 'invalid typecast'. Sds. To: delphi-br@yahoogrupos.com.br From: djpardalro...@hotmail.com Date: Sun, 19 Jul 2009 17:02:50 + Subject: RE: [delphi-br] Converter double para byte Resultado errado? Sds. To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 13:57:31 -0300 Subject: Re: [delphi-br] Converter double para byte On Sat, Jul 18, 2009 at 8:13 PM, rodrigoojaparodrigooj...@hotmail.com wrote: Alguem sabe como eu posso fazer para converter um double para byte Com Round se você quiser arredondamento da parte fracionária, ou com... Trunc, acho, que ignora a parte fracionária. Vale lembrar que dependendo do valor guardado no double, você pode ter um resultado errado tal como foi colocado pelo Rubem. Joao Morais . __ Descubra todas as novidades do novo Internet Explorer 8 http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas] _ Descubra todas as novidades do novo Internet Explorer 8 http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter double para byte
Ok, não disse pq seria um Resultado Errado, mas tudo bem! Vou recolher-me a minha 'insignificância'! Sds. To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 16:43:02 -0300 Subject: Re: [delphi-br] Converter double para byte 2009/7/19 Rubem Nascimento da Rocha djpardalro...@hotmail.com: 2009/7/19 Joao Morais jcmorai...@gmail.com: On Sat, Jul 18, 2009 at 8:13 PM, rodrigoojaparodrigooj...@hotmail.com wrote: Alguem sabe como eu posso fazer para converter um double para byte Com Round se você quiser arredondamento da parte fracionária, ou com... Trunc, acho, que ignora a parte fracionária. Vale lembrar que dependendo do valor guardado no double, você pode ter um resultado errado tal como foi colocado pelo Rubem. Resultado errado? Sim. Mais uma coisa, se for pra fazer um typecast do trunc do valor double, vc terá o byte mais baixo. Cast direto de um double não é permitido; na hora de compilar, vai dar o erro 'invalid typecast'. Não estou falando de typecast, nem faz muito sentido cast entre tipos primitivos. Eu estou falando de: var a: double; b: byte; begin a := 1000; b := trunc(a); writeln(b); end. Joao Morais . _ Com o Windows Live, você pode organizar, editar e compartilhar suas fotos. http://www.microsoft.com/brasil/windows/windowslive/products/photo-gallery-edit.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter double para byte
Por um momento, estava imaginando que meus comentários estavam sendo retaliados. A colocação 'Resultado Errado' havia me dado a impressão de que meu comentário inicial estava errado. Deixa quieto. Sds. To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 18:09:27 -0300 Subject: Re: [delphi-br] Converter double para byte 2009/7/19 Rubem Nascimento da Rocha djpardalro...@hotmail.com: Ok, não disse pq seria um Resultado Errado, mas tudo bem! Vou recolher-me a minha 'insignificância'! Rubem, é errado porque não é certo. Você entra 1000 de um lado e sai 232 do outro porque byte não suporta 1000. Joao Morais To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 16:43:02 -0300 Subject: Re: [delphi-br] Converter double para byte 2009/7/19 Rubem Nascimento da Rocha djpardalro...@hotmail.com: 2009/7/19 Joao Morais jcmorai...@gmail.com: On Sat, Jul 18, 2009 at 8:13 PM, rodrigoojaparodrigooj...@hotmail.com wrote: Alguem sabe como eu posso fazer para converter um double para byte Com Round se você quiser arredondamento da parte fracionária, ou com... Trunc, acho, que ignora a parte fracionária. Vale lembrar que dependendo do valor guardado no double, você pode ter um resultado errado tal como foi colocado pelo Rubem. Resultado errado? Sim. Mais uma coisa, se for pra fazer um typecast do trunc do valor double, vc terá o byte mais baixo. Cast direto de um double não é permitido; na hora de compilar, vai dar o erro 'invalid typecast'. Não estou falando de typecast, nem faz muito sentido cast entre tipos primitivos. Eu estou falando de: var a: double; b: byte; begin a := 1000; b := trunc(a); writeln(b); end. Joao Morais . __ Com o Windows Live, você pode organizar, editar e compartilhar suas fotos. http://www.microsoft.com/brasil/windows/windowslive/products/photo-gallery-edit.aspx [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM _ Compartilhe os momentos mais importantes da sua vida. http://www.microsoft.com/brasil/windows/windowslive/products/photos-share.aspx?tab=1 [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter double para byte
Tá vendo? Se os governantes tivessem o seu bom senso e, principalmente, diálogo, teríamos um mundo melhor para todos vivermos. Estamos entendidos sim, João. Sem grilo. Sds. :) Sds. To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 18:21:16 -0300 Subject: Re: [delphi-br] Converter double para byte 2009/7/19 Rubem Nascimento da Rocha djpardalro...@hotmail.com: Por um momento, estava imaginando que meus comentários estavam sendo retaliados. A colocação 'Resultado Errado' havia me dado a impressão de que meu comentário inicial estava errado. Deixa quieto. Cara, entendi. Eu sou uma anta mesmo, não expliquei direito. Eu quis te dar um crédito, pois antes de mim foi você quem falou que um não suporta o outro por causa das respectivas capacidades. E btw eu não sou de ficar retaliando pelas beiradas. Se na minha opinião você estiver errado, eu vou responder para você com o que eu acho que é certo. Acho que agora estamos entendidos. Joao Morais Sds. To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 18:09:27 -0300 Subject: Re: [delphi-br] Converter double para byte 2009/7/19 Rubem Nascimento da Rocha djpardalro...@hotmail.com: Ok, não disse pq seria um Resultado Errado, mas tudo bem! Vou recolher-me a minha 'insignificância'! Rubem, é errado porque não é certo. Você entra 1000 de um lado e sai 232 do outro porque byte não suporta 1000. Joao Morais To: delphi-br@yahoogrupos.com.br From: jcmorai...@gmail.com Date: Sun, 19 Jul 2009 16:43:02 -0300 Subject: Re: [delphi-br] Converter double para byte 2009/7/19 Rubem Nascimento da Rocha djpardalro...@hotmail.com: 2009/7/19 Joao Morais jcmorai...@gmail.com: On Sat, Jul 18, 2009 at 8:13 PM, rodrigoojaparodrigooj...@hotmail.com wrote: Alguem sabe como eu posso fazer para converter um double para byte Com Round se você quiser arredondamento da parte fracionária, ou com... Trunc, acho, que ignora a parte fracionária. Vale lembrar que dependendo do valor guardado no double, você pode ter um resultado errado tal como foi colocado pelo Rubem. Resultado errado? Sim. Mais uma coisa, se for pra fazer um typecast do trunc do valor double, vc terá o byte mais baixo. Cast direto de um double não é permitido; na hora de compilar, vai dar o erro 'invalid typecast'. Não estou falando de typecast, nem faz muito sentido cast entre tipos primitivos. Eu estou falando de: var a: double; b: byte; begin a := 1000; b := trunc(a); writeln(b); end. Joao Morais . __ Com o Windows Live, você pode organizar, editar e compartilhar suas fotos. http://www.microsoft.com/brasil/windows/windowslive/products/photo-gallery-edit.aspx [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Compartilhe os momentos mais importantes da sua vida. http://www.microsoft.com/brasil/windows/windowslive/products/photos-share.aspx?tab=1 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM . _ Descubra todas as novidades do novo Internet Explorer 8 http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas]