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

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

Грузим из DLL ресурсы... [D3, Win95/98]


I love Warez ©   (2002-06-01 11:31:00) 

Наконец-то я всосал, как грузонуть ресурсы из 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;


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


MARcoDEN   (2002-06-01 21:18:00) [1]

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

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


Song   (2002-06-01 15:16:00) [2]

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


I love Warez   (2002-06-01 13:43:00) [3]

Слабо?


I love Warez   (2002-06-01 12:26:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо