danielrgoes

Prezados, gostaria de uma ajuda Eu tenho um programa que pega informações do Firebird e cria contatos no outlook e esta funcionando perfeitamente, porem surgiu a necessidade de criar Grupo de Contatos alguém saberia como faço isso ? ou teria algum exemplo para me ajudar ? Grato

Deu certo cara Obrigado

então Jhonas Eu fiz isso mais quando eu dou um select para usar em outra operacao CDS.close; sql.SQL.clear; sql.SQL.Add('SELECT * FROM TABELA'); cds.Open(); ele fala que esse campo que eu criei não existe porque ele não esta criado na tabela

então Jhonas Tipo esse campo "TIPO" não vou usar porque já estou guardando o status no campo "STATUS" Eu so quero que apareça aberto, fechado etc ... no Grid E como eu criaria um campo virtual pra isso? sem criar no BD ?

Entendi sim Mais não teria como criar um campo "virtual" teria que criar na tabela do Banco de dados mesmo ?

então, Mais tipo essa NOVA_COLUNA é que tipo porque eu não tenho criada no banco Eu criei no CDS como Type = Data Quando eu dou um select CDS.close; sql.SQL.clear; sql.SQL.Add('SELECT * FROM TABELA'); cds.Open(); fala que a NOVA_COLUNA não existe

Prezados Eu tenho um campo no banco que salva Status como 0,1,2,3 e assim por diante Gostaria de saber como eu faço para criar uma coluna nova no DBGrid para não aparecer 0,1,23 .... e sim Aberto , Fechado, Aguardando Depende do status 1 - Aberto 2 - Aguardando 3 - Fechado Grato

Pessoal Eu sei que esse forum não é de FireBird porem o pessoal daqui ajuda muito nas duvidas com ele Vamos la, eu tenho um BD em Firebird 1.5 com o usuario SYSDBA e a senha 123456 Na verdade a senha esta na instalação não é? ? se eu copiar esse BD pra outra maquina instalar o FB 1.5 com a senha mastekey quando eu conectar com o BD vai conectar Eu gostaria de colocar senha no BD em si se uma pessoa tentar copiar e acessa-lo não vai conseguir

alguém consegue me ajudar?

Prezados Em aplicativos VCL eu crio um frame e existe o comonnete TFrame para add o frame em outra tela como eu faço isso em Intraweb sendo que não existe o IWFrame Eu vou lá New -> Other -> New Frame e crio cretinho mais como chamar ele em outra tela?

Prezados Como não consegui resolver usando a propriedade do SQLConnection assim igual eu usava no 2007: ConectionName: IBConnection Driver: InterBase Server Pesquisei na internet e mudei para: ConectionName: FBConnection Driver: Firebird Assim conecta no banco porem quando vou add o Fields da o erro Acess violation at address 50B0DA6F in module 'dsnap200.bpl' Ate fiz um video para explicar melhor e ver se alguém me ajuda https://www.dropbox.com/s/aljpzbsk1n3t7go/Videoclip1.avi

Jhonas Isso eu já tentei E mesmo assim não deu certo, acontece o mesmo erro

Prezado Já tentei de td e não consigo resolver o meu problema Eu usava o Delphi 2007 com o BD Firebird 1.5 e os componentes SQLConnection o SQlQuery / CDS /DSP /DS Perfeito tinha varios programas desenvolvidos Ai migrei para o Delphi XE6 e não consigo conectar no BD da o erro abaixo DBX Error: Driver could not be properly initialized. Client library may be missing, not installed properly, of the wrong version, or the driver may be missing from the system path. Já pesquisei e o pessoal fala pra copiar a DLL fbclient.dll no System32 e no SYSWoN Já fiz isso e nada não sei mais o que fazer como posso resolver

Jhonas mais como dar esse comando no Inno ?

é pelo proprio programa ou seja Eu miniminizo o programa e depois quando abro uma janela do windows envoca o programa

Pessoal Eu tenho esse problema com todos os programas que eu faço Fiz um form e coloquei um TBitBtn e no On clique coloquei um Showmodal para outro form basico quando eu estou com as duas telas abertas se eu vou para a area de trabalho Win + D o programa minimimiza certo. Porem quando ou apro qualquer outro program ou memos outra pasta do windows ele envoca o programa novamente tem como tirar isso?

obrigado pela resposta vou procurar outro componente

Pessoal, Eu sei que esse forum não é de INNO porem muita gente que desenvolve em delphi utiliza o INNO Setup então as vezes alguém pode me ajudar Eu utlizo o comando par registrar DLL Source: "arquivo.dll"; DestDir: "{sys}"; CopyMode: alwaysoverwrite; Flags: restartreplace sharedfile regserver Gostaria de saber como faço para desregistrar uma DLL

