Загрузка текстуры OpenGL

[JVlasov]

Здравствуйте! Начал работать с OpenGL на Delphi XE5. Все работает хорошо, однако текстуры не загружаются, если я загружаю их после создания формы, т.е. не в OnCreate. В примере загружаю текстуры img1 при создании формы и img2 при нажатии на кнопку.

Код загрузки текстуры:

var img1,img2:cardinal;

function BmpToTex(bm:tbitmap):cardinal;
var
i,j: integer; txbits:array of array of array of byte;
begin
setlength(txbits,bm.Width,bm.Height,3);
For i:= 0 to bm.Width-1 do
For j:= 0 to bm.Height-1 do begin
TxBits[j,i,0]:= GetRValue(Bm.Canvas.Pixels[i,j]);
TxBits[j,i,1]:= GetGValue(Bm.Canvas.Pixels[i,j]);
TxBits[j,i,2]:= GetBValue(Bm.Canvas.Pixels[i,j]);
end;
result:=createtexture(bm.Width,bm.Height,GL_RGBA,@txbits);
end;

procedure LoadBMPTexture(filename: string; var image:cardinal);
var bm:tbitmap;
begin
Bm:= TBitmap.Create;
Bm.LoadFromFile(filename);
image:=bmptotex(bm);
Bm.Free;
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
LoadBMPTexture('Resources/img1.bmp',img1); //Текстура загружается
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
LoadBMPTexture('Resources/img2.bmp',img2); //Текстура не загружается
end;

Вопрос состоит в том, как загрузить текстуру img2, загружая ее именно при нажатии на кнопку. Заранее спасибо

P.S.: способов загрузки текстуры перепробовал много, ни один не подходит. DevIL тоже.

[Пепел Феникса]

а где создание контекста?

скорее всего при кнопке у вас не активирован контекст.

[JVlasov]

Извиняюсь, что вы имеете ввиду под созданием контекста? Если инициализацию OpenGL, она есть, и отрисовка происходит, однако, если наложить текстуру на, к примеру, квадрат, то он отрисуется как будто бы без текстуры.

[Пепел Феникса]

я не вижу этого создания.

у меня такие ошибки были когда я делал вещи вне активного контекста ГЛ.

[JVlasov]

Вот функция создания:

procedure GLInitialize(dc: HDC; width, height: word;AntiAlias:integer);
var
 QW:int64;
 rc0:HGLRC;
begin
 GetPixelFormat(AntiAlias);
 SetDCPixelFormat(DC);
 rc0:=wglCreateContext(DC);
 ActivateRenderingContext(DC, rc0);
 glEnable(GL_BLEND);
 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
 QueryPerformanceFrequency(QW);
 glEnable(GL_DEPTH_TEST);
 glEnable(GL_SCISSOR_TEST);
 glMatrixMode(gl_projection);
 glLoadIdentity;
 gluPerspective(90,width/height,0.1,20000);
 glMatrixMode(gl_modelview);
 glLoadIdentity;
end;

Вызываю так: GLInitialize(GetDC(Panel1.Handle),S creen.Width,Screen.Height,0) на весь экран в компоненте Panel1. Все работает, кроме загрузки текстур после OnCreate

[Пепел Феникса]

все верно, в OnCreate у вас еще выбран контекст OpenGL, потому и работает.
а при нажатии на кнопку он не выбран.

у вас в прорисовке стоит wglMakeCurrent(0,0) в конце.(поидее должен)
вам надо при загрузке текстуры, тоже активировать контекст.

[JVlasov]

В конце отрисовки стоял wglMakeCurrent(0,0). Сейчас добавил к этому wglMakeCurrent(DC,context), где DC - GetDC(Panel1.Handle), context - wglCreateContext(DC). Таким образом новый кадр начал отрисовываться сразу после отрисовки старого. Но, все по-старому, текстура не загружается.

Кстати, "незагруженные" текстуры имеют значения, т.е. загружаются. Сейчас значение текстуры равно 101.