idPOP3 und ProgressBar

[Sascha L]

Hallo,

ich nutze die idPOP3-Komponente (Indy 10) und eine Progressbar.

Die Progressbar soll mir den aktuellen Download-Fortschritt anzeigen, dafür verwende ich die Ereignisse "OnWork", "OnWorkBegin" und "OnWorkEnd".

Ich habe zum Testen mal in den Ereignissen folgendes reingeschrieben:

Delphi-Quellcode:

Memo1.Lines.Add(IntToStr(AWorkCount));

Mir ist dabei aufgefallen, dass die Variable auch einen Wert beim Verbinden zum Server und beim Einloggen annimmt.

Insgesamt wird also AWorkCount mit neuen Daten gefüllt. (Verbinden, Einloggen, Email downloaden).

Ich habe also bei OnWorkEnd die Progressbar-Position wieder auf 0 gesetzt, damit er wieder von vorne anfängt. Sonst würde er ja schon 100% anzeigen, wenn er sich gerade mal mit dem Server verbunden hat.

Wie bekomme ich es aber nun hin, dass er mir nur den Fortschritt beim Dowloaden der Email anzeigt, denn das Verbinden und Einloggen ist überflüssig, da es nur ein paar Bytes sind.

Beim Test mit dem Memo ist mir aufgefallen, dass AWorkCountMax stets 0 ist!! d.h. meine ProgressBar wird sofort auf 100% gesetzt, obwohl er die Email gerade erst anfängt herunterzuladen.

Hat jemand dasselbe Problem und es schon behoben, oder kann mir allgemein hier weiterhelfen?

Gruß
Sascha

[Sprint]

Mit RetrieveMsgSize ermittelst du die Größe der Nachricht. Damit OnWork in Verbindung mit einer ProgressBar läuft, musst du die Nachricht mit RetrieveRaw abholen. Benutzt du Retrieve, wird zu erst der Header geholt und dann die Nachricht. Beides zusammen ergeben dann aber wieder die Größe von RetrieveMsgSize.


Edit: \\ Mein Beitrag war auf Indy 9 bezogen. Ob bei Indy 10 was geändert worden ist, das weiß ich nicht. Einfach mal ausprobieren.

[Sascha L]

Bei RetrieveRaw kann ich aber nicht mehr angeben, wohin die Nachricht geladen werden soll, nämlich in idMessage1. :gruebel:


EDIT:

Ich habe es nun so realisiert:

Bei der Prozedur, die die Mails abruft, etc. habe ich vor

Delphi-Quellcode:

idPOP31.Retrieve(1,idMessage1);

Delphi-Quellcode:

msgsize := idPOP31.RetrieveMSGSize

geschrieben, wobei msgsize eine globale Variable vom Typ Integer ist.

Bei OnWorkBegin und OnWork habe ich die Bedingung (if AWorkMode = wmRead), sodass er Anfragen zum Server (Connect, Login) nicht berücksichtigt. Des Weiteren habe ich nun als Maximum für die Progessbar msgsize genommen.