DGL • Thema anzeigen - Absturz bei Prog wegen ShowMessage

Absturz bei Prog wegen ShowMessage

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Sharky

Betreff des Beitrags: Absturz bei Prog wegen ShowMessage

Verfasst: Di Jul 05, 2005 12:44

DGL Member

Registriert: Mi Apr 27, 2005 19:24
Beiträge: 24

Warum stürzt das Programm immer ab mit einer EAccessViolation und wie kann man dies beheben?
Das Programm läuft super aber nur ohne die ShowMessage im create teil.
Ich benutze die dglOpenGL 1.9

Hier mal ein Ausschnitt aus dem Source:

Code:

procedure TFormOpenGL.FormCreate(Sender: TObject);
begin
 
 
  ShowMessage('Nachricht');
 
 
  dc:=GetDC(Integer(Handle));
  rc:=CreateRenderingContext(dc,[opDoubleBuffered],32,24,8,0,0,0);
  ActivateRenderingContext(dc,rc,false);
  glClearColor(0.0, 0.0, 0.0, 0.0);
  glShadeModel(GL_SMOOTH);
  glClearDepth(1.0);
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LESS);
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
  glEnable(GL_TEXTURE_2D);
  // InitRenderGL; 
end;
 
procedure TFormOpenGL.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  done := false;
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;                                  //   (-- Hier landet er noch der EAccessViolation bei break
  gluPerspective(45, ClientWidth/ClientHeight, 0.05, 100);
  glViewPort(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);
  glClearColor(0, 0, 0, 1);
  RenderGL;
  SwapBuffers(dc);
end;
 

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Jul 05, 2005 13:02

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Kann ich dir sagen. Das ist einfacher als du denkst. OnIdle wird immer dann aufgerufen, wenn deine Anwendung nichts zu tun hat. Im ShowMessage wartet sie auf den Benutzer. Also hat sie nichts zu tun. Somit wird OnIdle aufgerufen. Da du aber noch kein OpenGL initialisiert hast wurde auch noch keine DLL geladen und kein RC angelegt. Dies wird erst geschehen, wenn du InitOpenGL oder CreateRenderContext aufrufst. Also kann er zu dem zeitpunkt noch keine Funktionspointer laden. Was dann zu einer AccessViolation führt, da er versucht eine nicht geladenen Methode aufrufen will.

Unterbinden kannst du das in dem du nach dem Initialisieren von OpenGL ein Boolean setzt und diesen in OnIdle abprüfst.

Code:

procedure TFormOpenGL.FormCreate(Sender: TObject);
begin
  // Mach hier was
  // OpenGL initialisieren
  ...
 fInitialized := True;
end;
 
procedure TFormOpenGL.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  if fInitialized then begin
    done := False;
 
    ...
  end;
end;

Das solltest du nach Möglichkeit immer machen. Denn sobald du in den Vollbildmodus umstellen willst passiert das gleiche Problem.

Nach oben

Sidorion

Betreff des Beitrags:

Verfasst: Di Jul 05, 2005 13:05

DGL Member

Registriert: Mo Dez 20, 2004 08:58
Beiträge: 442
Wohnort: Mittweida (Sachsen)

Die exception im FormCreate tritt auf, weil tief im Aufrufstack von ShowMessage auf die Variable 'Application' zugegriffen wird. Diese ist aber zu diesem Zeitpunkt noch nicht gültig.
Umgehen kannst Du dies. indem du die Message erst im FormShow anzeigst.
Wenn Du sie nur beim ersten mal anzeigen willst, musst Du Dir aber ein Hilfskonstrukt basteln:
in den Private-Abschnitt Deines Formulars die Variable bFirstShow: Boolean einfügen, im FormCreate setzt Du diese dann auf True. Im FormShow kannst du dann Prüfen, ob sie gesetzt ist. Wenn ja, zeigst du die Nachricht an und setzt die Variable auf False.

[edit]alles falsch :wink:

kommt davon, wenn man antwortet, ohne es selber ausprobiert zu haben :wink:

[/edit]

_________________
Manchmal sehen Dinge, die wie Dinge aussehen wollen, mehr wie Dinge aus, als Dinge.
<Esmerelda Wetterwax>
Es kann vorkommen, dass die Nachkommen trotz Abkommen mit ihrem Einkommen nicht auskommen und umkommen.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Di Jul 05, 2005 13:24

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Natürlich ist es falsch, denn wie soll man dann das hier erklären:

Code:

 
  Application.Initialize;
  Application.Title := 'BallonKiller';
  Application.CreateForm(TForm1, Form1); // <---
  Application.Run;
 

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Sidorion

Betreff des Beitrags:

Verfasst: Di Jul 05, 2005 14:59

DGL Member

Registriert: Mo Dez 20, 2004 08:58
Beiträge: 442
Wohnort: Mittweida (Sachsen)

Fiel mir hiterher auch ein :oops:

Manchmal steht man wirklich so dermaßen auf dem Schlauch, dass man sagt: "Gibt's des?"

Nach oben

Sharky

Betreff des Beitrags:

Verfasst: Di Jul 05, 2005 15:40

DGL Member

Registriert: Mi Apr 27, 2005 19:24
Beiträge: 24

Vielen Dank !! Jetzt funktioniert es super!

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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