Delphi7中使用Indy9的IdSmtp发送email时subject过长会出现乱码的解决办法

procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'
 
 
 
  
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'\0d\0a'重复了，
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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文件，复制到工程文件夹中，然后做如上修改。
 
  
  

d
 
 
 
  
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'\0d\0a'重复了，
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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文件，复制到工程文件夹中，然后做如上修改。
 
  
  

a'重复了，
  ////          即'
 
 
 
  
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'\0d\0a'重复了，
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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文件，复制到工程文件夹中，然后做如上修改。
 
  
  

d
 
 
 
  
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'\0d\0a'重复了，
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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文件，复制到工程文件夹中，然后做如上修改。
 
  
  

a
 
 
 
  
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'\0d\0a'重复了，
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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文件，复制到工程文件夹中，然后做如上修改。
 
  
  

d
 
 
 
  
procedure TIdMessageClient.SendHeader(AMsg: TIdMessage);
var
  LHeaders: TIdHeaderList;
begin
  LHeaders := AMsg.GenerateHeader;
  //// -- 这里是一处bug，将导致含有中文字的header长度超过45即被截断，且影响正文中附件的解读
  ////    详见：https://bbs.csdn.net/topics/50353103 
  ////          主题第二行不解码的原因是：TIdMessage用Base64编码生成主题时，回车换行符'\0d\0a'重复了，
  ////          即'\0d\0a\0d\0a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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文件，复制到工程文件夹中，然后做如上修改。
 
  
  

a'。只要去掉1个就能够正常显示了。
  ////    另外，这里有另一个解决方案 https://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;
procedure TIdMessageClient.SendHeader(AMsg: