DGL • Thema anzeigen - Screenshot Vom Pbuffer

Screenshot Vom Pbuffer

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Aya

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 00:01

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Hi,

ich verzweifel grade...
Ich möchte einen Screenshot vom PBuffer machen, aber irgendwas klappt da nich:

<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>procedure TTextur.CopyTexture;
const
WGL_COLOR_BITS_ARB = $2014;
WGL_DEPTH_BITS_ARB = $2022;
ATTRIBS: Array[0..4] of Integer = (WGL_COLOR_BITS_ARB,32,WGL_DEPTH_BITS_ARB,24,0);
var
WGLExtensions: String;
wglGetExtensionsStringARB: function(hDC: HDC): PChar; stdcall;
wglChoosePixelFormatARB: function(hDC: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): Boolean; stdcall;
wglCreatePbufferARB: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; stdcall;
wglGetPbufferDCARB: function(hPbuffer: THandle): HDC; stdcall;
wglReleasePbufferDCARB: function(hPbuffer: THandle; hDC: HDC): GLint; stdcall;
wglDestroyPbufferARB: function(hPbuffer: THandle): Boolean; stdcall;
Formats: Array[0..63] of Integer;
NumFormats: Integer;
DC: hDC;
RC: HGLRC;
OldRC: HGLRC;
OldDC: HDC;
Buf: THandle;
begin
OldRC:=wglGetCurrentContext;
OldDC:=wglGetCurrentDC;
wglGetExtensionsStringARB:=wglGetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
WGLExtensions:=wglGetExtensionsStringARB(wglGetCurrentDC);
if Pos('WGL_ARB_pixel_format',WGLExtensions)=0 then Exit;
wglChoosePixelFormatARB:=wglGetProcAddress('wglChoosePixelFormatARB');
if Pos('WGL_ARB_pbuffer',WGLExtensions)=0 then Exit;
wglCreatePbufferARB:=wglGetProcAddress('wglCreatePbufferARB');
wglGetPbufferDCARB:=wglGetProcAddress('wglGetPbufferDCARB');
wglChoosePixelFormatARB(wglGetCurrentDC,@ATTRIBS,nil,64,@Formats,@NumFormats);
Buf:=wglCreatePbufferARB(wglGetCurrentDC,Formats[0],Width,Height,nil);
DC:=wglGetPbufferDCARB(Buf);
RC:=wglCreateContext(DC);
wglMakeCurrent(DC,RC);
glClearColor(0,0,0,0);
wglShareLists(OldRC,RC); //Hier denke ich liegt der fehler...

wglMakeCurrent(DC,RC);
ActivateRenderingContext(DC,RC);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glLoadIdentity;
Bind; //Textur
glBegin(GL_QUADS);
glTexCoord2f(1,1); glVertex3f(Width,0,0);
glTexCoord2f(0,1); glVertex3f(0,0,0);
glTexCoord2f(0,0); glVertex3f(0,Height,0);
glTexCoord2f(1,0); glVertex3f(Width,Height,0);
glEnd;
ColorDepth:=32;
FreeMem(RGBQuad);
RGBQuad:=nil;
GetMem(RGBQuad,Width*Height*4);
glFinish;
glPixelStorei(GL_PACK_ALIGNMENT,4);
glPixelStorei(GL_PACK_ROW_LENGTH,0);
glPixelStorei(GL_PACK_SKIP_ROWS,0);
glPixelStorei(GL_PACK_SKIP_PIXELS,0);
glReadPixels(0,0,Width,Height,GL_RGBA,GL_UNSIGNED_BYTE,RGBQuad);
wglReleasePbufferDCARB:=wglGetProcAddress('wglReleasePbufferDCARB');
wglDestroyPbufferARB:=wglGetProcAddress('wglDestroyPbufferARB');
if Buf<>0 then begin
wglDeleteContext(RC);
wglReleasePbufferDCARB(Buf,DC);
wglDestroyPbufferARB(Buf);
end;
DeactivateRenderingContext;
wglMakeCurrent(OldDC,OldRC);
ActivateRenderingContext(OldDC,OldRC);
end;</pre></td></tr></table>

Wenn ich dann eine Textur anhand vom RGBQuad erstelle, kommt irgendwas total komisches bei raus...

Es ist auch egal was ich davor für einen RC mit ActivateRenderingContext festlege... es ist immer dasselbe.. *seufzt*

Hilfe..

Au'revoir,
Aya~

