DGL • Thema anzeigen - Screenshot mittels glReadPixels

Screenshot mittels glReadPixels

Moderator: DGL-Team

Seite 3 von 4

[ 60 Beiträge ]

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

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Lossy eX

Betreff des Beitrags:

Verfasst: Di Apr 19, 2005 13:10

DGL Member

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

@sniper: Wie das in etwa aussehen sollte kannst du dir an diesem Post anschauen.

Dem ein oder anderen dürfte auffallen, dass es eine Antwort auf DIESES Thema ist. Da es ja anscheinend mit dem Screenshoot immer noch nicht so ganz funktioniert habe ich mal meinen geposteten Code ausprobiert. Okay. Er ist nicht ganz fehlerfrei. Das Bild stand auf dem Kopf. Habe ich aber gerade korrigiert.

Falls erwünscht kann man am Ende der Methode das Pixelformat auf 24 Bit setzen. Was sich aber auch nur in der Dateigröße wieder spiegelt.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Di Apr 19, 2005 16:47

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Und nochmals ohne TBitmap...

Code:

 
procedure GLScreenShot_BMP_1(name : string);
 var F : file;
     FileInfo: BITMAPINFOHEADER;
     FileHeader : BITMAPFILEHEADER;
     pPicData:Pointer;
     Viewport : array[0..3] of integer;
begin
 ZeroMemory(@FileHeader, SizeOf(BITMAPFILEHEADER));
 ZeroMemory(@FileInfo, SizeOf(BITMAPINFOHEADER));
 
 glGetIntegerv(GL_VIEWPORT, @Viewport);
 
 FileInfo.biSize := SizeOf(BITMAPINFOHEADER);
 FileInfo.biWidth := Viewport[2];
 FileInfo.biHeight := Viewport[3];
 FileInfo.biPlanes := 1;
 FileInfo.biBitCount := 32;
 FileInfo.biSizeImage := FileInfo.biWidth*FileInfo.biHeight*(FileInfo.biBitCount div <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->;
 
 FileHeader.bfType := 19778;
 FileHeader.bfOffBits := SizeOf(BITMAPINFOHEADER)+SizeOf(BITMAPFILEHEADER);
 FileHeader.bfSize := FileHeader.bfOffBits + FileInfo.biSizeImage;
 
 GetMem(pPicData, FileInfo.biSizeImage);
 
 // get image as 32-bit format
 glReadPixels(0, 0, Viewport[2], Viewport[3], GL_BGRA, GL_UNSIGNED_BYTE, pPicData);
// glReadPixels(0, 0, FileInfo.biWidth, FileInfo.biHeight, GL_BGRA, GL_UNSIGNED_BYTE, pPicData);
 
  AssignFile(f, name);
  Rewrite( f,1 );
   BlockWrite(F, FileHeader, SizeOf(BITMAPFILEHEADER));
   BlockWrite(F, FileInfo, SizeOf(BITMAPINFOHEADER));
   BlockWrite(F, pPicData^, FileInfo.biSizeImage );
  CloseFile(f);
 
 FreeMem(pPicData, FileInfo.biSizeImage);
end;
 

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Apr 19, 2005 18:46

DGL Member

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

Ich will ja nicht unken aber ich tue es dennoch. ;-)

Nein scherz bei Seite. Bei einem Bitmap gibt es Spacerbytes. Und zwar genau dann wenn die Breite nicht durch 4 Teilbar ist. Das kann bei dir auftreten und somit dürfte das Bild in 3/4tel der geschossenen Bildern kein richtiges Ergebnis beinhalten.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Di Apr 19, 2005 21:33

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Zitat:

Und zwar genau dann wenn die Breite nicht durch 4 Teilbar ist.

Hmm...Ich habe es getestet. Bei mir funktioniert es eiwandfrei. :roll:

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Apr 20, 2005 05:13

DGL Member

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

Ich weiß jetzt auch nicht 100%tig ob das auch bei 32 Bits so ist aber mit der Textures.pas und Bilder deren Breite nicht durch 4 teilbar waren ist so etwas immer mal wieder aufgetreten. Und in der werden die Bilddaten auch nur direkt am Stück geschrieben.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mi Apr 20, 2005 15:21

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Ok. Es geht jetzt. Es lag wie gesagt nur am Verschieben von PixelData. Wenn ich nen Hilfszeiger nehm der Wandert und Pixeldata am start lasse, gibts keine Probleme. Danke euch.

Wer macht den Wiki Artikel?

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Mi Apr 20, 2005 16:20

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Darf ich ? Jemand müsste meine Grammatik prüfen. :lol:

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Flo

Betreff des Beitrags:

Verfasst: Mi Apr 20, 2005 17:04

DGL Member

Registriert: Do Jun 19, 2003 10:44
Beiträge: 991
Wohnort: Karlsfeld (nahe München)

sniper_w hat geschrieben:

Darf ich ? Jemand müsste meine Grammatik prüfen. :lol:

KLAR!! - darfst du den Artikel erstellen! Wenn du willst kannst du dich dazu auch im Wiki anmelden, so das dein Benutzername als alster Autor eingeht :wink:

_________________
Danke an alle, die mir (und anderen) geholfen haben.
So weit... ...so gut

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: So Mai 22, 2005 20:05

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Okey ein bischen spät aber ich hab eine systemunabhängige variante gebaut.
Diese braucht ledeglich die sysutils, wobei diese auch mit wenigen handgriffen raus zu bekommen ist.

