Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Как в glscene e грузить текстуры из ресурсов ?   Найти похожие ветки 

 
Кен   (2003-01-23 02:00) [0]

Sphere1.Material.Texture.Image := ??? ;
Можно конечно создать специальный Sphere12345 в который загрузить текстуру, а потом cделать

Sphere1.Material.Texture.Image := Sphere12345.Material.Texture.Image;

Но такой способ почему то притормаживает. Да и с файлом ресурсов намного удобнее работать.


 
MRB_SPB ©   (2003-01-23 10:23) [1]

Вообще это делается так а GLScene сам прикрути

var ResStream : TResourceStream;

ResStream := TResourceStream.Create(hInstance,
PChar(copy(Filename, 1, Pos(".", Filename)-1)), "BMP");
ResStream.ReadBuffer(FileHeader,
SizeOf(FileHeader));
ResStream.ReadBuffer(InfoHeader,
SizeOf(InfoHeader));
PaletteLength := InfoHeader.biClrUsed;
SetLength(Palette, PaletteLength);
ResStream.ReadBuffer(Palette, PaletteLength);

Width := InfoHeader.biWidth;
Height := InfoHeader.biHeight;

BitmapLength := InfoHeader.biSizeImage;
if BitmapLength = 0 then
BitmapLength := Width * Height *
InfoHeader.biBitCount Div 8;

GetMem(pData, BitmapLength);
ResStream.ReadBuffer(pData^, BitmapLength);
ResStream.Free;

и.т.п это для BMP для остальных те же яйца только вид сбоку.

Например

ResStream := TResourceStream.Create(hInstance, PChar(copy(Filename, 1, Pos(".", Filename)-1)), "JPEG");
JPG.LoadFromStream(ResStream);
ResStream.Free;



Страницы: 1 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
3-20005
Yus
2003-06-14 19:27
2003.07.07
Проблемма компиляции (кто сталкивался??)


3-19999
tramp
2003-06-11 17:22
2003.07.07
Заполнение таблицы(TADOTable) информацие из потока(TADOQuery)


7-20332
DimmanK
2003-04-22 19:57
2003.07.07
Консольное приложение тормозит в полноэкранном режиме


1-20094
ss300
2003-06-23 09:43
2003.07.07
считывание математических формул с Excel


6-20186
Tenrai
2003-04-04 06:11
2003.07.07
Новое окно при клике на ссылку в TWebBrowser