 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
darkinsanity
aka sts
Anmeldungsdatum: 01.11.2006
Beiträge: 456
|
 Verfasst am: 21.04.2009, 13:59 Titel: Screenshots mit OpenGL |
 |
|
Hi, ich hab vor kurzem versucht eine Screenshot-Funktion zu schreiben, die ich mit OpenGL verwenden kann. Zum speichern verwende ich FreeImage.
Der Code crasht jedoch an der Stelle an der glReadPixels aufgerufen wird.
Kann mir da jemand helfen?
| Code: |
sub TakeScreenshot (filename as STRING)
dim buffer as any ptr
dim bitmap as FiBitmap ptr
dim FiDataPointer as any ptr
buffer = allocate(xres*yres*bits/8)
glReadPixels(0, 0, xres, yres, GL_BGRA, GL_UNSIGNED_BYTE, buffer)
bitmap = FreeImage_Allocate(xres, yres, bits)
FiDataPointer = FreeImage_GetBits(bitmap)
MemCpy(FiDataPointer, buffer, xres*yres*bits/8)
FreeImage_Save(FIF_PNG, bitmap, strptr(filename), PNG_DEFAULT)
FreeImage_Unload(bitmap)
deallocate(buffer)
end sub
|
_________________
Traue keinem Computer, den du nicht aus dem Fenster werfen kannst -- Steve Wozniak |
|
| Nach oben |
|
 |
28398
Anmeldungsdatum: 25.04.2008
Beiträge: 1917
|
| Verfasst am: 21.04.2009, 14:19 Titel: |
|
|
ALLOCATE(xres*yres*(bits/ )
? |
|
| Nach oben |
|
|
darkinsanity
aka sts
Anmeldungsdatum: 01.11.2006
Beiträge: 456
|
| Verfasst am: 21.04.2009, 15:24 Titel: |
|
|
ich brauch ja einen buffer 
xres und yres sind die Auflösung, bits die Anzahl der Bits (32)
_________________
Traue keinem Computer, den du nicht aus dem Fenster werfen kannst -- Steve Wozniak |
|
| Nach oben |
|
|
28398
Anmeldungsdatum: 25.04.2008
Beiträge: 1917
|
| Verfasst am: 21.04.2009, 18:25 Titel: |
|
|
| Code: | SUB TakeScreenshot (filename AS STRING)
DIM buffer AS ANY PTR
DIM bitmap AS FiBitmap PTR
DIM FiDataPointer AS ANY PTR
buffer = ALLOCATE(xres*yres*(bits/8))
glReadPixels(0, 0, xres, yres, GL_BGRA, GL_UNSIGNED_BYTE, buffer)
bitmap = FreeImage_ALLOCATE(xres, yres, bits)
FiDataPointer = FreeImage_GetBits(bitmap)
MemCpy(FiDataPointer, buffer, xres*yres*bits/8)
FreeImage_Save(FIF_PNG, bitmap, STRPTR(filename), PNG_DEFAULT)
FreeImage_Unload(bitmap)
DEALLOCATE(buffer)
END SUB |
|
|
| Nach oben |
|
|
darkinsanity
aka sts
Anmeldungsdatum: 01.11.2006
Beiträge: 456
|
| Verfasst am: 23.04.2009, 11:00 Titel: |
|
|
Bei Mulitplikation/Division sind Klammern egal 
Hab aber gerade festgestellt, das die Größe des buffers falsch berechnet wird. Wenn ich xres, yres und bits als Integer deklariere funktioniert es. Also Problem gelöst
Dummerweise fällt mir so was immer erst ein, wenn ich die Frage schon ins Forum gestellt hab...
_________________
Traue keinem Computer, den du nicht aus dem Fenster werfen kannst -- Steve Wozniak |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 23.04.2009, 13:51 Titel: |
|
|
| darkinsanity hat Folgendes geschrieben: | | Bei Mulitplikation/Division sind Klammern egal |
je nach datentyp eben nicht...
außerdem sollte man bei integers eh immer mit \ dividieren und nicht mit /.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4648
Wohnort: ~/
|
| Verfasst am: 23.04.2009, 14:48 Titel: |
|
|
| darkinsanity hat Folgendes geschrieben: | | Hab aber gerade festgestellt, das die Größe des buffers falsch berechnet wird. Wenn ich xres, yres und bits als Integer deklariere funktioniert es. |
Jepp, bei der Integerdivision mit UBYTE kann es zu Problemen kommen; andere Typen habe ich nicht ausprobiert. Mit INTEGER tritt das Problem nicht auf.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1875
Wohnort: D59192
|
| Verfasst am: 24.04.2009, 10:55 Titel: |
|
|
Hi,
ich bin nicht sicher ob das geht, kann man nicht FreeImage den Buffer erstellen lassen?
| Code: | SUB TakeScreenshot (filename AS STRING)
DIM bitmap AS FiBitmap PTR
DIM FiDataPointer AS ANY PTR
'FreeImage den Buffer erstellen lassen
bitmap = FreeImage_Allocate(xres, yres, bits)
FiDataPointer = FreeImage_GetBits(bitmap)
glReadPixels(0, 0, xres, yres, GL_BGRA, GL_UNSIGNED_BYTE, FiDataPointer)
FreeImage_Save(FIF_PNG, bitmap, STRPTR(filename), PNG_DEFAULT)
FreeImage_Unload(bitmap)
END SUB |
ungetestet!
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
