請教各方前輩...... 因為最近在作一支程式.....要將圖片利用IdEncoderMIME轉換為文字檔... 但發生了一個很怪異的現象....... 以下是我的程式碼...... 經過轉換後,雖然可以正常的轉為MIME格式的文字檔...... 但在文字檔的最後一行都會多出一行空白...... 所以導致無法將MIME文字檔轉回為圖片...... 我也試過利用if判斷來刪除最後一行空白...... 但......有時會誤刪.....怪怪的....... 不知有沒有前輩有好的建議.......Thanks P.s我的圖檔都是500KB以上的 var StringStream:TStringStream; FileStream : TFileStream; begin FileName1:='C:\test.jpg'; try FileStream := TFileStream.Create(FileName1,fmOpenRead); FileName1:='C:\test.jpg'; FileStream.Position:=0; StringStream := TStringStream.Create(''); StringStream.CopyFrom(FileStream,FileStream.Size); StringStream.Position:=0; RichEdit1.Clear; RichEdit1.Lines.Text:=IdEncoderMIME1.Encode(StringStream.DataString); if Length(Trim(RichEdit1.Lines.Strings[Richedit1.Lines.Count -1])) = 0 then RichEdit1.Lines.Delete(Richedit1.Lines.Count - 1); RichEdit1.Lines.SaveToFile(FileName1); finally FileStream.Free; StringStream.Free; end; end; showmessage('轉換完成!'); end; 發表人 - jojoboy 於 2004/02/16 16:29:49

有沒有是過使用TStringStream來儲存IdEncoderMIME編碼後的文字 然後儲存檔案.. 看看有沒有幫助

TStringStream.........嗯嗯...沒試過....... 待我試來...... 看結果如何.....再來向各位報告^^