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

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

Загрузка ресурсов (BITMAP) в приложение [D6, WinXP]

RUYurik ©   (2008-06-09 12:57:00) 

Здравствуйте all ! Хочу создать приложение, которое пользовалось бы ресурсами (Bitmap) из DLL. Создал DLL (предварительно сам RC файл создал в Resource Builder), в секцию Bitmap поместил изображения. Как мне в приложении загрузить из DLL эти изображения.

procedure TForm1.Button1Click(Sender: TObject);
var mLib: THandle;
   mBMP: TBitmap;
   a: THandle;
begin
mLib := LoadLibrary('THINGS.DLL');
mBMP := TBitmap.Create;
mBMP.LoadFromResourceID(mLib,1);

FreeLibrary(mLib);
mBMP.Free;
end;

Resource BITMAP_03_03 not found пишет и все тут (((

---

TForumHelp   (2008-06-13 19:44:00) [1]

Удалено модератором
Примечание: Создание пустых сообщений

---

RUYurik   (2008-06-09 13:22:00) [2]

Переделал DLL (в Resource Builder сделал - Создать Resource-only DLL) - все заработало )))

procedure TForm1.BitBtn1Click(Sender: TObject);
var mLib: THandle;
   mBMP: TBitmap;
begin
mLib := LoadLibrary('THINGS.DLL');
mBMP := TBitmap.Create;
mBMP.LoadFromResourceName(mLib,'BITMAP_03_03');
Image1.Picture.Bitmap.Assign(mBMP);

FreeLibrary(mLib);
mBMP.Free;
end;

---

Наверх