DGL • Thema anzeigen - Wo ist der Unterschied? Variante a: geht, Variante b: crash

Wo ist der Unterschied? Variante a: geht, Variante b: crash

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Philip

Betreff des Beitrags: Wo ist der Unterschied? Variante a: geht, Variante b: crash

Verfasst: Sa Mär 13, 2004 17:00

DGL Member

Registriert: Di Jul 29, 2003 00:11
Beiträge: 436

Hi,
folgende Procedure:

Code:

 
procedure TForm1.DrawScene;
begin
  RenderScene;
  glColor3f(1,1,1);
  MyGLFont.BeginFont;
  MyGLFont.Print(8,12,PChar(ToPrint));
  MyGLFont.Print(8,28,'Press left, right, up or down to rotate and + or - to zoom.');
  MyGLFont.EndFont;
  SwapBuffers(h_DC);
end;
 

Wenn ich nun die Zeilen

Code:

 
  glColor3f(1,1,1);
  MyGLFont.BeginFont;
  MyGLFont.Print(8,12,PChar(ToPrint));
  MyGLFont.Print(8,28,'Press left, right, up or down to rotate and + or - to zoom.');
  MyGLFont.EndFont;
 

als letzte Zeilen vor dem abschließenden end; in die procedure RenderScene packe, dann crasht das Programm mit einer Access Violation bei der Adresse 00000000, sobald ich das Formular anklicke.
Wobei die OnClick Procedure eigentlich nichts kritisches macht. Die Selection-Funktion ist die, aus dem Tutorial:

Code:

 
var
  SelectedCard, TX, TY: Integer;
begin
  SelectedCard := Selection(X,Y);
  if SelectedCard = 0 then exit;
  TX := 1 + (SelectedCard - 1) mod MyGameField.XCount;
  TY := 1 + (SelectedCard - 1) div MyGameField.XCount;
  MyGameField.Flip(TX, TY);
end;
 

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Sa Mär 13, 2004 17:25

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Das sieht für mich nach nem "Random-Fehler" aus, also einem Fehler der nicht direkt mit deiner oben geschilderten Änderung zu tun hat. Das kommt gerne vor wenn man irgendwo was mit Zeigern falsch macht oder Array-Grenzen verletzt. Von daher mal alle Debugging-Optionen einschalten und im Einzelschritt durchgehen und auch ggf. verdächtige Variablen in dein Watchfenster nehmen.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Philip

Betreff des Beitrags:

Verfasst: Sa Mär 13, 2004 17:39

DGL Member

Registriert: Di Jul 29, 2003 00:11
Beiträge: 436

Wo setz ich da an bei der Fehlersuche? Diese Fehlerart ist nun komplett neu für mich.

Es scheinet keine Indizen zu geben, wo der Fehler auftritt.

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Sa Mär 13, 2004 17:45

DGL Member

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

Eine Idee wäre nicht den ganzen Block zu verschieben, sondern immer nur einzelnen Anweisungen. Vielleicht gibt dir die kritische Anweisung dann irgendeinen Hinweis. Wenn man z.B. mit dynamischen Arrays Fehler macht, dann wird es nacher vermutlich wieder bei einem Befehl der Speicher belegt einen Fehler geben. Dann würde ich nochmal einen Haltepunkt direkt auf das Begin setzen und schauen, wie die OnClick Prozedure ausgeführt werden kann. Vielleicht sind auch irgendwelche Objekte nicht initialisiert oder der Zeiger wurde überschrieben. Dann bringt es auch immer was einzelne Zeilen auszukommentieren und sich Stück für Stück voranzuarbeiten, so daß man nacher genau feststellen kann welche Befehl für den Fehler verantwortlich ist.

Nach oben

Philip

Betreff des Beitrags:

Verfasst: Sa Mär 13, 2004 17:56

DGL Member

Registriert: Di Jul 29, 2003 00:11
Beiträge: 436

