Поочередная смена изображения.

[QProfessional]

Привет программисты, мне очень нужно сделать поочередную смену изображений в TImage, всего 7 изображений. Помогите, это очень важно.:confused :

[QProfessional]

Именно поочередную смену, никаких Gif-ов.

[Jleksern]

Как оно примерно должно чередоваться?
хм.. если просто, ну тогда просто воспользуйся таймером. Делов то.

[Человек_Борща]

изображения в папке должны быть пронумерованы и иметь формат bmp.

const
  cFolder='c:\папка\';  //папка с зображениями
  cMax=7; //Максимум изображений
var
 i:integer;
begin
  for i:=0 to cMax do
  begin
  Image1.Picture.LoadFromFile(cFolder+IntTOStr(i)+'.bmp');
  Image1.Repaint;
  end;
end;

это так сказать "работает, и хорошо".

По хорошему, надо использовать TSearchRec,FindFirst,FindNext,FindC lose для функции поиска изображений.
Далее загрузку JPG изображений через TJPEGImage.
И все.

[phomm]

Я бы посоветовал создать массив на 7 картинок (bmp png jpg - как хотите, компонентов для разных форматов - куча). Загрузить в них все нужные картинки из файла. Это всё при создании формы можно сделать. Также создать переменную cntr целого типа. Эти 2 вещи можно сделать глобальными, а можно и полями формы. Не забыть при уничтожении формы уничтожить все объекты из массива.
Потом естественно таймер. По таймеру делаем

Image1.picture := ImagesArray[cntr];
cntr := (cntr+1) mod 7;

В итоге получаем зацикленную смену картинок, но без постоянного чтения диска (как у Человек_Борща ), тут уж сами смотрите, что Вам выбрать.

Кстати, в варианте Человек_Борща сделана опечатка и получается 8 картинок - от 0 до 7 цикл, так что, ТС, запомните, если копипастите, то не бездумно, а смотрите и проверяйте всё.

[QProfessional]

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

Как оно примерно должно чередоваться?
хм.. если просто, ну тогда просто воспользуйся таймером. Делов то.

В том то и дело что таймером не взять это, он сразу переходит к конечному изображению.

[QProfessional]

Сообщение от Человек_Борща

изображения в папке должны быть пронумерованы и иметь формат bmp.

const
  cFolder='c:\папка\';  //папка с зображениями
  cMax=7; //Максимум изображений
var
 i:integer;
begin
  for i:=0 to cMax do
  begin
  Image1.Picture.LoadFromFile(cFolder+IntTOStr(i)+'.bmp');
  Image1.Repaint;
  end;
end;

это так сказать "работает, и хорошо".

По хорошему, надо использовать TSearchRec,FindFirst,FindNext,FindC lose для функции поиска изображений.
Далее загрузку JPG изображений через TJPEGImage.
И все.

Интересно, а можно здесь при этом коде использовать png? Сейчас попробовал, не получается.

[Человек_Борща]

С использование TPngImage можно, в случае если у вас delphi 2009+

[QProfessional]

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

Я бы посоветовал создать массив на 7 картинок (bmp png jpg - как хотите, компонентов для разных форматов - куча). Загрузить в них все нужные картинки из файла. Это всё при создании формы можно сделать. Также создать переменную cntr целого типа. Эти 2 вещи можно сделать глобальными, а можно и полями формы. Не забыть при уничтожении формы уничтожить все объекты из массива.
Потом естественно таймер. По таймеру делаем

Image1.picture := ImagesArray[cntr];
cntr := (cntr+1) mod 7;

В итоге получаем зацикленную смену картинок, но без постоянного чтения диска (как у Человек_Борща ), тут уж сами смотрите, что Вам выбрать.

Кстати, в варианте Человек_Борща сделана опечатка и получается 8 картинок - от 0 до 7 цикл, так что, ТС, запомните, если копипастите, то не бездумно, а смотрите и проверяйте всё.

var cntr: Integer;
ImagesArray: array of TPicture;
begin
ImagesArray[cntr].LoadFromFile('Img'+IntToStr(cntr)+ '.png');
//Image1.picture.Assign(ImagesArray[cntr]);
Image1.Picture:=ImagesArray[cntr];
cntr := (cntr+1) mod 7;
end;


Может я что не до понимаю, что здесь может быть не так?

[QProfessional]

Всё отлично, получилось. Спасибо всем за ответы.
Тут оказалось всё просто:

Image1.Picture.LoadFromFile('111\'+ IntToStr(Timer1.Interval)+'.Png');
Timer1.Interval:=Timer1.Interval+1;