PS: RGBQuad schaut so aus:
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre> PGLRGBQuad = ^TGLRGBQuad;
TGLRGBQuad = Packed Record
R, G, B: Byte;
Alpha: Byte;
end;
var
RGBQuad: PGLRGBQuad;</pre></td></tr></table>

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 09:34

DGL Member

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

Ich hab den Quellcode jetzt nur mal schnell überflogen (die Formatierung ist aufgrund des CODE-Tags leider auf der Strecke geblieben), aber ich bin mir fast sicher das dein Fehler beim Erstellen des PBuffers liegt...haste dir mal das ATI-Dokument zu dem Thema angesehen?

Denn du willst deinen PBuffer so erstellen :
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>Buf:=wglCreatePbufferARB(wglGetCurrentDC,Formats[0],Width,Height,nil);</pre></td></tr></table>
Allerdings gibtst du da ja gar keine Parameter an (letzter Parameter = nil), weshalb dein PBuffer wohl niemals erstellt wird...

Schau dir mal das von mir angehängte ATI-Dokument durch.Dort gibts den kompletten Quellcode um nen PBuffer zu erstellen, und dort wirste auch sehen das du zwei Attributlisten (und nicht nur eine) zum Erstellen desselben benötigtst!

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

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 13:00

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Hi,

hab mir das PDF mal angeguckt und alles so gemacht wie es da stand... aber jetzt wird der PBuffer nichmehr korrekt erstellt..

<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>procedure TTextur.CopyTexture;
type
HPBufferARB = UInt;
const
WGL_COLOR_BITS_ARB = $2014;
WGL_DEPTH_BITS_ARB = $2022;
WGL_TEXTURE_FORMAT_ARB = $2072;
WGL_TEXTURE_RGBA_ARB = $2076;
WGL_TEXTURE_TARGET_ARB = $2073;
WGL_TEXTURE_2D_ARB = $207A;
WGL_SUPPORT_OPENGL_ARB = $2010;
WGL_DRAW_TO_PBUFFER_ARB = $202D;
WGL_BIND_TO_TEXTURE_RGBA_ARB = $2071;
WGL_RED_BITS_ARB = $2015;
WGL_GREEN_BITS_ARB = $2017;
WGL_BLUE_BITS_ARB = $2019;
WGL_ALPHA_BITS_ARB = $201B;
WGL_DOUBLE_BUFFER_ARB = $2011;
attr: Array[0..18] of Integer = (WGL_SUPPORT_OPENGL_ARB,GL_TRUE,WGL_DRAW_TO_PBUFFER_ARB,GL_TRUE,
WGL_BIND_TO_TEXTURE_RGBA_ARB,GL_TRUE,WGL_RED_BITS_ARB,8,WGL_GREEN_BITS_ARB,8,WGL_BLUE_BITS_ARB,8,
WGL_ALPHA_BITS_ARB,8,WGL_DEPTH_BITS_ARB,24,WGL_DOUBLE_BUFFER_ARB,GL_FALSE,0);
pAttrib: Array[1..4] of Integer = (WGL_TEXTURE_FORMAT_ARB,WGL_TEXTURE_RGBA_ARB,WGL_TEXTURE_TARGET_ARB,WGL_TEXTURE_2D_ARB);
var
WGLExtensions: String;
wglGetExtensionsStringARB: function(hDC: HDC): PChar; stdcall;
wglChoosePixelFormatARB: function(hDC: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): Boolean; stdcall;
wglCreatePbufferARB: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; stdcall;
wglGetPbufferDCARB: function(hPbuffer: THandle): HDC; stdcall;
wglReleasePbufferDCARB: function(hPbuffer: THandle; hDC: HDC): GLint; stdcall;
wglDestroyPbufferARB: function(hPbuffer: THandle): Boolean; stdcall;
PixelFormat, Count: Integer;
FbufferDC: hDC;
FbufferRC: HGLRC;
FPBuffer: HPBufferARB;
OldRC: HGLRC;
OldDC: HDC;
begin
OldRC:=wglGetCurrentContext;
OldDC:=wglGetCurrentDC;
wglGetExtensionsStringARB:=wglGetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
WGLExtensions:=wglGetExtensionsStringARB(wglGetCurrentDC);
if Pos('WGL_ARB_pixel_format',WGLExtensions)=0 then Exit;
if Pos('WGL_ARB_pbuffer',WGLExtensions)=0 then Exit;
wglChoosePixelFormatARB:=wglGetProcAddress('wglChoosePixelFormatARB');
wglCreatePbufferARB:=wglGetProcAddress('wglCreatePbufferARB');
wglGetPbufferDCARB:=wglGetProcAddress('wglGetPbufferDCARB');

