MIME(BASE64/QP) 编码/解码程序代码

首先我要在这里向各位纠正我犯在一个错误：Base64 只是 MIME 的一种编码方案，我原来所说的 MIME 其实是 MIME 的另一种编码方案 -- Quoted-Printable ，所以我对本文作了一些修正，并对由此而给大家带来的误导表示歉意。 May.6-01

最 近在研究 POP3 时碰到一个问题，即其中的中文都是经过 MIME 编码了的，如 MS Outlook Express 是用 Base64 ，而 FoxMail 则用的是 QP ， 本来想找几个现成的编码/解码的代码，结果只在UDDF 中找到一个 Delphi 的 Base64 Decode ， 虽然 UDDF 说是 Encode/Decode ，但我是没找到Encode 的部分，而且写得不好， 只好自已写一个了。

此代码是一个 BCB 的单元，非常简单，提供了四个函数， 要改成 Delphi或其它 C/C++ 也很容易，有需要的自已改吧。此代码经过测试，结果正确。

补 充：因为不久前有一位用 VC 的朋友在引用此代码时出碰到一些困难， 是由于BCB 的 AnsiString 的特殊性造成的，所以我将此代码改写为标准 C 的，本来是应该这样的， 但我习惯了用 AnsiString所以才写成那样的，不过现在只好改写了。但为了方便 Delphi/BCB 使用，我还是特别加了一些东东，详见程序的注释，目的无非是为了更好用一些，其它语言的请自行参考吧。Mar.31-01

再补充：为了使这段程序更加实用，我将其整理为几个单元， 分别用于 Delphi 和 C++Builder 。包括对数据流 TMemoryStream 和字符串的处理。Aug.14-01

修正：因为不久前一位网友给我发来MAIL说他在用些代码解码邮件附件时出错，我检查后发现我的解码函数只能处理连续字符串，而一般邮件附件都是带回车的字符串，所以我作了一点点修正，见源码中的注释。Apr.03-02

在此下载全部源程序：7.83KB。