DGL • Thema anzeigen - Messer Gabel POINTER Licht ist für Programmierer nicht?

Messer Gabel POINTER Licht ist für Programmierer nicht?

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

NetJaguar

Betreff des Beitrags: Messer Gabel POINTER Licht ist für Programmierer nicht?

Verfasst: Mo Jan 06, 2003 15:40

DGL Member

Registriert: Do Okt 10, 2002 10:54
Beiträge: 42

Also, ich bin echt am verzweifeln!
Ich habe mich endlich mal daran gewagt Texturen mit FreePascal zu machen, aber irgendwie wollte meine meine glaux unit nicht auf meinem PC eine Funktion rausrücken. Kurzerhand habe ich versucht selst ein paar Funktionen zu schreiben, die mir eine Textur laden sollten. Es kompiliert auch alles Fehlerlos, aber es gibt eine Exception.

Im Debugger bekomme ich folgendes mitgeteilt:

Code:

 
Program received signal SIGSEGV, Segmentation fault.
 
$405418 in T24BITBITMAP__GETTGL_RGBA_BITMAP (this=$416dbc) at tex.pp:82
 
82 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;AktuellerBereich^ := (Data + DataPosition)^;

Deswegen vermute ich, dass ich mit den Pointern mist gebaut habe, aber was ist falsch?

hier der Quelltext! (Ich weiß dass er nicht gut dokumentiert ist, sorry)

Code:

 
{ASMMODE intel}
 
{$MODE OBJFPC}
 
program
 
 &nbsp; GlutLektion3FreePascal;
 
uses
 
 &nbsp; glut, &nbsp; &nbsp; //für Openglfenster
 
 &nbsp; gl, &nbsp; &nbsp; &nbsp; //OpenGL Unit (gl.... Befehle)
 
 &nbsp; glu, &nbsp; &nbsp; &nbsp;//GL Utilities (glu... Befehle);
 
 &nbsp; Sysutils; //Dateihandlingbefehle
 
type
 
RGB = record
 
 &nbsp; &nbsp; &nbsp;R,
 
 &nbsp; &nbsp; &nbsp;G,
 
 &nbsp; &nbsp; &nbsp;B : Byte;
 
 &nbsp; &nbsp; &nbsp;end;
 
TBitMapHeader = record &nbsp; &nbsp;//Header einer Bitmap Datei
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyIdentifier : array[0..1] of char;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; FileSize,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Reserved,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitmapDataOffset,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitmapHeaderSize,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; width,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; height : DWord;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; planes,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; bpp : Word;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Compression,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitmapDataSize,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; HResolution,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VResolution,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Colors,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ImportantColors : DWord;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end;
 
TGLRGBABitmap = record
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sizex,
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sizey : integer;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Pixels &nbsp;: Pointer;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;end; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
 
T24BitBitmap = class
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; public 
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;procedure ReadfromFile (Filename : String); //Liest Bitmap aus Datei ein
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;function GetTGl_RGBA_BitMap : TGlRGBABitmap; //Wandelt T24BitBitmap in ein TGLRGBABitmap um, sollte OpenGL kompatibel sein.
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; protected
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Header : TBitMapHeader;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Data &nbsp; : ^RGB;
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end;
 
procedure T24BitBitmap.Readfromfile(Filename : String);
 
var
 
 &nbsp; Datei : Longint;
 
 &nbsp; AnzahlPixel : cardinal;
 
begin
 
 &nbsp; if not FileExists(Filename) then
 
 &nbsp; &nbsp; &nbsp;begin
 
 &nbsp; &nbsp; &nbsp;writeln('Datei ', Filename,' existiert nicht. Beende Programm');
 
 &nbsp; &nbsp; &nbsp;readln;
 
 &nbsp; &nbsp; &nbsp;halt;
 
 &nbsp; &nbsp; &nbsp;end;
 
 &nbsp; Datei := FileOpen(filename, fmOpenRead);
 
 &nbsp; FileRead(Datei,Header,sizeOf(Header));
 
 &nbsp; AnzahlPixel := Header.width * header.height * 3;
 
 &nbsp; GetMem(Data,AnzahlPixel);
 
 &nbsp; FileRead(Datei,Data^,AnzahlPixel);
 
 &nbsp; FileClose(Datei); &nbsp; &nbsp;
 
end;

hier ist die Wurzel allen übels

Code:

 
function T24BitBitmap.GetTGl_RGBA_BitMap : TGlRGBABitmap;
 
var
 
 &nbsp; SpeicherGroesse : cardinal;
 
 &nbsp; Position : cardinal;
 
 &nbsp; DataPosition : cardinal;
 
 &nbsp; AktuellerBereich : ^RGB;
 
