| 導購 | 订阅 | 在线投稿
分享
 
 
 

用Delphi进行OpenGL编程学习心得

2008-06-01 01:15:09  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  ---- 在开发图形程序时,尤其是三维的图形程序,因为感觉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中有比较具体的解释,本文不敢多做解释。
 
 
 
---- 在开发图形程序时,尤其是三维的图形程序,因为感觉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中有比较具体的解释,本文不敢多做解释。
󰈣󰈤
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
王朝网络微信公众号
微信扫码关注本站公众号 wangchaonetcn
 
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味著赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
© 2005- 王朝網路 版權所有