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

← →
Alex-11111 (2003-12-19 13:50) [0]

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

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) [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;

Получение почты Найти похожие ветки