Почта в Delphi

[Eugene_Stoun]

Доброго времени суток! Есть вопрос, по поводу выгрузки списка писем в ListView. Вот код

procedure TForm1.N10Click(Sender: TObject);
var
  f, MessCount, NumOfMsgs:Integer; // Количество писем
begin
  IMAP.Username:='******@******.ru'; // адрес электронной почты в формате (xxx@xxx.xx)
  IMAP.Password:='**************'; //  пароль к данному почтовому ящику
  IMAP.Host:='mail';     // IMAP сервер 
  IMAP.Port:=StrToInt('143');     // порт

    IMAP.Connect;     // подключаемся
    IMAP.SelectMailBox('Inbox');
    //IMAP.RetrieveAllEnvelopes(IMAP.MailBox.MessageList);
    MessCount:=IMAP.MailBox.TotalMsgs;
    NumOfMsgs:=0;
    for f:=1 to MessCount do       //  записываем в NumOfMsgs количество писем
    // выводим сообщения в Мемо
    Memo1.Lines.Add('Подключение прошло успешно!');
    Memo1.Lines.Add('У вас '+IntToStr(MessCount)+' сообщений');
    IdMessage1.Clear;
    IMAP.Retrieve(MessCount, IdMessage1);
    ListView1.Clear;
    ListView1.Items.Add;
    ListView1.Items.Item[NumOfMsgs].Caption:=IdMessage1.From.Text;
    ListView1.Items.Item[NumOfMsgs].SubItems.Add(IdMessage1.Subject);
    ListView1.Items.Item[NumOfMsgs].SubItems.Add(DateToStr(IdMessage1.Date));
  IMAP.Disconnect;       // Для отключения
end;

Суть в том, что в ListView выводится только одно письмо последнее, как сделать так, чтобы все письма отображались в нем? Кстати в memo выводит правильную информацию о количестве писем. Подскажите где может быть ошибка? Спасибо заранее!

[ForenLi]

IMAP.Retrieve(MessCount, IdMessage1);

Retrieves a message from a mailbox and marks it as read on the server.
function Retrieve(const AMsgNum: Integer; AMsg: TIdMessage): Boolean;
Parameters
const AMsgNum: Integer
Message number to retreive from the mailbox.
AMsg: TIdMessage
Stores the retrieved message headers, body, and attachments.

[northener]

Сообщение от Eugene_Stoun

Доброго времени суток! Есть вопрос, по поводу выгрузки списка писем в ListView. Вот код

procedure TForm1.N10Click(Sender: TObject);
var
  f, MessCount, NumOfMsgs:Integer; // Количество писем
begin
  IMAP.Username:='******@******.ru'; // адрес электронной почты в формате (xxx@xxx.xx)
  IMAP.Password:='**************'; //  пароль к данному почтовому ящику
  IMAP.Host:='mail';     // IMAP сервер 
  IMAP.Port:=StrToInt('143');     // порт

    IMAP.Connect;     // подключаемся
    IMAP.SelectMailBox('Inbox');
    //IMAP.RetrieveAllEnvelopes(IMAP.MailBox.MessageList);
    MessCount:=IMAP.MailBox.TotalMsgs;
    NumOfMsgs:=0;
    for f:=1 to MessCount do       //  записываем в NumOfMsgs количество писем
    // выводим сообщения в Мемо
    Memo1.Lines.Add('Подключение прошло успешно!');
    Memo1.Lines.Add('У вас '+IntToStr(MessCount)+' сообщений');
    IdMessage1.Clear;
    IMAP.Retrieve(MessCount, IdMessage1);
    ListView1.Clear;
    ListView1.Items.Add;
    ListView1.Items.Item[NumOfMsgs].Caption:=IdMessage1.From.Text;
    ListView1.Items.Item[NumOfMsgs].SubItems.Add(IdMessage1.Subject);
    ListView1.Items.Item[NumOfMsgs].SubItems.Add(DateToStr(IdMessage1.Date));
  IMAP.Disconnect;       // Для отключения
end;

Суть в том, что в ListView выводится только одно письмо последнее, как сделать так, чтобы все письма отображались в нем? Кстати в memo выводит правильную информацию о количестве писем. Подскажите где может быть ошибка? Спасибо заранее!

Ошибок там несть числа. Такое впечатление что весь этот код собирался из найденного в помойке без всякой работы мысли.
Вот например:
1. Зачем нужна переменная NumOfMsgs если она не меняет своего значения?
2. Что делает цикл и зачем он это делает?

for f:=1 to MessCount do       
    Memo1.Lines.Add('Подключение прошло успешно!');

[digitalis]

Ну чтоб если не сразу поняли, что

'Подключение прошло успешно!'

Как в Госдуме: второе, третье и т.д. чтение

[Eugene_Stoun]

Ладно! Спасибо Вам уважаемые господа за помощь, мне до Вас очень далеко! Не буду отвлекать таких важных персон от работы глупыми вопросами! Извините, что отнял Ваше драгоценное время!

[ForenLi]

Ну, выеживайтесь дальше, вместо того, чтобы один раз прочитать.

[Eugene_Stoun]

Сделал. Теперь в ListView выводится список писем.

procedure TForm1.N10Click(Sender: TObject);//Получаем список писем
var
MailCout,i,c: integer;
begin
  MailCout:=0;
  ListView1.Clear;
  Memo1.Lines.Clear;
  IMAP.Username:='***@***.ru'; (xxx@xxx.xx)
  IMAP.Password:='**********'; 
  IMAP.Host:='***';     
  IMAP.Port:=***;     
 IMAP.Connect;
 IMAP.SelectMailBox('INBOX');
 MailCout:=IMAP.MailBox.TotalMsgs;
if MailCout>0 then
begin
c:=0;
for i:= 1 to MailCout do
begin
IMESSAGE.Clear;
IMESSAGE.ClearBody;
if IMAP.Retrieve(i, IMESSAGE) then
begin
    ListView1.Items.Add;
    ListView1.Items.Item[c].Caption:=IMESSAGE.From.Text;
    ListView1.Items.Item[c].SubItems.Add(IMESSAGE.Subject);
    ListView1.Items.Item[c].SubItems.Add(DateToStr(IMESSAGE.Date));
    ListView1.Items.Item[c].SubItems.Add(TimeToStr(IMESSAGE.Date));
    inc(c);
end;
end;
end;
end;

[Foreseen]

Сообщение от Eugene_Stoun

ListView1.Items.Item[c]

Тут можно обойтись переменной-счетчиком i в качестве индекса и не создавать лишнюю переменную