Ich hab mal versucht, den Phong per Pixel 2 shader aus dem Wiki in meiner Anwendung zum Laufen zu bringen. Aber alles, was ich sehe, ist ne AccessViolation in der atioglxx.dll.
Weiß irgendwer, woran das liegen könnte?
Ich hab ne Radeon HD 4650, falls das irgendwie wichtig ist, und ich benutze Delphi7. Die shader hab ich aus dem Wiki in ne .txt kopiert
Code: FProgram: GLHandleARB;
FVert: GLHandleARB;
FFrag: GLHandleARB;
Code: var
i1: Integer;
code, code1: string;
LCode: TextFile;
Code: FProgram:= glCreateProgramObjectARB();
FVert:= glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);
FFrag:= glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);
code:= '';
AssignFile(LCode, ExtractFilePath(Application.ExeName) + 'Ressources\Shaders\PhongPerPixel_Vert.txt');
Reset(LCode);
while not seekEoF(LCode) do begin
readln(LCode, code1);
code:= code + code1;
end;
CloseFile(LCode);
i1:= Length(code);
glShaderSource(FVert, 1, @code[1], @i1); //Hier die AccessViolation bei 6983285A, lesen von 79726176
code:= '';
AssignFile(LCode, ExtractFilePath(Application.ExeName) + 'Ressources\Shaders\PhongPerPixel_Frag.txt');
Reset(LCode);
while not EoF do begin
readln(LCode, code1);
code:= code + code1;
end;
CloseFile(LCode);
i1:= Length(code);
glShaderSourceARB(FFrag, 1, @code[1], @i1);
glCompileShaderARB(FVert);
glCompileShaderARB(FFrag);
glAttachObjectARB(FProgram, FVert);
glAttachObjectARB(FProgram, FFrag);
glDeleteObjectARB(FVert);
glDeleteObjectARB(FFrag);
glLinkProgramARB(FProgram);
ShowMessage(glSlang_GetInfoLog(FProgram));
glUseProgramObjectARB(FProgram);
ShowMessage(glSlang_GetInfoLog(FProgram));
|
). Jedenfalls Danke. Und die Antworten kommen da ja schneller als in einem Chat.
