用Delphi進(jìn)行OpenGL編程學(xué)習(xí)心得

在開(kāi)發(fā)圖形程序時(shí)，尤其是三維的圖形程序，因?yàn)楦杏X(jué)OpenGL沒(méi)有DirectX那么龐雜，所以選擇了DelphiOpenGL，憑感覺(jué)而言，Delphi也沒(méi)有C++那么繁雜而且更加人性化，于是選擇Delphi+OpenGL進(jìn)行工作。在這過(guò)程中，碰到（肯定會(huì)）一些問(wèn)題，在此提出希望和朋友們能夠進(jìn)行交流。
    首先是初始化。初始化時(shí)，有幾項(xiàng)工作需要進(jìn)行：①創(chuàng)建設(shè)備描述表（Device Context）。（注：關(guān)于DC，各種資料譯文不盡相同如設(shè)備環(huán)境、設(shè)備描述表、設(shè)備上下文等，但好象都不太貼切。要是能有李善蘭這樣的翻譯就好了。下文中的RC情形相同）②設(shè)置相應(yīng)的象素格式（PIXELFORMAT DESCRIPTOR）。③創(chuàng)建著色描述表（Rendering Context）。 Delphi中有好幾種獲得或創(chuàng)建設(shè)備描述表的方法。最簡(jiǎn)單的就是直接獲得畫布對(duì)象（TCanvas）的句柄屬性（Handle），如：
    DC：HDC；
    DC：=Canvas.Handle；
    也可以用API函數(shù)GetDC獲得設(shè)備描述表。如：
    DC：=GetDC（Handle，DC）；
    也可以用函數(shù)CreateCompatibleDC或者BeginPaint..EndPaint（需要注意它們之間的區(qū)別）等來(lái)獲得設(shè)備描述表。但是設(shè)備描述表用完之后要記得釋放或刪除它，以解放資源的占用。擁有設(shè)備描述表的使用權(quán)后，就可以設(shè)置相應(yīng)的象素格式。象素格式是個(gè)記錄類型，其中有些字段或域是沒(méi)什么用處的（至少現(xiàn)在是）。象素格式描述完成后，調(diào)用ChoosePixelFormat和SetPixelFormat函數(shù)將之與設(shè)備描述表進(jìn)行匹配和設(shè)置。如下面代碼：
    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;