用Delphi进行OpenGL编程学习心得

用Delphi进行OpenGL编程学习心得2008-02-02在开发图形程序时，尤其是三维的图形程序，因为感觉OpenGL没有DirectX那么庞杂，所以选择了DelphiOpenGL，凭感觉而言，Delphi也没有C++那么繁杂而且更加人性化，于是选择Delphi+OpenGL进行工作。在这过程中，碰到（肯定会）一些问题，在此提出希望和朋友们能够进行交流。

首先是初始化。初始化时，有几项工作需要进行：①创建设备描述表（Device Context）。（注：关于DC，各种资料译文不尽相同如设备环境、设备描述表、设备上下文等，但好象都不太贴切。要是能有李善兰这样的翻译就好了。下文中的RC情形相同）②设置相应的象素格式（PIXELFORMAT DESCRIPTOR）。③创建着色描述表（Rendering Context）。 Delphi中有好几种获得或创建设备描述表的方法。最简单的就是直接获得画布对象（TCanvas）的句柄属性（Handle），如：

DC：HDC；
DC：=Canvas.Handle；

也可以用API函数GetDC获得设备描述表。如：

DC：=GetDC（Handle，DC）；

也可以用函数CreateCompatibleDC或者BeginPaint..EndPaint（需要注意它们之间的区别）等来获得设备描述表。但是设备描述表用完之后要记得释放或删除它，以解放资源的占用。拥有设备描述表的使用权后，就可以设置相应的象素格式。象素格式是个记录类型，其中有些字段或域是没什么用处的（至少现在是）。象素格式描述完成后，调用ChoosePixelFormat和SetPixelFormat函数将之与设备描述表进行匹配和设置。如下面代码：

function SetupPixelFormat（var dc:HDC）:Boolean;
var
 ppfd:PPIXELFORMATDESCRIPTOR;
 npixelformat:Integer;
begin
  New（ppfd）;
  ppfd^.nSize:=sizeof（PIXELFORMATDESCRIPTOR）;
  ppfd^.nVersion:=1;
ppfd^.dwFlags:=PFD_DRAW_TO_WINDOW
or PFD_SUPPORT_OPENGL or
            PFD_DOUBLEBUFFER;
  ppfd^.dwLayerMask:=PFD_MAIN_PLANE;
  ppfd^.iPixelType:=PFD_TYPE_COLORINDEX;
  ppfd^.cColorBits:=8;
  ppfd^.cDepthBits:=16;
  ppfd^.cAccumBits:=0;
  ppfd^.cStencilBits:=0;
  npixelformat:=ChoosePixelFormat（dc, ppfd）;
  if （nPixelformat=0） then
   begin
    MessageBox（NULL, ’choosePixelFormat failed’,
    ’Error’, MB_OK）;
    Result:=False;
    Exit;
   end;
  if （SetPixelFormat（dc, npixelformat, ppfd）= FALSE） then
   begin
    MessageBox（NULL, ’SetPixelFormat failed’,
  ’Error’, MB_OK）;
    Result:=False;
    Exit;
   end;
  Result:=True;
  Dispose（ppfd）;
end;