各位先進： 小弟最近遇到一個問題，就是我要用把一張影像圖檔，透過某個訊息平台傳遞到至遠端，雙方的協定是將影像檔以Base64編碼後，將值傳過去，再由對方解碼；所以我的作法是必須用Delphi將影像用Base64編碼後，取得其編碼值(String)； 我查閱了本站的討論文章，大部份是將一般文字訊息用Base64編碼，就是找不到將影像用Base64編碼的討論文章，請各位大大指點迷津！先行謝過！！

文字檔與否何干?又與圖形何干? 即使是文字檔將 *.TXT 更名成 *.JPG 後,難道就不能編碼了嗎? 而 *.JPG 更名成 *.TXT 後,難道就會由"不能"變成"能"嗎 ? 思考這些問題後 相信你就知道,給他編下去就是 再說 Base64 不算是真正的編碼,比起真正的 codec 只是一種整理方式

對不起.....加上一點補充：我用的版本是Delphi 5.

引言: 文字檔與否何干?又與圖形何干? 即使是文字檔將 *.TXT 更名成 *.JPG 後,難道就不能編碼了嗎? 而 *.JPG 更名成 *.TXT 後,難道就會由"不能"變成"能"嗎 ? 思考這些問題後，相信你就知道,給他編下去就是 再說 Base64 不算是真正的編碼,比起真正的 codec 只是一種整理方式

感謝syntax兄的說明，讓我多了一點希望；但是....我還是找不到把"檔案"編成Base64 Code的範例，可以再給我多一點訊息嗎？最好是有程式碼範例！ 我用

編解碼規則 http://delphi.ktop.com.tw/topic.php?topic_id=27151

你可以使用 indy 元件！ 到 http://www.indyproject.org/ 下載 Delphi 4-7 都可以用 裝好後 元件面板 Indy Misc 就有二個 64 的字 一個是 TIdEncoderMIME 編碼 一個是 TIdDecoderMIME 解碼 你可以用 IdEncoderMIME.Encode(TStream) 來做！ var f : TFileStream; begin f := TFileStream.Create('c:\test.jpg', fmOpenRead); try Memo1.Lines.Text := IdEncoderMIME1.Encode(f); finally f.Free; end; end;

感謝syntax及solnone兩位大哥!! 終於在solnone兄的指導之下，我已經解決了我的編碼問題！ 再次向二位致上最深的謝意！