Progr'amador

Como assim? Mais abriu o outlook, como o arquivo anexado e tudo mais? Qual é a versão do seu delphi?

Olá Alexandre. Ai vai um exemplo bem bacana que eu montei. enviar e-mail para o outlook qualquer dúvida posta ae falow!!! Abs.

Olá Alexandre. Tenta isso: Declare a unit MAPI na cláusula uses function TForm1.EnviarEmailPadrao(const De, Para, Assunto, Texto, Arquivo: string; Confirma: Boolean): Integer; var Msg: TMapiMessage; lpSender, lpRecepient: TMapiRecipDesc; FileAttach: TMapiFileDesc; SM: TFNMapiSendMail; MAPIModule: HModule; Flags: Cardinal; begin // cria propriedades da mensagem FillChar(Msg, SizeOf(Msg), 0); with Msg do begin if (Assunto <> '') then lpszSubject := PChar(Assunto); if (Texto <> '') then lpszNoteText := PChar(Texto); // remetente if (De <> '') then begin lpSender.ulRecipClass := MAPI_ORIG; lpSender.lpszName := PChar(De); lpSender.lpszAddress := PChar(De); lpSender.ulReserved := 0; lpSender.ulEIDSize := 0; lpSender.lpEntryID := nil; lpOriginator := @lpSender; end; // destinatário if (Para <> '') then begin lpRecepient.ulRecipClass := MAPI_TO; lpRecepient.lpszName := PChar(Para); lpRecepient.lpszAddress := PChar(Para); lpRecepient.ulReserved := 0; lpRecepient.ulEIDSize := 0; lpRecepient.lpEntryID := nil; nRecipCount := 1; lpRecips := @lpRecepient; end else lpRecips := nil; // arquivo anexo if (Arquivo = '') then begin nFileCount := 0; lpFiles := nil; end else begin FillChar(FileAttach, SizeOf(FileAttach), 0); FileAttach.nPosition := Cardinal($FFFFFFFF); FileAttach.lpszPathName := PChar(Arquivo); nFileCount := 1; lpFiles := @FileAttach; end; end; // carrega dll e o método para envio do email MAPIModule := LoadLibrary(PChar(MAPIDLL)); if MAPIModule = 0 then Result := -1 else try if Confirma then Flags := MAPI_DIALOG or MAPI_LOGON_UI else Flags := 0; @SM := GetProcAddress(MAPIModule, 'MAPISendMail'); if @SM <> nil then Result := SM(0, Application.Handle, Msg, Flags, 0) else Result := 1; finally FreeLibrary(MAPIModule); end; end; E num button por exemplo: EnviarEmailPadrao(remetente, destinatário,assunto,corpo_da_mensagem,arquivo_anexo,false); Qualquer dúvida, posta ae, falou!!! Abs.

HeHeHe!!! eu fico de prontidão

Olá Thiago basta usar o 'Enabled := False' nesses componentes. Abs.

Olá! porque você num tira esse campo do insert, assim: Query1.SQL.Clear; Query1.SQL.Add(' insert into teste(obs) values(:pobs) '); Query1.ParamByName('pobs' ).AsString := 'teste'; Query1.ExecSQL; Abs.

Olá Gustavo! poderia postar aki o código que você está usando pra fazer essa consulta. Abs.

Explicando: Abs.

Olá! aki tem uma dica, procure este post: Como usar o Install Shield Abs.

Era tudo que nos queriamos, só isso! Parabéns Jissa.

Olá Ewerton. esses numeros é do seu projeto original, como o s3c postou Explicando: as const's tem as dimensões do seu pojeto original e o programa usa o if pra verificar e o valor da const é diferente das dimensões da tela onde esta sendo aberto if Screen.Width <> scrWidth then se for diferente o form é redimencionado de acordo com as dimensões atual. Height := Height * Screen.Height div scrHeight; Width := Width * Screen.Width div scrWidth; ScaleBy(Screen.Width, scrWidth); Abs.

Olá ruffles. Qual a versão do seu delphi? Seu delphi tem o ADO? Se tiver você pode usar ele, só ainda num sei como fazer essa conecção, mas, posso da uma pesquisada, e a galera aki do forum te da uma ajuda. Abs.

Nem tanto Arlon! De qualquer forma, foi um prazer ajudar cara, espero continuar ajudando a galera aki do forum. Abs. Program-amador ---

