Загрузка бмп изображений

[vovan_evv]

Доброго дня суток всем!

Пытаюсь сделать анимацию на главной форме проекта, которая отображается на весь экран, кое-как заствил анимацию не мерцать, но загрузка изображений происходит очень медленно. Даже без искусственных задержек смена кадров происходит минимум через пол секунды . картинки загружаю стандартным способом - bmp.LoadFromFile. Размер изображений разный от 1 мб до 2мб. Пытался уменьшить размеры изображений теряется качество. Можно ли каким-либо образом убыстрить загрузку изображений?
Может вообще отказаться от бмп и перейти jpeg, тогда как в делфи работать с изображениями формата jpeg?

[AlDelta]

Используй модуль JPEG, он входит в комплект поставки Delphi. Модуль позволяет работать с изображениями в формате JPEG.

Пример открытия файла JPEG

uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
JpegIm: TJpegImage;
bm: TBitMap;
begin
if OpenDialog1.Execute = false then Exit;
bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile(OpenDialog1.FileName);
bm.Assign(JpegIm);
Form1.Canvas.Draw(0, 0, bm);
bm.Destroy;
JpegIm.Destroy;
end;

Как подгружать JPG-картинки, но чтобы они быстро отображались
Данный код заставляет явно и сразу декодировать jpeg, вместо того, чтобы делать это при отображении картинки:

procedure TForm1.FormCreate(Sender: TObject);
begin
if Image1.Picture.Graphic is TJPEGImage then
begin
   TJPEGImage(Image1.Picture.Graphic).DIBNeeded;
end;
end;

Нет невыполнимых задач - есть неосуществимые условия их выполнения.

[vovan_evv]

Большое спасибо!

[vovan_evv]

Попробовал оба варианта:
1. убыстрение смены кадров наблюдалось но не такое сильное.
2. наблюдалось значительное убыстрение, но... показывает только последний кадр когда уже цикл уже закончился. Пробовал увеличить задержку, бесполезно то же самое.
Подскажите в чем может быть проблема.

 procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
while(i<=n)do
 begin
  Image1.visible:=false;
  Image1.Picture.LoadFromFile(f[i]);
  if Image1.Picture.Graphic is TJPEGImage then
  begin
    (Image1.Picture.Graphic as TJPEGImage).DIBNeeded;
  end;
  Image1.Update;
  Image1.Visible=true;
  i:=i+1;  
 end;
end;

f и i - глобальные переменные, f - массив строк, содержащий имена фалов.

[Maslan]

Ой. И ещё раз ой. В задаче поставлено ЧЁТКО и НЕОБХОДИМО условие каждый раз грузить из файла? Ведь можно сделать n глобальных переменных TImage, загрузить в них один раз и пользоваться ими. (Это без всяких оптимизаций уже даст прирост неплохой).

[Stilet]

Вова, скажи а почему б не прокручивать видео вместо "анимации"?
Или ты хочеш сделать типа слайд-шоу?

[Hollander]

Есть компоненты для Delphi которые проигрывают GIF'ы. Также можешь загрузить файлы в ImageList и потом оттуда в Image