Как убрать заморозку, как узнать прогресс

@Skmaestro · Регистрация: 14.11.2010

Author24 — интернет-сервис помощи студентам

Как убрать заморозку из

Delphi

html:=IdHTTP1.Post('http://site.ru/files.php',PostData);
if html <> '1' then
begin
  if html <> '' then
  begin
      m := TMemoryStream.Create;
      IdHttp1.Get ('http://site.ru/'+html, m);
    try
      m.SaveToFile(s+html);
      if fileexists(s+html) then downloadfile();
    except
      ShowMessage('Ошибка 101!');
    end;
    m.Free;
  end;

- это и есть функция downloadfile();(он качает файл за файлом пока не остановиться) - работает на 100%
но я хочу сделать загрузка файла file.rar Прогресс 10% размер 100гиг.....
а у меня сейчас когда качает файлы вообще замирает - не отвечает, раньше я где-то нашел что-то но сейчас дела плохи, забыл как гуглил(

@FIL · 14.12.2013, 12:08

http://trialanet.com/delphi/in... mb-kb.html

@Skmaestro · 14.12.2013, 13:35 **[ТС]**

я там так и не понял
что именно в моем коде замораживает все?
Там я не увидел то что искал, а переписывать 3к строчный код не вариант
Да что-за я помню года 3 назад 1 команду ввел и все!

Добавлено через 16 минут
antifreeze не помогает(
форм2 тоже!

Добавлено через 20 минут
Более менее работает, если кому нада поставил idantifreeze и установил OnlyWhenIdle на фалс все гуд!
хотя тупит сильно но лучше уже!

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	14.12.2013, 12:08	2
	http://trialanet.com/delphi/in... mb-kb.html 1

@Skmaestro 4 / 4 / 0 Регистрация: 14.11.2010 Сообщений: 341
	14.12.2013, 13:35 [ТС]	3
	я там так и не понял что именно в моем коде замораживает все? Там я не увидел то что искал, а переписывать 3к строчный код не вариант Да что-за я помню года 3 назад 1 команду ввел и все! Добавлено через 16 минут antifreeze не помогает( форм2 тоже! Добавлено через 20 минут Более менее работает, если кому нада поставил idantifreeze и установил OnlyWhenIdle на фалс все гуд! хотя тупит сильно но лучше уже! 0