помогите приделать прогрессбар.

[Mobile™]

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

поправил ваш код...во вложении

большое спасибо. оно работает. щас буду разбираться как

[Mobile™]

итак результаты исследования-
как я понял-

inc(num_packet);
form1.progressbar1.position:= num_packet* 4096*100 div fs;

эта функция для работы прогрессбара

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if on_send then begin
  progressbar1.position:= 0;
  on_send:= false
end;

эта для обнуления прогрессбара. правильно разобрался?

[raxp]

эта функция для работы прогрессбара

да
обычная математическая пропорция:

n байт отправили    РАЗМЕР ФАЙЛА
----------------- = ----------------
          Х                    100% 

[Mobile™]

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

да
обычная математическая пропорция:

n байт отправили    РАЗМЕР ФАЙЛА
----------------- = ----------------
          Х                    100% 

я бы хрен когда додумался. щас попробую еще скорость копирования и оставшееся время приделать.