用TNMUUProcessor控件解码试试看。

解决方案 »

  1.   

    TNMUUProcessor控件:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      InStream,
      OutStream: TFileStream;
    begin
      InStream := TFileStream.Create(Edit1.Text, fmOpenRead);
      OutStream := TFileStream.Create(Edit2.Text, fmCreate);
      try
        If RadioButton4.Checked then
          NMUUE1.Method := uuMIME
        else
          NMUUE1.Method := uuCode;
        NMUUE1.InputStream := InStream;
        NMUUE1.OutputStream := OutStream;
        If RadioButton1.Checked then
          NMUUE1.Encode
        else
          NMUUE1.Decode;
      finally
        InStream.Free;
        OutStream.Free;
      end;
    end;btw:如果是Uuencode编码
    1.邮件原文存为文本文件
    2.改文本文件后缀为.uue
    3.用winzip 6.3 sr-1以上版本识别
    或者改文本文件后缀为.eml,用ms mail或Outlook Express打开