[kiman.ru]

В программе на Дельфи загружаю изображение так:

Код:

Image1.Picture.LoadFromFile('C:\kartinka.jpg');

Загружаю большое изображение и необходимо во время загрузки показывать на каком этапе находится процесс загрузки.

Проблема в том, что во время загрузки изображения программа просто замораживается на это время и ничего кроме загрузки не выполняет.

Как решить эту задачу и при помощи ProgressBar показать процесс загрузки?

Надеюсь на вашу помощь.

[v1s2222]

Я думаю, что это с обычным TImage не возможно... надо или писать свой компонент, с выводом загрузки, или просто показывать в этот момент форму-заставку, типо "Пожалуйста, подождите...", и когда картинка полностью загрузиться (а это можно узнать, например из условия if(Image1 <> nil), просто убирать форму-заставку...

[ALexandr555]

ну можно на момент загрузки гонять из стороны в сторону на прогресс баре полоску а когда загрузится убираем и пишем мол загружено

[Aristarh Dark]

Все это от Лукавого. Все что нужно - давно придумано. А нужно просто менять курсор на "песочные часы" и не запариваться.

[x128]

Событие OnProgress

[kiman.ru]

Сообщение от Aristarh Dark

Все это от Лукавого. Все что нужно - давно придумано. А нужно просто менять курсор на "песочные часы" и не запариваться.

Этот вариант к сожалению не подходит...

А по поводу гонять полоску прогресс бара - меня бы устроило, просто проблема в том, что программа просто «подвисает» на время загрузки большой картинки, а потом продолжает работу. Поэтому прогресс бар просто не реагирует в этот момент ни на что.

Какие-нибудь идеи есть как решить эту задачу?

[v1s2222]

Я уже ж говорил, надо прогрес бар просто поставить на другую форму, и тогда он реагировать будет...

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

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

[x128]

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

Событие OnProgress

из справки (Delphi 7):

OnProgress event (TImage)
Occurs periodically during slow operations that affect the image.
Delphi syntax:
property OnProgress: TProgressEvent;
Description
Write an OnProgress event handler to provide the user with feedback during slow operations such as loading large compressed images.

TProgressEvent type
TProgressEvent is the type of event handlers that provide feedback during lengthy operations.
Unit
Graphics
Delphi syntax:
type TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string
) of object;

пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  ProgressBar1.Position:=PercentDone;
  label1.Caption:=IntToStr(PercentDone)+'%';
  Application.ProcessMessages;
end;

[MAD_EVAL]

Обрабатывайте заполнение прогрессбара с использованием Application.ProcessMessages. Тогда он будет работать! У Вас ведь приложение в одном потоке работает