彻底解决delphi Indy10接收邮件汉字显示乱码的问题

使用indy组件接收邮件时，遇到汉字大多显示为乱码，网上很多询问同类型的问题。这几天做一个邮件客户端的小项目，研究了一下Indy10的代码，发现有办法根本解决这个问题，感觉牵涉的知识点挺多的，在这里讲解一下，给需要解决此问题的朋友参考。

1。 计算机系统中码字表示方法

    我们经常熟悉的码字表示有多种方式:ASCII, Unicode, UTF8, UTF16,...,汉字的包括GB2312, GBK, UTF8, BIG5, Unicode等。

    程序开发人员要明确的是网络传输的是字节流，和码字没关系。

2。Indy对邮件码字的解析

    Indy接收到字节流后会按照邮件传输的协议(应该是RTF 822吧，记不清楚了)解析字节流。当发现需要按照特定的码字解释字节流时，使用TIdTextEncoding进行编码。这个TIdTextEncoding使用协议中CharSet对应的CodePage进行创建, Indy内部有一张CodePage表，CodePage表说白了就是字节流中每一个字节或几个字节应该翻译成什么字符。如果你的操作系统支持这种CodePage的话，在Indy内部应该能看到可读的文字了，也许是汉字，也许是英文字符。

3。问题出现

   在经过上一步后，Indy并不知道当前系统使用什么样的CodePage,也没有从系统中查找当前使用的CodePage,在转换到目的编码(本机系统编码)时使用了ADestEncoding = nil 作为目标编码,缺省使用ASCII,自然问题就来了，显示出来一堆一堆的'?',这个时候再用别的方式转换也就没用了，比如WideCharToMultiBytes, MultiBytesToWideChar统统失效。

4。解决问题

    经过跟踪Retrieve函数（我只处理了Body部分，其他部分应该可以同样处理），发现在处理Text的时候，有一个函数ReadStringsAsContentType，声明如下：

procedure ReadStringsAsContentType(AStream: TStream; AStrings: TStrings;
  const AContentType: String; AQuoteType: TIdHeaderQuotingType
  {$IFDEF STRING_IS_ANSI}; ADestEncoding: TIdTextEncoding = nil{$ENDIF}

其中:AStream是网络流；AStrings是文本保存变量；AContentType是邮件内容说明，包含ContentType和CharSet；AQuoteType是MIME, ADestEncoding是目标编码。

对应上面讲解的知识，可以发现AContentType决定了网络流中的编码，或则说是发信方指定的编码。ADestEncoding是接收方指定编码。Indy把这个ADestEncoding缺省设定为nil了。

对于Body得部分，ProcessTextPart中调用了ReadStringsAsContentType，修改如下(黑色部分)：

{Only set AUseBodyAsTarget to True if you want the input stream stored in TIdMessage.Body
  instead of TIdText.Body: this happens with some single-part messages.}
  procedure ProcessTextPart(var VDecoder: TIdMessageDecoder; AUseBodyAsTarget: Boolean);
  var
    LMStream: TMemoryStream;
    i, cp: integer;
    LTxt : TIdText;
    LHdrs: TStrings;
    LNewDecoder: TIdMessageDecoder;
    {$IFDEF STRING_IS_ANSI}
    LDestEncoding: TIdTextEncoding;
    {$ENDIF}
  begin
    LMStream := TMemoryStream.Create;
    try
      LParentPart := AMsg.MIMEBoundary.ParentPart;
      LNewDecoder := VDecoder.ReadBody(LMStream, LMsgEnd);
      try
        LMStream.Position := 0;
        if AUseBodyAsTarget then begin
          if AMsg.IsMsgSinglePartMime then begin
            ReadStringsAsCharSet(LMStream, AMsg.Body, AMsg.CharSet);
          end else begin
            ReadStringsAsContentType(LMStream, AMsg.Body, VDecoder.Headers.Values[SContentType], QuoteMIME);
          end;
        end else begin
          if AMsg.IsMsgSinglePartMime then begin
            LHdrs := AMsg.Headers;
          end else begin
            LHdrs := VDecoder.Headers;
          end;
          LTxt := TIdText.Create(AMsg.MessageParts);
          try
          {$IFDEF STRING_IS_ANSI}
            cp := GetOEMCP;
            LDestEncoding := TIdTextEncoding.GetEncoding(cp);
            ReadStringsAsContentType(LMStream, LTxt.Body, LHdrs.Values[SContentType], QuoteMIME, LDestEncoding);
          {$ELSE}
            ReadStringsAsContentType(LMStream, LTxt.Body, LHdrs.Values[SContentType], QuoteMIME);
          {$ENDIF}
            RemoveLastBlankLine(LTxt.Body);
            LTxt.ContentType := LTxt.ResolveContentType(LHdrs.Values[SContentType]);
            LTxt.CharSet := LTxt.GetCharSet(LHdrs.Values[SContentType]);       {do not localize}
            LTxt.ContentTransfer := LHdrs.Values[SContentTransferEncoding];    {do not localize}
            LTxt.ContentID := LHdrs.Values['Content-ID'];  {do not localize}
            LTxt.ContentLocation := LHdrs.Values['Content-Location'];  {do not localize}
            LTxt.ContentDescription := LHdrs.Values['Content-Description'];  {do not localize}
            LTxt.ContentDisposition := LHdrs.Values['Content-Disposition'];  {do not localize}
            if not AMsg.IsMsgSinglePartMime then begin
              LTxt.ExtraHeaders.NameValueSeparator := '='; {do not localize}
              for i := 0 to LHdrs.Count-1 do begin
                if LTxt.Headers.IndexOfName(LHdrs.Names[i]) < 0 then begin
                  LTxt.ExtraHeaders.Add(LHdrs.Strings[i]);
                end;
              end;
            end;
            LTxt.Filename := VDecoder.Filename;
            if IsHeaderMediaType(LTxt.ContentType, 'multipart') then begin {do not localize}
              LTxt.ParentPart := LPreviousParentPart;

              // RLebeau 08/17/09 - According to RFC 2045 Section 6.4:
              // "If an entity is of type "multipart" the Content-Transfer-Encoding is not
              // permitted to have any value other than "7bit", "8bit" or "binary"."
              //
              // However, came across one message where the "Content-Type" was set to
              // "multipart/related" and the "Content-Transfer-Encoding" was set to
              // "quoted-printable".  Outlook and Thunderbird were apparently able to parse
              // the message correctly, but Indy was not.  So let's check for that scenario
              // and ignore illegal "Content-Transfer-Encoding" values if present...

              if LTxt.ContentTransfer <> '' then begin
                if PosInStrArray(LTxt.ContentTransfer, ['7bit', '8bit', 'binary'], False) = -1 then begin {do not localize}
                  LTxt.ContentTransfer := '';
                end;
              end;
            end else begin
              LTxt.ParentPart := LParentPart;
            end;
          except
            LTxt.Free;
            raise;
          end;
        end;
      except
        LNewDecoder.Free;
        raise;
      end;
      VDecoder.Free;
      VDecoder := LNewDecoder;
    finally
      FreeAndNil(LMStream);
    end;
  end;

 

OK，运行一下看看。也许还有其他要修改，编程的朋友可以一起找找。

 

如果把Indy的代码仔细看看，会发现有很多可能会需要定制的地方，Indy已经加了说明文字。