用Delphi开发OpenGL

mxh1998

版主

Rank: 8 Rank: 8

UID: 9261
帖子: 11976
精华: 0
积分: 12220
精品币：: 15570 两
宣传值：: 0 点
贡献值：: 12259 点
阅读权限: 150
最后登录: 2009-1-4

1^# 大中小发表于 2008-4-6 12:58 只看该作者

用Delphi开发OpenGL

英文原文：http://bdn.borland.com/article/0,1410,26401,00.html<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

OpenGL 是一个低层的图形库，最初由Silicon Graphics Inc. 公司开发。在用户操作系统上对OpenGL具体的实现一般被称为OpenGL驱动，它允许用户使用一组几何元素（点，线，多边形，图象等等）来描述需要绘制的场景。使用OpenGL对一个复杂的场景进行可视化通常只需要毫秒级的时间，这就意味着OpenGL图形库有足够的性能来支持用户创建动画和虚拟世界。<o:p></o:p>

OpenGL驱动通常以二进制格式的库文件提供给用户，用户可以在应用程序中动态的连接这个库文件。在Windows平台上，这个库文件的形式是一个DLL（就是用户系统目录下的opengl.dll文件）。因为Delphi可以调用DLL文件，所以用Delphi进行OpenGL图形开发就像使用其它语言进行OpenGL图形开发一样容易。这篇文章会帮助你熟悉使用Delphi进行OpenGL图形开发的过程。

<o:p></o:p>

数学基础<o:p></o:p>

OpenGL 具有很强的数学背景，你使用OpenGL进行图形开发所仅仅受到你想象力的限制。在进入OpenGL的世界之前，先让我们先来看一个被大多数3D程序员使用的非常简单的3D坐标系统：

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 path=" m@4@5 l@4@11@9@11@9@5 xe" stroked="f" filled="f" o:spt="75" o:preferrelative="t" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0 "></v:f><v:f eqn="sum @0 1 0 "></v:f><v:f eqn="sum 0 0 @1 "></v:f><v:f eqn="prod @2 1 2 "></v:f><v:f eqn="prod @3 21600 pixelWidth "></v:f><v:f eqn="prod @3 21600 pixelHeight "></v:f><v:f eqn="sum @0 0 1 "></v:f><v:f eqn="prod @6 1 2 "></v:f><v:f eqn="prod @7 21600 pixelWidth "></v:f><v:f eqn="sum @8 21600 0 "></v:f><v:f eqn="prod @7 21600 pixelHeight "></v:f><v:f eqn="sum @10 21600 0 "></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><o:lock v:ext="edit" aspectratio="t"></o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 248.25pt; HEIGHT: 219pt" coordsize="21600,21600" type="#_x0000_t75"><v:imagedata src="12.files/image001.jpg" o:title="xyz"></v:imagedata></v:shape><o:p></o:p>

这幅图描述了在绘制场景中屏幕的位置。图中四条线汇集在一起的点就是虚拟世界中的观察者的视点。OpenGL允许用户使用两个简单的函数调用来完成这样的设置：

glMatrixMode(GL_PROJECTION);<o:p></o:p>glFrustum(-0.1, 0.1, -0.1, 0.1, 0.3, 25.0);<o:p></o:p>

在这两个函数调用中，-0.1, 0.1, -0.1, 0.1 以左，右，下，上的顺序定义了虚拟屏幕的尺寸; 0.3 定义了视点到屏幕的距离（等于近剪裁平面）; 25.0 定义了远剪裁平面。在近端剪裁平面之前和远端剪裁平面之后的场景都不会被显示出来。当然，你也可以根据自己的需要来设置这些参数。

<o:p></o:p>

从图形元素到物体<o:p></o:p>

现在到了具有挑战性的一个部分：物体。OpenGL仅仅支持以下几种图形元素：点，线和多边形，它并不支持直接绘制复杂的曲面（例如球面等等）。但是，我们仍然可以用多边形来近似模拟这些曲面，通常是使用三角形来进行模拟（你可以在现在的3D游戏当中看到游戏中的物体都是由三角形面片所构成的），所以这对我们来说不是问题。

