procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
LHeaders: TIdHeaderList;
begin
LHeaders := AMsg.GenerateHeader;
-- 这里是一处bug,将导致含有中文字的header长度超过45即被截断,且影响正文中附件的解读
详见:http://bbs.csdn.net/topics/50353103
主题第二行不解码的原因是:TIdMessage用Base64编码生成主题时,回车换行符'\0d\0a'重复了,
即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
另外,这里有另一个解决方案 http://delphi.ktop.com.tw/board.php?cid=30&fid=67&tid=33928
...
此处是我的第三种解决方案 Anjo, 2013.9.30
LHeaders.Text := StringReplace(LHeaders.Text, #13#10#13#10, #13#10, [rfReplaceAll]);
try
WriteStrings(LHeaders);
finally
FreeAndNil(LHeaders);
end;
end;
找到IdMessageClient.pas文件,复制到工程文件夹中,然后做如上修改。