delphi - 如何减少使用Synapse TMimeMess解码MIME时的大量RAM使用量？

我使用TMimeMess解码基于SMTP服务器的传入电子邮件
在突触上。

我发现这是用于解码50MB MIME消息(带有
附件)，TMimeMess使用了600-800MB的内存。

此处解码代码:

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数据时，它们会动态解码SMTP数据，这些数据不会预先缓存在内存中，并且默认情况下，附件会存储在HDD上的临时文件中。

您也可以尝试通过他们的电子邮件地址或网站联系Synpse作者。