Главная страница
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-19959
RVL9
2003-06-11 20:46
2003.07.07
вопрос по картинкам в бд


4-20358
cult
2003-05-08 11:02
2003.07.07
Сообщения EM_FORMATRANGE и EM_DISPLAYBAND


3-19974
???
2003-06-12 13:38
2003.07.07
вопрос про TDBGrid!


14-20243
Soft
2003-06-19 18:09
2003.07.07
Уязвимость в Win2000


14-20205
Barlok
2003-06-21 11:03
2003.07.07
Перевод в градусы синуса?