Ir para conteúdo
Fórum Script Brasil

danielrgoes

Membros
  • Total de itens

    295
  • Registro em

  • Última visita

Posts postados por danielrgoes

  1. 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

  2. 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

  3. 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

  4. 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?

  5. 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

  6. 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 ?

  7. 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?

  8. 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 ?????

  9. 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

×
×
  • Criar Novo...