| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Alex-11111 ©   (2003-12-19 13:50:00) 

У меня в ящеке сообщение (с прекреплённым файлом).
Когда я запускаю программу то она считывает количество писем а дальше, но не загружает. Через некоторое время появляется сообщение, что соединение закрыто.

statusbar1.Panels[0].Text:="Соединение с сервером";
pop.Connect(-1);
statusbar1.Panels[0].Text:="Проверка";
statusbar1.Panels[0].Text:=inttostr(pop.CheckMessages);
M:=TIdMessage.Create(Form1);
statusbar1.Panels[0].Text:="Загрузка";
pop.ProcessMessage(m);
statusbar1.Panels[0].Text:="Загруженно";
memo1.Lines:=m.Body;
pop.Disconnect;

---

stone   (2003-12-23 11:12:00) [1]

pop.Connect;
for i := 1 to pop.CheckMessages do
begin
M := TIdMessage.Create(nil);
try
pop.Retrieve(i, M);
finally
M.Free;
end;
end;
pop.Disconnect;

---

Наверх