OpenGL 在 Delphi 中 关于设备上下文函数

      OpenGl中，关于Windows系统的上下文扩展函数共有5个，通过这5个函数，我们可以将其与Delphi的VCL环境相关联，实现部分OpenGL可视化编程。

 

WGL 函数	描写
wglCreateContext	创建一个新的渲染上下文
WglMakeCurrent	设置一个线程的当前呈现上下文
WglGetCurrentContext	获取一个句柄线程的当前呈现上下文
WglGetCurrentDC	获取一个设备句柄上下文的线程与当前渲染上下文关联
WglDeleteContext	删除一个呈现上下文。

 

简单来说，我们只需要：

       h_DC := GetDC(h_Wnd);

       h_RC := wglCreateContext(h_DC);

       wglMakeCurrent(h_DC, h_RC);

将DC与OpenGL的渲染引擎关联起来。

 

 

 

使用完成后

      wglMakeCurrent(h_DC, 0)    //解除句柄上下文的线程与当前渲染上下文关联

      wglDeleteContext(h_RC)     //释放渲染上下文

 

在Delphi中，DC=Canvas.handle，也就是说，在Delphi中，只需要有Canvas的地方，就能够实现OpenGL的渲染。