pop3 в delphi 7.0

← →
kron © (2005-08-17 10:04) [0]

Задача стоит следующая. Нужно подключиться к серверу рор3 забрать текст всех писем... Удалить их с сервера.

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

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

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

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

← →
REA (2005-08-17 10:57) [1]

код в студию

← →
kron © (2005-08-17 11:26) [2]

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;

← →
kron © (2005-08-17 11:31) [3]

И кстати я пишу не имя хочта, а ip адрес.
Так что с этим это никак связанно быть не может, ибо там мне все разрешенно.

Спасибо господину Amigo
http://www.faqts.com/knowledge_base/view.phtml/aid/23223

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

pop3 в delphi 7.0 Найти похожие ветки