Pessoal Já procurei e não achei em nenhum lugar Como eu faço para mudar a posição do dia no TCalendar, ele fica sempre no centro da celula do dia e eu queria que o numero ficasse no canto superior direito É assim _____________ | | | | | 2 | | | | ___________ | Queria deixar assim _____________ | 2 | | | | | | | | ___________ |

Prezados Sei que esse forum não é de FireBird porem é o que mais me ajuda ate mesmo no FB e gostaria de uma ajuda Eu uso o Delphi 2007 com o FB 1.5 e tenho uma tabela com as datas assim: 23/10/2013 20/05/2013 01/02/2013 06/08/2013 20/11/2013 . . e assim por diante Eu queria dar um selec que me retornase a data mais 10 dias for maior que a data de hoje Ex.: 23/10/2013 + 10 dias = 02/11/2013 hioje é dia 21/11/2013 então 02/11/2013 > 21/11/2013 não é então não retorna já o dia 20/11/2013 iria retonar. Como fazer esse select ?

Prezados eu uso o codigo abaixo para imprimir na zebra: vetq.Add('^FT41,496^A0N,107,108^FH\^FD[NR_PEDIDO] \FA[sEQ] \FA[QUANT_ITEM]^FS'); vetq.Add('^FT371,80^ACN,18,10^FH\^FDEBARA IND. MEC. E COMERCIO LTDA^FS'); vetq.Add('^FT371,98^ACN,18,10^FH\^FDR.Joaquim Marques Figueiredo 2-31 ^FS'); vetq.Add('^FT371,116^ACN,18,10^FH\^FDBauru - SP D.Industrial^FS'); vetq.Add('^FT371,134^ACN,18,10^FH\^FDCEP 17034-290 - (14)4009-0000^FS'); // vetq.Add('^FO42,182^GB729,0,1^FS'); vetq.Add('^FT,337^A0N,34,33^FH\^FD[DESCRICAO2]^FS'); vetq.Add('^FT60,286^A0N,34,33^FH\^FD[DESCRICAO]^FS'); vetq.Add('^FT59,234^A0N,34,33^FH\^FD[CLIENTE]^FS'); Ai eu gero um ETIQUETA.TXT e mando na impressora. Mais como podem notar os valores variam conforme os valorem que vem do BD: vetq.Add('^FT,337^A0N,34,33^FH\^FD[DESCRICAO2]^FS'); vetq.Add('^FT60,286^A0N,34,33^FH\^FD[DESCRICAO]^FS'); vetq.Add('^FT59,234^A0N,34,33^FH\^FD[CLIENTE]^FS'); Agora estou com um problema, preciso imprimir o mesmo valor em codigo de barras Code128, mas eu não posso jogar o escrito direto na impressora pois o numero 1 por exemplo em codigo de barras é: ,::::::::::::::::::::::::::H01A4273672C7580:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::,::N020,N060,M01E0,M03E0,M0260,N060,::::::,:::::::::::::::::::::::::^XA Como posso fazer nesse caso?

Pessoal Eu estou usando a propriedade Anchors do DBGrid para alinhar ele conforme maximiniza a tela Ele ate maximiniza junto mais as colunas não Como faço isso ???

Cara faz assim Joga o que ta escrito no memo em uma string percorre ela ate encontrar ; e vai salvando e um listbox ai depois você percorre o listbox e vai fechando assim PostMessage(FindWindow(nil, 'titulo da janela'), WM_CLOSE, 0,0);

Pessoal de tanto procurar achei A dica do Jhonas foi muito boa mais o pessoal geralmente procura por enviar email e eu precisava receber somente os anexos Segue o codigo que une o idPOP3 com o idMessage IdPOP31.Retrieve(1,IdMessage1); Porem tenho mais uma duvida alguém sabe como pegar o Remetente de um email ?????

Pessoal eu estou fazendo um programa para pegar os anexos de um email e salvar em uma pasta Achei esse codigo na internet: Estou utilizando delphi 2007 com o componnte INDY.. (TidMessage, TIDPOP3) Código : for j := 0 to pred(msgxml.MessageParts.Count) do begin if (msgxml.MessageParts.Items[j] is TIdAttachment) then begin xml := TIdAttachment(msgxml.MessageParts.Items[j]).FileName; tmp := foldertmp + '\' + xml; if lowercase(ExtractFileExt(tmp)) = '.xml' then TIdAttachment(msgxml.MessageParts.Items[j]).SaveToFile(tmp); end; end; Porem como faço para o Idmessager conectar no email ???? Se alguém tiver um codigo melhor eu agradeço