Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ICS, TPop3Cli.Dele, не удаляет группу писем / 5 сообщений из 5, страница 1 из 1
05.06.2017, 09:56:29
    #39465722
Kast2K
Kast2K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICS, TPop3Cli.Dele, не удаляет группу писем
Коллеги, добрый день!

Потребовалось написать сервис по получению писем.
Воспользовался компонентом TPop3Cli из пакета ICS.

Письма получаются, парсятся. Здесь всё ОК.

В примере к компонентам указано как удалить одно письмо:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
procedure TPOP3ExcercizerForm.Exec(
    MethodPtr  : TPop3NextProc;
    MethodName : String);
begin
    SubjectEdit.Text          := '';
    FromEdit.Text             := '';
    ToEdit.Text               := '';

    Pop3Client.Host           := HostEdit.Text;
    Pop3Client.Port           := PortEdit.Text;
    Pop3Client.UserName       := UserNameEdit.Text;
    Pop3Client.PassWord       := PassWordEdit.Text;
    Pop3Client.AuthType       := TPop3AuthType(AuthComboBox.ItemIndex);
    Pop3Client.MsgNum         := StrToInt(MsgNumEdit.Text); //AMsgNum;
    Pop3Client.MsgLines       := StrToInt(MsgLinesEdit.Text);
    { We need to reassign event handlers because we may have changed them }
    { doing GetAllMessages for example
    Pop3Client.OnRequestDone  := Pop3ClientRequestDone;
    Pop3Client.OnMessageBegin := Pop3ClientMessageBegin;
    Pop3Client.OnMessageEnd   := Pop3ClientMessageEnd;
    Pop3Client.OnMessageLine  := Pop3ClientMessageLine;                                      }
    InfoLabel.Caption         := MethodName + ' started';
    try
        MethodPtr;
        InfoLabel.Caption := MethodName + ' ok';
    except
        on E:Exception do begin
            MessageBeep(MB_OK);
            InfoLabel.Caption := MethodName + ' failed (' + E.Message + ')';
        end;
    end;
end;

procedure TPOP3ExcercizerForm.DeleteButtonClick(Sender: TObject);
begin
  Exec(Pop3Client.Dele, 'Delete');
end;


Т.е. в некое текстовое поле я задаю номер письма из загруженных ранее и при клике DeleteButton оно помечается Готовым к удалению до выполнения команды Quit.

Но т.к. требуется удалить несколько писем, то я немного модернизировал пример:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
procedure TPOP3ExcercizerForm.Exec(
    MethodPtr  : TPop3NextProc;
    MethodName : String;
    const AMsgNum:Integer=0);
begin
    SubjectEdit.Text          := '';
    FromEdit.Text             := '';
    ToEdit.Text               := '';

    Pop3Client.Host           := HostEdit.Text;
    Pop3Client.Port           := PortEdit.Text;
    Pop3Client.UserName       := UserNameEdit.Text;
    Pop3Client.PassWord       := PassWordEdit.Text;
    Pop3Client.AuthType       := TPop3AuthType(AuthComboBox.ItemIndex);
    Pop3Client.MsgNum         := AMsgNum;
    Pop3Client.MsgLines       := StrToInt(MsgLinesEdit.Text);
    InfoLabel.Caption         := MethodName + ' started';
    try
        MethodPtr;
        InfoLabel.Caption := MethodName + ' ok';
    except
        on E:Exception do begin
            MessageBeep(MB_OK);
            InfoLabel.Caption := MethodName + ' failed (' + E.Message + ')';
        end;
    end;
end;

procedure TPOP3ExcercizerForm.DeleteButtonClick(Sender: TObject);
var
  i:Integer;
begin
  for i:= 1 to Pop3Client.MsgCount do
  Exec(Pop3Client.Dele, 'Delete',I);
end;



В итоге первое письмо помечается готовым к удалению, а на остальных вываливается ошибка POP3 component not ready

Я понимаю, что компонент TPop3Cli асинхронный, но не понимаю как тогда передавать ему набор команд (на удаление, как в моем случае).

Спасибо.

Никогда не бойся делать то, что не умеешь.
Помни, профессионалы построили Титаник, а Ковчег любители.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2017, 10:09:23
    #39465729
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICS, TPop3Cli.Dele, не удаляет группу писем
Kast2K,

delesync пробовал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2017, 10:18:22
    #39465735
Kast2K
Kast2K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICS, TPop3Cli.Dele, не удаляет группу писем
wadman,

В свойствах нет такого метода :(

http://wiki.overbyte.eu/wiki/index.php/TPop3Cli
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2017, 10:19:06
    #39465736
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICS, TPop3Cli.Dele, не удаляет группу писем
Kast2Kwadman,

В свойствах нет такого метода :(

http://wiki.overbyte.eu/wiki/index.php/TPop3Cli
Код: pascal
1.
TSyncPop3Cli = class(TPop3Cli)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2017, 10:29:43
    #39465742
Kast2K
Kast2K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICS, TPop3Cli.Dele, не удаляет группу писем
wadman,

Спасибо! Помогло.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ICS, TPop3Cli.Dele, не удаляет группу писем / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 588ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2042200]:
 0ms
get settings:
 10ms
get forum list:
 24ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 254ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 217ms
total:  588ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]