FreePascal调用gladLoadGL初始化GLAD时类型不匹配的解决方法

问题场景 #

在Lazarus IDE（4.4版本）中使用FreePascal跟随LearnOpenGL教程，转译C++代码时无法实现gladLoadGLLoader((GLADloadproc)glfwGetProcAddress)的等价功能。通过glad生成的Pascal头文件中仅有gladLoadGL和TLoadProc定义：

type
  TLoadProc = function(proc: PAnsiChar): Pointer;

function gladLoadGL(load: TLoadProc): Boolean;

调用gladLoadGL(@glfwGetProcAddress)时触发编译错误：

learnopengl.lpr(32,40) Error: Incompatible type for arg no. 1: Got "<address of function(PChar):^GLFWglproc;CDecl>", expected "<procedure variable type of function(PChar):^untyped;Register>"

环境信息：

• OpenGL 3.3
• GLFW 3.4（Jorge Turiel的Pascal绑定）
• glad生成的OpenGL 3.3核心版加载器

错误原因 #

1. 调用约定不匹配：GLFW的glfwGetProcAddress使用CDecl调用约定，而GLAD定义的TLoadProc默认是FreePascal的Register调用约定。
2. 返回类型与指针类型不匹配：glfwGetProcAddress返回^GLFWglproc类型指针，而TLoadProc要求返回Pointer；同时TLoadProc是过程变量类型，并非普通函数指针，直接传递@glfwGetProcAddress会触发类型不兼容。

解决方案 #

方案1：编写适配包装函数（推荐） #

创建符合TLoadProc规范的包装函数，转换调用约定和返回类型：

program learnopengl;

{$mode objfpc}{$H+}

uses
  SysUtils, glad_gl, glfw;

// 适配GLFW和GLAD的加载器包装函数
function GLFWLoadProcWrapper(procName: PAnsiChar): Pointer; cdecl;
begin
  Result := Pointer(glfwGetProcAddress(procName));
end;

var
  window: pGLFWWindow;
begin
  // GLFW初始化
  glfwInit();
  glfwWindowHint(GLFW_CONTEXT_VERSION_MAJOR, 3);
  glfwWindowHint(GLFW_CONTEXT_VERSION_MINOR, 3);
  glfwWindowHint(GLFW_OPENGL_PROFILE, GLFW_OPENGL_CORE_PROFILE);

  window := glfwCreateWindow(800, 600, 'LearnOpenGL', nil, nil);
  if window = nil then
  begin
    WriteLn('Failed to create GLFW window');
    glfwTerminate;
    Exit;
  end;
  glfwMakeContextCurrent(window);
  glfwSetFrameBufferSizeCallback(window, @GLFWframebuffersizefun);

  // 使用包装函数初始化GLAD
  if not gladLoadGL(@GLFWLoadProcWrapper) then
  begin
    WriteLn('Failed to initialise GLAD');
    glfwTerminate;
    Exit;
  end;

  // 后续渲染逻辑...
end.

方案2：强制类型转换（不推荐，需谨慎） #

若不想编写包装函数，可通过强制类型转换绕过类型检查，但存在调用约定不匹配导致的运行时风险：

// 替换GLAD初始化代码为：
if not gladLoadGL(TLoadProc(@glfwGetProcAddress)) then
  WriteLn('Failed to initialise GLAD');

注意：此方法依赖编译器对类型转换的处理，仅在确认调用约定兼容的场景下使用。

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