wglChoosePixelFormatARB(wglGetCurrentDC,@attr,nil,1,@PixelFormat,@Count);
FPBuffer:=wglCreatePbufferARB(wglGetCurrentDC,PixelFormat,Width,Height,@pAttrib);
FbufferDC:=wglGetPbufferDCARB(FPBuffer);
FbufferRC:=wglCreateContext(FbufferDC);
if FPBuffer=0 then
ShowMessage('Error creating the PBuffer');
end;</pre></td></tr></table>

Wenn ich bei der Zeile:
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre> FPBuffer:=wglCreatePbufferARB(wglGetCurrentDC,PixelFormat,Width,Height,@pAttrib);</pre></td></tr></table>
als letztes Attribut wieder nil mache, wird der PBuffer erstellt... ist evtl was an meinen pAttrib's falsch???

Au'revoir,
Aya~

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 13:18

DGL Member

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

Ja, du machst bei den Attributen ganz gewaltig was falsch :
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>pAttrib: Array[1..4] of Integer = (WGL_TEXTURE_FORMAT_ARB,WGL_TEXTURE_RGBA_ARB,WGL_TEXTURE_TARGET_ARB,WGL_TEXTURE_2D_ARB);</pre></td></tr></table>
Da fehlt nämlich am Ende die abschliessende null.Es muss also so lauten :
<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>pAttrib: Array[0..4] of Integer = (WGL_TEXTURE_FORMAT_ARB,WGL_TEXTURE_RGBA_ARB,WGL_TEXTURE_TARGET_ARB,WGL_TEXTURE_2D_ARB,0);</pre></td></tr></table>
(Ich beginn meine Arrays konsequenterweise immer bei 0)

P.S. : Wenn Interesse besteht, dann lad ich mal meine PBuffer-Unit hoch, die zum einen problemlos funzt, und auch komplettes Error-Logging beinhaltet, so dass die Fehlersuche dort recht einfach wird.

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

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 15:02

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Hi,

ok.. der PBuffer wird nun wieder erstellt, ist aber immernoch dasselbe Problem wie davor... das was da als Screenshot aus dem PBuffer rauskommt schaut so aus:

Bild

Und ich hab KA wieso...

Hier nochmal der komplette Code vom PBuffer:

<table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Delphi-Source </td></tr><tr><td id='CODE'><pre>procedure TTextur.CopyTexture;
type
HPBufferARB = UInt;
const
WGL_COLOR_BITS_ARB = $2014;
WGL_DEPTH_BITS_ARB = $2022;
WGL_TEXTURE_FORMAT_ARB = $2072;
WGL_TEXTURE_RGBA_ARB = $2076;
WGL_TEXTURE_TARGET_ARB = $2073;
WGL_TEXTURE_2D_ARB = $207A;
WGL_SUPPORT_OPENGL_ARB = $2010;
WGL_DRAW_TO_PBUFFER_ARB = $202D;
WGL_BIND_TO_TEXTURE_RGBA_ARB = $2071;
WGL_RED_BITS_ARB = $2015;
WGL_GREEN_BITS_ARB = $2017;
WGL_BLUE_BITS_ARB = $2019;
WGL_ALPHA_BITS_ARB = $201B;
WGL_DOUBLE_BUFFER_ARB = $2011;
attr: Array[0..18] of Integer = (WGL_SUPPORT_OPENGL_ARB,GL_TRUE,WGL_DRAW_TO_PBUFFER_ARB,GL_TRUE,
WGL_BIND_TO_TEXTURE_RGBA_ARB,GL_TRUE,WGL_RED_BITS_ARB,8,WGL_GREEN_BITS_ARB,8,WGL_BLUE_BITS_ARB,8,
WGL_ALPHA_BITS_ARB,8,WGL_DEPTH_BITS_ARB,24,WGL_DOUBLE_BUFFER_ARB,GL_FALSE,0);
pAttrib: Array[0..4] of Integer = (WGL_TEXTURE_FORMAT_ARB,WGL_TEXTURE_RGBA_ARB,WGL_TEXTURE_TARGET_ARB,WGL_TEXTURE_2D_ARB,0);
var
WGLExtensions: String;
wglGetExtensionsStringARB: function(hDC: HDC): PChar; stdcall;
wglChoosePixelFormatARB: function(hDC: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): Boolean; stdcall;
wglCreatePbufferARB: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; stdcall;
wglGetPbufferDCARB: function(hPbuffer: THandle): HDC; stdcall;
wglReleasePbufferDCARB: function(hPbuffer: THandle; hDC: HDC): GLint; stdcall;
wglDestroyPbufferARB: function(hPbuffer: THandle): Boolean; stdcall;
PixelFormat, Count: Integer;
OldDC, FbufferDC: hDC;
OldRC, FbufferRC: HGLRC;
FPBuffer: HPBufferARB;
begin
OldRC:=wglGetCurrentContext;
OldDC:=wglGetCurrentDC;
wglGetExtensionsStringARB:=wglGetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
WGLExtensions:=wglGetExtensionsStringARB(wglGetCurrentDC);
if Pos('WGL_ARB_pixel_format',WGLExtensions)=0 then Exit;
if Pos('WGL_ARB_pbuffer',WGLExtensions)=0 then Exit;
wglChoosePixelFormatARB:=wglGetProcAddress('wglChoosePixelFormatARB');
wglCreatePbufferARB:=wglGetProcAddress('wglCreatePbufferARB');
wglGetPbufferDCARB:=wglGetProcAddress('wglGetPbufferDCARB');

