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

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

удаление почтового сообщения [WinXP]

anton773 ©   (2006-04-04 19:47:00) 

Здравствуйте! Пытаюсь удалить сообщения с почтового ящика.(отмеченные галочкой в listviev) Никак не пойму почему он не работает.Помогите ПЛЗ разобраться.Аналогичный код но нацеленный на загрузку помеченных сообщений прекрасно работает procedure TForm2.N7772Click(Sender: TObject);
var
f: integer;

begin
if IdPOP31.Connected= false then
connect;
For f:= 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[f].Checked= true
then
begin
ListView1.Items[f].Selected:=true;
IdPOP31.Delete(ListView1.Selected.Index + 1);
if f= ListView1.Items.Count then
IdPOP31.Disconnect;
end;
end;
end;

---

fess   (2006-08-15 10:16:00) [1]

Большое спасибо.... помогло... ;)

---

fess   (2006-08-15 10:16:00) [2]

Большое спасибо.... помогло... ;)

---

anton773   (2006-04-09 18:54:00) [3]

Пока ждал ответа сам догадался как удалить несколько сообщений за раз.Собственно вот и он(может кому пригодится):                           procedure TForm2.N7772Click(Sender: TObject);
var
f: integer;

begin
try
if IdPOP31.Connected= false then
connect;
For f:= 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[f].Checked= true
then
begin
ListView1.Items[f].Selected:=true;
IdPOP31.Delete(ListView1.Selected.Index + 1);
end;
end;
finally
IdPOP31.Disconnect;
end;
end;

---

anton773   (2006-04-04 21:35:00) [4]

Спасибо за ответ.А что можно предпринять? Делать дисконнект после удаления каждого сообщения а потом по новой подключаться - долго все это.Мне надо удалить несколько сообщений за раз.

---

Dmitrij_K   (2006-04-04 20:54:00) [5]

Удаление сообщений происходит ЕСЛИ сделать дисконест.
а условие
if f= ListView1.Items.Count then IdPOP31.Disconnect;
всегда будет false

---

Наверх