delphi – 如何在使用Synapse TMimeMess解码MIME时减少巨大的RAM
发布时间:2020-12-15 04:26:46 所属栏目:大数据 来源:网络整理
导读:我使用TMimeMess来解码我的SMTP服务器的传入电子邮件 在Synapse上. 我发现用于解码50MB的MIME消息(简单的文本 附件),TMimeMess使用了600-800MB的内存. 解码码在这里: FMimeMsg.Header.DecodeHeaders(FMimeMsg.MessagePart.Lines);FMimeMsg.MessagePart.Deco
我使用TMimeMess来解码我的SMTP服务器的传入电子邮件
在Synapse上. 我发现用于解码50MB的MIME消息(简单的文本 解码码在这里: FMimeMsg.Header.DecodeHeaders(FMimeMsg.MessagePart.Lines); FMimeMsg.MessagePart.DecomposeParts; ExtractPartsFromMess(FMimeMsg.MessagePart); ... procedure ExtractPartsFromMess(AMimePart: TMimePart); var i: integer; begin if AMimePart.GetSubPartCount = 0 then Begin if (AMimePart.PrimaryCode = MP_TEXT) then Begin AMimePart.DecodePart; FBody.Add(string(ReadStrFromStream(AMimePart.DecodedLines,AMimePart.DecodedLines.Size))); end else if (AMimePart.PrimaryCode = MP_BINARY) then Begin if AMimePart.FileName <> '' then Begin AMimePart.DecodePart; AMimePart.DecodedLines.SaveToFile(FPathToIncomingFolder+AMimePart.FileName); end; end; end else Begin for i:=0 to AMimePart.GetSubPartCount-1 do Begin ExtractPartsFromMess(AMimePart.GetSubPart(i)); end; end; end; 谢谢. 解决方法
Indy有TIdSMTP和TIdMessage组件用于此目的.它们在从服务器下载时动态解码SMTP数据,数据不会预先存储在内存中,默认情况下,附件存储在硬盘中的临时文件中.
您也可以通过他们的电子邮件地址或网站尝试并联系Synpse作者. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |