Скачать: CL | DM;

Как в exe-файл "запихнуть" картинку (jpg)?   Найти похожие ветки 

← →
dera   (2006-01-05 19:35) [0]

---

← →
dera   (2006-01-05 20:01) [1]

...в моем проекте

---

← →
Alarm ©   (2006-01-05 20:18) [2]

RES? и несколько других путей

---

← →
dera   (2006-01-05 20:30) [3]

что такое RES и какие другие пути?

---

← →
Yegorchic ©   (2006-01-05 20:36) [4]

А вроде, если создать TImage, и прямо в Delphi задать ей путь к картинке, то Delphi сама "запихает" в exe картинку...

---

← →
Джо ©   (2006-01-05 20:40) [5]

> Как в exe-файл "запихнуть" картинку (jpg)?
> dera  

Зависит от того, как и зачем ее планируется оттуда "выпихивать".

---

← →
dera   (2006-01-05 20:43) [6]

предполагается "випихнуть" картинку из екзешника и сменить картинку рабочего стола

---

← →
Джо ©   (2006-01-05 20:56) [7]

> [6] dera   (05.01.06 20:43)

Тогда ищи методы работы с ресурсами. Даже в этом форуме раз в месяц как минимум появляется эта тема.

---

← →
Джо ©   (2006-01-05 21:29) [8]

В общем, там коду-то на несколько строк.
1. Создаешь текстовый файл pictures.rc следующего содержания:
MY_IMAGE jpegimage "image002.jpg"
Первая колонка - уникальный идентификатор ресурса, его "название"
Вторая колонка - тип ресурса, в принципе, можно написать любой свой
Третья колонка - имя файла, содержащего рисунок.

2. Сохраняеш это файл и файл с картинкой в папке проекта. Затем: Project/Add to project... выбираешь тип resources *.rc и включаешь свой файл в проект.

Компилируешь.

3.
Код для извлечения и записи во внешний файл следующий:

var
 Res: TResourceStream;
begin
 // указываем Instance, идентификатор ресурса и его тип
 Res := TResourceStream.Create(HInstance,"MY_IMAGE","jpegimage");
 try
   // сохраняем во внешний файл
   Res.SaveToFile("d:\extracted_file.jpg");
 finally
   Res.Free;
 end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c