получение почты

[spydark91]

код

{вырезано}
 
implementation
{вырезано}
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var me,ii:integer;
begin
IdPOP31.Host:='pop.mail.ru';
IdPOP31.Port:=110;
IdPOP31.Username:='pv9znbmdmxu.lbp9zenvgk895';
IdPOP31.Password:='zkcdnhgjshg545gn45smzg45jazm22';
sleep(500);
 
me:=IdPOP31.CheckMessages;
for ii:=1 to me do
  begin
    IdPOP31.Retrieve(ii,IdMessage1);
      if DecodeStr(IdMessage1.Subject)<>'xcxc' then {помннять = на <>}
        begin
          listbox1.Items.add('IP='+DecodeStr(IdMessage1.Subject));
        //чета еще
        end;
 
  end;
end;
 
end.

дает ошибку (скрин) на строке при получении заголовка тоесть тут IdPOP31.Retrieve(ii,IdMessage1);

где ошибка?

[Zed32]

А логин и пароль правильный? У меня так же была такая ошибка, когда не выходил из мыла.

[Zed32]

и по ходу надо где то connect
http://programmersforum.ru/showthread.php?t=12672

[spydark91]

пароль и лоогин правельный
и на логин с паролем другую ощибку дает если неправельно

[spydark91]

procedure TList.FormCreate(Sender: TObject);
begin
stat:=3;
spis:=true;
list.IdPOP31.Host:='pop.mail.ru';
list.IdPOP31.Port:=110;
list.IdPOP31.Username:='с;
list.IdPOP31.Password:='с';
end;
procedure TList.Timer1Timer(Sender: TObject);
var me,ii:integer;
begin

repeat
list.IdMessage1.Clear;
list.listbox1.Clear;

Try
if spis then

list.IdPOP31.Connect();       
me:=list.IdPOP31.CheckMessages;
for ii:=1 to me do
  begin
    list.IdPOP31.Retrieve(ii,list.IdMessage1);
      if DecodeStr(list.IdMessage1.Subject)=unit2.ip then {ïîìííÿòü = íà <>}
        begin
          list.listbox1.Items.add('IP='+DecodeStr(list.IdMessage1.Subject));
        //÷åòà åùå
        end;

  end;

list.IdPOP31.Disconnect;
Except
timer1.enabled:=false;
list.Visible:=true;
list.Show;
application.MessageBox('Îøèáêà ïîäêëþ÷åíèÿ: íå óäàëîñü îáíîâèòü ñïèñîê. Ïðîâåðüòå ïîäåêëþ÷åíèå ê Èíòåðíåòó','Îøèáêà ïîäêëþ÷åíèÿ ê Èíòåðíåòó',0);
button1.Visible:=true;
break;
exit;

end;

until true;
end;

терь он у меня на except всегда съезжает..
суть в том,что сначала он отправляет письмо на определенный емаил(реализовано),потом этим кодом берет его заголовок


и еще дает ошибку