用Delphi進行OpenGL編程學習心得

　　在開發圖形程序時尤其是三維的圖形程序因為感覺OpenGL沒有DirectX那麼龐雜所以選擇了DelphiOpenGL憑感覺而言Delphi也沒有C++那麼繁雜而且更加人性化於是選擇Delphi+OpenGL進行工作在這過程中碰到（肯定會）一些問題在此提出希望和朋友們能夠進行交流

　　首先是初始化初始化時有幾項工作需要進行

　　①創建設備描述表（Device Context）（注關於DC各種資料譯文不盡相同如設備環境設備描述表設備上下文等但好象都不太貼切要是能有李善蘭這樣的翻譯就好了下文中的RC情形相同）

　　②設置相應的象素格式（PIXELFORMAT DESCRIPTOR）

　　③創建著色描述表（Rendering Context） Delphi中有好幾種獲得或創建設備描述表的方法最簡單的就是直接獲得畫布對象（TCanvas）的句柄屬性（Handle）如

DCHDC
DC=CanvasHandle

也可以用API函數GetDC獲得設備描述表如

DC=GetDC（HandleDC）
　
　　也可以用函數CreateCompatibleDC或者BeginPaintEndPaint（需要注意它們之間的區別）等來獲得設備描述表但是設備描述表用完之後要記得釋放或刪除它以解放資源的占用擁有設備描述表的使用權後就可以設置相應的象素格式象素格式是個記錄類型其中有些字段或域是沒什麼用處的（至少現在是）象素格式描述完成後調用ChoosePixelFormat和SetPixelFormat函數將之與設備描述表進行匹配和設置如下面代碼

function SetupPixelFormat(var dc:HDC):Boolean;
var
ppfd:PPIXELFORMATDESCRIPTOR;
npixelformat:Integer;
begin
New(ppfd);
ppfd^nSize:=sizeof(PIXELFORMATDESCRIPTOR);
ppfd^nVersion:=;
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:=;
ppfd^cDepthBits:=;
ppfd^cAccumBits:=;
ppfd^cStencilBits:=;
npixelformat:=ChoosePixelFormat(dc ppfd);
if (nPixelformat=) then
begin
MessageBox(NULL choosePixelFormat failedError 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;

　　也可以向下面這樣進行設置如
var pfd: PixelFormatDescriptor;
nPixelFormat : Integer;
begin
FillChar(pfdSizeOf(pfd));
with pfd do
begin
nSize:=sizeof(pfd);
nVersion:=;
dwFlags:=PFD_SUPPORT_OPENGL or PFD_DRAW_TO_BITMAP or PFD_DOUBLEBUFFER;
iPixelType:=PFD_TYPE_RGBA;
cColorBits:=;
cDepthBits:=;
iLayerType:=Byte（PFD_MAIN_PLANE);
end;
nPixelFormat:=ChoosePixelFormat(DC@pfd);
SetPixelFormat(DCnPixelFormat@pfd);
{
　 // 使用DescribePixelFormat檢查象素格式是否設置正確
DescribePixelFormat(DCnPixelFormatSizeOf(pfd)@pfd);
if (pfddwFlags and PFD_NEED_PALETTE)
< > then SetupPalette(DCpfd);
//SetupPalette是自定義函數
} end
　
　　上述工作完成以後最好先運行一遍並檢查nPixelFormat的值正常的話該值應該是大於的否則就有問題同樣的代碼我在NT機器上能夠得到正確的大於的值而在PWIN或的機器上得不到正確值但是編譯時不會有問題而且NT上編譯後在PWIN機器上也能夠正確運行現在可以創建著色描述表（RC）了調用函數wglCreateContextwglMakeCurrent如下例所示

RCHGLRC
RC:=wglCreateContext(DC);
wglMakeCurrent(DCRC);

　在程序結束之前要記得釋放所占用的資源
wglMakeCurrent();
if RC< >null then
wglDeleteContext(RC);
if ghDC< >null then
ReleaseDC(HandleDC);
　
　　以下的代碼是從C++Builder 中OpenGL的例子改寫過來的編譯後的程序大小為K左右而在C++Builder 下編譯後程序的大小為K

　　< a href=zip >程序代碼 Zip KB

　　程序中的OpenGL函數及象素格式在Delphi中的MSHelp中有比較詳細的解釋本文不敢多做解釋

From:http://tw.wingwit.com/Article/program/Delphi/201311/8539.html