Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Почту читаю, используя компонент TNMPOP3 (стандартный в поставке D5), еще пробовал использовать библитеку Indy, но не помогло. А проблема заключается в том, что после прочтения письма, невозможно отделить аттачмент от тела. Но это происходит не со всеми письмами. Если я отправлю письмо с аттачем, то я могу его нормально читать и разбирать, а если отправляет Заказчик, то получается то, что я описал. Причем, Outlook и theBat, эти письма нормально читают и аттач МОЖНО сохранить.
forintIndex := 0 to
Pred(Msg.MessageParts.Count) do
begin
if
(Msg.MessageParts.Items[intIndex] is
TIdAttachment) then
begin
//general attachment TIdAttachment(Msg.MessageParts.Items[intIndex]).SaveToFile( TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename); TIdAttachment.Create(Msg1.MessageParts, TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename); end
else
begin
//body text if
Msg.MessageParts.Items[intIndex] is
TIdText then
begin
Memo1.Lines.Clear; Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body); end
end
; end
;