- function GetError(pshader: GLHandleARB): String;
- var
- blen, slen: GLInt;
- InfoLog: PGLCharARB;
- begin
- glGetObjectParameterivARB(pshader, GL_OBJECT_INFO_LOG_LENGTH_ARB, @blen);
- if blen > 1 then
- begin
- GetMem(InfoLog, blen * SizeOf(GLCharARB));
- glGetInfoLogARB(pshader, blen, slen, InfoLog);
- Result := PChar(InfoLog);
- Dispose(InfoLog);
- end;
- end;