国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

用Delphi進行OpenGL編程學習心得

2019-11-18 18:57:20
字體:
來源:轉載
供稿:網友

---- 在開發圖形程序時,尤其是三維的圖形程序,因為感覺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;也可以向下面這樣進行設置如: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檢查象素格式是否設置正確  DescribePixelFormat(DC,nPixelFormat,SizeOf(pfd),@pfd); if (pfd.dwFlags and PFD_NEED_PALETTE)  < > 0 then SetupPalette(DC,pfd);//SetupPalette是自定義函數}end;

 

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

RC:HGLRC;RC:=wglCreateContext(DC);wglMakeCurrent(DC,RC);在程序結束之前,要記得釋放所占用的資源。 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函數及象素格式在Delphi中的MSHelp中有比較詳細的解釋,本文不敢多做解釋。


上一篇:Borland與Microsoft關于Delphi的對話

下一篇:用DELPHI為ASP開發文件上載組件

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 桦川县| 乐陵市| 通海县| 勃利县| 台中县| 闻喜县| 和平区| 航空| 祁阳县| 闸北区| 宜宾市| 宽甸| 洪湖市| 新化县| 汤阴县| 枞阳县| 辉南县| 唐山市| 尼勒克县| 沿河| 横峰县| 彭阳县| 濉溪县| 仪陇县| 兰溪市| 探索| 太仓市| 湖南省| 桂阳县| 六安市| 永顺县| 沈阳市| 昭平县| 安阳市| 柯坪县| 开平市| 元江| 阳曲县| 开封县| 化州市| 正阳县|