Текущий архив: 2003.01.16;
Скачать: CL | DM;
Вниз
Файлы ресурсов Найти похожие ветки
← →
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]Спасибо, Всем, С РОЖДЕСТВОМ И НОВЫМ ГОДОМ ВАС МУЖИКИ
← →
drin (2002-12-26 02:23) [10]>alvin
Хоть кто-то вспомнил про это... ;)
← →
copyr25 (2002-12-26 07:54) [11]Можно и 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);
...
Страницы: 1 вся ветка
Текущий архив: 2003.01.16;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.008 c
