Файлы ресурсов

← →
alvin (2002-12-24 07:26) [0]

Уважаемые Мастера, подскажите как создать файл ресурсов с картинками и затем эти картинки использовать в программе.

← →
MBo © (2002-12-24 07:33) [1]

самый простой способ, особенно удобный, если картинки одного размера- TImageList.
Кроме того, можно создать текстовый RC-файл, в который вписать имена файлов (тип ресурсов RT_BITMAP), скомпилировать его с помощью brcc32 и подключить в проект {$R PICS.RES}, затем подгружать картинки с помощью, например, TResourceStream.
Того же результата можно добиться и с помощью встроенного в оболочку Image Editor.

← →
alvin (2002-12-24 07:58) [2]

Если не трудно, можно подробней о RC-фале и способе загрузки

← →
MBo © (2002-12-24 08:54) [3]

начни с Image Editor и хелпа по TResourceStream

← →
drin © (2002-12-25 04:45) [4]

Чтобы впихнуть ресурсы в EXEшник рекомендую прогу Resource Hacker, могу выслать на мыло. А использовать так:
Var Bmp: TBitMap; .... Bmp:=TBitMap.Create; Bmp.LoadFromResourceName(hInstance, "ИМЯ_РЕСУРСА"); .....

← →
Nevel © (2002-12-25 06:57) [5]

drin : пришли мне на мыло Ты меня заинтреговал этой прогрой Вещь удобная. ЖДУ посылок

← →
alvin (2002-12-25 08:19) [6]

Если не трудно, вышили мне на мыло alvin@anort.com. Заранее благодарю.

← →
Mirovodin © (2002-12-25 11:42) [7]

http://delphigfx.mastak.ru/2d/015/2d_15.htm

← →
drin © (2002-12-25 16:17) [8]

>Nevel
>alvin
Уже можете проверять почту...

← →
alvin (2002-12-25 23:46) [9]

Спасибо, Всем, С РОЖДЕСТВОМ И НОВЫМ ГОДОМ ВАС МУЖИКИ

>alvin
Хоть кто-то вспомнил про это... ;)

Можно и jpg-картинки, например вот так:

В файле nn.rc:

M10 JPEG 10.JPG
M11 JPEG 11.JPG
M12 JPEG 12.JPG
...
А потом в файле.pas:
...
uses jpeg;
...
implementation

{$R *.DFM}
{$R nn.res}

procedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture);
var
ResHandle : THandle;
MemHandle : THandle;
MemStream : TMemoryStream;
ResPtr : PByte;
ResSize : Longint;
JPEGImage : TJPEGImage;
begin
ResHandle := FindResource(hInstance, PChar(TheJPEG), "JPEG");
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
JPEGImage := TJPEGImage.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
JPEGImage.LoadFromStream(MemStream);
ThePicture.Assign(JPEGImage);
JPEGImage.Free;
MemStream.Free;
end;
...
LoadJPEGFromRes("M10", Image1.Picture);
...

Файлы ресурсов Найти похожие ветки