[wetalq]

Здравствуйте
Есть необходимость совместить exe файл программы с файлом ресурсов, НО
- стандартная программа не позволяет добавлять картинки с количеством цветов больше 256, что очень таки не приятно (но способ работает)
- нестандартная программа, которую я нашел в интернете, добавляет все что угодно в файл ресурсов, но возникла проблема с тем, как обращаться к картинкам из данного файла ресурса.

При необходимости могу скинуть программу.

Как мне лучше поступить в данной ситуации ?

[Alegun]

Собрать файл ресурса самому. В папке Bin каталога Delphi лежит компилятор ресурсов BRCC32.exe, нужно лишь создать текстовый файл IMG.RC c примерно таким содержанием

Код:

1	IMG1 JPEG C:\FOTO\имя файла.JPG

(картинок может быть сколько угодно и с разными путями)

затем через cmd.ехе нужно выполнить "BRCC32.EXE C:\IMG.RC", в результате появится сабжевый img.res. Подключается он в программе директивой

Код:

1	{$R IMG.RES}

а используется примерно так

Код:

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

uses Jpeg;   procedure TForm1.Button1Click(Sender: TObject); var  ResHnd, MemHnd: THandle;  MemStream: TMemoryStream;  ResPtr: PByte;  ResSize: Longint;  JPEGImage: TJPEGImage; begin  ResHnd:= FindResource(hInstance, 'IMG1', 'JPEG');  MemHnd:= LoadResource(hInstance, ResHnd);  ResPtr:= LockResource(MemHnd);  MemStream:= TMemoryStream.Create;  JPEGImage:= TJPEGImage.Create;  ResSize:= SizeOfResource(hInstance, ResHnd);  MemStream.SetSize(ResSize);  MemStream.Write(ResPtr^, ResSize);  FreeResource(MemHnd);  MemStream.Seek(0, 0);  JPEGImage.LoadFromStream(MemStream);  Image1.Picture.Assign(JPEGImage);  JPEGImage.Free;  MemStream.Free; end;

[angvelem]

Сообщение от wetalq

...стандартная программа не позволяет добавлять картинки с количеством цветов больше 256...

Может, доступно для загрузки в ресурсный файл как 24 бита (16 Млн цветов), так и все 32 бита (16 Млн + Alpha какнал). Всё это волшебство спокойно выполняется через стандартные средства работы с ресурсом в Дельфи.

[NumLock]

да, в ресурсах может быть что угодно и уж количество бит на пиксель изображений тем более.
чтобы не заморачиваться с компилятором ресурсов brcc32.exe, файлы .rc можно добавить в сам проект через Project - Add to project, либо руками в .dpr:

Код:

1	{$R 'AboutDialog.res' 'AboutDialog.rc'}

тогда .rc можно будет редактировать в самом редакторе Delphi и он автоматом будет перекомпилироваться в .res.

[Vayrus]

Ну или просто Restorator юзать