Показать сообщение отдельно
  #3  
Старый 20.10.2010, 21:08
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

ВНИМАНИЕ, ВНИМАНИЕ!!!
Я нашел лазейку в Indy. Не знаю, как они это сделали, но при использовании TIdMessage.SaveToFile в файл пишется НОРМАЛЬНЫЙ русский текст (если он конечно не в base-64 и не закодирован). Отделяется BODY в файле двумя enter'ами (строка #13+#10+#13+#10). Соответственно берем, считываем файл в строку, ищем через POS(#13+#10+#13+#10,s) в ней нужное место и копируем оттуда и до конца в idMessage.Body.
Сейчас думаю как сделать нормальное определение Base64 и MIME.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием