Большой текст в Delphi. (Работа с ресурсами - примечание модератора Mawrat).

@IHaveQuestions · Регистрация: 07.08.2011

Студворк — интернет-сервис помощи студентам

Можно ли вставить большой текст в Delphi до запуска программы

@ujif · 04.02.2015, 13:30

я создал файл ресурсов с картинкой *.bmp в Delphi7 с помощью
"Tools" -> "Image Editor" сохранил все в папке с проектом,
при запуске выдается сообщение "файл ресурсов BITMAP1" не найден"
вот еще код с пом.которого пытаюсь открыть эту картину маслом

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
implementation
 
{$R *.dfm}
  {$R BITMAP1.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
   try
  back:= TBitmap.Create;
  back.LoadFromResourceName(HInstance,'BITMAP1');
  //Change size Form1
  Form1.ClientWidth:= back.Width;
  Form1.ClientHeight:= back.Height; 
     finally
     end; 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0,0,back);
end;

@Mawrat · 04.02.2015, 15:04

Если загрузка ресурса осуществляется через метод TBitMap.LoadFromResourceName(), то такой ресурс должен иметь тип BITMAP, а не RCDATA.

Т. е., делается так.

1. Файловая структура:

Code
1
2
3
4
5
6
--Папка с проектом
----Resources
------ResLib.bat
------ResLib.rc
----Files
------bitmap1.bmp

2. Файл ResLib.bat:

Code
1
2
brcc32.exe ResLib.rc
pause

3. Файл ResLib.rc:

Code
1
BITMAP1 BITMAP "Files\bitmap1.bmp"

4. Запускаем файл: Resources\ResLib.bat
5. В результате выполнения будет создан файл: Resources\ResLib.RES
6. файл Resources\ResLib.RES копируем в корневую папку проекта.
7. В Delphi. На форму надо положить:
Image1 : TImage;
Button1 : TButton;
Для кнопки Button1 создаём обработчик события OnClick и оформляем код таким образом:

Delphi
1
2
3
4
5
6
7
8
9
10
implementation
 
{$R *.dfm}
 
{$R ResLib.res}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'BITMAP1');
end;

8. Затем следует выполнить полное построение программы через Project - Build.

@Mawrat · 04.02.2015, 15:21

Поправка в описание структуры папок - папка Files вложена в папку Resuorces:

Code
1
2
3
4
5
6
--Папка с проектом\
----Resources\
------ResLib.bat
------ResLib.rc
------Files\
--------bitmap1.bmp

Добавлено через 8 минут
Кроме рассматриваемого способа работы с ресурсами, есть также следующие возможности:

1. Можно установить соответствующего IDE эксперта (мастера). При этом через меню Delphi станет доступен диалог по загрузке ресурсов. Например, такой мастер присутствует в наборе компонентов RX Library (RXLib). На указанной странице имеются дистрибутивы для разных версий Delphi. Например, для Delphi 7 есть дистрибутив с автоматическим установщиком: RX Library 2.75 для Delphi 7, с автоустановщиком. После установки RX Library в меню Delphi появится пункт: Project - Resources. И наборы новых компонентов в палитре появятся.
2. В новых версиях Delphi - 2009 и выше - подобный мастер уже встроен. Запускается так: Project - Resources and Images.

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@IHaveQuestions 0 / 0 / 0 Регистрация: 07.08.2011 Сообщений: 11

	Большой текст в Delphi. (Работа с ресурсами - примечание модератора Mawrat). 24.12.2011, 19:43. Показов 24692. Ответов 22 Метки .bmp, .dll, .exe, .jpg, .rc, .res, *.txt, brcc32.exe, c, g, rcdata, resources, rt_rcdata, tresourcestream, включение ресурсов, добавление ресурсов, загрузка ресурсов, изображения, картинки, компиляция ресурсов, работа с ресурсами, ресурсы, текст (Все метки) Можно ли вставить большой текст в Delphi до запуска программы 0