Fortschritt vom senden einer EMail (idsmtp) per Progressbar

[hitmiccs]

Hallo Leute!

Ich versuche den Fortschritt beim Senden einer Email per IdSMTP (Indy) auf einem Progressbar darzustellen.
Das senden funktioniert perfekt, nur, weil die angehängten Dateien oft sehr groß sind, möchte ich den Benutzer mit der Progressbar über den Status beim Senden informieren.

Weiß jemand wie ich das anstellen kann, und auf welchen Teil von IdSMTP ich zugreifen muss?



mfg
hitmiccs

[Luckie]

So weit ich weiß, kennt die Komponente OnWorkBegin, OnWork und OnWorkEnd oder so.

[hitmiccs]

Ist richtig, das hatte ich in einem anderen Forum auch schon gehört/gelesen. Leider geben mir diese Eigenschaften immer den Wert "0" zurück... jemand noch eine Idee?

[Luckie]

Wie andere Ideen? Die Auswertung dieser Ereignisse dieser Komponente ist die einzige Idee von mir und die vernünftigeste dies bezüglich. Und wenn es bei dir nicht funktioniert, dann hast du einen Fehler in deinem Code und den solltest du finden, anstatt gleich nach einer anderen Lösung zu fragen, nur weil die einzig vernünftige Lösung nicht gleich auf Anhieb funktioniert.

[Jelly]

Zitat von Luckie:

Wie andere Ideen? Die Auswertung dieser Ereignisse dieser Komponente ist die einzige Idee. Und wenn es bei dir nicht funktioniert, dann hast du einen Fehler in deinem Code

Nein, das ist bei den Indy Komponenten in der Tat so. Beim Beginn des Versendens weiss die IdSMTP Komponente komischerweise noch nicht, wie gross die Mail ist. Ist wohl ein Bug, den ich folgendermassen umgehe, im OnWorkBegin Event:

Delphi-Quellcode:

procedure TdmMailHKA.IdSMTP1WorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
var
 FN : string ;
begin
     FN := format ('c:\temp\%s.txt',['Mail']) ;
     IndyMessage.SaveToFile (FN) ;
     FS := TFileStream.Create(FN,fmOpenRead) ;
     ProgressBar.Max := FS.Size ;
     F.free ;
end;

Also schlicht die Message als File speichern und die Dateigrösse ermitteln.

[hitmiccs]

Immer mit der Ruhe @Luckie, ich würde nicht fragen wenn ich nicht schon von anderen gehört hätte, das dieser "Fehler" existiert

Ich teste jetzt den Code von Jelly...

[dimo]

Ich würde natürlich keine Datei verwenden, sondern ein TMemoryStream und die EMail im Speicher abspeichern, Grösse ermitteln und Speicher freigeben. Sollte natürlich schneller laufen.

Dimo

[Jelly]

Zitat von dimo:

Ich würde natürlich keine Datei verwenden, sondern ein TMemoryStream und die EMail im Speicher abspeichern, Grösse ermitteln und Speicher freigeben. Sollte natürlich schneller laufen.

Das stimmt, aber Indymessage kennt glaub ich nur die Methode SaveToFile und nicht SaveToStream... Kanns aber im Moment nicht überprüfen.