wglChoosePixelFormatARB(wglGetCurrentDC,@attr,nil,1,@PixelFormat,@Count);
FPBuffer:=wglCreatePbufferARB(wglGetCurrentDC,PixelFormat,Width,Height,@pAttrib);
FbufferDC:=wglGetPbufferDCARB(FPBuffer);
FbufferRC:=wglCreateContext(FbufferDC);
wglMakeCurrent(FbufferDC,FbufferRC);
glClearColor(0,0,0,0);
wglShareLists(OldRC,FbufferRC);

wglMakeCurrent(FbufferDC,FbufferRC);
ActivateRenderingContext(FbufferDC,FbufferRC);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glLoadIdentity;
Bind;
glBegin(GL_QUADS);
glTexCoord2f(1,1); glVertex3f(Width,0,0);
glTexCoord2f(0,1); glVertex3f(0,0,0);
glTexCoord2f(0,0); glVertex3f(0,Height,0);
glTexCoord2f(1,0); glVertex3f(Width,Height,0);
glEnd;
ColorDepth:=32;
FreeMem(RGBQuad);
RGBQuad:=nil;
GetMem(RGBQuad,Width*Height*4);
glFinish;
glPixelStorei(GL_PACK_ALIGNMENT,4);
glPixelStorei(GL_PACK_ROW_LENGTH,0);
glPixelStorei(GL_PACK_SKIP_ROWS,0);
glPixelStorei(GL_PACK_SKIP_PIXELS,0);
glReadPixels(0,0,Width,Height,GL_RGBA,GL_UNSIGNED_BYTE,RGBQuad);
wglReleasePbufferDCARB:=wglGetProcAddress('wglReleasePbufferDCARB');
wglDestroyPbufferARB:=wglGetProcAddress('wglDestroyPbufferARB');
if FPBuffer<>0 then begin
wglDeleteContext(FbufferRC);
wglReleasePbufferDCARB(FPBuffer,FbufferDC);
wglDestroyPbufferARB(FPBuffer);
end;
DeactivateRenderingContext;
wglMakeCurrent(OldDC,OldRC);
ActivateRenderingContext(OldDC,OldRC);
end;</pre></td></tr></table>

evtl könnt ihr das ja auch bei euch einfach mal ausprobieren ob's da klappt... :unsure:

Au'revoir,
Aya~

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 15:26

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

Son of Satan hat geschrieben:

P.S. : Wenn Interesse besteht, dann lad ich mal meine PBuffer-Unit hoch, die zum einen problemlos funzt, und auch komplettes Error-Logging beinhaltet, so dass die Fehlersuche dort recht einfach wird.

mh.. gerne, vieleicht find ich dann raus wo ich den fehler gemacht habe

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 15:33

DGL Member

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

Hmm...dein Quad wird ja in den PBuffer gerendert.Deshalb geh ich ganz einfach mal davon aus, das du vergessen hast das Texturemapping für den RC des PBuffers zu aktivieren.Denn der PBuffer hat ja nen eigenen, unabhängigen Renderkontext mit ner eigenen Statemachine.Wenn du auch auf dem RC des PBuffers Texturen willst, musste nach dessen Aktivierung natürlich auch glEnable(GL_TEXTURE_2D) aufrufen.

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

Nach oben

Aya

Betreff des Beitrags:

Verfasst: Fr Jul 18, 2003 15:35

DGL Member

Registriert: Di Dez 03, 2002 22:12
Beiträge: 2105
Wohnort: Vancouver, Canada
Programmiersprache: C++, Python

autsch... danke *g+ Das war's ... *pfeift unschuldig*

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

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.