Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

jpg в exe


melena ©   (2005-09-06 13:54:00) 

Привет всем, растолкуйте пожалуйста, как запихнуть jpg в exe файл?


Zeqfreed   (2005-09-07 14:52:00) [1]

Fay ©   (07.09.05 14:43) [6]
В обоих случаях.


Fay   (2005-09-07 14:43:00) [2]

2 Zeqfreed ©   (07.09.05 14:36) [5]

>> Из IDE Delphi мой линковщик ресурсов почему-то не хочет компилировать подключаемые rc-файлы

При Build или при Compile?


Zeqfreed   (2005-09-07 14:36:00) [3]

Fay ©   (07.09.05 14:02) [4]
Да ничего страшного :)
Из IDE Delphi мой линковщик ресурсов почему-то не хочет компилировать подключаемые rc-файлы. Я описал процесс в том виде, в котором у меня самого все работает.


Fay   (2005-09-07 14:02:00) [4]

2 Zeqfreed ©   (06.09.05 20:35) [3]
Не хотелось бы показаться занудой, но созданный rc-файл достаточно просто добавить к проекту. Никаких bat-ов и перетаскиваний.


Zeqfreed   (2005-09-06 20:35:00) [5]

melena ©   (06.09.05 19:29) [2]
1. Файл filename.jpg - любое корректное jpeg-изображение
2. Файл resource.rc:
MYJPG RCDATA filename.jpg

3. Файл compile_resource.bat:
brcc32 %1

4. Перетаскиваем иконку файла resource.rc на иконку файла compile_resource.bat, в результате должны получить resource.res

5. Создаем проект в Delphi. Прописываем в implementation {$R resource.res}

6. Кидаем на форму кнопку и компонент TImage с закладки Additional палитры компонентов

7. Обработчике OnClick кнопки приводим к такому виду:
procedure TForm1.Button1Click(Sender: TObject);
var
rs : TResourceStream;
jpg : TJPEGImage;
begin
rs := TResourceStream.Create(hInstance, 'MYJPG', RT_RCDATA);
try
 jpg := TJPEGImage.Create;
 try
  jpg.LoadFromStream(rs);
  image1.Picture.Assign(jpg);
 finally
  jpg.Free;
 end;
finally
 rs.Free;
end;
end;


p.s. Если нужно работать с ресурсами средствами Win32 API, то изучаем справочные материалы по ф-циям FindResource, LockResource, LoadResource.


melena   (2005-09-06 19:29:00) [6]

саморасп.архив не очень интересно, а как создать ресурс, можно поподробнее


alex_***   (2005-09-06 14:09:00) [7]

сделать саморасп-ся архив. Можно в ресурс - RCDATA


Наверх

Титульная страница Поиск, карта сайта Написать письмо