Dass der Crash mit der Procedure .Print zusammenhängt, soweit war ich, aber in der geschieht meines errachtens nichts böses. :/
Ich hab mal die glFont.pas angehängt...

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Sa Mär 13, 2004 18:04

DGL Member

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

Ersetz mal in der print Funktion pchar durch String. Vielleicht geht das was mit den Strings, die ja auch ähnlich wie dynamische Arrays verwaltet werden, durcheinander. Das dürfte dann aber nicht der einzelne Fehler sondern nur ein Nebeneffekt sein.

Code:

procedure TglFont.Print(x, y: integer; const Text: String);
begin
  if (text = '') then
    exit;
  glRasterPos2i(x, y);
  glCallLists(Length(Text), GL_UNSIGNED_BYTE, @Text[1]);
end;

Nach oben

Philip

Betreff des Beitrags:

Verfasst: Sa Mär 13, 2004 18:19

DGL Member

Registriert: Di Jul 29, 2003 00:11
Beiträge: 436

Danke, hat aber den Crash nicht behoben.
Hier wäre noch die (Ziemlich aus dem Tutorial übernommene) Funktion Selection:

Code:

 
function Selection(xs, ys: Double) : integer;
var
  Puffer       : array[0..256] of GLUInt;
  Viewport     : TVector4i;
  Treffer,i    : Integer;
  Z_Wert       : GLUInt;
  Getroffen    : GLUInt;
begin
  glGetIntegerv(GL_VIEWPORT, @viewport);      //Die Sicht speichern
  glSelectBuffer(256, @Puffer);                                 //Den Puffer zuordnen
  glRenderMode(GL_SELECT);                              //In den Selectionsmodus schalten
  glmatrixmode(gl_projection);                //In den Projektionsmodus
  glPushMatrix;                                        //Um unsere Matrix zu sichern
  glLoadIdentity;                                      //Und dieselbige wieder zurückzusetzen
 
  gluPickMatrix(xs, viewport[3]-ys, 1.0, 1.0, viewport);
  gluPerspective(45.0, Form1.ClientWidth/Form1.ClientHeight, 1, 1000);
 
  Form1.RenderScene;                                                     //Die Szene zeichnen
  glmatrixmode(gl_projection);                //Wieder in den Projektionsmodus
  glPopMatrix;                                          //um unsere alte Matrix wiederherzustellen
 
  treffer := glRenderMode(GL_RENDER);         //Anzahl der Treffer auslesen
 
  Getroffen := High(GLUInt);                  //Höchsten möglichen Wert annehmen
  Z_Wert := High(GLUInt);                     //Höchsten Z - Wert
  for i := 0 to Treffer-1 do
  if Puffer[(i*4)+1] < Z_Wert then
  begin
    getroffen       := Puffer[(i*4)+3];
    Z_Wert := Puffer[(i*4)+1];
  end;
  
  Result := getroffen;
end;
 

Der Crash tritt Form1.RenderScene; auf.
Und jop, der Aufruf von einer Funktion der Klasse Form1 aus der Funktion Selection ist ziemlich unelegant und wird noch beizeiten geändert. $\";)\"$

Und noch die Procedure Renderscene:

Code:

 
procedure TForm1.RenderScene;
begin
  glMatrixMode(GL_MODELVIEW);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glLoadIdentity;
  glInitnames;
  glPushname(0);
 
  glPushMatrix;
  glRotateF(globalangle,1,1,1);
  glTranslatef(-500,-500,-500);
  DrawTexCube(Room,RoomTex);
  glPopMatrix;
 
  glPushMatrix;
  MyGameField.Draw;
  glPopMatrix;
 
  glColor3f(1,1,1);
  MyGLFont.BeginFont;
  MyGLFont.Print(8,12,ToPrint);
  MyGLFont.Print(8,28,'Press left, right, up or down to rotate and + or - to zoom.');
  MyGLFont.EndFont;
end;
 

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 16 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.