IdMessage и "--"

← →
Yegorchic © (2006-08-07 10:10) [0]

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

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

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

-- текст

Что делать?

← →
umbra © (2006-08-07 12:31) [1]

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

← →
Yegorchic © (2006-08-07 12:44) [2]

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

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 13:09) [3]

> Header"ы нужны?
>

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

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

memo1.Text := m.body.Text;

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

IdMessage и "--" Найти похожие ветки