Здравствуйте, Alexey_M123, Вы писали:
A_M>Здравствуйте, Shtirliz, Вы писали:
S>>Попробуй
S>>S>>Для инди 10 (для инди 7 будее mcptAttachment)
S>>if IdMessage1.MessageParts.Items[j].PartType = mptAttachment then
S>> <твой процесс>
S>>Else
S>> //значит будет текст
S>>
A_M>Спасибо теперь код работает под Indy 10.
A_M>Но проблема все равно осталась.
A_M>TidAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile(fn);
A_M>сохраняет текст. файл, но внутри чтото вроде:
A_M>begin 600 1520.ini
A_M>M3F%M93U.159!(%1R879E;"!#;VUP86YY"@U/<&5R871O<CU35$,@4E534TE!
A_M>Если же сохранить вложение из Outlook — то все в порядке.
A_M>Подскажите какой-нибудь другой метод кроме SaveToFile
Во первых для файлов есть класс:
TidAttachmentFile
так что делай так
TidAttachmentFile(IdMessage1.MessageParts.Items[j]).SaveToFile(Stream);
... -= RSDN@Home 1.1.4 beta 4 rev 303 =- А в Winamp'e: А в Winamp'е: И ничего не слышно...
Дункан Маклауд любил ходить в лес и издеваться над кукушками.