begin
 
 &nbsp; Result.SizeX := Header.Width;
 
 &nbsp; Result.SizeY := Header.Height;
 
 &nbsp; 
 
 &nbsp; speichergroesse := Result.SizeX*Result.SizeY*4;
 
 &nbsp; GetMem(Result.Pixels,speichergroesse);
 
 &nbsp; DataPosition := 0;
 
 &nbsp; 
 
 &nbsp; for Position := 0 to speichergroesse do
 
 &nbsp; &nbsp; &nbsp;begin
 
 &nbsp; &nbsp; &nbsp;AktuellerBereich := Result.Pixels + Position;
 
 &nbsp; &nbsp; &nbsp;AktuellerBereich^ := (Data + DataPosition)^; //FehlerFehlerFehlerFehlerFehlerFehlerFehlerFehlerFehler
 
 &nbsp; &nbsp; &nbsp;inc(Dataposition,3);
 
 &nbsp; &nbsp; &nbsp;inc(Position,3);
 
 &nbsp; &nbsp; &nbsp;if Position >= speichergroesse then
 
 &nbsp; &nbsp; &nbsp; &nbsp; exit;
 
 &nbsp; &nbsp; &nbsp;end;
 
end;
 
var
 
 &nbsp; Bild : T24BitBitmap;
 
 &nbsp; texture1 : TGlRGBABitMap;
 
 &nbsp; tex : GLuint;
 
procedure DrawGL; cdecl;
 
begin
 
 &nbsp; glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
 &nbsp; glLoadIdentity;
 
 &nbsp; glBindTexture(GL_TEXTURE_2D, tex);
 
 &nbsp; glTranslatef(0,0,-5);
 
 &nbsp; glBegin(GL_QUADS);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(0,0); glVertex3f(-1,-1,0);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(0,1); glVertex3f(-1,1,0);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(1,1); glVertex3f(1,1,0);
 
 &nbsp; &nbsp; &nbsp;glTexCoord2f(1,0); glVertex3f(1,-1,0);
 
 &nbsp; glEnd;
 
 &nbsp; GlutSwapBuffers;
 
end;
 
procedure Tasten(key : byte; x,y : integer);
 
begin
 
 &nbsp; x:=x+y;
 
 &nbsp; case char(key) of
 
 &nbsp; &nbsp; &nbsp;'f','F': glutFullscreen;
 
 &nbsp; &nbsp; &nbsp;'Q','q': halt;
 
 &nbsp; end;
 
 &nbsp; writeln(key);
 
end;
 
{------------------------------------------------------------------}
 
{ &nbsp;Initialisierung von OpenGL &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}
 
{------------------------------------------------------------------}
 
procedure InitGL; cdecl;
 
begin
 
 &nbsp;glEnable(GL_TEXTURE_2D); &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert Texture Mapping
 
 &nbsp;glShadeModel(GL_SMOOTH); &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert weiches Shading
 
 &nbsp;glClearColor(0.0, 0.0, 0.0, 0.5); &nbsp; &nbsp;// Bildschirm löschen (schwarz)
 
 &nbsp;glClearDepth(1.0); &nbsp; &nbsp; &nbsp; &nbsp; // Depth Buffer Setup
 
 &nbsp;glEnable(GL_DEPTH_TEST); &nbsp; &nbsp; &nbsp; &nbsp;// Aktiviert Depth Testing
 
 &nbsp;glDepthFunc(GL_LEQUAL); &nbsp; &nbsp; &nbsp; &nbsp;// Bestimmt den Typ des Depth Testing
 
 &nbsp;glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
 
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Qualitativ bessere Koordinaten Interpolation
 
end;
 
{------------------------------------------------------------------}
 
{ &nbsp;Behandelt Größenveränderung des Fensters &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;}
 
{------------------------------------------------------------------}
 
procedure ResizeWndgl(Width, Height : Integer); cdecl;
 
begin
 
 &nbsp;if (Height = 0) then Height := 1;
 
 &nbsp;glViewport(0, 0, Width, Height); &nbsp; &nbsp;// Setzt den Viewport für das OpenGL Fenster
 
 &nbsp;glMatrixMode(GL_PROJECTION); &nbsp; &nbsp; &nbsp; &nbsp;// Matrix Mode auf Projection setzen
 
 &nbsp;glLoadIdentity(); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Reset View
 
 &nbsp;gluPerspective(45.0, GLfloat(Width)/Height, 1.0, 100.0); &nbsp;// Perspektive den neuen Maßen anpassen.
 
 &nbsp;glMatrixMode(GL_MODELVIEW); &nbsp; &nbsp; &nbsp; &nbsp; // Zurück zur Modelview Matrix
 
 &nbsp;glLoadIdentity(); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // Reset View
 
end;
 
