印IMAPClient UIDRetrieveAllEnvelopes沒有得到其他字符集正確

Question

使用：德爾福XE2，Windows 8的美國英語作爲默認語言

我寫的電子郵件客戶端與德爾福。我使用TIdIMAP4通過IMAP連接到Gmail郵箱，並得到這樣的消息列表：

var 
    MessageList: TIdMessageCollection; 
    begin 
    IMAPClnt.SelectMailBox('INBOX'); 
    IMAPClnt.UIDRetrieveAllEnvelopes(IMAPClnt.MessageList); 

然後我檢索郵件主題是這樣的：

var 
    IdMsg: TIdMessage; 
    s: String 
    begin 
    for c := 0 to FIMAPClnt.MessageList.Count - 1 do 
    begin 
    IdMsg := FIMAPClnt.MessageList[c]; 
    s := IdMsg.Subject; 

但是，如果消息主題使用不同的語言（如希伯來語），則即使在希伯來語設置爲默認Windows語言的計算機上，消息主題也不能正確顯示（請參閱附加圖像）。

如何更正代碼以確保其正常工作，以正確的Unicode字符檢索語言？

截屏：

TIA。

Answer 1

根據RFC 2047（「MIME第三部分：非ASCII文本的消息頭擴展」），屏幕截圖中的電子郵件標頭已經編碼。 TIdIMAP4.UIDRetrieveAllEnvelopes()捕獲並存儲原始數據，不會自動對其解碼。您可以使用各種Decode...()功能在IdCoderHeaader.pas單位頭手動解碼，如：

uses 
    ..., IdCoderHeader; 

var 
    IdMsg: TIdMessage; 
    s: String 
begin 
    ... 
    for c := 0 to FIMAPClnt.MessageList.Count - 1 do 
    begin 
    IdMsg := FIMAPClnt.MessageList[c]; 
    IdMsg.Subject := DecodeHeader(IdMsg.Subject); 
    DecodeAddresses(IdMsg.FromList); 
    DecodeAddress(IdMsg.Sender); 
    DecodeAddresses(IdMsg.ReplyTo); 
    DecodeAddresses(IdMsg.Recipients); 
    DecodeAddresses(IdMsg.CCList); 
    DecodeAddresses(IdMsg.BccList); 
    ... 
    end; 
    ... 
end;