Цитата:
|
Сообщение от crazyman
видимо stream.position равно нулю
|
Stream Len = 7762944
Код:
========Доступно оновление 1.1========
Количество файлов для обновления: 2
Общий объем обновления: 140888888
____________________________________________
Загрузка файла: BAGIRA.exe
Размер загружаемого файла: 8888888
Stream Pos = 7762944 //показывает после завершения скачивания
Загрузка файла: Setup.exe
Размер загружаемого файла: 132000000
Кстати,
Код:
procedure TimerTimer(Sender: TObject);
begin
ShowMessage (IntToStr(Stream.Position));
ProgressBar.Position:=Stream.Position;
end;
почему то не выполняется ...
Код:
procedure TUpdate.Execute;
begin
Timer:=TTImer.Create(nil);
Timer.Interval:=50;
Timer.Enabled:=True;