|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
IdPOP31.Retrieve(n,Msg); - Задумывается навсегда(
Код:
procedure TForm1.Button2Click(Sender: TObject); var i,n:integer; Msg:TIdMessage; begin if(IdPOP31.Connected)then begin MSG:= TIdMessage.Create(self); i:=Idpop31.CheckMessages;//определяет правильно for n:=1 to i do begin Msg.Clear; //IdPOP31.RetrieveHeader(i,Msg); //ListBox1.Items.Add(Msg.Subject);//считывает правильно IdPOP31.Retrieve(n,Msg);//Задумывается навсегда( Memo1.Text:=Memo1.Text+Msg.Body.Tex t; end; Msg.Free; end; Вопрос:Почему он не может обработать эту строку, если все предыдущие обрабатывает правильно p.s. Использовал любые другие варианты реализации чтения писем этим компанентом, всегда останавливается на той строке(, а мне нужно именно пользуясь инди Последний раз редактировалось Admin, 09.10.2010 в 14:01. |