想請問各位在站上的高手 當我使用IPOP3收信之後 由於MIME的關係 會使我無法辨識內容 想請問要如何才能解決這個問題 PS.一定要收MIME的信件,所以麻煩各位高手相助 謝謝

你是用 Indy 是吧 uses IdCoderHeader; function DecodeHeader(Header: string):string; DecodeHeader(IdMessage.Subject); 試試看吧！

嗯 我是使用indy的元件 不過我測試了之後還是不行說 我是用來讀取body.text的內容 可是系統還是讀不出來 =.=|| 難道是我自己的問題嗎T_T 其實我本來是沒有這個問題 只是最近突然發現 如果寄出去的信有附件的話 就會出現MIME的問題 不知道有沒有其它的解決方法

此問題站內已有相關討論，請多利用搜尋 請參考： 請問有 Base64 Decode 的 source code 嗎? http://delphi.ktop.com.tw/topic.php?topic_id=22036    MIME 和 BASE64 編碼/解碼程序代碼 http://delphi.ktop.com.tw/topic.php?topic_id=19939    【Delphi】【問題】關於BASE64的解碼(附原始碼)  http://delphi.ktop.com.tw/topic.php?topic_id=27151    【問題】請問Delphi7使用IdPOP3(Indy9)下載郵件後，怎樣處理亂碼(MIME)? http://delphi.ktop.com.tw/topic.php?topic_id=30401    Delphi 處理"quoted-printable" 或"base64"的函數 http://delphi.ktop.com.tw/topic.php?topic_id=30693 另至 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

用 pop3 取得電郵主旨, 部份中文顯示正常 有些卻是 =?big5?B?xf2m 應該是用那一個 function 去解 ??

indy 對過長的主旨處理有問題！ 可以自行寫一個 function DecodeSubject(Header: string): string; var StrStart, StrEnd, l: Integer; pc: PChar; s: string; const HeaderCharSetStr = '=?%s?B?'; begin Header := DecodeHeader(Header); s := Format(HeaderCharSetStr, ['BIG5']); l := Pos(s, UpperCase(Header)); StrStart := l Length(s); if l <= 0 then begin s := Format(HeaderCharSetStr, ['SGB2312']); l := Pos(s, UpperCase(Header)); StrStart := l Length(s); end; if l > 0 then begin StrEnd := Pos('?=', UpperCase(Header)); if StrEnd > 0 then begin Header[StrEnd] := #0; pc := @Header[StrStart]; try Result := DeCoder.DecodeString(pc); if (Length(Header) > StrEnd 5) then begin Result := Result DecodeSubject(PChar(@Header[StrEnd 3])); end; except Header[StrEnd] := '?'; Result := Header; end; end; end else Result := Header; end;

Where is DeCoder defined ?    

引言: Result := DeCoder.DecodeString(pc);

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.