再问关于邮件附件的问题

Question

我是这样接收附件的，代码如下：
if msg.MessageParts.Items[j] is  TIdAttachment then
  begin
     filename:=tidattachment(msg.MessageParts.Items[j]).FileName;           　　　TIdAttachment(msg.MessageParts.Items[j]).SaveToFile(path+filename);
 end;
当附件全是英文时没有问题，当附件名称是中文时就没有办法收取附件，比如邮件里个附件叫：新增文字文件.txt,程序收取时会有如下信息：
filename:==?gb2312?b?zsAq0McqtecqytM=?=;
ContentTransfer:=quoted-printable
pchar:=gb2312;请问如何把filename=新增文字文件.txt

Answer 1

=?gb2312?b?zsAq0McqtecqytM=?= 可以用?做分割拆成5部分。前面和后面的两个等号可以去掉，其它3部分，gb2312表明标题采用的地区码，b表示编码方式使base64，zsAq0McqtecqytM就是编码后的内容，通过indy的base64decode解码就可以了。