Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
ВнизПолучение почты Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c