在開發(fā)圖形程序時(shí)，尤其是三維的圖形程序，因?yàn)楦杏XOpenGL沒有DirectX那么龐雜，所以選擇了DelphiOpenGL，憑感覺而言，Delphi也沒有C++那么繁雜而且更加人性化，于是選擇Delphi+OpenGL進(jìn)行工作。在這過程中，碰到(肯定會)一些問題，在此提出希望和朋友們能夠進(jìn)行交流。

　　首先是初始化。初始化時(shí)，有幾項(xiàng)工作需要進(jìn)行：

　�、賱�(chuàng)建設(shè)備描述表(Device Context)。(注：關(guān)于DC，各種資料譯文不盡相同如設(shè)備環(huán)境、設(shè)備描述表、設(shè)備上下文等，但好象都不太貼切。要是能有李善蘭這樣的翻譯就好了。下文中的RC情形相同)

　�、谠O(shè)置相應(yīng)的象素格式(PIXELFORMAT DESCRIPTOR)。

　�、蹌�(chuàng)建著色描述表(Rendering Context)。

　　Delphi中有好幾種獲得或創(chuàng)建設(shè)備描述表的方法。最簡單的就是直接獲得畫布對象(TCanvas)的句柄屬性(Handle)，如：

　　DC：HDC;

　　DC：=Canvas.Handle;

　　也可以用API函數(shù)GetDC獲得設(shè)備描述表。如：

　　DC：=GetDC(Handle，DC);

　　也可以用函數(shù)CreateCompatibleDC或者BeginPaint..EndPaint(需要注意它們之間的區(qū)別)等來獲得設(shè)備描述表。但是設(shè)備描述表用完之后要記得釋放或刪除它，以解放資源的占用。擁有設(shè)備描述表的使用權(quán)后，就可以設(shè)置相應(yīng)的象素格式。象素格式是個(gè)記錄類型，其中有些字段或域是沒什么用處的(至少現(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;

　　也可以向下面這樣進(jìn)行設(shè)置如：

　　var pfd: PixelFormatDescriptor;

　　nPixelFormat : Integer;

　　begin

　　FillChar(pfd,SizeOf(pfd),0);

　　with pfd do

　　begin

　　nSize:=sizeof(pfd);

　　nVersion:=1;

　　dwFlags:=PFD_SUPPORT_OPENGL

　　or PFD_DRAW_TO_BITMAP

　　or PFD_DOUBLEBUFFER;

　　iPixelType:=PFD_TYPE_RGBA;

　　cColorBits:=32;

　　cDepthBits:=32;

　　iLayerType:=Byte(PFD_MAIN_PLANE);

　　end;

　　nPixelFormat:=ChoosePixelFormat(DC,@pfd);

　　SetPixelFormat(DC,nPixelFormat,@pfd);

　　{ // 使用DescribePixelFormat檢查象素格式是否設(shè)置正確

　　DescribePixelFormat(DC,nPixelFormat,SizeOf(pfd),@pfd);

　　if (pfd.dwFlags and PFD_NEED_PALETTE)

　　< > 0 then SetupPalette(DC,pfd);

　　//SetupPalette是自定義函數(shù)

　　}end;

　　上述工作完成以后，最好先運(yùn)行一遍，并檢查nPixelFormat的值。正常的話，該值應(yīng)該是大于0的，否則就有問題。同樣的代碼，我在NT機(jī)器上能夠得到正確的大于0的值而在PWIN97或98的機(jī)器上得不到正確值，但是編譯時(shí)不會有問題，而且NT上編譯后在PWIN97機(jī)器上也能夠正確運(yùn)行。現(xiàn)在可以創(chuàng)建著色描述表(RC)了。調(diào)用函數(shù)wglCreateContext、wglMakeCurrent，如下例示：

　　RC：HGLRC;

　　RC:=wglCreateContext(DC);

　　wglMakeCurrent(DC,RC);

　　在程序結(jié)束之前，要記得釋放所占用的資源。

　　wglMakeCurrent(0,0);

　　if RC< >null then

　　wglDeleteContext(RC);

　　if ghDC< >null then

　　ReleaseDC(Handle,DC);

　　以下的代碼是從C++Builder 4中OpenGL的例子改寫過來的。編譯后的程序大小為300K左右，而在C++Builder 4下編譯后程序的大小為384K。

　　< a href="061403-05.zip ">程序代碼 Zip 3KB

　　程序中的OpenGL函數(shù)及象素格式在Delphi中的MSHelp中有比較詳細(xì)的解釋，本文不敢多做解釋。