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

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

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

pop3 в delphi 7.0 [D7, WinXP]

kron © (2005-08-17 10:04:00)
Задача стоит следующая. Нужно подключиться к серверу рор3 забрать текст всех писем... Удалить их с сервера.

IDPOP3 - стандартный компонент Delphi 7.0

Подключаюсь, узнаю количество писем, узнаю заголовки. Но немогу получить текст письма.

тип письма text/pla... т.е. обычное письмо. без вложений и html.

причем циклом не дает даже заголовки всех писем(выдает значения первого. цикл я проверял значения правильно меняются), а константой все работает верно с заголовками, то тект из mes.body мне вытащить так и не удалось.

kron (2005-08-17 12:09:00) [1]
Спасибо господину Amigo
http://www.faqts.com/knowledge_base/view.phtml/aid/23223

Посмотрел разобрался, заработало.

kron (2005-08-17 11:31:00) [2]
И кстати я пишу не имя хочта, а ip адрес.
Так что с этим это никак связанно быть не может, ибо там мне все разрешенно.

kron (2005-08-17 11:26:00) [3]
var
i: integer;
idpop33 : Tidpop3;
IdMessage13: TIdMessage;
begin
idpop33 := TIdPOP3.Create(self);
idmessage13 := TIdMessage.Create(self);
idpop33.Host := 'имя хоста';
idpop33.Port := 110;
idpop33.Username := 'юзер';
idpop33.Password := 'пароль';
if not IdPOP33.Connected then IdPOP33.Connect(60);
for i := 1 to IdPOP33.CheckMessages do begin
IdPOP33.Retrieve(I,IdMessage13);
// Вод здесь этот скот возвращает одно и тоже значение.
Memo1.Lines.Add(IdMessage13.Headers.Values['Subject']);
// а здесь вообще пусто
Memo1.lines.add(IdMessage13.body.text);
end;
idpop33.Free;
IdMessage13.Free;
end;

REA (2005-08-17 10:57:00) [4]
код в студию

Наверх

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