Я просто ради забавы делаю приложение для проверки непрочитанных сообщений в Delphi. Я использую Indy 10. Я могу подключиться к Gmail и получить все сообщения, но я столкнулся с проблемой: я не могу сказать, прочитано сообщение уже или нет. В компоненте TidMessage есть свойство flag, которое должно сообщать мне, прочитано ли сообщение. Код выглядит так:
procedure TForm1.btTestConnectionClick(Sender: TObject);
var
i: Integer;
count: Integer;
flag: TIdMessageFlags;
begin
if (pop3Test.Connected) then begin
pop3Test.Disconnect;
end;
pop3Test.Username := edAccount.Text;
pop3Test.Password := edPassword.Text;
pop3Test.Host := HOST;
pop3Test.AuthType := patUserPass;
pop3Test.Port := PORT;
pop3Test.Connect;
Count := 0;
for i := pop3Test.CheckMessages downto 1 do begin
pop3Test.Retrieve(i, IdMessage1);
if (mfSeen in IdMessage1.Flags) then begin
Count := Count + 1;
end;
end;
ShowMessage(IntToStr(Count));
pop3Test.Disconnect;
end;
В тестовом почтовом ящике есть одно непрочитанное сообщение, но для всех извлеченных сообщений свойство flags enum пусто, поэтому результат всегда равен 0. Я что-то делаю не так? Это проблема совместимости Indy / Gmail?
Спасибо.
РЕДАКТИРОВАТЬ: Я определенно делаю что-то не так, поскольку тестирование с учетной записью Hotmail показывает ту же проблему с пустыми флагами.