Отображение загрузки в прогрессбаре

[AmbaQ]

Здравствуйте! Пишу я обновлялку для своих программа, она будет унивесальная, настраивается из ини файла. Всё уже готово, но осталась одна деталь, она не даёт мне покоя...это отображение загрузки файла обновления. Хочу осуществить её при помощи Прогрессбара, пробовал много спосабов, но не получилось.

Способ, которым я хочу это осуществить:

Узнаю размер файла, присваиваю его значение максимальному прогрессбара, после чего начинаю узнавать текущий размер файла на компе, и это значение присваиваю позиции прогрессбара. Проблема в том, что когда я пытаюсь узнать текущий размер файла программа выдаёт ошибку, так как файл занят и не доступен....как это обойти? Загрузка выполняется в отельном потоке, выполняется функцией:

FileOnNet:=ini1.ReadString('ver','urlini','amab'); // читаю ссылку из ини файла
LocalFileName:='Amba.ini';
sGauge1.Progress:=10;
  if GetInetFile(FileOnNet,LocalFileName)=True then

P.S

Поиск юзал. Прошу помочь, кто сможет дайте пример.

[HotKey]

Может быть, стоит ввести переменную и считать получаемые пакеты? И присваивать значение PrgressBar'а этой переменной?
Я сам в этом мало понимаю, но первая мысль, пришедшая на ум, озвучена выше.

[r9m]

Первое - нужно получать размер файла-обновления. Самый простой вариант - поле Content Length. Другое дело - этого поля просто может не быть (редко, но бывает). Вот кстати живой пример.

[Человек_Борща]

r9m это не совсем то что ему надо..

AmbaQ

а ты попробуй по другому..
на источнике обновлений (веб сервер) создавай ini файл с уже готовыми данными..
Имя файла
Размер exe в байтах
и идентификатор по которому сравниваешь, допустим хеш-суммма или версия exe.

в программе которую сопираешся обновлять, все проще..
Скачиваешь файл, и в переменные передаёшь данные из ini, ппотом значения этих переменных присвайваешь чему надо..
для прогресс бара максимум будет это размер exe в байтах.

вримерно это выглядит так:

на веб-сервере есть файл exe , рядом ini вот такого содержания:

[File]
Name=FRG.exe
Size=1805824
Version=1.1.3.1578

скачиваем этот файл..
и переменым из var присвайваем значения:

var
  ExeFileName: string; //тут храним имя файла
  ExeFileVersion: string; //тут идентификатор сравнения версия файла
  ExeFileSize: Integer; //размер файла в байтах

begin

 try
    ini := TIniFile.Create(myDir + FuUpdList); //файл уже скачан 
    ExeFileName := ini.ReadString('File', 'Name', '0'); //присвайваем имя
    ExeFileVersion := ini.ReadString('File', 'Version', '0');//присвайваем id
    ExeFileSize := StrToInt(ini.ReadString('File', 'Size', '0')); //присвайваем размер..
    ini.Free;
  except
    Translator_MessageToLog('Файл FuUpdates.lst не может быть  прочитан!', 'The file FuUpdates.lst can not be read!', UpdaterForm.Log);
    Ini.Free;
    Terminate; //у меня все в потоке да и это кусок кода=0 
  end;
  UpdaterForm.FileProgress.MaxValue := ExeFileSize; //максимальным значением для прогрессбара  будет наш размер в байтах
  ....
{дальше сравниваешь идентификатор...
и в соответствии с этим как-то замещаем старое , новым}

[p51x]

А еще красноглазые системные программисты говорят, что у многих ВинАПИ функций для скачивания файлов есть возможность использовать callback-функции прогресса.