Форум: "Сети";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];

Вниз

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"ы нужны?
>

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

---

← →
umbra ©   (2006-08-07 17:35) [4]

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

memo1.Text := m.body.Text;

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c