AS
Почему связь рвётся?
Size: a a a
AS
AS
AS
SB
AS
SB
DB
DB
SB
AS
S
S
S
S
S
S
var
UplTime :int64;
BeforeUpl : TDateTime;
UplSpeed : Real;
BeforeUpl:=Now;
...чототам делаем...
UplTime := ((MilliSecondsBetween(BeforeUpl, now)));
UplSpeed := i/ UplTime*0.9765625; // i здесь равно количеству отправленных байт. 0.9765625 =1000/1024 - коэффициент для получения килобайт в секунду
SB
SB
AS
SB