DGL • Thema anzeigen - dglOpenGL richtig einbinden

dglOpenGL richtig einbinden

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

sungamer

Betreff des Beitrags: dglOpenGL richtig einbinden

Verfasst: Sa Mär 25, 2006 22:31

DGL Member

Registriert: Sa Mär 25, 2006 22:26
Beiträge: 3

Hi,
ich bin immoment bei dem sehr gute Einsteiger Tutorial.

Leider findet Delphi, trotz das die OpenGL File bei der Source File ist.

Code:

interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dglOpenGL;
 
type

Es kommt eine meldung das die dglOpenGL.dcu nicht gefunden werden konnte.

Vielleicht kann mir einer helfen!
Danke.

MFG
sungamer

Nach oben

ShadowOfSky

Betreff des Beitrags:

Verfasst: Sa Mär 25, 2006 22:37

DGL Member

Registriert: Sa Mär 04, 2006 22:54
Beiträge: 32

Hey Sungamer,

du solltest die Datei in das LIB Verzeichnis bei Delphi legen. Oder du legst sie immer in den Ordner wo dein Projekt zu finden ist.
Du kannst aber auch unter Delphi: Projekt - Optionen - Verzeichnisse/Bedingungen - bei Suchpfad den Pfad zu der Unit eintippeln/aussuchen.

Ich hoffe ich konnte dir helfen :-)

_________________
Schönen Gruß, Sky.

Nach oben

Michael

Betreff des Beitrags:

Verfasst: Sa Mär 25, 2006 22:44

DGL Member

Registriert: Mi Feb 02, 2005 14:22
Beiträge: 81

Wenn du unter Windows programmierst, solltest du vielleicht mal folgendes installieren:

http://www.delphigl.com/do_download.php?f=60000

Da ist dann auch die dglOpenGL.pas dabei...dann sollte alles funktionieren :wink:

Nach oben

sungamer

Betreff des Beitrags:

Verfasst: Sa Mär 25, 2006 22:46

DGL Member

Registriert: Sa Mär 25, 2006 22:26
Beiträge: 3

Super geht!

Habe aber noch ein anderes kleines Problem:

Code:

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dglOpenGL;
 
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
end;
 
const
  NearClipping = 1;
  FarClipping  = 1000;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.                                                  <---- Fehler: Text hinter dem abschlißenden END. wird vom Compiler ignoriert
 
 
 
 
 
 
procedure  TForm1.FormCreate(Sender: TObject);
begin
DC:= GetDC(Handle);
if not Initopengl then application.terminate;
RC:= Createrenderingcontext( DC,
                             [opDoubleBuffered],
                             32,
                             24,
                             0,0,0,
                             0);
ActivateRenderingContext( DC, RC);
SetupGL;
Init;
end;
 
procedure TForm1.SetupGL;
begin
  glClearColor(0.3, 0.4, 0.7, 0.0); //Hintergrundfarbe
  glEnable(GL_DEPTH_TEST);          //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);           //Backface Culling aktivieren
end;
 
 
procedure TForm1.FormResize(Sender: TObject);
var tmpBool : Boolean;
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);    
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  IdleHandler(Sender, tmpBool);
end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeactivateRenderingContext;
  DestroyRenderingContext(RC);
  ReleaseDC(Handle, DC);
end;
 
procedure TForm1.Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
 
  glTranslatef(0, 0, -5);
 
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
 
  glBegin(GL_QUADS);
    glColor3f(1, 0, 0); glVertex3f(0, 0, 0);
    glColor3f(0, 1, 0); glVertex3f(1, 0, 0);
    glColor3f(0, 0, 1); glVertex3f(1, 1, 0);
    glColor3f(1, 1, 0); glVertex3f(0, 1, 0);
  glEnd;
 
  SwapBuffers(DC);
end;

Was kann ich gegen den fehler machen?

Nach oben

Michael

Betreff des Beitrags:

Verfasst: Sa Mär 25, 2006 22:53

DGL Member

Registriert: Mi Feb 02, 2005 14:22
Beiträge: 81

Wo du Ende hinschreibst, ist auch Ende :lol:

Mal im Ernst, End. beendet ein Delphi Programm. Danach geht nix mehr. Deine Prozeduren und Funktionen musst du VOR End. schreiben...

PS: Bevor du OpenGL programmieren möchtest, solltest du dich etwas mit Delphi beschäftigen...

Nach oben

sungamer

Betreff des Beitrags:

Verfasst: Sa Mär 25, 2006 22:58

DGL Member

Registriert: Sa Mär 25, 2006 22:26
Beiträge: 3

Ich kann nen bisschen Delphi ist mir einfach nicht aufgeffalen!

Alle Probleme haben sich jetzt gelöst.
Vielen Dank für eure Hilfe!

Nach oben

Seite 1 von 1

[ 6 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.