ProgressBar и отнимание трафика

[shilovec5377]

привет всем.
есть прога для отнимания трафика.
помогите пж отнимание трафика привязать к ProgressBar.
заранее благодарю.

[shilovec5377]

помогите пж.

[shilovec5377]

вот пробую писать так:

a:=strtoint(label21.Caption);  //установленный лимит
b:=trafbitin;   //количество принятых мегабайт
ProgressBar2.Position := 100;
ProgressBar2.Position := round(b / a * 100);

но ProgressBar сразу же становится полным и всегда полный.

[cashmail]

ProgressBar2.Position := 100;

Убери, он делает полную полосу

[shilovec5377]

Сообщение от cashmail

ProgressBar2.Position := 100;

Убери, он делает полную полосу

вот код по отниманию трафика:

//==============================================================================
         z:=(strtofloat(    Label21.Caption)*1024*1024    - (trafbitin))/1048576;
         //(trafbitin/1048576) делим 1048576 получаем в мегабайтах
         //(strtofloat(Label1.Caption)*1024*1024) количество мегабайт умножаем на 1024 и 1024 получаем в байтах
         Label25.Caption :=FormatFloat('#,##0.00 Мб.', z);//здесь выводится сколько осталось mb.
//==============================================================================

а так пробую чтобы в ProgressBar1 отнималось, но он всеравно полный

 
ProgressBar1.Max := strtoint(label21.Caption);
ProgressBar1.Position := trafbitin;

[Yurk@]

подозреваю что примерно так:

a:=strtoint(label21.Caption);  //установленный лимит
b:=trafbitin;   //количество принятых мегабайт
ProgressBar2.Max := 100;
ProgressBar2.Position := round(b / a * 100);

или

a:=strtoint(label21.Caption);  //установленный лимит
b:=trafbitin;   //количество принятых мегабайт
ProgressBar2.Max := a;
ProgressBar2.Position := b;

[shilovec5377]

всеравно не работает, полный он и все. я у же не знаю, что можно сделать