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

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

Текст письма [D2005]

Hgr ©   (2006-08-09 22:05:00) 

Чето не фига не пойму, не отображается текст письма!,
Memo1.Lines.Add('Текст сообщения: '+IdMessage1.Body.Text);,

если что вот весь код:

procedure TForm7.Button1Click(Sender: TObject);
begin

   IdPOP31.Connect;
   form7.Caption:=floattostr(IdPOP31.CheckMessages);
   if IdPOP31.CheckMessages=0
   then ShowMessage('В папке 0 сообщений!');
   IdMessage1.Clear;
   IdPOP31.RetrieveHeader(142,IdMessage1);
    Memo1.Lines.Add('           Адрес: '+IdMessage1.From.Address);
     Memo1.Lines.Add('           Имя: '+IdMessage1.From.Name);
     Memo1.Lines.Add('           Тема: '+IdMessage1.Subject);
     Memo1.Lines.Add('           Сервер: '+IdMessage1.MsgId);
     Memo1.Lines.Add('           Attachement Encoding: '+IdMessage1.AttachmentEncoding);
     Memo1.Lines.Add('           Charset: '+IdMessage1.CharSet);
     Memo1.Lines.Add('           Текст сообщения: '+IdMessage1.Body.Text);
     IdPOP31.Disconnect;
     end;

---

Батыр   (2006-08-10 00:09:00) [1]

Dmitrij_K  Большое Саг Болсун

---

Dmitrij_K   (2006-08-10 00:06:00) [2]

IdPOP31.Retrieve()

---

Батыр   (2006-08-10 00:01:00) [3]

А как что б всё?

---

Dmitrij_K   (2006-08-09 22:38:00) [4]

IdPOP31.RetrieveHeader - получает толькозаголовок

---

Наверх