Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка изображения из Resources 
V
    Опции темы
girichev
Дата 6.3.2010, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 5.6.2006

Репутация: нет
Всего: нет



Сейчас изображение загружается из файла (работает):
Код

img := TGPBitmap.Create(extractfilepath(Application.ExeName)+'background.png', True);


Но, в идеале хочется загружать изображение из ресурса программы (изображение добавлено, 'Background', RCData), при этом я что-то не правильно делаю. 

Код

hResource: THandle;
pData: Pointer;

hResource := LoadResource(hInstance, FindResource(hInstance, 'Background', RT_RCDATA));
  try
    pData := LockResource(hResource);
    if pData = nil then
      raise Exception.Create('Cannot read Background');

       img := TGPBitmap.Create(hResource); // как здесь правильно будет?

  finally
    FreeResource(hResource);
  end;


Изображение загружено в ресурс:
Код

Background RCData "background.png"


PM MAIL   Вверх
Proxin
Дата 7.3.2010, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3



Код

var b:tbitmap;
begin
b:=tbitmap.create;
b.loadfromresourcename(hinstance,'Background');
end;

ещё нужна директива {$R YOURRESFILE.RES}

Это сообщение отредактировал(а) Proxin - 7.3.2010, 12:01
PM MAIL   Вверх
girichev
Дата 7.3.2010, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 5.6.2006

Репутация: нет
Всего: нет



Спасибо!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0578 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.