Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 23.10.04 09:18

Лучшее из нашего FAQ   |x|
Как включить JPG-файл внутрь exe-файла?
Первое:

Нужно создать resource script file (*.RC) с помощью простого текстового файла (например блокнота), и вписать всего одну строку:

1 RCDATA "MyPic.jpg"

Единичка – это просто номер ресурса, RCDATA - определяет, что мы имеем дело с user-defined resource. Последнее – имя файла с JPG рисунком.

Второе:

Компилируем его в .RES файл, при помощи BRCC32.EXE. В MS-DOS набираем:

BRCC32 MyPic.RC

Это должно создать файл MyPic.RES.

Третье:

Добавляем директиву компилятор в исходный код нашей программы. Она должна следовать за директивой формы, как показано здесь:

{$R *.DFM}
{$R MyPic.RES}

Четвертое:

Добавляем следующую процедуру в программу: 

procedure LoadJPEGfromEXE;

var
 MyJPG : TJPEGImage; // JPEG
 ResStream
: TResourceStream; // Resource Stream

begin
  MyJPG := TJPEGImage.Crea
 te;
  ResStream := nil; 
  try
    ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    MyJPG.LoadFromStream(ResStream); // ДА! Так просто :)
    Canvas.Draw(12,12,MyJPG); // Нарисуем на Canvas, чтобы убедиться, что все работает!
  finally
    MyJPG.Free;
    ResStream.Free;
  end;
end;  // procedure


Посмотрите на второй параметр процедуры CreateFromID объекта TresourceStream. Это просто индекс ресурса. Вы можете включить более, чем один jpeg в своей программе просто добавляя новую строчку для каждого jpeg (с другим индексом) в .RC файл.

Пятое:

Запускайте программу, и ура! Теперь можно взять с полки пирожок :)

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Отчеты и Access
    Господа, а как работать с репортами в MDB файле?
  • Вопрос
    Как создать базу данных клент-сервер
  • Direct3D
    Привет, пиплы. Кто-нить знает, как замутить вращение камеры машкой (как в Action'ах) по горизонтали. Если можно, ...
  • test
    сорри, но это тест
  • Drawgrid Как вставить картинку в опр ячейку
    Долго парился над тем чтобы вставить картинку в опр ячейку ни чего путного кроме канвы толком не нашел да и сней чето ...
  • Как работать с цветом
    Подскажите как можно изменять цвет фигуры (TShape) в заданном диапазоне (от 200 до 500). Имеет ли это отношение к RGB?
  • UDP (multicast) loopback в 98й.
    Здравствуйте, уважаемые мастера. Пишу приложение для IP Multicast, При загрузке програмулька посылает сообщение-запрос ...
У нас большой выбор статей   |x|
Локализация встроенных констант
Данная статья показывает, как можно перевести на русский язык строки, заголовки которых недоступны для “простого присваивания”, например заголовки окна функции MessageDlg.
Новинки книжного рынка   |x|
Разработка программного обеспечения
В этой книге рассказывается о том, как применять современные методы для создания удобного и практичного программного обеспечения, независимо от условий его работы, будь то настольный компьютер, огромный сервер на основе суперкомпьютера, специализированная производственная электроника или Всемирная Паутина. Данная работа ориентирована в основном на разработчиков компьютерного программного обеспечения и приложений — аналитиков, дизайнеров, инженеров и программистов; короче говоря, всех тех, кто отвечает за производство программных систем и находится на передовом крае компьютерной индустрии
Автор: Константайн Л., Локвуд Л.
Опрос населения :)
Примите вы участие в олимпиаде по программированию на этом сайте?
»»» Обязательно
»»» Если понравятся призы
»»» Если будет время
»»» Наверное нет
»»» Точно нет
Для души

Хокку дня
капли дождя
на стеклах ее очков: весна
уже недалеко

Афоризмы
"Мужская независимость: отдал зарплату - свободен." (Тамара Клейман)

Фраза дня
Мы делили апельсин - много наших полегло

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Айдахо (США) запрещено рыбачить, сидя на верблюде.
В Балтиморе (США) не разрешается приходить в театр со львами.

И на закуску коротенький анекдот
- Что вы предпринимаете для защиты от вирусов?
- Выпускаем одноразовые компьютеры...

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=98156738

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.mdelphi		 Отписаться
В избранное