DGL • Thema anzeigen - CPU-Fenster öffnet sich

CPU-Fenster öffnet sich

Moderator: DGL-Team

Seite 1 von 1

[ 9 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Maricello

Betreff des Beitrags: CPU-Fenster öffnet sich

Verfasst: Fr Dez 10, 2004 17:15

DGL Member

Registriert: Fr Dez 10, 2004 16:59
Beiträge: 52

Hi
Ich hab bisher nur OpenGL initialisiert und ein Quadrat gezeichnet. Wenn ich jetzt aber das Programm beende (ich klick einfach auf das rote Kreuz) dann öffnet sich das CPU-Fenster von Delphi und geht in den Debuggermodus. Und ich hab keine Ahnung wieso... ich denke ihr schon

schon mal Danke im Voraus

_________________
Bild

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Fr Dez 10, 2004 17:21

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Vermutlich ist das das bekannte Problem mit dem Delphi Debugger bis Version 5 und OpenGL. Am besten bei Tools/Debugger Optionen integriertes Debuggen ausschalten, wenn es nicht unbedingt benötigt wird.

Nach oben

Maricello

Betreff des Beitrags:

Verfasst: Fr Dez 10, 2004 22:38

DGL Member

Registriert: Fr Dez 10, 2004 16:59
Beiträge: 52

Ne, das kanns eigentlich nicht sein -> ich hab Delphi 7

_________________
Bild

Nach oben

Darty

Betreff des Beitrags:

Verfasst: Fr Dez 10, 2004 23:00

DGL Member

Registriert: Fr Aug 29, 2003 16:34
Beiträge: 34
Wohnort: Black Forrest

Das muss jetzt nicht die Lösung sein, aber deinitialisiert Du es auch beim Schliessen ?

_________________
Mfg [-Darty-]
- Gehörlose Delphianer gibt es selten -

Nach oben

Maricello

Betreff des Beitrags:

Verfasst: Fr Dez 10, 2004 23:03

DGL Member

Registriert: Fr Dez 10, 2004 16:59
Beiträge: 52

Sorry, es war trotz V.7 die Lösung. Was mach ich denn für Einbußungen dadurch, dass ich integriertes Debugging abschalte??

_________________
Bild

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Fr Dez 10, 2004 23:04

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Dann funktionieren Einzelschritt und Haltepunkte nicht mehr. Außerdem hält dann Delphi nicht mehr bei Exceptions. Eventuell liegt aber trotzdem ein Fehler in deinem Programm vor.

Nach oben

Maricello

Betreff des Beitrags:

Verfasst: Sa Dez 11, 2004 00:11

DGL Member

Registriert: Fr Dez 10, 2004 16:59
Beiträge: 52

hm, ich wüsste jetzt nicht inwiefern es an meinem Code liegen könnte. Ich poste ihn einfach mal (ist noch nicht zu umfangreich

Code:

 
unit UMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, dglOpenGL, ExtCtrls;
 
type
  TfrmMain = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure OnIdle(Sender: TObject; var Done: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    myDC: HDC;
    myRC: HGLRC;
    myPalette: HPalette;
    myFPS: Integer;
    myAngleY, myAngleZ: Integer;
    lastCount: Cardinal;
    procedure SetupPixelFormat;
    procedure ShowFPS;
  public
    { Public-Deklarationen }
  end;
 
procedure Render;
 
var
  frmMain: TfrmMain;
 
implementation
 
{$R *.dfm}
 
procedure Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
  glTranslate(0,0,-6);
  glRotate(45,1,0,0);
  glRotate(45,0,1,0);
  glRotate(frmMain.myAngleZ+frmMain.myAngleZ,0,0,1);
  glRotate(frmMain.myAngleY+frmMain.myAngleY,0,1,0);
  glBegin(GL_QUADS);
    // Vorderseite (rot)
    glColor3f(1,0,0);
    glVertex3f(-1, 1, 1);
    glVertex3f( 1, 1, 1);
    glVertex3f( 1,-1, 1);
    glVertex3f(-1,-1, 1);
    // Rückseite (blau)
    glColor3f(0,0,1);
    glVertex3f(-1, 1,-1);
    glVertex3f( 1, 1,-1);
    glVertex3f( 1,-1,-1);
    glVertex3f(-1,-1,-1);
    // rechte Seite (grün)
    glColor3f(0,1,0);
    glVertex3f( 1, 1, 1);
    glVertex3f( 1, 1,-1);
    glVertex3f( 1,-1,-1);
    glVertex3f( 1,-1, 1);
    // linke Seite (gelb)
    glColor3f(1,1,0);
    glVertex3f(-1, 1, 1);
    glVertex3f(-1, 1,-1);
    glVertex3f(-1,-1,-1);
    glVertex3f(-1,-1, 1);
    // Boden (lila)
    glColor3f(1,0,1);
    glVertex3f(-1,-1, 1);
    glVertex3f(-1,-1,-1);
    glVertex3f( 1,-1,-1);
    glVertex3f( 1,-1, 1);
    // Decke (türkis)
    glColor3f(0,1,1);
    glVertex3f(-1, 1, 1);
    glVertex3f(-1, 1,-1);
    glVertex3f( 1, 1,-1);
    glVertex3f( 1, 1, 1);
  glEnd;
 
  SwapBuffers(frmMain.myDC);
end;
 
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  InitOpenGL;
  self.myDC := GetDC(self.Handle);
  SetupPixelformat;
  myRC := wglCreateContext(self.myDC);
  ActivateRenderingContext(myDC, myRC);
 
  glEnable(GL_DEPTH_TEST);
  glLoadIdentity;
 
  // Application.OnIdle := OnIdle;
end;
 
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  wglDeleteContext(myDC);
  ReleaseDC(Handle, myDC);
end;
 
procedure TfrmMain.FormResize(Sender: TObject);
begin
  glViewport(0,0,Width,Height);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0,Width/Height,1,100);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
end;
 
procedure TfrmMain.SetupPixelFormat;
var hHeap: THandle;
  nColors, i: Integer;
  lpPalette : PLogPalette;
  byRedMask, byGreenMask, byBlueMask: Byte;
  nPixelFormat: Integer;
  pfd: TPixelFormatDescriptor;
begin
  FillChar(pfd, SizeOf(pfd), 0);
  with pfd do begin
    nSize     := sizeof(pfd);               // Länge der pfd-Struktur
    nVersion  := 1;                         // Version
    dwFlags   := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
                 PFD_DOUBLEBUFFER;          // Flags
    iPixelType:= PFD_TYPE_RGBA;             // RGBA Pixel Type
    cColorBits:= 24;                        // 24-bit color
    cDepthBits:= 32;                        // 32-bit depth buffer
    iLayerType:= PFD_MAIN_PLANE;            // Layer Type
  end;
  nPixelFormat:= ChoosePixelFormat(myDC, @pfd);
  SetPixelFormat(myDC, nPixelFormat, @pfd);
                                            // Farbpalettenoptimierung wenn erforderlich
  DescribePixelFormat(myDC, nPixelFormat,
                      sizeof(TPixelFormatDescriptor),pfd);
  if ((pfd.dwFlags and PFD_NEED_PALETTE) <> 0) then begin
    nColors  := 1 shl pfd.cColorBits;
    hHeap    := GetProcessHeap;
    lpPalette:= HeapAlloc
       (hHeap,0,sizeof(TLogPalette)+(nColors*sizeof(TPaletteEntry)));
    lpPalette^.palVersion := $300;
    lpPalette^.palNumEntries := nColors;
    byRedMask  := (1 shl pfd.cRedBits) - 1;
    byGreenMask:= (1 shl pfd.cGreenBits) - 1;
    byBlueMask := (1 shl pfd.cBlueBits) - 1;
    for i := 0 to nColors - 1 do begin
      lpPalette^.palPalEntry[i].peRed  :=
        (((i shr pfd.cRedShift)  and byRedMask)  *255)DIV byRedMask;
      lpPalette^.palPalEntry[i].peGreen:=
        (((i shr pfd.cGreenShift)and byGreenMask)*255)DIV byGreenMask;
      lpPalette^.palPalEntry[i].peBlue :=
        (((i shr pfd.cBlueShift) and byBlueMask) *255)DIV byBlueMask;
      lpPalette^.palPalEntry[i].peFlags:= 0;
    end;
    myPalette:= CreatePalette(lpPalette^);
    HeapFree(hHeap, 0, lpPalette);
    if (myPalette <> 0) then begin
      SelectPalette(myDC, myPalette, False);
      RealizePalette(myDC);
    end;
  end;
end;
 
procedure TfrmMain.OnIdle(Sender: TObject; var Done: boolean);
begin
  Render;
  ShowFPS;
end;
 
procedure TfrmMain.ShowFPS;
begin
  if GetTickCount - lastCount >= 1000 then
  begin
    self.Caption := 'FPS: '+IntToStr(myFPS);
    myFPS := 0;
    lastCount := GetTickCount;
  end;
  inc(myFPS);
 
end;
 
procedure TfrmMain.Timer1Timer(Sender: TObject);
var done: Boolean;
begin
  OnIdle(nil, done);
end;
 
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_LEFT then dec(myAngleY,5);
  if Key = vk_RIGHT then inc(myAngleY,5);
  if Key = VK_UP then inc(myAngleZ,5);
  if Key = VK_DOWN then dec(myAngleZ,5);
end;
 
end.
 

_________________
Bild

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Mo Dez 13, 2004 18:13

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

LarsMiddendorf hat geschrieben:

Das Problem mit dem Debugger tritt aber auch bei mir auf, obwohl ich Delphi 6 hab. ^^

Nach oben

La Boda

Betreff des Beitrags:

Verfasst: Mo Dez 13, 2004 18:53

DGL Member

Registriert: Mi Jul 17, 2002 12:07
Beiträge: 976
Wohnort: Tübingen

@ SpaceJunky:

Zitat:

Marcello schrieb:
Sorry, es war trotz V.7 die Lösung. Was mach ich denn für Einbußungen dadurch, dass ich integriertes Debugging abschalte??

Einen Versuch wärs ja wert gewesen

_________________
"Du musst ein Schwein sein in dieser Welt, sangen die Prinzen, das ist so 1.0. Du musst auf YouTube zeigen, dass dir dein Schweinsein gefällt, das ist leuchtendes, echtes Web 2.0."
- Hal Faber
Meine Homepage: http://laboda.delphigl.com

Nach oben

Seite 1 von 1

[ 9 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.