Progress?

Jeg skal få en progressbar til at vise hvor langt programmet er med at sende en mail. Hvordan kan jeg gøre det? Jeg bruger Indy komponenterne!

Du skal kigge nærmere på OnWorkBegin, OnWork og OnWorkEnd hændelserne.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk


[Redigeret d. 12/01-04 23:06:03 af Thomas Due]

Jeg skal få en progressbar til at vise hvor langt programmet er med at sende en mail. Hvordan kan jeg gøre det? Jeg bruger Indy komponenterne!

Nu ved jeg ikke så meget om Indy komponenterne, men prøv:

<pre>procedure TForm1.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;

procedure TForm1.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
end;</pre>

Emil Melgaard
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

Den havde jeg kigget på, men ved ikke helt hvad jeg skal skrive! Det skal vel være noget med
ProgressBar.Position:= et_eller_andet;

Hmm! Det virkede, men den stopper ved ca. 1/3 af længden på progressbaren!

Gætter på at du gerne vil have den mere glidende, istedet for at den bare rykker "i hak". Du kunne evt lave noget med noget timer, som så rykker den en lille smule. Det bliver ikke særlig præcist, men ofte bliver man nødt til at gætte når man laver sådan noget.

Hilsen Mark