求idpop收取邮件后，对=?gbk?b?。解码的代码。。。。

[beilas]

RT。。。

[LuoGD]

NMPOP的参考
try
{
NMPOP31->Connect();
while(started)
{
NMPOP31->GetMailMessage(nob);
subject = NMPOP31->MailMessage->Subject;
body = NMPOP31->MailMessage->Body->Text;

try{
Decoder1->Reset();
Decoder1->IgnoreNotification = true;
AnsiString d_body, aline, cr = "\r\n";
int p = body.Pos("File \"");
p = body.Pos("\r\n");
if(p<1){
p = body.Pos("\n");
cr = "\n";
}
while(p > 0){
aline = body.SubString(1,p-1);
body = body.SubString(p+ cr.Length(),body.Length());
try{
Decoder1->Reset();
Decoder1->IgnoreNotification = true;
Decoder1->CodeString(aline);
aline = Decoder1->CompletedInput();
if(aline.SubString(1,2) == "0;")
aline = aline.SubString(3,aline.Length());
}catch(...){}
d_body += aline;
p = body.Pos(cr);
}
body = d_body;

/*int p = body.Pos("File \"");
if(p > 1)
body=body.SubString(1,p-1);
Decoder1->CodeString(body);
body = Decoder1->CompletedInput();*/

}catch(...){}