Ошибка, какого рода ?

[stalker1995s]

Привет. Я сталкнулся с такой ошибкой (рис.1) какого она рода ?. Ошибка памяти ? Но компилятор не указывает на код..

[ZvEr_HaCkEr]

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

Привет. Я сталкнулся с такой ошибкой (рис.1) какого она рода ?. Ошибка памяти ? Но компилятор не указывает на код..

http://www.gunsmoker.ru/2009/05/access-violation.html

Для того чтобы узнать причину ошибки, необходимо посмотреть код..

[Serge_Bliznykov]

обычно AccessViolation возникает при попытке обратиться к ещё несозданному объекту.

пройдитесь пошагово (или поставьте точку останова в коде) и посмотрите, какая операция приводит к эксепшену.

[Человек_Борща]

а должен указывать?
Даже если указывает, то это мало что дает.

Ошибку создаете вы и передаете её в DLL. А AV происходит внутри DLL.

[stalker1995s]

Ошибка, появилась после появления в коде это данной процедуры:

procedure RenderBones;
var i: integer;
begin
glPointSize(10);
glBegin(gl_Points);
for i:= 0 to Length(Models.Link)-1 do
begin
glColor3f(1,0,0);
glVertex3f(Joint[i].Point[0],Joint[i].Point[1],Joint[i].Point[2]);
end;
glEnd;

{ glBegin(Gl_Lines);
for i:=0 to Length(Models.Link) do
begin
glVertex3f(Joint[i].Point[0],
Joint[i].Point[1],
Joint[i].Point[2]);
glVertex3f(Joint[Models.Link[i]].Point[0],
Joint[Models.Link[i]].Point[1],
Joint[Models.Link[i]].Point[2]);
end;
glEnd;}
end;

procedure Matrix;
var i: integer;
begin
for i:=0 to length(Models.Link)-1 do SetLength(Joint,i);
for i:=0 to length(Models.Link)-1 do
begin
Joint[i].Point[0]:= 0.0;
Joint[i].Point[1]:= 0.0;
Joint[i].Point[2]:= 0.0;
{Ñîçäàåì ìàòðèöó ïîâîðîòà}

Joint[i].otnos:= Xrot(-Models.Time.Rotation[i][0]);
CConcatMatrix(Yrot(-Models.Time.Rotation[i][1]), Joint[i].otnos);
CConcatMatrix(Zrot(-Models.Time.Rotation[i][2]), Joint[i].otnos);
{Èçìåíÿåì ìàòðèöó}
Joint[i].otnos[3,0]:=Models.Time.Translation[i][0];
Joint[i].otnos[3,1]:=Models.Time.Translation[i][1];
Joint[i].otnos[3,2]:=Models.Time.Translation[i][2];
{Ïðèêðèïëåí ëè ê äðóãîìó ñóñòàâó ?}
if Models.Link[i]<>-1 then
begin
Joint[i].absolut:=ConcatMatrix(Joint[Models.Link[i]].absolut, Joint[i].otnos);
Joint[i].absolut:=Joint[i].otnos;
{Ñîçäàíèå ìàòðèö}
Joint[i].absolut:=ConcatMatrix(Joint[Models.Link[i]].absolut,Joint[i].otnos)
end
else
Joint[i].absolut:=Joint[i].otnos;

end;
end;

Замечу, что она то есть, то ее нету.. Ошибка. С данными все вроде как в порядке..

[stalker1995s]

Задача решена, всем спасибо. Разобрался. Ошибка была в:

if Models.Link[i]<>-1 then
begin
Joint[i].absolut:=ConcatMatrix(Joint[Models.Link[i]].absolut, Joint[i].otnos);
Joint[i].absolut:=Joint[i].otnos;
{Ñîçäàíèå ìàòðèö}
Joint[i].absolut:=ConcatMatrix(Joint[Models.Link[i]].absolut,Joint[i].otnos)
end
else
Joint[i].absolut:=Joint[i].otnos;

Изменил на:

if Models.Link[i]<>-1 then
Joint[i].absolut:=ConcatMatrix(Joint[Models.Link[i]].absolut,
Joint[i].otnos)
else
Joint[i].absolut:=Joint[i].otnos;

Не правильно оброщался..

[Luuzuk]

Ищите выход за границы массива
--
не успел