TIdMessage.SaveToStream 无法正确保存

Question

在尝试将 Imap TIdMessage 从线程传输到主线程时，我发现将其保存到 Stream 然后加载回来不起作用。

Log('Msg.MessageParts.Count='+Msg.MessageParts.Count.ToString,d_4); // 3 parts
AStream := TMemoryStream.Create;
MSG.SaveToStream(AStream);

MSG := TIdMessage.Create(nil);
MSG.LoadFromStream(ASTream);
Log('After Load: Msg.MessageParts.Count='+Msg.MessageParts.Count.ToString,d_4);// Zero parts

对此我能做些什么吗？我需要整个 TIdMessage 的副本。

Answer 1

忘记将 Stream 设置回零。