| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
загрузить сообщение [D2005, XP]
anton773 © (2006-03-23 19:32:00)Здравствуйте! прошу прощения за наивный вопрос.Пытаюсь эксперементировать с созданием почтового клиента.Догнался как загрузить заголовки и поместить их в listview. Теперь пытаюсь загрузить само сообщение. делаю так
procedure TForm2.ListView1Click(Sender: TObject);
begin
IdPOP31.Retrieve(ListView1.Selected.Index+1,IdMessage1);
RxRichEdit1.Lines.Add( здесь что писать?);
end;
Ksenom (2006-04-03 10:56:00) [1]anton773, я не спец по этому отвечу ;P но подскажу...
С темой письма просто, тебе возвращается просто текст, а вот с телом немного сложнее. Возвращаться будет тело в «формате» MIME (поищи в сети там очень просто и понятно).
Так вот, доступным языком это своего рода StringList, где в каждой строке расположена информация в порядке формата MIME. Скорее всего, тебе нужен просто текст, находящийся в теле (без разметки, картинок, форматирования и html тегов), если так то это формат text\plain. Там же, в стеле, в одной из строк будут и вложения и полное тело (с форматированием, тегами и т.д.).
Msg:=Tidmessage.Create(self);
for i:=1 to Form1.POP3.CheckMessages do
begin
Form1.POP3.Retrieve(i,Msg);
for j:=0 to Msg.MessageParts.Count-1 do
begin
Form1.Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[0]).Body);
end;
end;
Если мне память не изменяет то text\plain можно получить так.
Но я не мастер поэтому могу ошибаться, поэксперементируй…
anton773 (2006-03-23 22:05:00) [2]Удалено модератором
Примечание: Создание пустых сообщений
| |
