Главная страница
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.01 c
4-20365
4yguk
2003-05-04 19:43
2003.07.07
как функции-хуку общалься с прогой установившей хук?


1-20048
TButton
2003-06-25 14:02
2003.07.07
AVI


14-20295
KSergey
2003-06-20 14:34
2003.07.07
2 раза добавил вопрос в


7-20326
Лёша
2003-04-25 16:36
2003.07.07
Кто знает, почему при выгрузке ДИНАМИЧЕСКОГО МОССИВА в COM port,


3-20006
ray
2003-06-14 11:36
2003.07.07
DbGrid???