ScreenGLProc
 
获取OpenGL过程的地址

语法

Declare Function ScreenGLProc ( ByRef procname As Const String ) As Any Ptr

参数

procname
检索地址的过程名称

说明

该函数可用于获取任何OpenGL过程的地址，以用于检索与OpenGL扩展相关的新函数的指针。如果找不到名为procname 的程序，ScreenGLProc将返回NULL（0）。

例子

''包含一些有用的定义的fbgfx.bi
#include "fbgfx.bi"

Dim SwapInterval As Function(ByVal interval As Integer) As Integer
Dim extensions As String

''安装OpenGL并检索支持的扩展
ScreenRes 640, 480, 32,, FB.GFX_OPENGL
ScreenControl FB.GET_GL_EXTENSIONS, extensions

If (InStr(extensions, "WGL_EXT_swap_control") <> 0) Then
    ''扩展支持，检索proc地址
    SwapInterval = ScreenGLProc("wglSwapIntervalEXT")
    If (SwapInterval <> 0) Then
        ''好的，我们得到了设置OpenGL在缓冲区交换上等待垂直同步
        SwapInterval(1)
    End If
End If



方言差异

  • 在-lang qb 方言中不可用，除非使用别名__Screenglproc引用。

平台差异

  • 不适用于DOS目标。

与QB差别

  • 新的FreeBASIC

参考