ProgressBar

[Terran]

Всем привет! Дан код сервера который передайт файлы. Подскажите пожалуста как мне написать код программы чтобы при передаче файла ProgressBar показывал сколько в общем уже передалось?

Procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
Var
Fs: TFileStream;
Data: TMemoryStream;
Begin
If Socket.ReceiveText = 'S' Then
Begin
Fs:=TFileStream.Create(Edit1.Text, FmOpenRead);
Try
Fs.Position:= 0;
Socket.SendText('Size:'+IntToStr(Fs .Size)+ #0);
Socket.SendStream(Fs);
Finally
End;
End;
End;

Заранее благодарен!

[BOBAH13]

ну в этом случае если вы так делаете SendStream - врятли что получиться Поэтому более низкоуровневый подход я больше приветствую, т.к. легче под себя подстроить, а не самому подстраиваться

[zetrix]

т.е. отсылать пакетами (допустим по 16 кб). Весь размер делим на 16 кб округляем, и получаем максимальное значение для прогрессбара. Затем после отправки каждого буфера +1 к текущему значению.

[Квэнди]

либо как zetrix говорит, либо использовать Indy

[SeRhy]

сначала опредиляеш полный обём файла. Ставиш счетчик который считает сколько уже передано и делаеш так:
progresbar1.position:=progresbar1.m ax/(полный размер файла)*(размер информации которая уже была передана)

[Terran]

Спасибо !!!