如何在Lazarus Free Pascal中连接OpenGL GLAD 4.6与GLFW并解决访问违例错误

问题背景 #

原代码使用Lazarus标准OpenGL库搭配GLFW可正常运行，但替换为GLAD_GL 4.6后触发外部访问违例（access violation executing address $0000000000000000），本质是GLAD未初始化导致OpenGL函数指针为空。

核心修复步骤 #

• 移除gl单元引用：GLAD已包含完整的OpenGL函数声明，同时引用会导致符号冲突
• 显式初始化GLAD：在激活GLFW窗口上下文后，必须调用GLAD的初始化函数加载OpenGL函数指针
• 指定OpenGL版本：避免GLFW默认创建低版本上下文，导致GLAD加载失败

修正后的完整代码 #

program project1;

uses
  glad_gl, glfw; // 移除gl单元，消除符号冲突

var
  window: PGLFWwindow;

begin
  if glfwInit() = 0 then
  begin
    ExitCode := -1;
    Exit;
  end;

  // 指定OpenGL 4.6兼容模式（适配原代码的glBegin等旧API）
  glfwWindowHint(GLFW_CONTEXT_VERSION_MAJOR, 4);
  glfwWindowHint(GLFW_CONTEXT_VERSION_MINOR, 6);
  glfwWindowHint(GLFW_OPENGL_PROFILE, GLFW_OPENGL_COMPAT_PROFILE);

  window := glfwCreateWindow(640, 480, 'Hello World', nil, nil);
  if window = nil then
  begin
    glfwTerminate();
    ExitCode := -1;
    Exit;
  end;

  glfwMakeContextCurrent(window);

  // 关键：初始化GLAD加载OpenGL函数指针
  if gladLoadGLLoader(@glfwGetProcAddress) = 0 then
  begin
    glfwDestroyWindow(window);
    glfwTerminate();
    ExitCode := -1;
    Exit;
  end;

  while glfwWindowShouldClose(window) = 0 do
  begin
    glClear(GL_COLOR_BUFFER_BIT);
    
    glBegin(GL_TRIANGLES);
      glColor3d(1,0,0);
      glVertex2f(-1, -1);
      glColor3d(1,1,0);
      glVertex2f(1, -1);
      glColor3d(1,0,1);
      glVertex2f(0, 1);
    glEnd;

    glfwSwapBuffers(window);
    glfwPollEvents();
  end;

  glfwDestroyWindow(window);
  glfwTerminate();
  ExitCode := 0;
end.

额外注意事项 #

• 确保GLAD是针对FreePascal/Lazarus生成的，生成时选择OpenGL 4.6并勾选兼容模式（因为原代码使用了glBegin等固定管线API）
• 检查glfw.pas与本地GLFW库版本匹配，避免函数声明不兼容
• 若gladLoadGLLoader调用失败，可尝试替换为gladLoadGL()，部分FreePascal专用的GLAD版本会提供简化接口

内容的提问来源于stack exchange，提问作者Mark Soir