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

Грузим из DLL ресурсы...   Найти похожие ветки 

← →
I love Warez   (2002-06-01 11:31) [0]

Наконец-то я всосал, как грузонуть ресурсы из DLL.
Мужики! Помогите теперь загрузить BMP файл ( StartMine) из DLL в Image1.

procedure TForm1.Button2Click(Sender: TObject);
var
AModule: THandle;
BitMap : TBitMap;
begin
AModule := LoadLibrary("Images.dll");
BitMap := TBitMap.Create;
BitMap.LoadFromResourceName(AModule, "StartMine");

//Вот так не выходит:
//Image1.Picture := BitMap;

BitMap.Free;
FreeLibrary(AModule);
end;

Заранее благодарен!

---

← →
I love Warez   (2002-06-01 12:26) [1]

Ну! Мужички!
Это же просто!
Это для меня тупого это сложно, но Вы же - Мастера!

---

← →
I love Warez   (2002-06-01 13:43) [2]

Слабо?

---

← →
Song ©   (2002-06-01 15:16) [3]

Симпатяга, :) я тебе дал ответ в другом форуме :)

---

← →
MARcoDEN ©   (2002-06-01 21:18) [4]

Этап первый: создание DLL
Создаёшь текстовый файл с расширением .RC и записываешь в него строки такого вида:
----------
<название картинки1> BITMAP <название файла1>
. . .
<название картинкиN> BITMAP <название файлаN>
-------------
запускаешь программу brcc и в качестве параметра --- твой файл, RC-файл и картинки должны храниться в одном каталоге; после компиляции у тебя будет один большой RES-файл.
Затем у себя в программе пишешь:

AModule: THandle;
AModule := LoadLibrary(...); <--- параметры посмотри в хелпе
Bitmap.LoadFromResourceName(AModule, <название картинки1>);
FreeLibrary(AModule); <--- это уже в самом конце

---

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

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



Память: 0.45 MB
Время: 0.006 c