用控件如何发送邮件中的附件

Question

我用的是TIdSMTP 和 TIdMessage,不用哪个控件中的方法来发送邮件中的附件?
我在线等

Answer 1

存入：
TBlobField(Table.FieldByName('tp')).LoadFromFile（文件路径）；
取出
TBlobField(Table.FieldByName('tp')).SaveToFile（文件路径）；

Answer 2

if OpenDialog1.Execute then
  begin
    TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);
    ResetAttachmentListView;
  end;

Answer 3

if OpenDialog1.Execute then
  begin
    TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName); //附件   
  end;