Moin Zusammen,
mit Hilfe von Indys (Version 10.1.5) TidIMAP4 versuche ich Mails zu lesen.
Da mich nur die jeweils noch ungelesenen interessieren möchte ich mit Hilfe der Methode UIDCheckMsgSeen prüfen, ob die aktuelle Mail schon gelesen war, oder nicht.
Mit GetUID wird vorher auch der ordinale Wert umgewandelt.
Sobald ich UIDCheckMsgSeen aufrufe erhalte ich allerdings eine
AV mit Fehler beim Lesen von Adresse 0.
Ich konnte feststellen, dass der Fehler in der Zeile
if ((LastCmdResult.Text.Count > 0) and
hervorgerufen wird (
Unit idIMAP4), weil wohl Text nicht initialisiert wurde, und somit beim Zugriff auf Count der Fehler hervorgerufen wird.
Mir ist auch noch die Merkwürdigkeit aufgefallen, dass MailBox.FirstUnseenMsg immer 0 zurückliefert, was auch nicht sein kann, wenn ich gerade neue Mails in das Postfach verschickt habe.
Das eigentliche Lesen der Mail funktioniert hingegen problemlos, nur das Abfragen der Flags scheint ständig vor die Wand zu laufen.
Auch CheckMsgSeen ruft den Fehler hervor, und wenn ich eine Mail abrufe (UIDRetrieve), auch gelesene, enthalten die Flags kein mfSeen.
Zum Testen lese ich die Mails von einem Mercury-Server.
Hier mal der Kern der Routine:
Delphi-Quellcode:
iMailCount := imap.MailBox.TotalMsgs;
msgTemp := TIdMessage.Create;
try
sIsWugMail := AnsiLowerCase(FWugMailsIdentifier);
for i := 1
to iMailCount
do begin
iErrorPos := 0;
try
if not imap.GetUID(i,uidMsg)
then continue;
Inc(iErrorPos);
if imap.UIDCheckMsgSeen(uidMsg)
then continue;
Inc(iErrorPos);
msgTemp.Clear;
if not imap.UIDRetrieve(uidMsg,msgTemp)
then continue;
if Pos(sIsWugMail,AnsiLowerCase(msgTemp.Subject)) = 0
then begin // = 0 => Keine WugMail
Inc(iErrorPos);
imap.UIDStoreFlags(uidMsg,sdReplace,msgTemp.Flags - [mfSeen]);
Continue;
end;
ProcessReadMail;
except
on E :
Exception do begin
FslOutErrors.Add(_sErrWugReadMail+'
|'+Format(_sMskFmtErrorMailException,[uidMsg,iErrorPos,RemoveCRLF(E.
Message)]));
end;
end;
end;
imapLeoLogs.ExpungeMailBox;
finally
msgTemp.Free;
end;
Liegt das jetzt am Mercury-Server, gibt es da entsprechende Bugs in den Indys oder mache ich was falsch?