Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

Загрузка ресурсов (BITMAP) в приложение   Найти похожие ветки 

 
RUYurik   (2008-06-09 12:57) [0]

Здравствуйте 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 пишет и все тут (((


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

Переделал 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;


 
TForumHelp ©   (2008-06-13 19:44) [2]

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



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

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-1202115145
Tsyba_Stanislav
2008-02-04 11:52
2008.07.13
Проблема возврата строк в запросе под ОС Виста


15-1211938701
DimonS
2008-05-28 05:38
2008.07.13
Знатокам Access. Рухнула база (похоже).


15-1212260211
Proof
2008-05-31 22:56
2008.07.13
Не понятно, что с хелпом


2-1213386637
MaryM
2008-06-13 23:50
2008.07.13
SynEdit и Delphi 2007


2-1213011349
Johnnnnn
2008-06-09 15:35
2008.07.13
Как заполнить Flesh форму?