Как рисовать картинки из Deployment

[Armageddets]

Всем доброго времени суток!

Через Deployment добавил все нужные картинки. В моем случае мои картинки изменяться никак не будут, и открываются только для чтения. Поэтому я не стал менять пути для них. В связи с этим столкнулся с проблемой - как же собственно получить доступ к ним? То есть мне нужно нарисовать одну из тех картинок. Я не знаю как правильно это делать.

Я подключил вверху System.IOUtils, чтобы получить доступ к TPath.

Пробовал разные варианты: просто рисовать картинку с этим именем:

form1.Canvas.DrawBitmap(fon,RectF(0,0,320,240),RectF(30,30,320,240),1,true);

пробовал указывать так еще:

fon:=Tbitmap.CreateFromFile(TPath.Combine(TPath.GetDocumentsPath, 'fon.bmp'));

а затем рисовал таким же способом:

form1.Canvas.DrawBitmap(fon,RectF(0,0,320,240),RectF(30,30,320,240),1,true);

Читал тему на вашем форуме с названием "Включение своих файлов в приложение", но это не помогло мне.

 

Не знаю, может надо как ресурс еще их подключить? Хотя мне кажется я неправильно использую TPath. Заранее спасибо всем за помошь.

[Armageddets]

Рисование происходит в событии формы OnPaint. Далее таймер вызывает Form1.invalidate;

Если надо читать через поток, то как именно это сделать?

var

  Stream: TResourceStream;

begin

  Stream:= TResourceStream.Create(hInstance, 'YouRes', RT_RCDATA);

  try

    //как именно загрузить файл из потока?

  finally

    Stream.Free;

  end; 

[Syb]

не из деплоймент, а из ресурсов Project>Resources and Images - Добавляете картинки ваши

var pi: TresourceStream;

.....

if findresource(0, 'имя картинки в ресурсах', PChar(RT_RCDATA)) <> 0

then

Begin

pi := (TresourceStream.Create(0, 'имя картинки в ресурсах',

PChar(RT_RCDATA)));

imageg[j].LoadFromStream(pi);

pi.Free;

end;