TProgressBar

6te mi se da ponau4a malko mowe4e za tozi komponent - i po-to4no swarzwaneto mu s prodaljitelni operacii. E, da, wseki znae za stepit & position++ , no waprosa mi e kak naprimer da go swarja s: > pop3.getmailmessage[1], naprimer!

10x!

"Ako debagingat e proces za otstraniawane na gre6ki, to programiraneto e proces za dobawianeto na takiwa" unknown author

Ihh ali ti kazah da chetesh knijki... tam pishe osnovnoto, a tuka e za, ako go nqma tam

Inache tova shte nqma da e trudno da go vurjesh. Vij tam TPop3 kakvi Events ima pri transfer, i ako ima tam nqkakvi za poluchavane mojesh da se probvash da prosledish progresa.

Mojesh da probvash obache neshto drugo. Da mestish procesa na connect, receive(send), disconnect. Zavisi kak bachkash s komponenta.

by Waz Gaa
[email protected]

Както каза Waz Gaa в твоя случай просто намери подходящото събитие на POP3 компонента който използваш.
За INDY POP3 (препоръчвам ти него или POP3 componenta ot ICS вместо POP3 компонента на Fast Net ) може да стане например така:

procedure TfrmConnect.IdPOP31WorkBegin(Sender: TComponent;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar1.Position:= 0;// нулираш
if AWorkCountMax>0 then
ProgressBar1.Max:= AWorkCountMax; // ако е възможно тук сетваш Max
end;

procedure TfrmConnect.IdPOP31Work(Sender: TComponent; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position:= AWorkCount;
end;

hehe moje i kato IE- da prash - slagash tam edin progres i kato widish che nema danni - go mradwash malko - za seki slichaj da ne se otkajat orata - a sled towa kato razberesh che nqma da stane barzo go premestwsh do kraq i kazwash "sory, nemq da stane"

------------------------------
I got a COMPILER, and I'm not afraid to use it!

hey 10x a lot. znaeh 4e 6te triabwa da se swarzwa s niakoi event, oba4e...
haide stiga sam se oprawdawal...

Mersi na wsi4ki, koito si iztarkaha prastite po moia problem...