Delphi OpenGL 绘图

Question

我像这样设置我的窗口：

glMatrixMode (GL_PROJECTION);
glLoadIdentity ();
glOrtho (0, form1.Width, form1.height, 0, 0, 1);
glMatrixMode (GL_MODELVIEW);
glDisable(GL_DEPTH_TEST);

我的绘图例程如下所示：

tempdist:=0.3 / distance(i,0,1,2);
xunit:=1 div 90;
zunit:=1 div 74;
glBegin(GL_LINE_LOOP);
case players[i].isteam of
2:glcolor3f(1.0,0.0,0.0); //Terrorist
3:glcolor3f(0.0,0.0,1.0); //Counter-Terrorist
end;
glvertex2f((thetax / 100)*xunit,(thetaz / 100)*zunit);
glvertex2f((thetax / 100)*xunit+tempdist,(thetaz / 100)*zunit);
glvertex2f((thetax / 100)*xunit+tempdist,(thetaz / 100)*zunit+tempdist);
glvertex2f((thetax / 100)*xunit,(thetaz / 100)*zunit+tempdist);
glEnd();
SwapBuffers(wglGetCurrentDC);

没有任何绘图迹象。有什么帮助吗？

Answer 1

由于我们不知道您的代码中的 thetax 值是多少，您是否有可能在剪切边界之外绘制？

使用 OpenGL 进行第一次绘图通常就成功了一半。我建议去 DelphiGL 并找到一个接近您想要的示例并从那里开始工作。该网站默认为德语，但有大量的英语翻译。特别是他们有一组有用的默认模板。

Answer 2

我不知道，但是在与我很久以前编写的一些 opengl 代码进行比较时：

• 我错过了用 glViewport(0, 0, Width, Height); 定义一个视口; // 设置OpenGL窗口的视口，
• 你确定glortho采用像素坐标（而不是opengl相对坐标？）
• thetax和thetaz的范围是多少？

我还使用了不同的方式来设置 dc:

 fdc:=getdc(<windowhandle of control we are displaying on  >);
 FRC := wglCreateContext(FDC);
 b:=wglMakeCurrent(FDC, FRC);

并完成

 wglMakeCurrent(0, 0); 
 wglDeleteContext(frc);  

Answer 3

正确设置上下文非常困难。

对于具有良好性能的可重复使用的控件，您很可能需要一个具有自己的 DC 的控件，但如果您每次绘画时都可以获得一个，则可能没问题。

看一下 http://glscene。 cvs.sourceforge.net/viewvc/glscene/Source/Platform/GLWin32Viewer.pas?view=log 查看 GLScene 如何创建可与 OpenGL 一起使用的控件。

获取自己的 DC 的关键部分是重写 CreateParams 过程并添加：

   with Params do begin
      Style:=Style or WS_CLIPCHILDREN or WS_CLIPSIBLINGS;
      WindowClass.Style:=WindowClass.Style or CS_OWNDC;
   end;

然后您可以在 CreateWnd 中获取要使用的 DC，并在 DestroyWnd 中释放

一旦获得 DC，您需要确保 PixelFormat 支持OpenGL + 具有您想要的详细信息：

const pfd: PIXELFORMATDESCRIPTOR = (
    nSize: sizeof(PIXELFORMATDESCRIPTOR);
    nVersion: 1;                       // version
    dwFlags: PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
    iPixelType: PFD_TYPE_RGBA;
    cColorBits: 24;                    // 24-bit color depth
    cRedBits: 0;
    cRedShift: 0;
    cGreenBits: 0;
    cGreenShift: 0;
    cBlueBits: 0;
    cBlueShift: 0;
    cAlphaBits: 8;                     // alpha bits
    cAlphaShift: 0;
    cAccumBits: 0;                     // accumulation buffer
    cAccumRedBits: 0;
    cAccumGreenBits: 0;
    cAccumBlueBits: 0;
    cAccumAlphaBits: 0;
    cDepthBits: 32;                    // z-buffer
    cStencilBits: 16;                  // stencil buffer
    cAuxBuffers: 0;                    // auxiliary buffer
    iLayerType: PFD_MAIN_PLANE;        // main layer
    bReserved: 0;
    dwLayerMask: 0;
    dwVisibleMask: 0;
    dwDamageMask: 0
);
var
  pf: Integer;
begin
  pf := ChoosePixelFormat(dc, @pfd);
  if not SetPixelFormat(dc, pf, @pfd) then
    Assert(false);//failed, could retry with other settings 
  rc := wglCreateContext(dc);
  if not wglMakeCurrent(dc, rc) then
    Assert(false);// failed
  // we should now have a rc so to test, we'll just clear
  glClearColor(1, 0.5, 0, 1);
  glClear(GL_COLOR_BUFFER_BIT);
  // If we're double-buffered, then swap
  SwapBuffers(dc);
  wglMakeCurrent(0, 0);

使用完 RC 后，您还应该通过调用 wglDeleteContext 进行清理。