Bom, num foi dessa forma que tava pensando Arlon. vamos supor que no seu relatório sera exibido esses campos da tabela: CODIGO | DESCRICAO | QUANTIDADE | VALOR você só irá usar um QRLabel pra cada campo: QRLabel1 | QRLabel2 | QRLabel3 | QRLabel4 esses QRLabels, deverar ficar dentro de um QRBand -->> BandType: rbDetail com isso os mesmo QRLabels vão receber os valores dos campos da tabela, linha a linha: --------- --------- --------- --------- e não haverar problemas com as páginas seguintes. Não sei se você me entendeu. posta ae falow!!! Abs.

Olá felippe, Encontrei um programa pra atualizar o QR, não sei se vai resolver seu problema, mas não custa tentar. FWL!!! http://geocities.yahoo.com.br/pgdelphi/qr305pd4.zip Não foi esse que eu tinha visto no outra vez, mas vou continuar procurando ele. Por enquanto tenta esse ae. Ok!!! Abs.

Olá SIN, Você já tentou dar um Close e um Open no Adoquery antes de abrir o relatório? Abs.

Olá jeancainelli. Tenho um exemplo aki que altera o icone do Form. Nesse exemplo usei dois buttons e um ImageList. Adicionei no ImageList dois Icones e no dos buttons esse código: procedure TForm1.BtnDesativaClick(Sender: TObject); begin Form1.Icon := nil; ImageList1.GetIcon(1,Form1.Icon); end; procedure TForm1.BtnAtivaClick(Sender: TObject); begin Form1.Icon := nil; ImageList1.GetIcon(0,Form1.Icon); end; Deve funcionar pro seu caso tambem. Abs.

Não Arlon! Nesse caso seria o Value mesmo. Ok!

Olá felipe, Vou procurar esse site , ok! e vou da uma olhado nesse exemplo que você passou. Obrigado por essas palavras, mas quero te dizer não só eu, mas todos os que frequentam esse forum, fazem isso por prazer mesmo. Só que seria bom que você se cadastrasse, assim ficaria mas fácil pra ujudá-lo. Abs.

Olá felipe, você usa qual Windows? isso eu posso te dizer com toda certeza: o Problema é de conflito do Delphi4 x WinXP. Isso geralmente acontece: de acordo com o numero de registros que sera visualizado; com o números de componentes usado no QR; e acontece muito, quando se usa QRImagem, QRDBImagem, entre outros. Outra coisa isso acontece so na visualização, se você for imprimir sem visualizar, imprime beleza. E acontece tambem com o D3, pelo menos foi onde eu vi esse erro, D3 e D4, sei que do D6 em diante isso não acontece. Eu vi num site (não me lemblo qual , mas vou procurar ) uma atualização do QR para esse Bug. Só achei isso depois muito sofrimento, e depois de ter voltado pro Win98, por isso não dei muita atenção. Abs.

Olá Arlon! bez ae? Pensei numa forma de fazer isso e acredito que seja possível sim. Pra isso sua tabela teria que ter um campo pra informa quais itens já foram impresso, tipo assim, um campo com um nome "IMPRESSO" por exemplo, ae usaria uma query e toda vez que que voce imprimisse o relatório dava um Update nos itens impressos, preenchendo esse campo(IMPRESSO) com um valor "S" (Sim) por exemplo. com relação e sua outra pergunta: Dadia pra fazer isso se você usar QRLabel em vez de usar os QRDBEdit's. usando os QRLabel's pra receber os valores dos campos da tabela. Ex: no Evento OnPrint do QRLabel coloca tipo assim: if QueryItens.FieldByName('Impresso').AsString = 'S' Then Value := '' else Value := QueryItens.FieldByName('codigo').AsString; e isso você usa em todos QRLabel's mudando só o campo da tabela tipo assim: Paresse ser meio maluca essa ideia mas funciona. Eu uso muito o QRLabel na minhas aplicações. Se você se interessar por essa ideia maluca posta ae, falou!!! Abs.

Isso mesmo Arlon! Estou pasmo! quão pequeno sou, pelo que sei, digo que não sei. É isso ae Capablanca! Acredito que esse tópico abriu o orizonte de muita gente aki. Abs.

Poxa cara e agora que eu vi voce usa o delphi4, e esse componente é pro 3 , De qualquer forma passa ae vou dar uma olhada ok!, meu e-mail: elienaicm@ig.com.br ------------- Outra coisa Felipe, você poderia se cadastrar, já que voce ta sempre por aki. Abs.

É isso ai Marcos! Autoresolvido. Fechando...

Olá felipe. Esse código eu num cheguei a fazer o teste não, mas achei um componente que deu certo aqui, me passa o seu e-mail que eu te passo esse componente. Ok! você tem MSN?, poderia te passar via MSN seria mais prático. Abs.