請問大家
最近小弟在寫MAIL CLIENT 卻發現了一個奇怪的問題
用TIDIMAP4這個元件去讀取IMAP SERVER上的信件時
收下來的MAIL SUBJECT都是一堆亂碼
?big5?B?xXeq77F6pVukSsC4qKauVLzWwF0=?=
我在猜是因為有編碼的關係
可是我一直找不到要怎麼把這個編碼還原成原本的中文
請問這個要如何解決呢?
PS.我用OUTLOOK看卻是正常的
開發環境是D7 INDY9
謝謝大家^^
程式碼如下
procedure TForm1.ListBox1Click(Sender: TObject);
var
TheFlags: TIdMessageFlagsSet;
TheUID: string;
i: integer;
nCount: integer;
TheMsg: TIdMessage;
z,MailBoxName: string;
begin
if ListBox1.ItemIndex <> -1 then begin
Screen.Cursor := crHourGlass;
MailBoxName := ListBox1.Items[ListBox1.ItemIndex];
if imap.SelectMailBox(MailBoxName) = False then begin
Screen.Cursor := crDefault;
ShowMessage('Error selecting ' MailBoxName);
Exit;
end;
TheMsg := TIdMessage.Create(nil);
nCount := imap.MailBox.TotalMsgs;
if nCount = 0 then begin
ShowMessage('There are no messages in ' MailBoxName);
end else begin
for i := 0 to nCount-1 do begin
z:='';
imap.Retrieve(i 1,TheMsg);
TheUID:=TheMsg.UID;
imap.RetrieveFlags(i 1,TheFlags);
imap.RetrieveHeader(i 1,TheMsg);
if mfSeen in TheFlags then
begin
z:='Yes ';
end
else
begin
z:='No ';
end;
z:=z TheMsg.Subject;
lb2.Lines.Add(z);
end;
end;
TheMsg.Destroy;
Screen.Cursor := crDefault;
end;
end;

信件是屬於Base64的編碼，在INDY MISC頁面裡即可找Base64的encoder與decoder到。

謝謝您的回答^^

我馬上試看看^^

謝謝