进行物体的绘制与使用Pascal编程非常相似。在Pascal语法中，每一个程序块都以begin开头，以end结尾；同样，在OpenGL中，每一个物体的绘制都以glBegin()开头，以glEnd() 结束。就像这样：

const S=1.0; D=5.0;<o:p></o:p> ...<o:p></o:p>glBegin(GL_TRIANGLES); // 三角形绘制开始<o:p></o:p> glVertex3f( -S, 0, D); glVertex3f(S, 0, D); glVertex3f(0, S, D); <o:p></o:p>glEnd; // 三角形绘制结束<o:p></o:p>

这样就绘制了一个简单的三角形，这个三角形离视点有5个单位远，1个单位高，2个单位宽。

这里是绘制的结果：

<v:shape id=_x0000_i1026 style="WIDTH: 384pt; HEIGHT: 347.25pt" coordsize="21600,21600" type="#_x0000_t75"><v:imagedata src="12.files/image003.jpg" o:title="step1"></v:imagedata></v:shape><o:p></o:p>

虽然它看起来还不是三维的，但起码是一个开始。下面是绘制的源代码：

FILE: Tri.pas<o:p></o:p>

unit Tri;<o:p></o:p>

<o:p></o:p>

interface<o:p></o:p>

<o:p></o:p>

uses<o:p></o:p>

OpenGL, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<o:p></o:p>

StdCtrls, ExtCtrls, ComCtrls;<o:p></o:p>

<o:p></o:p>

type<o:p></o:p>

TForm1 = class(TForm)<o:p></o:p>

procedure FormCreate(Sender: TObject);<o:p></o:p>

procedure FormPaint(Sender: TObject);<o:p></o:p>

private<o:p></o:p>

procedure Draw; // 绘制OpenGL场景<o:p></o:p>

public<o:p></o:p>

end;<o:p></o:p>

<o:p></o:p>

var<o:p></o:p>

Form1: TForm1;<o:p></o:p>

<o:p></o:p>

implementation<o:p></o:p>

<o:p></o:p>

{$R *.DFM}<o:p></o:p>

<o:p></o:p>

procedure setupPixelFormat(DC:HDC); // 设置象素格式<o:p></o:p>

const<o:p></o:p>

pfd:TPIXELFORMATDESCRIPTOR = (<o:p></o:p>

nSize:sizeof(TPIXELFORMATDESCRIPTOR); // 结构大小<o:p></o:p>

nVersion:1; // 版本号<o:p></o:p>

dwFlags:PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or<o:p></o:p>

PFD_DOUBLEBUFFER; // 支持双缓存<o:p></o:p>

iPixelType:PFD_TYPE_RGBA; // 颜色类型<o:p></o:p>

cColorBits:24; // 颜色深度<o:p></o:p>

cRedBits:0; cRedShift:0; // 颜色位数)<o:p></o:p>

cGreenBits:0; cGreenShift:0;<o:p></o:p>

cBlueBits:0; cBlueShift:0;<o:p></o:p>

cAlphaBits:0; cAlphaShift:0; // 没有Alpha缓存<o:p></o:p>

cAccumBits: 0;<o:p></o:p>

cAccumRedBits: 0; // 没有积累缓存<o:p></o:p>

cAccumGreenBits: 0; <o:p></o:p>

cAccumBlueBits: 0;<o:p></o:p>

cAccumAlphaBits: 0;<o:p></o:p>

cDepthBits:16; // 深度缓存<o:p></o:p>

cStencilBits:0; // 没有模板缓存<o:p></o:p>

cAuxBuffers:0; // 没有辅助缓存<o:p></o:p>

iLayerType:PFD_MAIN_PLANE; // 主层<o:p></o:p>

bReserved: 0;<o:p></o:p>

dwLayerMask: 0;<o:p></o:p>

dwVisibleMask: 0;<o:p></o:p>

dwDamageMask: 0;<o:p></o:p>

);<o:p></o:p>

var pixelFormat:integer;<o:p></o:p>

begin<o:p></o:p>

pixelFormat := ChoosePixelFormat(DC, @pfd);<o:p></o:p>

if (pixelFormat = 0) then <o:p></o:p>

exit;<o:p></o:p>

if (SetPixelFormat(DC, pixelFormat, @pfd) <> TRUE) then<o:p></o:p>

exit;<o:p></o:p>

end;<o:p></o:p>

<o:p></o:p>

procedure GLInit;<o:p></o:p>

begin<o:p></o:p>

// 设置观察投影模式<o:p></o:p>

glMatrixMode(GL_PROJECTION);<o:p></o:p>

glFrustum(-0.1, 0.1, -0.1, 0.1, 0.3, 25.0);<o:p></o:p>

// 观察的位置<o:p></o:p>

glMatrixMode(GL_MODELVIEW);<o:p></o:p>

glEnable(GL_DEPTH_TEST);<o:p></o:p>

end;<o:p></o:p>

<o:p></o:p>

procedure TForm1.FormCreate(Sender: TObject);<o:p></o:p>

var DC:HDC;<o:p></o:p>

RC:HGLRC;<o:p></o:p>

i:integer;<o:p></o:p>

begin<o:p></o:p>

DC:=GetDC(Handle); //你可以在这里使用任何的窗口控制<o:p></o:p>

SetupPixelFormat(DC);<o:p></o:p>

RC:=wglCreateContext(DC); // 创建RC<o:p></o:p>

wglMakeCurrent(DC, RC); // 激活OpenGL 窗口<o:p></o:p>

GLInit; // 初始化OpenGL<o:p></o:p>

end;<o:p></o:p>

<o:p></o:p>

procedure TForm1.Draw;<o:p></o:p>

const S=1.0; D=5.0;<o:p></o:p>

begin<o:p></o:p>

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);<o:p></o:p>

glLoadIdentity;<o:p></o:p>

glTranslatef(0.0, 0.0, -12.0);<o:p></o:p>

glBegin(GL_TRIANGLES);<o:p></o:p>

glVertex3f( -S, 0, D); glVertex3f(S, 0, D); glVertex3f(0, S, D);<o:p></o:p>

glEnd;<o:p></o:p>

SwapBuffers(wglGetCurrentDC);<o:p></o:p>

end;<o:p></o:p>

<o:p></o:p>

procedure TForm1.FormPaint(Sender: TObject);<o:p></o:p>

begin<o:p></o:p>

Draw;<o:p></o:p>

end;<o:p></o:p>

end.<o:p></o:p>

<o:p></o:p>

FILE: Tri.dfm<o:p></o:p>

object Form1: TForm1<o:p></o:p> BorderStyle = bsDialog<o:p></o:p> Caption = 'BASIC OpenGL Program'<o:p></o:p> ClientHeight = 318<o:p></o:p> ClientWidth = 373<o:p></o:p> OnCreate = FormCreate<o:p></o:p> OnPaint = FormPaint<o:p></o:p>end<o:p></o:p>

<o:p></o:p>

在三维世界中冒险<o:p></o:p>

现在就让我们进入真正的三维世界。我们可以使用前面的程序作为一个模板，添加一些代码来创建一个平滑具有阴影的四面体。我们如何通过使用基本的图素来构建这个四面体呢？我们可以使用四个三角形，一个三角形位于底面，其它的三角形位于侧面。这里使绘制的代码：

procedure TForm1.Draw;<o:p></o:p>const D=1.5;<o:p></o:p> H1=D/1.732; // H1 = D * tg(30)<o:p></o:p> H2=D*1.732-H1; // D/H = tg(30) = 1/sqrt(3), H2 = tg(60)*D – H1 <o:p></o:p>HY=3.0;<o:p></o:p>const // 定义顶点坐标<o:p></o:p> a1:TGLArrayf3=(-D, 0, -H1); // 左下顶点<o:p></o:p> a2:TGLArrayf3=( D, 0, -H1); // 右下顶点<o:p></o:p> a3:TGLArrayf3=( 0, 0, H2); // 后下顶点<o:p></o:p> a4:TGLArrayf3=( 0, HY, 0); // 上顶点<o:p></o:p>begin<o:p></o:p> glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);<o:p></o:p> glLoadIdentity;<o:p></o:p> glTranslatef(0.0, 0.0, -12.0);<o:p></o:p> glBegin(GL_TRIANGLES);<o:p></o:p> glVertex3fv(@a1); glVertex3fv(@a3); glVertex3fv(@a2);<o:p></o:p> glVertex3fv(@a1); glVertex3fv(@a2); glVertex3fv(@a4);<o:p></o:p> glVertex3fv(@a2); glVertex3fv(@a3); glVertex3fv(@a4);<o:p></o:p> glVertex3fv(@a3); glVertex3fv(@a1); glVertex3fv(@a4);<o:p></o:p> glEnd;<o:p></o:p> SwapBuffers(wglGetCurrentDC);<o:p></o:p>end;<o:p></o:p>

看起来似乎有一点复杂，不过你看了下面这幅图就会明白了：<o:p></o:p>

<v:shape id=_x0000_i1027 style="WIDTH: 373.5pt; HEIGHT: 245.25pt" coordsize="21600,21600" type="#_x0000_t75"><v:imagedata src="12.files/image005.jpg" o:title="tetra"></v:imagedata></v:shape><o:p></o:p>

我们定义四个顶点a1 - a4，并且通过它们来构建三角形。无论什么时候定义自己的三角形（或者是多边形）必须遵循以下准则：按逆时针方向进行绘制，以你从外面看物体表面为准。根据这个准则，我们像这样绘制：a1-a2-a4, a1-a3-a2 (从下往上看), a2-a3-a4, and a3-a1-a4。

只需要把原来Tri.pas单元里的TForm1.Draw()中语句换成上面的语句就可以了。它看起来似乎还不是三维的，这是因为我们还没有定义光照。正是光展示了物体的形状和表面的反射属性。<o:p></o:p>

光照！相机！OPENGL!<o:p></o:p>

OpenGL中的光照模型由两个部分组成：光源本身（颜色，强度等等）和物体表面的材质。材质，换句话说，包含了颜色和一些物理参数（例如透明性或者是粗糙程度等等）以及纹理。让我们一步一步的解释这些概念。

定义一个光源很简单：

procedure GLInit;<o:p></o:p>const<o:p></o:p> light0_position:TGLArrayf4=( -8.0, 8.0, -16.0, 0.0);<o:p></o:p> ambient: TGLArrayf4=( 0.3, 0.3, 0.3, 0.3);<o:p></o:p>begin<o:p></o:p> // 设置观察投影模式 <o:p></o:p>glMatrixMode(GL_PROJECTION);<o:p></o:p> glFrustum(-0.1, 0.1, -0.1, 0.1, 0.3, 25.0);<o:p></o:p> // 观察位置<o:p></o:p> glMatrixMode(GL_MODELVIEW);<o:p></o:p> glEnable(GL_DEPTH_TEST);<o:p></o:p><o:p></o:p> // 设置光照<o:p></o:p> glEnable(GL_LIGHTING);<o:p></o:p> glLightfv(GL_LIGHT0, GL_POSITION, @light0_position);<o:p></o:p> glLightfv(GL_LIGHT0, GL_AMBIENT, @ambient);<o:p></o:p> glEnable(GL_LIGHT0);<o:p></o:p>end;<o:p></o:p>

需要定义两个常量。一个定义光源的位置，另一个定义环境光。所谓环境光就是它会产生一些分散的光，这样即使物体处于阴影当中也可以被看见。<o:p></o:p>

虽然你已经启用了光照也定义了光源，但是物体仍然没有阴影。这是因为OpenGL不知道每一个多边形的朝向（就是法向量，即与物体表面相垂直的矢量）。如果你还没有自己的法向量计算函数，那么可以看看下面的代码。这个函数用来计算一个三角形的法向量。这个三角形必须是以逆时针方向进行绘制，因为法向量的计算是根据两个向量的叉积得到的。所以如果你按顺时针方向的话这个三角形的法向量就会指向三角形的里面，而不是外面。

function getNormal(p1,p2,p3:TGLArrayf3):TGLArrayf3;<o:p></o:p>var a,b:TGLArrayf3;<o:p></o:p>begin<o:p></o:p> // 得到两个向量a 和 b<o:p></o:p> a[0]:=p2[0]-p1[0]; a[1]:=p2[1]-p1[1]; a[2]:=p2[2]-p1[2];<o:p></o:p> b[0]:=p3[0]-p1[0]; b[1]:=p3[1]-p1[1]; b[2]:=p3[2]-p1[2];<o:p></o:p> // 计算叉积<o:p></o:p> result[0]:=a[1]*b[2]-a[2]*b[1];<o:p></o:p> result[1]:=a[2]*b[0]-a[0]*b[2];<o:p></o:p> result[2]:=a[0]*b[1]-a[1]*b[0];<o:p></o:p>end;<o:p></o:p>

使用这个函数，你就可以明确所有用来计算光照需要的信息了：

procedure TForm1.Draw;<o:p></o:p>const D=1.5;<o:p></o:p> H1=D/1.732;<o:p></o:p> H2=D*1.732-H1; // D/H = tg(30) = 1/sqrt(3)<o:p></o:p> HY=3.0;<o:p></o:p>const // 顶点<o:p></o:p> a1:TGLArrayf3=(-D, 0, -H1);<o:p></o:p> a2:TGLArrayf3=(D, 0, -H1);<o:p></o:p> a3:TGLArrayf3=(0, 0, H2);<o:p></o:p> a4:TGLArrayf3=(0, HY, 0);<o:p></o:p>var n1, n2, n3, n4: TGLArrayf3; // 法向量<o:p></o:p>begin<o:p></o:p> n1 := getNormal(a1,a3,a2);<o:p></o:p> n2 := getNormal(a1,a2,a4);<o:p></o:p> n3 := getNormal(a2,a3,a4);<o:p></o:p> n4 := getNormal(a3,a1,a4);<o:p></o:p> glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);<o:p></o:p> glEnable(GL_NORMALIZE);<o:p></o:p> glShadeModel(GL_FLAT);<o:p></o:p> glCullFace(GL_BACK);<o:p></o:p> glLoadIdentity;<o:p></o:p> glTranslatef(0.0, 0.0, -12.0);<o:p></o:p> glBegin(GL_TRIANGLES);<o:p></o:p> glNormal3fv(@n1);<o:p></o:p> glVertex3fv(@a1); glVertex3fv(@a2); glVertex3fv(@a3);<o:p></o:p> glNormal3fv(@n2);<o:p></o:p> glVertex3fv(@a1); glVertex3fv(@a2); glVertex3fv(@a4);<o:p></o:p> glNormal3fv(@n3);<o:p></o:p> glVertex3fv(@a2); glVertex3fv(@a3); glVertex3fv(@a4);<o:p></o:p> glNormal3fv(@n4);<o:p></o:p> glVertex3fv(@a3); glVertex3fv(@a1); glVertex3fv(@a4);<o:p></o:p> glEnd;<o:p></o:p> SwapBuffers(wglGetCurrentDC);<o:p></o:p>end;<o:p></o:p>

就是这样，绘制的结果如图：<o:p></o:p>

<v:shape id=_x0000_i1028 style="WIDTH: 384pt; HEIGHT: 347.25pt" coordsize="21600,21600" type="#_x0000_t75"><v:imagedata src="12.files/image007.jpg" o:title="step2"></v:imagedata></v:shape><o:p></o:p>

现在让我们使用Delphi VCL提供的一些功能。放置一个定时器控件在你的窗体上，然后添加以下代码：

procedure TForm1.Timer1Timer(Sender: TObject);<o:p></o:p>begin<o:p></o:p> angle:=angle 1.0;<o:p></o:p> Draw;<o:p></o:p>end;<o:p></o:p>

你只需要一行代码就可以制作OpenGL动画：

glRotatef(angle, 0.0, 1.0, 0.0);<o:p></o:p>

把这一行代码放置在glBegin() 语句之前，这样，这个应用程序就算完成了。源程序下载地址：http://codecentral.borland.com/codecentral/ccweb.exe/files?id=15417<o:p></o:p>

希望这篇文章能对想使用Delphi进行OpenGL编程的朋友有帮助。

TOP

‹‹ 上一主题 | 下一主题 ››

用Delphi开发OpenGL

用Delphi开发OpenGL

if(document.getElementById("ad_headerbanner") != null){document.getElementById("ad_headerbanner").innerHTML=document.getElementById("ad_footerbanner1").innerHTML;} 精品论坛是我家，兴旺要靠你我他！

精品论坛是我家，兴旺要靠你我他！