争怎路由网:是一个主要分享无线路由器安装设置经验的网站,汇总WiFi常见问题的解决方法。

用Delphi进行OpenGL编程学习心得

时间:2024/7/11作者:未知来源:争怎路由网人气:

---- 在开发图形程序时,尤其是三维的图形程序,因为感觉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中有比较详细的解释,本文不敢多做解释。

关键词:用Delphi进行OpenGL编程学习心得




Copyright © 2012-2018 争怎路由网(http://www.zhengzen.com) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版