begin
 
 &nbsp; Bild := T24BitBitmap.Create;
 
 &nbsp; Bild.ReadfromFile('energy.bmp');
 
 &nbsp; texture1 := Bild.GetTGL_RGBA_Bitmap;
 
 &nbsp; Bild.Destroy;
 
 &nbsp; 
 
 &nbsp; glGenTextures(1,@tex);
 
 &nbsp; glBindTexture(GL_TEXTURE_2D,tex);
 
 &nbsp; glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
 
 &nbsp; glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR); 
 
 &nbsp; glTexImage2D(GL_TEXTURE_2D,0,3,texture1.sizeX,texture1.sizey,0,GL_RGBA,GL_UNSIGNED_BYTE,texture1.pixels);
 
 &nbsp; 
 
 &nbsp; writeln('Vollbild mit F, beenden mit Q');
 
 &nbsp; GlutInit(@argc,@argv);
 
 &nbsp; glutInitWindowSize(400,400);
 
 &nbsp; glutInitWindowPosition(100,100);
 
 &nbsp; glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);
 
 &nbsp; glutCreateWindow('OpenGL via Glut mit FreePascal.');
 
 &nbsp; glutReshapeFunc(@ResizeWndgl);
 
 &nbsp; glutDisplayFunc(@DrawGL);
 
 &nbsp; glutIdleFunc(@DrawGL); //Wird aufgerufen, wenn gerade kein Ereignis anfällt. 
 
 &nbsp; glutKeyboardFunc(@Tasten);
 
 &nbsp; InitGl;
 
 &nbsp; GlutMainLoop;
 
end.

_________________
FreePascal unter Linux

Nach oben

Phobeus

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 16:24

Fels i.d. Brandung

Registriert: Sa Mai 04, 2002 19:48
Beiträge: 3830
Wohnort: Tespe (nahe Hamburg)

Code:

AktuellerBereich^ := (Data + DataPosition)^;

Diese Zeile macht für mich nicht wirklich Sinn. Das Dächlein am Ende ist meines erachtens fehl am Platze. Es soll dort ja nicht auf einen "Inhalt" zugegriffen werden, sondern auf die "Variableninhalte"... arg.... kann es mal wieder nicht erklären, aber meines erachtens ist sowas bei Delphi sogar ungültig.

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 16:41

DGL Member

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

Beim überfliegen ist mir eine Sache aufgefallen.
Ist es nicht sinnvoller, wenn du gleich in Result.Pixels liest?
Also nicht erst über den Pointer AktuellerBereich.

Und noch eines, du iterierst von 0 bis zum Ende des Speichers.
An und für sich ist das ja nichts schlimmes. Aber in der Schleife erhöhst du die Pointer um 3.
Meines erachtens läuft er dir eiskalt aus deinem Speicherbereich raus, weil du zu viele Pixel lesen und schreiben willst.

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 16:47

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Mein Tipp: Schau mal in die Textures.pas von Jan Horn. Da findest du bestimmt was.

Zitat:

for Position := 0 to speichergroesse do
begin
...
inc(Position,3);
...
end;

Das geht ja gleich garnicht. Du kannst nicht einfach in einer for-Schleife den Durchlaufwert verändern. Wie's unter FreePascal ist weiß ich nicht, aber der Delphicompiler bemängelt diesen groben Fehler sofort.
Für 3er Schritte empfehle ich

Code:

 
while Position <> speichergroesse do // bzw. <= oder >=
 
begin
 
 inc(Position, 3);
 
end;

Ansonsten, geht es mit For-Schleifen nur in Einerschritten.

Achja, eins noch:

Zitat:

Das Dächlein

auch Accent Circonflexe genannt. :wink:

Nach oben

Phobeus

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 17:35

Fels i.d. Brandung

Registriert: Sa Mai 04, 2002 19:48
Beiträge: 3830
Wohnort: Tespe (nahe Hamburg)

@bluetoby: Weiß nicht wie es unter Delphi ist... aber mit genau der Aussage hat sich mein Info-Lehrer damals vor der gesamten Klasse blamiert, als er eine Aufgabe von mir als komplett falsch darstellen wollte und mir "5 minuten gab" um es zu beweisen... es geht hrhrhr

_________________
"Light travels faster than sound. This is why some people appear bright, before you can hear them speak..."

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 17:44

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

Äääh... hä?
1. Wieso weißt du nicht wie es in Delphi ist?
2. Hat das Forum Mist gebaut und du bist DigitalVertex nicht Phobeus?
3. Mag sein, dass es geht, aber dazu hat man wohl die For-Schleife nicht erfunden...
In Delphi meldet der Compiler klipp und klar:
"Fehler: Befehl für For-Schleifenvariable 'i'"
Was wurde denn da im Infountericht gelehrt? FreePascal?

Nach oben

NetJaguar

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 18:46

DGL Member

Registriert: Do Okt 10, 2002 10:54
Beiträge: 42

1. Phobeus will sicher damit ausdrücken dass er nicht weiß wie Delphi darauf reagiert.
2. Das Forum hat keinen Fehler gemacht.
3. Ich weiß nicht was Phobeus in seinem Info Unterricht hatte, aber warscheinlich war der Lehrer TP geeicht.

PS: Wenn dann um 4 erhöhen.

Aber das Problem hat sich nun erübricht.

_________________
FreePascal unter Linux

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Mo Jan 06, 2003 20:19

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

sorry, ich befand mich in einer geisten Umnachtung :wink:

Da das Prob eh gelöst ist hat keiner mehr ein Problem... hoffe ich :wink:

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

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