VPF::Application.ProcessMessages & ProgressBar - Форум программистов

csander

Дата 24.3.2010, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Суть проблемы:
Я создаю отчет (набор XML файлов). Количество файлов варьируется от 10 до 30. Чтобы показать процесс создания этих файлов я использую ProgressBar. Но ProgressBar "заполняется" на 100% только по окончании создания файлов.
Можно ли обойтись без TThread?

Создаем ProgressBar:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar := TProgressBar.Create(StatusBar2);
  ProgressBar.Parent := StatusBar2;
  ProgressBar.Position := 0;
  ProgressBar.Visible :=false;
  ProgressBar.Left := StatusBar2.Panels[0].Width+StatusBar2.Panels[1].Width + 1;
  ProgressBar.Height := 17;
  ProgressBar.Width := 150;
  ProgressBar.Top := 2;
end;

Создаем отчет:

Код


procedure TForm1.XMLreportCreate(Sender: TObject);
var
  XML: TStringList;
  error,i,j: integer;
  stream : TStream;
  ext:string;
begin
  {$IOChecks off}
  MkDir('Отчеты');
  error := IOResult;
  ProgressBar.Visible := true;
  ProgressBar.Min := 0;
  ProgressBar.Max := 23;
  ProgressBar.Position :=0;
  StatusBar2.Panels[3].Text := 'Создание отчета...';
  stream := TMemoryStream.Create;
  XML := TStringList. Create;
  XML.Clear;
  XML.Add ('.........');
  .........................
  XML.SaveToFile('Отчеты\Report1.xml');
  ProgressBar.StepBy(1);
  FreeAndNil(stream);
  Application.ProcessMessages();
  stream := TMemoryStream.Create;
  XML.Clear;
  XML.Add ('........');
  ...............................
  XML.SaveToFile('Отчеты\Report2.xml');
  ProgressBar.StepBy(1);
  FreeAndNil(stream);
  Application.ProcessMessages();
  //и т.д.
  FreeAndNil (XML);
  StatusBar2.Panels[3].Text := 'Отчет создан...';
  ProgressBar.Visible := false;
end;

Данкинг

Дата 24.3.2010, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Ну так а с Application.ProcessMessages что не получается?

--------------------

There's nothing left but silent epitaphs.

csander

Дата 24.3.2010, 08:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

у меня уже стоит Application.ProcessMessages. Во время процесса появляется только первое деление и все. В конце сразу полностью заполняется.

Dom

Дата 24.3.2010, 08:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 7.8.2005

Репутация: 1
Всего: 4

Мммм, может поставить перед вызовом Application.ProcessMessages что-то вроде ProgressBar.Refresh?

former

Дата 24.3.2010, 09:04 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

csander, ты только в двух местах увеличиваешь значение Position. А максимальное значение у тебя 23.

Код


ProgressBar.Max := 23;

Это сообщение отредактировал(а) former - 24.3.2010, 09:05

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »