Показ картинок, как реализовать.

[Dj_smart]

Брось ты эту идею с 200 image'ми
Лучше юзай ImageList. Загрузи туда картинки и показывай по очереди
Вот примерчик:

procedure TForm1.Timer1Timer(Sender: TObject);   
begin  
  inc(n); // зарезервируй
  image1.Picture.Bitmap:=imagelist1.GetBitmap(n);
end;

[Zeraim]

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

Брось ты эту идею с 200 image'ми
Лучше юзай ImageList. Загрузи туда картинки и показывай по очереди
Вот примерчик:

procedure TForm1.Timer1Timer(Sender: TObject);   
begin  
  inc(n); // зарезервируй
  image1.Picture.Bitmap:=imagelist1.GetBitmap(n);
end;

Я пробовал имеидж лист, но несмог туда запихнуть имеиджы, непонимаю как оно работает, вродебы добавил в список картинки, жмакаю ок а он пуст =\\
----------------------------------------------------------------------------------------------------------------------------------------
Кстати он для меня и не подоидёт, у меня картинки jpeg

[SunKnight]

Кстати он для меня и не подоидёт, у меня картинки jpeg

uses JPEG;

Для правильной работы ImageList нужно установить свойства Heagh Width равными размерам изображения которого вы пихаете туда.

[mutabor]

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

[Zeraim]

Спасибо, я поробую, но немоглибы подсказать где в том коде ошибка? Буду держать его как запасной вариант.

[mutabor]

Тот код отложи пока, вот загрузка из ресурсов:

uses Jpeg;
{$R test.res}

function LoadJpegRes(const ID: string): TJpegImage;
var
  RS: TResourceStream;
begin
  Result := TJpegImage.Create;
  RS := TResourceStream.Create(HInstance, ID, RT_RCDATA);
  try
    RS.Seek(0, soBeginning);
    Result.LoadFromStream(RS);
  finally
    RS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyJpeg: TJpegImage;
begin
  MyJpeg := LoadJpegRes('MYJPEG');
  Image1.Canvas.Draw(0, 0, MyJpeg);
end;

Для JPEG, загнанного в ресурсы таким образом:
MYJPEG RCDATA "Test.jpg"

Вместо MYJPEG можно любое другое имя, можно цифры - 1, 2, 3...
Для компиляции файла res можно воспользоваться компилятором ресусов brcc32 (он есть в папке с Delphi), а можно прямо из среды еще кажется.
Статей на эту тему море.

[SunKnight]

Спасибо, я поробую, но немоглибы подсказать где в том коде ошибка? Буду держать его как запасной вариант.

Ваш код это неправильное решение поставленной задачи.

[Zeraim]

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

Ваш код это неправильное решение поставленной задачи.

А задача в томто и состоит чтобы в одном экзе были все картинки 8( Так попросили сделать =\\

[mutabor]

Ну так всё уже рассказали, осталось почитать как скомпилить RES-файл.
RC файл у тебя будет примерно такого вида, зависит как у тебя файлы называются и как ты хочешь к ним в программе обращатся (идентификатор перед RCDATA):

1 RCDATA "1.jpg"
2 RCDATA "2.jpg"
... и так далее