Code:

 
type
    BitmapFileHeader=packed record
        bfType:word;
        bfSize:cardinal;
        bfReserved1:Word;
        bfReserved2:Word;
        bfOffBits:cardinal;
    end;
 
    BitmapInfoHeader=packed record
        biSize:cardinal;
        biWidth:Integer;
        biHeight:Integer;
        biPlanes:Word;
        biBitCount:Word;
        biCompression:cardinal;
        biSizeImage:cardinal;
        biXPelsPerMeter:Integer;
        biYPelsPerMeter:Integer;
        biClrUsed:cardinal;
        biClrImportant:cardinal;
    end;
.....
procedure Make_Screenshot(width,height:integer);
var path,filename:string;
      infoheader:bitmapinfoheader;
      fileheader:bitmapfileheader;
      image:pointer;
      f:file;
      i:cardinal;
begin
  with fileheader do
  begin
    bfType:=19778; //ergibt BM
    bfSize:=sizeof(fileheader)+sizeof(infoheader)+(Width*Height*3);
    bfOffBits:=sizeof(fileheader)+sizeof(infoheader);
  end;
 
  with infoheader do
  begin
    biSize:=sizeof(infoheader);
    biWidth:=width;
    biHeight:=height;
    biPlanes:=1;
    biBitCount:=24;
    biSizeImage:=Width*Height*3;
  end;
  
  getmem(image,width*height*3);
 
  glReadPixels( 0, 0, Width, Height, GL_BGR_EXT, GL_UNSIGNED_BYTE, image );
 
  getdir(0,path);
  
  i:=0;
  while i=i do
  begin
  filename:=path+'/scrshot'+inttostr(i)+'.bmp';
    if FileExists(filename)=false then 
      break
    else
      inc(i);
  end;
  Assign(f, filename);
  Rewrite(F,1);
  BlockWrite(f,fileheader,sizeof(fileheader));
  BlockWrite(f,infoheader,sizeof(infoheader));
  BlockWrite(f,image^,height*width*3);
  Close(F);
  freemem(image);
end;
 

Die Funktion ruft man ledeglich auf und sie erstellt eine Bitmap mit 24Bit Farbtiefe.
Als i Tüpfelchen numeriert sie die Screenshots aufsteigend.
MfG TAK2k4

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Flash

Betreff des Beitrags:

Verfasst: So Mai 22, 2005 20:19

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

@Tak: Öhm...wieso muss man bei dir die ausmaße angeben? Screenshots haben doch immer die größe des Screens.

@Sniper_w: Wie siehts mit dem Wikiartikel aus? Hast du noch interesse. Ich/Wir fänden einen entsprechenden Wiki-Artikel fein.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

sniper

Betreff des Beitrags:

Verfasst: So Mai 22, 2005 22:36

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Die Interese besteht. Nun leider finde ich sehr wenig Zeit um so etwas zu schreiben. Ich brauche natürlich auch jemanden, der das dann auf überprüft (Ortographie ) :wink:

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Flash

Betreff des Beitrags:

Verfasst: Mo Mai 23, 2005 10:57

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Das Wiki braucht nur den Artikel. Die Rechtschreibung wird dann automatisch von jedem der Fehler findet korrigiert. Das is nicht so wie bei Tutorials. Da dürfen nur Admins dran rumbauen. Bei den Allgemeinen Artikeln kann jeder Fehler beseitigen, und das klappt momentan ganz gut.

PS: Der leere Artikel steht hier bereit: http://wiki.delphigl.com/index.php/Techniken_und_Algorithmen#Sonstiges

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Flo

Betreff des Beitrags:

Verfasst: Mo Mai 23, 2005 15:39

DGL Member

Registriert: Do Jun 19, 2003 10:44
Beiträge: 991
Wohnort: Karlsfeld (nahe München)

So ich habe mir mal die Freiheit genommen und den Artikel Screenshot erstellt. Bisher enthält der Artkiel nur eine Anweisung wie man ohne Vertauschen der RGB Werte ein 24 Bit Bild im TGA Format speichert. Alle andern Methoden kann wer möchte noch nachtragen.

_________________
Danke an alle, die mir (und anderen) geholfen haben.
So weit... ...so gut

Nach oben

Seth

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 17:00

DGL Member

Registriert: Di Mai 24, 2005 16:43
Beiträge: 710

ich möchte einen screenshot von einem opengl window machen, welches auf einem panel liegt, und dabei nur das panel screenshotten, wie mache ich des ? EDIT: Mit BitBlt hab ichs jetzt so hinbekommen:

Code:

 
procedure TMainForm.Button1Click(Sender: TObject);
var
  Screenshot: TBitmap;
begin
  if savedialog1.execute then
    begin
      Screenshot := TBitmap.Create;
      try
        Screenshot.Width := Preview.Width;
        Screenshot.Height := Preview.Height;
        BitBlt(Screenshot.Canvas.Handle, 0, 0, Screenshot.Width, Screenshot.Height, DC, 0, 0, SRCCOPY);
        Screenshot.savetofile(savedialog1.filename);
      finally
        Screenshot.Free;
      end;
    end;
end;
 

funzt aber nur selten, weil der dialog stört, meistens ist das bild leer, naja ich versuchs dann doch anders ...

Zuletzt geändert von Seth am Di Mai 24, 2005 18:29, insgesamt 2-mal geändert.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Di Mai 24, 2005 17:53

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Die Antwort würde schon gegeben. Du musst das Thread nochmals lesen.

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Seite 3 von 4

[ 60 Beiträge ]

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

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

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