Коллеги, добрый день!
Потребовалось написать сервис по получению писем.
Воспользовался компонентом TPop3Cli из пакета ICS.
Письма получаются, парсятся. Здесь всё ОК.
В примере к компонентам указано как удалить одно письмо:
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.
Но т.к. требуется удалить несколько писем, то я немного модернизировал пример:
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 асинхронный, но не понимаю как тогда передавать ему набор команд (на удаление, как в моем случае).
Спасибо.
Никогда не бойся делать то, что не умеешь.
Помни, профессионалы построили Титаник, а Ковчег любители.
