Динамический массив

[Ivin]

Столкнулся с небольшой проблемкой.
....
For i := 0 to Size-1 do
For j := 0 to Size-1 do
begin
A [j, i, 0] := GetRValue(bitmap.Canvas.Pixels[j,i]);
A [j, i, 1] := GetGValue(bitmap.Canvas.Pixels[j,i]);
A [j, i, 2] := GetBValue(bitmap.Canvas.Pixels[j,i]);
end;
....
glBindTexture( GL_TEXTURE_2D, B[0] );
....
При работе с обычными массивами
....
A: Array [0..127,0..127,0..2]of GLubyte;
B : Array [0..1] of GLUint;
....
Все работает нормально, но если массивы будут динамические то выдает ошибку на строке glBindTexture( GL_TEXTURE_2D, B[0] );, если массив A будет обычным, а B динамическим то ошибка выйдет на строке A [j, i, 0] := GetRValue(bitmap.Canvas.Pixels[j,i]);
....
A : Array of Array of Array of GLubyte;
B : Array of GLUint;
SetLength(A,128,128,2);
SetLength(B,1);
....
Подскажите плиз, где я допускаю ошибку?

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

я не телепат, потому
либо приведи текст ошибки
либо проверяй размер массива

[Котовский]

лично меня смущает запись SetLength(A,128,128,2); что-то, по-моему многовато параметров вы в функцию передаете. Скорее всего,здесь ошибка.

[Ivin]

Текст ошибки:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0044CB75 in module 'Project1.exe'.Read of address 00000001'.
Process stopped. Use Step or Run to continue.

SetLength(A,128,128,2);
Это задание размера динамического массива. У меня масиив трех мерный, поэтому 4 параметра (сам массив и 3 значения его размера). Так что здесь все должно быть нормально.

[Somebody]

Сообщение от Ivin

A: Array [0..127,0..127,0..2]of GLubyte;
B : Array [0..1] of GLUint;
....
SetLength(A,128,128,2);
SetLength(B,1);

Что-то тут размеры разные.
[128][128][3],[2] - [128][128][2],[1].

[Ivin]

SetLength(B,1);
Это вообще другой (B) массив. Массив A это пиксели текстуры (нужно для загрузки), а B это список текстур.

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

теббе указывают на то что ты здесь

A: Array [0..127,0..127,0..2]of GLubyte;
B : Array [0..1] of GLUint;

обьявляешь одни массивы(A[128,128,3];B[2])
а здесь:

SetLength(A,128,128,2);
SetLength(B,1);

другие(A[128,128,3];B[1])

[Ivin]

Это ничего существенного не меняет. При использовании обычных массивов с не правильными размерами вылаезиет ошибка выходе за границы массива, но не ЭТО. Ошибочка действительно имела место быть, но до нее просто не доходила работа программы.
Надо было вот так SetLength(A,128,128,3);, но это ничего не изменило. Ошибка продолжает вылазить. В массиве B вообще используется только 0й элемент, так что там размер в принципе не важен.
Я так думаю что это что то именно OpenGL не нравится. А вообще разрешается ли в OpenGL загружать текстуры при помощи динамических массивов.
И еще одно, все это происходит в процедурах отдельного класса и с переменными этого класса. Возможно в этом проблемма.

Type TClas=class
A: Array [0..127,0..127,0..2]of GLubyte;
B : Array [0..1] of GLUint;
//A : Array of Array of Array of GLubyte;
//B : Array of GLUint;
TexCol:integer;
procedure TexGen(Name:string;Size:integer);
end;

procedure TClas.TexGen(Name:string;Size:integer);
begin
   glBindTexture( GL_TEXTURE_2D, B[TexCol] );
   PloadBMP(Name,Size);
   glTexImage2D( GL_TEXTURE_2D, 0, 3, Size, Size, 0, GL_RGB, GL_UNSIGNED_BYTE, @A );
   glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST );
   glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST );
   TexCol:=TexCol+1;
end;

Ошибка происходит на строке:
glBindTexture( GL_TEXTURE_2D, B[0] );

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

Жаль у меня Дельфи здох...постарался бы помочь точнее...

при той ошибке варианта два...
либо ты неверно применяешь процедуру
либо ошибка в переменных(не задан массив, или неверное значение переменной TexCol)

[Ivin]

TexCol, вроде правильно, она всегда равна 0.
Значит все же ошибка в динамических массивах. Ведь если массив не динамический то работает отлично, а так отказывается. Жаль.