OpenGl SDL загрузка текстуры

[Slavikk]

Ошибка при генерации текстуры - TextureImage.W,
TextureImage.H - Illegal qualifer. Как исправить?

Код: Выделить всё

// Загрузка картинки и конвертирование в текстуру
function LoadGLTextures : Boolean;
var
  // Создание пространства для хранения текстуры
  TextureImage: PSDL_Surface;
texture      : GLuint;       // Место для одной текстуры
begin
  texture:=0;
  // Загрузка картинки
  TextureImage := SDL_LoadBMP('images/NeHe.bmp');
  if ( TextureImage <> nil ) then
  begin
    // Создадим текстуру
    glGenTextures( 1, @texture );
    glBindTexture( GL_TEXTURE_2D, texture );

    // Генерация текстуры
    glTexImage2D( GL_TEXTURE_2D, 0, 3, TextureImage.W,
           TextureImage.H, 0, GL_rgb,
           GL_UNSIGNED_BYTE, TextureImage.pixels );

    // Линейная фильтрация кошда образ больше чем текстура
    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
    // Линейная фильтрация кошда образ меньше чем текстура
    glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );
  end
  else
  begin
    TerminateApplication;
  end;

  // Освобождаем память от картинки
  if ( TextureImage <> nil ) then
    SDL_FreeSurface( TextureImage );

  result := Status;
end;           

[divinusproject]

А размер загружаемого изображения какой? Размеры текстуры должны быть степенью двойки, а поскольку у тебя для задания размеров текстуры используются размеры изображения, то они должны быть степенью двойки.

http://imaginglib.sourceforge.net - отличные библиотеки для работы с изображениями, например, позволяет загрузить из png прямо в текстуру ogl.

PS А какое отношение это имеет к Lazarus? Переместить в другую тему!!!

[Slavikk]

Рисунок кратен степени двойки, делаю всё на лазаре с sdl компонентом - поэтому загружать могу только через SDL.

[FedeX]

Если работаеш с SDL грузить картинки можеш чем хочеш.
PSDL_Surface токо для удобства. Функциям ОГЛ по сути важно токо ширина, высота, битность изображения и указатель на область памяти где оно находится. Я, если вручную загрузить не могу (bmp tga можно и вручную загружать) использую DevIL. А вообще попробуй сначала пересохранить свою картинку в Пэинте . Хотя если это стандартная картинка из уроков НэХе и ты её не пересохранял, то пожалуй ошибка всё-же в твоём коде.
Кстать, а в какой именно функции вылетает ошибка? А то ты тут целый код выложил, чо нам с ним делать?

[Slavikk]

TextureImage.W, TextureImage.H, TextureImage.pixels - Illegal qualifer

Код: Выделить всё

// Генерация текстуры
    glTexImage2D( GL_TEXTURE_2D, 0, 3, TextureImage.W,
           TextureImage.H, 0, GL_rgb,
           GL_UNSIGNED_BYTE, TextureImage.pixels );

[Cheb]

Я с сабжем не знаком, но подозреваю, что...

TextureImage: PSDL_Surface;

Может, TextureImage^.H , а?

[Slavikk]

Спасибо, разобрался. рабочий код:

Код: Выделить всё

glTexImage2D( GL_TEXTURE_2D, 0, 3, TextureImage^.W,
           TextureImage^.H, 0, GL_BGR_EXT,
           GL_UNSIGNED_BYTE, TextureImage^.pixels );

[FedeX]

Чтоб не разименовывать постоянно указатели можно заменить директиву {$mode objfpc} на {$mode Delphi}. Тогда б код работал.

[shade]

http://imaginglib.sourceforge.net - отличные библиотеки для работы с изображениями, например, позволяет загрузить из png прямо в текстуру ogl.

Пример, пожалуйста
(загрузить прямо в текстуру ogl)

[shade]

Уже не надо:

Код: Выделить всё

uses ImagingOpenGL;
...
  texid := LoadGLTextureFromFile(ExtractFileDir(Application.ExeName) + '\texture.bmp');
  glBindTexture(GL_TEXTURE_2D, texid);