При выполнении кода форма зависает. Как вывести прогрессбар?

[plato]

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

function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   dwIndex := 0;   dwCodeLen := 10;
   try
      hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
      HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH, @dwcode, dwcodeLen, dwIndex);
      res := pchar(@dwcode);
      Memo1.Lines.Add(res); // вывожу на мемо размер требуемого файла
      pb.Max := StrToInt(res); // задаю макс для прогрессбара
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         Timer1.Enabled := true;
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen);            
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end;

Сама функция вытянута из инета, который пестрит этим примером.
Пример работает и файл вытягивается.
Проблема с формой и прогрессбаром.
Пытался вызывать эту функцию и в нажатии кнопки, и в таймере по времени. Одинаково загружает форму и не дает вывести прогрессбар.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#" (а не значка #).
Вы не знали? Почитайте правила раздела...
Модератор

[mihali4]

Таймер-то тут при чем?

         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen); 
//Вот тут вставляем нечто вроде
ProgressBar.Position:=ProgressBar.Position+1;
Application.ProcessMessages;           
         until BufferLen = 0;

[FaTaL]

Правильнее будет вывести Вашу функцию скачки в отдельный поток, а потом методом Synchronize отправлять данные на Ваш прогрессБар.

[raxp]

вспоминаем школьную математику...

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

...
repeat
 InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
 BlockWrite(f, Buffer, BufferLen);            

 inc(num_packet);
 progressbar1.position:= num_packet* BufferLen *100 div @dwcode;
until BufferLen = 0;

тема обсасывалась тут

[plato]

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

Таймер-то тут при чем?

Спасибо. Помогло. Собственно куда вставить было не проблема, помогла именно строка Application.ProcessMessages;

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

Правильнее будет вывести Вашу функцию скачки в отдельный поток, а потом методом Synchronize отправлять данные на Ваш прогрессБар.

Нашел в инете способ закачки в отдельный поток. Но пока не брался его реализовать, т.к. этот нормально заработал.

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

вспоминаем школьную математику...

И Вам спасибо. только я не спрашивал, как посчитать 2+2 ))). Благо, я физмат оканчивал. Проблема была именно в отображении формы.

Считаю на данном этапе вопрос решенным. Всем спасибо.