Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.09.2008, 13:35   #1
Unconnected
Пользователь
 
Регистрация: 23.06.2008
Сообщений: 55
По умолчанию Работа с jpg в ресурсах

Есть файл с ресурсами,из него требуется открыть картинку формата .jpg с помощью модуля jpeg. Я делаю так:
Код:
 
{$R sounds.res}
procedure TForm2.Button1Click(Sender: TObject);
var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  button1.Visible:=false;
  label1.Caption:='';
  label2.Caption:='';
  form2.WindowState:=wsmaximized;
  PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
  bm := TBitMap.Create;
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromFile('PIC1');
  bm.Assign(JpegIm);
  Form2.Canvas.Draw(0, 0, bm);
  bm.Destroy;
  JpegIm.Destroy;
end;
PIC1 - это метка картинки в файле ресурсов.При запуске один файл из ресурса(звук) воспроизводится нормально,а .jpg оказывается не найден...
Unconnected вне форума Ответить с цитированием
Старый 22.09.2008, 14:02   #2
Unconnected
Пользователь
 
Регистрация: 23.06.2008
Сообщений: 55
По умолчанию

Нашёл сам,http://delphiworld.narod.ru/base/jpg_to_exe.html - дельная статья по этому вопросу.
Unconnected вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц