Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

получени почты [D7, XP]

gidd © (2006-03-13 11:55:00)
Нашел в инете пример получения почты. Данные проходят: кто отправил, вряме и тд видно, но сам текст письма не приходит.

//получение почты
IdPOP3.Host:=Options.pop;
IdPOP3.Username:=Options.Username;
IdPOP3.Password:=Options.Pass;

IdPOP3.Connect(1000);
if IdPOP3.CheckMessages=0
then ShowMessage('Писем нет');

reMail.Lines.Add('------------------------------------');
reMail.Lines.Add('Почтовый ящик (POP): test_r@mail.tu ');
reMail.Lines.Add('------------------------------------');
for i:=1 to IdPOP3.CheckMessages do
begin
IdMessage1.Clear;
IdPOP3.RetrieveHeader(i,IdMessage1);
reMail.Lines.Add(' '+IntToStr(i)+': От: '+DecodeStr(IdMessage1.From.Text));
reMail.Lines.Add(' Адрес: '+DecodeStr(IdMessage1.From.Address));
reMail.Lines.Add(' Имя: '+DecodeStr(IdMessage1.From.Name));
reMail.Lines.Add(' Тема: '+DecodeStr(IdMessage1.Subject));
reMail.Lines.Add(' Сервер: '+DecodeStr(IdMessage1.MsgId));
reMail.Lines.Add(' Attachement Encoding: '+DecodeStr(IdMessage1.AttachmentEncoding));
reMail.Lines.Add(' Charset: '+DecodeStr(IdMessage1.CharSet));
reMail.Lines.Add(' Текст сообщения: '+DecodeStr(IdMessage1.Body.Text));
reMail.Lines.Add(' ');
end;
IdPOP3.Disconnect;

после этого "Текст сообщения" всегда пустой

dabreezy (2006-03-13 12:43:00) [1]
Нужно использовать вот это:
function Retrieve(const MsgNum: Integer; AMsg: TIdMessage): Boolean;
Функция RetrieveHeader возвращает заголовки сообщения!

gidd (2006-03-13 12:05:00) [2]
У меня плохой англиский. Спасиб что помог.

Плохиш (2006-03-13 12:01:00) [3]

> IdPOP3.Retrieve Header(i,IdMessage1);

Ни на какие мысли не наводит? Может справку по TidPop3 почитаешь всё-таки?

Наверх

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