delphi xe7 update1+indy10.6收邮件,有一种邮件标题和正文含有汉字就乱码。将IdMessage1的NoDecode := True;和NoEncode := True;保存为.eml文件,用Foxmail打开正文则汉字显示正常。
用自带的base64解码函数DecodeString(IdMessage1.Body.Text);则报错:
.eml文件部分内容如下:
Subject: ??????????????360??????????????????????????????????
X-PHP-Originating-Script: 1017:func.php
MIME-Version: 1.0rn
Content-type: text/html
From: 360???????????? <[email protected]>
Content-Transfer-Encoding: base64
X-MIME-Autoconverted: from 8bit to base64 by se4.white.zwt.qihoo.net id t5H7Xtwt015350PCFET0NUWVBFIGh0bWwgUFVCTElDICItLy9XM0MvL0RURCBYSFRNTCAxLjAgVHJhbnNpdGlv
bmFsLy9FTiIgImh0dHA6Ly93d3cudzMub3JnL1RSL3hodG1sMS9EVEQveGh0bWwxLXRyYW5z
aXRpb25hbC5kdGQiPg0KPGh0bWwgeG1sbnM9Imh0dHA6Ly93d3cudzMub3JnLzE5OTkveGh0
bWwiPg0KPGhlYWQ+DQo8bWV0YSBodHRwLWVxdWl2PSJDb250ZW50LVR5cGUiIGNvbnRlbnQ9
InRleHQvaHRtbDsgY2hhcnNldD1HQjIzMTIiIC8+DQo8dGl0bGU+zt6x6szizsS1tTwvdGl0
bGU+DQo8c3R5bGU+DQoqe21hcmdpbjowcHg7cGFkZGluZzowcHg7Zm9udC1zaXplOjEycHg7
IGxpbmUtaGVpZ2h0OjEuODsgZm9udC1mYW1pbHk6QXJpYWw7fQ0KYXtjb2xvcjojMDA2N2I2
O3RleHQtZGVjb3JhdGlvbjpub25lfQ0KYTpob3Zlcnt0ZXh0LWRlY29yYXRpb246bm9uZTt9
DQo8L3N0eWxlPg0KPC9oZWFkPg0KDQo8Ym9keT4NCjx0YWJsZSB3aWR0aD0iNjg2IiBhbGln
bj0iY2VudGVyIiBjZWxsc3BhY2luZz0iMTAiIHN0eWxlPSJib3JkZXItYm90dG9tOjFweCBz
b2xpZCAjY2NjOyIgYmdjb2xvcj0iI0ZGRkZGRiI+DQogIDx0cj4NCiAgICA8dGQ+PGltZyBz
cmM9Imh0dHA6Ly9vcGVuLnNvZnQuMzYwLmNuL2ltYWdlcy92Mi9yemxvZ29fbmV3LmdpZiIg
d2lkdGg9IjIyNiIgaGVpZ2h0PSI0OCIgLz48L3RkPg0KICAgIDx0ZCBhbGlnbj0icmlnaHQi
PjxhIGhyZWY9Imh0dHA6Ly9vcGVuLnNvZnQuMzYwLmNuIiB0YXJnZXQ9Il9ibGFuayI+aHR0
cDovL29wZW4uc29mdC4zNjAuY248L2E+PC90ZD4NCiAgPC90cj4NCjwvdGFibGU+DQo8dGFi
bGUgd2lkdGg9IjY4NiIgYm9yZGVyPSIwIiBhbGlnbj0iY2VudGVyIiBjZWxscGFkZGluZz0i
MCIgY2VsbHNwYWNpbmc9IjEwIiBiZ2NvbG9yPSIjRkZGRkZGIj4NCiAgPHRyPg0KICAgIDx0
ZCBjb2xzcGFuPSIzIj48c3Ryb25nIHN0eWxlPSIgZm9udC1zaXplOjE0cHg7Ij4mbmJzcDsm
bmJzcDsmbmJzcDsmbmJzcDvH17CutcTI7bz+v6q3otXfPC9zdHJvbmc+PC90ZD4NCiAgPC90
cj4NCiAgPHRyPg0KICAgIDx0ZCB3aWR0aD0iMzAiPiZuYnNwOzwvdGQ+DQogICAgPHRkIHN0
eWxlPSJmb250LXNpemU6MTRweDsiPsT6usOjoTxiciAvPjwvdGQ+DQogICAgPHRkIHdpZHRo
PSIyMCIgc3R5bGU9ImZvbnQtc2l6ZToxNHB4OyI+Jm5ic3A7PC90ZD4NCiAgPC90cj4NCiAg
PHRyPg0KICA8dGQ+Jm5ic3A7PC90ZD4NCiAgPHRkPjxwPrrc0sW6trXEzajWqsT6o6zE+tTa
v6q3xca9zKjXorLhtcTVy7unyfO6y860zai5/aGjx+uyzr+8yOfPwr7fzOXUrdLyoaM8YnI+
DQogIL7cvvjUrdLyysejurnZzfjO3klDULG4sLijqMT6zOG9u7XEudnN+NTauaTQxbK/SUNQ
sbiwuM+1zbPA7860sunRr7W9z+C52LG4sLjQxc+io6mhozxicj4NCiAgzsLcsMzhyr48YnI+
DQogIMjnufvE+r+qt6K1xNX9s6POxLz+sbszNjCxqLa+o6zH69TayO28/r+qt6LV38jtvP7O
87Got7TAodKzw+ajumh0dHA6Ly9vcGVuLnNvZnQuMzYwLmNuL3JlcG9ydC5odG0gzOG9u8T6
tcTOyszio6E8YnI+DQogIM7Sw8e74bCyxcXXqMjLtdrSu8qxvOS0psDtxPq1xLe0wKGjrL6t
t9bO9rmks8zKpsi3yM/OxLz+1f2zo7rzo6zU2jF+Mrj2uaTX98jVxNq9q73ivvbE+rXEzsrM
4qGjDQogICAgPC9wPjwvdGQ+DQogIDx0ZD4mbmJzcDs8L3RkPg0KICA8L3RyPg0KPC90YWJs
ZT4NCjx0YWJsZSB3aWR0aD0iNjg2IiBhbGlnbj0iY2VudGVyIiBjZWxsc3BhY2luZz0iMTAi
IHN0eWxlPSJib3JkZXItdG9wOjFweCBzb2xpZCAjY2NjOyIgYmdjb2xvcj0iI0ZGRkZGRiI+
DQogIDx0cj4NCiAgICA8dGQgd2lkdGg9IjUyNCIgc3R5bGU9ImNvbG9yOiM3ZDdkN2QiPrjQ
0LvE+rbUMzYwyO28/r+qt8XGvcyotcTWp7PWo6zI57n7xPrU2sq508O5/bPM1tDT9rW9zsrM
4qOsx+u8sMqx0+vO0sPHwarPtaGjPGJyIC8+DQq/zbf+tee7sKO6MDEwLTU4NzgxMjE3ICAg
IL/Nt/7Tys/ko7o8YSBocmVmPSJtYWlsdG86b3BlbnNvZnRAMzYwLmNuIj5vcGVuc29mdEAz
NjAuY248L2E+PC90ZD4NCiAgICA8dGQgd2lkdGg9IjEyNiI+Jm5ic3A7PC90ZD4NCiAgPC90
cj4NCiAgPHRyPg0KICAgIDx0ZCBzdHlsZT0iZm9udC1zaXplOjE0cHg7IGNvbG9yOiNlYjYx
MDA7Ij6xvtPKvP7Oqs+1zbPX1Lavt6LLzaOsx+vO8NaxvdO72Li0o6E8L3RkPg0KICAgIDx0
ZCBhbGlnbj0icmlnaHQiPjM2MMjtvP6/qrfFxr3MqDxiciAvPg0KICAgIDIwMTXE6jA21MIx
N8jVPC90ZD4NCiAgPC90cj4NCjwvdGFibGU+DQo8L2JvZHk+DQo8L2h0bWw+DQoNCg==