Прогрузить Image в память

[NoName_emaNoN]

Добрый день!

Ситуация следующая: Есть Panel, на ней несколько Image'ев, некоторые имеют координату больше чем Panel.Width, т.е. находятся вне зоны видимости. Затем эти Image выводятся в зону видимости, т.е. становятся видны. И в этот момент, перехода картинки из невидимой зоны, в зону видимости программа подвисает на некоторое время (да картинки 1024*768 ~100 мс), всё бы ничего страшного, но картинок может быть много, и подвисание начинает раздражать.

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

Из этого следует вопрос. Как этот Image прогрузить?

[mutabor]

Хм.. Сложно сказать, мне кажется к этим вещам у вас доступа нет, это уже система у себя кэширует скорее всего. Но можно попробовать сделать имиджу Refrresh или Repaint, хотя вряд-ли поможет.
Можно решить вопрос иначе, юзать PaintBox, никуда его не двигать, а только обновлять в нем изображение, копируя откуда нужно. Но тут конечно, все вручную, такого удобства, как с имиджами на панели, не будет.

[NoName_emaNoN]

Refresh, Repaint, Update не помогает. Отсылать Image'у сообщение WM_PAINT и прочие тоже не помогает.

Я всё же думаю, и надеюсь что доступ к этому есть, ведь когда картинка показывается она кэшируется, думаю это делает сам Image, а не система, по крайней мере надеюсь на это

Удобство тут не так важно, важно чтобы работало. Думаете что если использовать PaintBox, то тормозить не будет? Каким образом тогда загружать картинки? Как TImage или как TPicture? Мне всё же кажется что при отрисовке на PaintBox всё равно будет происходить какая-то прогрузка.

[DomiNick]

Прогрузить Image в память

Эм... Дык оно ж и так в памяти.....

Затем эти Image выводятся в зону видимости, т.е. становятся видны.

Хм..... А каким образом выводятся? И какие у TImage установлены Width, Height (или AutoSize), Center, Strech и Proportional?

Form1.DoubleBuffered:=True; Panel1.DoubleBuffered:=True; и.т.д. - пробовали?

[NoName_emaNoN]

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

Эм... Дык оно ж и так в памяти.....

Нет, оно не в памяти.

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

Хм..... А каким образом выводятся? И какие у TImage установлены Width, Height (или AutoSize), Center, Strech и Proportional?

Form1.DoubleBuffered:=True; Panel1.DoubleBuffered:=True; и.т.д. - пробовали?

Выводяться изменением координаты Left. Image.Height = Panel.Height. А Width подгоняется. AutoSize=False; Stretch, Propotional = True.

У Panel свойство DoubleBuffered = True. Форма здесь не причём, она роли не играет.

Я думаю есть некая функция на API для прогрузки самой картинки в память. Думаю нужно копать в эту сторону. Но что именно делать я не знаю, где эти API функции и прочее.
Может быть кто-нибудь знает такую функцию или как примерно найти выход?

[x128]

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

[kSower]

попробуй загрузить изображение в TBitmap (или TJpeg, смотря что у тебя за формат), а потом нарисовать его в паинтбоксе. При перемещении перерисовывай на новое место на паинтбоксе. Поидее не должно томозить

[NoName_emaNoN]

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

Мы говорим о разных пямятях. Оно может находиться и не в памяти.
Весь процесс я описал в первом посте. Если что-то не понятно, то спрашивайте. Или переписать?

попробуй загрузить изображение в TBitmap (или TJpeg, смотря что у тебя за формат), а потом нарисовать его в паинтбоксе. При перемещении перерисовывай на новое место на паинтбоксе. Поидее не должно томозить

Уже советовали в посте выше. Тоже есть подозрение что может сработать. Попробую так реализовать.

[x128]

Прогрузить Image в память

Эм... Дык оно ж и так в памяти.....

Нет, оно не в памяти.

TImage всегда в памяти...

Мы говорим о разных пямятях

Какой-то каламбур, ты конкретизируй вопрос, что тебе нужно и в какую память. Обычно проблемный код люди показывают, а тут больше похоже на гадание...

Весь процесс я описал в первом посте. Если что-то не понятно, то спрашивайте. Или переписать?

Из первого поста ничего не понятно. Можно только предполагать, что не так. Что-то мне подсказывает, что ты пытаешься грузить картинку с диска когда это совсем не нужно. В любом случае, не видя код, тяжело дать однозначный ответ.

[NoName_emaNoN]

2 x128:

procedure TForm2.LoadPath(Path: string);
var
i,j:integer;
Image: TImage;
k:double;
begin
ClearImagesField;
CenterImage := -1;
Files.Directory := Path;

for I := 0 to Files.Count - 1 do
begin
  Image := TImage.Create(Panel1);
  Image.Name := 'Image'+inttostr(i);
  Image.Picture.LoadFromFile(Files.Items[i]);
  Image.Parent := Panel1;

  K:=Panel1.ClientHeight/Image.Picture.Height;

  Image.Stretch := True;
  Image.Proportional := True;
  Image.Height := Panel1.ClientHeight;
  Image.Width:=trunc(Image.Picture.Width*k);
  FWidths.Add(inttostr(Image.Width));
  FHeights.Add(inttostr(Image.Height));

//  Image.SendToBack;
//  Application.ProcessMessages;
//Image.Visible:=False;
//  Image.Invalidate;
//Image.Repaint;
  if i=0 then
  Image.Left := 0 else
  Image.Left := (Panel1.FindComponent(FImages[i-1]) as TImage).BoundsRect.Right;

//  Image.Visible:=true;

  Image.OnMouseDown:=Panel1MouseDown;
  Image.OnMouseUp:=Panel1MouseUp;

//  Image.Perform(WM_PAINT,0,0);
  FImages.Add(Image.Name);
end;
//Panel1.Perform(WM_SETREDRAW, 1, 0);
//Panel1.Refresh;
end;

procedure TForm2.MoveImages (n: integer);
var i: integer; Image: TImage;
begin
if CenterImage <> -1 then CenterImage := -1;

{!}//  Panel1.Update;
  Image := (Panel1.FindComponent(FImages[0]) as TImage);
  Image.Left := Image.Left - n;

  for i := 1 to FImages.Count - 1 do
  begin
    Image := (Panel1.FindComponent(FImages[i]) as TImage);
    Image.Left := (Panel1.FindComponent(FImages[i-1]) as TImage).BoundsRect.Right;
  end;
end;

Вот это две главные процедуры в приложении. Первая грузит картинки на панель. Вторая их двигает. Создайте простое приложение с панелькой и кнопкой. Загрузите картинки, и выполняйте процедуру MoveImages с любым значением, можно даже в таймере, нагляднее будет. Перед тем как показать новую картинку (ту которую ранее не было видно) будет не большое подвисание.