Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Tetzner

Tamanho do TIdAttachment no Indy9

Question

Pessoal,

Eu estou montando um programinha de email, mas as vezes o anexo do email vem nulo e as vezes funciona.

Queria saber como verificar o tamanho do anexo no email antes de enviar?

só assim para eu poder identificar quando for nulo o que é que está causando o erro.

Alguém sabe me dizer como vejo o tamanho do arquivo anexado na mensagem ( TIdAttachment ) ?

Edited by Tetzner

Share this post


Link to post
Share on other sites

9 answers to this question

Recommended Posts

  • 0
Alguém sabe me dizer como vejo o tamanho do arquivo anexado na mensagem ( TIdAttachment ) ?

Dica de Christian

function TamanhoArquivo(Arquivo: string): Integer; 
begin 

   try 

       Result := 0; 
       with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do begin 
          try 
            Result := Size; 
          finally 
            Free; 
          end; 
       end; 

   except end; 

end;
// *********** Anexando Arquivos ****************** // 

    tam := 0;  ProgressBar1.Position := 0; 

    if (ListBox1.Items.Count > 0) then 
     for i := 0 to ListBox1.Count - 1 do begin 
       TIdAttachment.Create(idMsgSend.MessageParts, ListBox1.Items.Strings[i]); 
       tam := tam + TamanhoArquivo(ListBox1.Items.Strings[i]); 
     end; 
    ProgressBar1.Max := tam;

E no Evento OnWork do TidSMTP você coloca esse código:

Código:

ProgressBar1.Position := AWorkCount;

OBS: voce pode testar a variavel tam .. se for 0 o arquivo esta vazio.

abraço

Share this post


Link to post
Share on other sites
  • 0

acho que esqueci de citar que é o tamanho do anexo e não do arquivo fonte.

seria alguma propriedade ou método do TIdAttachment ??

TIdAttachment.size(idMsgSend.MessageParts) ??

Share this post


Link to post
Share on other sites
  • 0

acho que esqueci de citar que é o tamanho do anexo e não do arquivo fonte.

a sua pergunta

Alguém sabe me dizer como vejo o tamanho do arquivo anexado na mensagem ( TIdAttachment ) ?

acho que é isso que voce quer.... é só expirementar e ver o que acontece.

abraço

Share this post


Link to post
Share on other sites
  • 0

Jhonas,

acho que seu CTRL+C CTRL+V falhou na resposta ...

veja acima, não saiu a resposta a:

"

acho que esqueci de citar que é o tamanho do anexo e não do arquivo fonte.

seria alguma propriedade ou método do TIdAttachment ??

TIdAttachment.size(idMsgSend.MessageParts) ??

"

Share this post


Link to post
Share on other sites
  • 0
acho que esqueci de citar que é o tamanho do anexo e não do arquivo fonte.

TIdAttachment.size(idMsgSend.MessageParts)

Lista de partes de mensagem para a mensagem.

propriedade MessageParts: TIdMessageParts;

Descrição

MessageParts é um TIdMessagePartsList usado para armazenar os componentes de TIdMessagePart que compõem a mensagem. MessageParts pode conter dois descendentes de TIdMessagePart: TIdText e TIdAttachment.

MessageParts é usado quando IsEncoded é fixado para True (em enviar), ou NoDecode é fixado para falso para receber.

O que eu quis dizer é: use o codigo e modifique-o para o seu uso... ai voce vai conseguir fazer o que esta querendo

abraço

Share this post


Link to post
Share on other sites
  • 0

pensei que fosse do Indy ( eu uso o 9 )

poderia fazer um teste e postar o fonte?

só quero saber o tamanho do anexo ( não do arquivo original, mas depois que anexado, qual o tamanho dele )

Share this post


Link to post
Share on other sites
  • 0
pensei que fosse do Indy ( eu uso o 9 )

e é ... me expressei errado .. é porque eu uso o delphi 7 e este componente ( Indy 9 ) esta instalado nele.

vou dar uma pesquisada, e depois posto .... enquanto isto se alguém tiver outra sugestão...

abraço

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148602
    • Total Posts
      644295
×
×
  • Create New...