TIdPOP3 и TIdMessage
От: i.proskurin  
Дата: 18.09.06 13:46
Оценка:
Здравствуйте!
Возникла такая проблема с компонентами TIdPOP3, TIdMessage из Indy.
В некоторых случаях компонент при разборе тела письма неправильно отделяет заголовки типа "In-Reply-To: ...", "Return-Path: ..." и т.д. от собственно текста. В итоге непосредственно в начале текста письма появляются строчки с параметрами и их значениями, разделенными двоеточиями.

Сталкивался кто-либо с такой проблемой, и если да, то как с ней бороться?

Версия Indy: 10.0.2151.25345

Возможно, что это не баг, а результат неверного использования использования Indy, поэому вот фрагмент исходника разбора :
while ESMes.AttachmentCount > 0 do
ESMes.DeleteAttachment(0);
with ESMes do
begin
if Pos('TEXT',UpperCase(IdMes.ContentType))<>0 then
Text.Assign(IdMes.Body)
else
for i:=0 to IdMes.MessageParts.Count-1 do
with IdMes.MessageParts do
if Items[i] is TIdAttachment then
with Items[i] as TIdAttachment do
begin
Attach:=TESEmailAttachment.Create;
AttachStream := TMemoryStream.Create;
try
try
SaveToStream(AttachStream);
Attach.LoadFromStream(FileName, AttachStream);
ESMes.AddAttachment(Attach);
finally
AttachStream.Free;
end;
except
Attach.Free;
raise;
end;
end
else
if Items[i] is TIdText then
with Items[i] as TIdText do
ESMes.Text.AddStrings(Body);
end;


Буду признателен за любые дельные советы
crusader
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.