| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавить картинку в исполняемый файл [D6, NT4, Win2k]

besen-ok ©   (2002-08-12 11:25:00) 

Нет желания с exe’шником постоянно таскать 2 картинки неудобно ! пытаюсь вкомпилировать картинки в исполняемый файл (картинки включил в список ресурсов проекта):

RStr:TResourceStream;
BMap:TBitmap;
begin
RStr := TResourceStream.Create(HInstance,"BITMAP_1",RT_BITMAP);
BMap := TBitmap.Create;
BMap.LoadFromStream(RStr);

При выполнении пишет, Bitmap Image is not Valid !

Что я не так делаю !

---

KPY   (2002-08-13 06:55:00) [1]

procedure LoadJPEGfromEXE;
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
BitMap.Handle := LoadBitmap(HInstance,"BITMAP1");
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free;
end;

файл *.rs
BITMAP1 BITMAP Pricol.bmp

---

KPY   (2002-08-12 15:36:00) [2]

ну как получилось?

---

Vitalik   (2002-08-12 11:51:00) [3]

Я по-моему делал прямо так, и насколько я помню, работало:
var
b: TBitmap;
begin
b: TBitmap.create;
b.LoadFromResourceName(hInstance, "picture");
end;

---

Наверх