| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

IdMessage и "--" [D7, WinXP]

Yegorchic ©   (2006-08-07 10:10:00) 

Использую для чтения письма из файла IdMessage.
В некоторых письмах стречается перед последней строчкой строка "--" (ну как бы подпись). Т.е. письмо такое:

текст
текст
текст

--
текст

И IdMessage почему то записывает в Body.Text тест тольколь после "--".
Т.е. от всего письма остаётся только:

--
текст

Что делать?

---

umbra   (2006-08-07 17:35:00) [1]

а если добавить на форму мемо и после   строки
m.LoadFromFile(filename);
добавить

memo1.Text := m.body.Text;

то что будет в мемо?

---

umbra   (2006-08-07 13:09:00) [2]

> Header'ы нужны?
>

пригодятся :)

---

Yegorchic   (2006-08-07 12:44:00) [3]

Код загрузки сообщения:


procedure TMainForm.LoadMsg(filename: string);
var
 m: TIdMessage;
begin
 m := TIdMessage.Create(nil);
 m.LoadFromFile(filename);
 eFrom.Text:=m.From.Address;
 eTo.Text:=m.Recipients.Items[0].Address;
 If m.CharSet = 'KOI8-R' then
 begin
   eSubject.Text:=KoiToWin(m.Subject);
   Body.Lines.Text:=KoiToWin(m.Body.Text);
 end else
 begin
   eSubject.Text:=m.Subject;
   Body.Lines.Text:=m.Body.Text;
 end;
 m.Free;
end;

Body письма:

рТЙЧЕФ, ЛБЛ ДЕМБ?
РПЩЧБР РБЧТР РПЧБТР
БЩЧР БЩЧТБ  ЩЧБЩЧТ Р ЧЩБЩЧБ ЧЩБ ЧЩР БЩЧЬЯ
БЩЧТРБ ЩЧБТ ЩЧП Б

--
уЕЗПДОС ХДБЮОЩК ДЕОШ, ЮФПВЩ ЪБЧЕУФЙ РПЮФХ ОБ сОДЕЛУЕ http://mail.yandex.ru


Header'ы нужны?

---

umbra   (2006-08-07 12:31:00) [4]

ваша ошибка не воспроизводится. Если Вы приведете немного кода и/или содержимое сбоящего сообщения, то, возможно что-то станет яснее

---

Наверх