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

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

Resourse File [D6, WinXP]


Страницы:   1 2

P. ©   (2002-04-05 18:48:00) 

Написано:
"Создать исходный файл ресурсов, куда можно включить и поименовать требуемые файлы с расширением BMP, к примеру:
- inout BITMAP "inout.bmp"
Сохранить этот файл с расширением RC.


Кто-нибудь может пояснить, а то я нихрена не понял(что значит "создать исходный файл ресурсов" и как сохранить ОДИН файл с расширением RC, когда рисунков штук 10).
Буду очень признателен.


Vcoder   (2002-04-05 21:55:00) [21]

Для чтения ресурса можно применить следующую процедуру:

procedure TForm1.Button1Click(Sender: TObject);
var
MyRes : TResourceStream;
begin
MyRes:=TResourceStream.Create(HInstance,"Bmp1",PChar("RT_BITMAP"));
try
Image1.Picture.Bitmap.LoadFromStream(MyRes);
finally
MyRes.Free;
end;
end;


А теперь уже фантазируй как тебе надо считывать все твои картинки: писать для каждого свою процедуру, передавать имя ресурса как параметр, создать массив... Все зависит от конкретной задачи.

PS. Кстати.У TBitmap есть функция LoadFromResourceName. Однако Image1.Picture.Bitmap.LoadFromResourceName(HInstance,"Bmp1) вызывает ошибку "ресурс не найден". Может кто знает, в чем дело?


Юрий Зотов   (2002-04-05 21:02:00) [22]

1. Обычным текстовым редактором в каталоге проекта создаем файл MyRes.rc с таким текстом:

BMP1 BITMAP "С:\Path1\File1.bmp"
BMP2 BITMAP "D:\Path2\File2.bmp"

и т.д. - хоть 10 картинок, хоть 110.

2. Из командной строки Даем команду
BRCC32 MyRes.rc
и в итоге там же появляется файл MyRes.res.

3. Подключаем его к программе:
{$R MyRes.res}

И все. Теперь все картинки будут сидеть внутри самого EXE - в его ресурсах. Доступны они по именам BMP1, BMP2 и т.д.


aus   (2002-04-05 19:09:00) [23]

Меню Tools - Image Editor


Страницы:   1 2

Наверх

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