Зачем нужны ресурсы? Чтобы защитить нужные файлы от изменений, скрыть от пользователя. И также, насколько я понимаю, если проводить аналогию с физическим миром это что-то вроде склада, где по отдельному идентификатору можно вызвать то или иное изображение, видео или другой тип данных. Ниже представлен пример использования ресурсов через GUI, но если говорить об универсальности, то, конечно же путь лучше прописывать через ExtractFilePath или подобную функцию, чтобы программа не зависела от места куда её установили. А самый лучший способ, если файлов много – создать ресурсную DLL, но об этом в другой раз, а сейчас самый простой способ.
Сначала нужно добавить ресурс, например изображение, через Project | Resources and images
При добавлении важно написать осмысленный идентификатор (в примере ниже bird_id)
|
1 2 3 4 5 6 7 |
procedure TForm1.FormCreate(Sender: TObject); var rs:TResourceStream; begin if FindResource(0,'bird_id',PChar(RT_RCDATA)) <> 0 then rs:=TResourceStream.Create(0,'bird_id',PChar(RT_RCDATA)); image1.Bitmap.LoadFromStream(rs); end; |
Вот какие файлы у меня добавились в директорию с проектом
Я так понимаю в .dres файле, собственно и находится сейчас картинка, которая подгружается программой в нужный момент. А .rc файл можно открыть блокнотом и увидеть там запись вида
|
1 |
Bird_id RCDATA "C:\\Users\\Stas\\Desktop\\Pics\\bird.jpg" |
Я брал откомпилированный Exe и запускал его в разных директориях, везде запускался, похоже ресурсы зашиваются внутрь EXE, что не всегда хорошо.