DGL • Thema anzeigen - Map erzeugen aber wie?

Map erzeugen aber wie?

Moderator: DGL-Team

Seite 2 von 3

[ 33 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

alanblack

Betreff des Beitrags:

Verfasst: Do Jul 08, 2004 22:59

DGL Member

Registriert: So Jul 04, 2004 22:29
Beiträge: 14

Hallo,

@ Magellan ich benutze bzw. versuche den loader von Noeska zu nutzen.

@ Son of Satan ich habe den thread mehrmals durchgelesen und bin leider nich so ganz durchgestiegen

ich hab ja dieses 'logger' nirgens im code von mir verwendet. Der Compiler meldet den 'fehler' ja in der Textures.pas. Ich benutze die Version 2.4a von Noeska.

mfg alanblack

Nach oben

Magellan

Betreff des Beitrags:

Verfasst: Do Jul 08, 2004 23:11

DGL Member

Registriert: Di Nov 26, 2002 22:12
Beiträge: 259
Wohnort: Dresden

Auch von der Textures.pas gibt es unterschiedliche Versionen.

Auf http://www.sulaco.co.za unter OpenGL->OpenGL V gibt es einen "BMP, JPG and TGA texture loader".
Lade dir den herunter und ersetze deine Textures.pas durch die Textures.pas, die im ZIP-Archiv enthalten ist.

Dort musst du evtl. wieder einige Typnamen anpassen und in der Usesklausel "OpenGL" durch den von dir genutzen Header ersetzen. Danach sollte hoffentlich alles laufen.

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jederman ist überzeugt, dass er genug davon habe.
Rene Descartes, frz. Mathematiker u. Philosoph, 1596-1650

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Do Jul 08, 2004 23:38

DGL Member

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

Wie in dem verlinkten Thread erwähnt nutzt Noeska in gl3DS für seinen eigenen Gebrauch einen logger um Fehler o.ä. zu ermitteln. Du musst halt überall wo diese Unit genutzt wird die einfach aus der Uses-Klausel rauswerfen und die dadurch in den Units entstandenen Fehler (2 oder 3) behben in dem du alle Zeilen löschst die auf diesen Logger verweisen.

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

Nach oben

alanblack

Betreff des Beitrags:

Verfasst: Fr Jul 09, 2004 00:09

DGL Member

Registriert: So Jul 04, 2004 22:29
Beiträge: 14

Ahhh,

Vielen Dank soweit hab ichs. Das Project lässt sich compilern nur beim start tritt eine zugriffsverletzung auf. Ich habe die .3ds datei in dem ordner drin wo das project auch ist. Mein code sieht nun so aus:

Code:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, gl3ds;
...
 
procedure TForm1.FormCreate(Sender: TObject);
var
MyScene : TAll3DSMesh;
begin
MyScene := TAll3DSMesh.Create(nil);
MyScene.LoadFromFile('mdl.3ds');
end;

Wisst ihr warum diese Zugriffsverletzung auftritt und wie ich diese vermeiden kann?

Nach oben

dopeFish

Betreff des Beitrags:

Verfasst: Fr Jul 09, 2004 02:21

DGL Member

Registriert: Do Nov 20, 2003 19:52
Beiträge: 48
Wohnort: Tillingen bei Chemnitz

Vor dem laden des *.3ds-Files muss OpenGL initialisiert werden. Machst du das überhaupt irgendwann, sehe da nämlich keinen OpenGL-Header in deinen uses?? Zum Thema Initialisieren und sowas solltest du dir hier ma die Tutorials anschauen. Außerdem solltest du darauf achten, daß alle deine verwendeten Units denselben OpenGL-Header (idealerweise natürlich die dglOpenGL.pas von hier (; ) verwenden, sonst bekommst du auch unweigerlich ne Zugriffsverletzung.

mfG

_________________
...die Idee ist gut, doch die Welt noch nicht bereit...

Nach oben

alanblack

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 02:13

DGL Member

Registriert: So Jul 04, 2004 22:29
Beiträge: 14

Hi,

vielen Dank, ich hab gedacht dass das auch ohne der OpenGL initalisierung funktionieren würde. Nun habe ich es initalisiert und leider hat es nicht funktioniert! Was mache ich falsch? Hier zeig ich euch mal meinen code.

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, opengl,
  ExtCtrls, gl3ds;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
   myDC : HDC;
   myRC : HGLRC;
   myPalette : HPALETTE;
   procedure SetupPixelFormat;
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
procedure TForm1.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 render;
 var
MyScene : TAll3DSMesh;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //Farb und Tiefenpuffer löschen
glLoadIdentity;                                      // World Matrix zurücksetzen
MyScene := TAll3DSMesh.Create(nil);
MyScene.LoadFromFile('mdl.3ds');                                                     //hier kommen die Objekte hin
SwapBuffers(form1.myDC);                             //scene ausgeben
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.myDC:= GetDC(Handle);
SetupPixelFormat;
myRC:= wglCreateContext(myDC);
wglMakeCurrent(myDC, myRC);
glEnable(GL_DEPTH_TEST);
glLoadIdentity;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
wglmakecurrent(0,0);
wgldeletecontext(mydc);
releasedc(handle,mydc);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
glViewport(0, 0, Width, Height);    // Setzt den Viewport für das OpenGL Fenster
glMatrixMode(GL_PROJECTION);        // Matrix Mode auf Projection setzen
glLoadIdentity();                   // Reset View
gluPerspective(45.0, Width/Height, 1, 100.0);  // Perspektive den neuen Maßen anpassen.
glMatrixMode(GL_MODELVIEW);         // Zurück zur Modelview Matrix
glLoadIdentity();
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
render;
end;
 
end.

Der code lässt sich compilern doch gleich dannach kommt wieder eine Zugriffsverletzung.

Code:

MyScene := TAll3DSMesh.Create(nil);
MyScene.LoadFromFile('mdl.3ds');   

Habe ich auch in der OnCreate Procedure ausprobiert, jedoch ohne erfolg.

Könnt ihr mir da vielleicht helfen was ich tun muss?

Vielen dank schonmal im Vorraus

Mit freundlichen Grüßen

alanblack

Nach oben

Magellan

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 07:32

DGL Member

Registriert: Di Nov 26, 2002 22:12
Beiträge: 259
Wohnort: Dresden

Langsam fühle ich mich unverstanden

Du bist nun der dritte, der innerhalb von 3 Tagen mit dem selben Problem aufkreuzt. Bitte nutzt doch die Suchfunktion des Forums!
Du kannst nicht in der einen Unit einen anderen OpenGL-Header verwenden als in einer anderen. Die gl3DS nutzt den dglOpenGL-Header. Das heißt du solltest diesen ebenfalls verwenden oder die gl3DS.pas entsprechend anpassen (was jedoch ein Schritt zurück wäre).

Bei der Initialisierung lege ich dir die Funktionen CreateRenderingContext, ActivateRenderingContext, DeactivateRenderingContext und DestroyRenderingContext ans Herz.
Schau dir mal die VCL-Templates auf dieser Seite an. Dort wird OpenGL mit dem DGL-Header initialisiert.

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jederman ist überzeugt, dass er genug davon habe.
Rene Descartes, frz. Mathematiker u. Philosoph, 1596-1650

Nach oben

alanblack

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 14:38

DGL Member

Registriert: So Jul 04, 2004 22:29
Beiträge: 14

Hm,

Sorry aber ich verstehe des nich so ganz

Vielleicht würde mir ein Sample von euch weiterhelfen und den Code durch Kommentare erklärt.

Weiß auch nich so ganz weiter

mfg alanblack

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 14:51

DGL Member

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

Magellan hat dich doch auf die VCL-Templates verwiesen, die auch entsprechend kommentiert sind. Ausgehend von einem solchen Template (z.B. GL1.5 VCL) hast du auch ganz schnell ein 3DS-Modell eingebunden.

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

Nach oben

Adler

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 14:53

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

Schau in die Files, da nimmste einfach das template, dann ins OnIdle dein rendern rein und ins onCreate deine Model sachen, wo TAll3dsMesh.create usw. rein.
Das sollte kein Problem darstellen

EDIT:
Oh, SOS was schneller, aber auch 2Mal sagen schadet nicht

_________________
www.audi32.de

Nach oben

alanblack

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 19:33

DGL Member

Registriert: So Jul 04, 2004 22:29
Beiträge: 14

Hmm,

Naja ich hab jetzt das Template (OpgenGL 1.5 (VCL)) direkt übernommen. Dazu den Header (dglOpenGL.pas) <- 1.5

Die gl3ds.pas angepasst. dann habe ich versucht das mit den model in oncreate reinzubringen. Lässt sich compilern dannach Fehlermeldung.

Im Anhand findet ihr die Files.

Schaut es euch doch bitte an, und sagt mir was ich falsch gemacht habe.

mfg alanblack

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

Nach oben

dopeFish

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 20:17

DGL Member

Registriert: Do Nov 20, 2003 19:52
Beiträge: 48
Wohnort: Tillingen bei Chemnitz

Die Stelle an der die Fehlermeldung kommt wurde hier schon 2- oder 3mal im Forum gepostet, jedesmal das selbe Problem: Dem Model muss mindestens ein Material zugewiesen werden...

_________________
...die Idee ist gut, doch die Welt noch nicht bereit...

Nach oben

Magellan

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 20:37

DGL Member

Registriert: Di Nov 26, 2002 22:12
Beiträge: 259
Wohnort: Dresden

@Dopefish: nein. Das ist nicht das Problem.

Zu deinem Code:
Du hast dein Modell korrekt geladen. Nur gibst du es nicht auf dem Bildschirm aus:

Code:

{
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(60, ClientWidth/ClientHeight, 1, 128);
glMatrixMode(GL_MODELVIEW);
}
 
glTranslatef(0, 0, -10);
MyScene.Render;

Der von mir in geschweiften Klammern eingefügte Code ist nicht notwendig, wenn du das ShowText weglässt (das „ShowText“ stiftet am Anfang IMHO nur Verwirrung).
Ich empfehle dir wirklich zuerst die Einsteigertutorials auf dieser Seite durchzuarbeiten, da dir scheinbar einige Grundlagen fehlen.

Der Grund für die Fehlermeldung liegt allerdings in deinem Modell selbst.
Es scheinen viele Versionen des 3DS-Formats zu existieren. Ich habe versucht dein Modell mit Noeskas, meinem und Mike Lischkes Loader zu importieren und alle drei schienen Probleme beim Laden zu haben.
Womit exportierst du denn deine Modelle?

Ich versuche herauszufinden, wo genau das Problem liegt.

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jederman ist überzeugt, dass er genug davon habe.
Rene Descartes, frz. Mathematiker u. Philosoph, 1596-1650

Nach oben

alanblack

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 21:22

DGL Member

Registriert: So Jul 04, 2004 22:29
Beiträge: 14

Hi,

Mit Milkshape 3D 1.5.9

mfg alan

Nach oben

dopeFish

Betreff des Beitrags:

Verfasst: So Jul 11, 2004 23:20

DGL Member

Registriert: Do Nov 20, 2003 19:52
Beiträge: 48
Wohnort: Tillingen bei Chemnitz

@Magellan: Genau das ist das Problem für die beschriebene Fehlermeldung, die tritt bei mir an folgender Stelle auf:

Code:

 
  //preload textures...
  for m := 0 to FNumMaterials - 1 do
  begin
    FMaterial[m].updatetexture;
  end;
 

FNumMaterials hat den Wert 0.
Ich hab das Model in 3dsMax importiert, ein Material zugewiesen und das Projekt lässt sich ohne Fehlermeldung ausführen. Mit den von dir beschriebenen Änderungen bekommt man das Modell auch zu sehen. Allerdings sollte beachtet werden, daß man erst die Scene und alles zeichnet und ShowText erst direkt vor SwapBuffers aufruft, da ShowText die Projektionsmatrix ändert.

mfG

_________________
...die Idee ist gut, doch die Welt noch nicht bereit...

Nach oben

Seite 2 von 3

[ 33 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3 Nächste

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.