Hallo!
Ich hab ein Problem mit dem versenden von Emails. Da die Anhänge schonmal etwas größer werden, würd ich gerne den Fortschritt beim senden mit einer ProgressBar anzeigen. Ich benutze zum senden die
Indy Komponente IdSMTP, jedoch reagiert die ProgressBar beim senden der Email überhaupt nicht.
Mein Code (den ich mir auch schon zusammengesucht hab) sieht so aus:
Delphi-Quellcode:
function Dateigroesse (Datei : String) : Integer;
var SRec: TSearchRec;
begin
Result := -1;
if FindFirst(Datei, faAnyFile, SRec) = 0 then
try Result := SRec.Size finally FindClose(SRec) end;
end;
procedure Tmaengel.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
var FS:TFileStream;
begin
FS := TFileStream.Create(dmx2send,fmOpenReadWrite) ;
choose_adress.ProgressBar1.Max := FS.Size ;
FS.free ;
end;
procedure Tmaengel.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
choose_adress.ProgressBar1.Position := AWorkCount;
end;
"AWorkCount" ist irgendwie immer Null - mehr konnt ich noch nicht herausfinden.
Wenn jemand eine zündende Idee hätte, wäre super
Grüße, hitmiccs