Screenshot

2005-05-24T17:56:50Z

Haris:

= Allgemeines zum Screenshot erstellen =
== Einleitung ==
Ein '''Screenshot''' ist ein Abbild des aktuellen Bildschrim Inhaltes. In dem Falle von OpenGL greifen wir aber nicht auf das Fenster zurück sondern auf den [[Framebuffer]]. Neben dem eigentlichen Vorgang, nämlich der Besorgung der Bilddaten, ist es meißtens auch noch sinnvoll die Daten dem Benutzer verfügbar zu machen. Dies geschieht meistens in Form einer Bild-Datei oder eines Eintrages in der Zwischenablage.

== Bilddaten besorgen ==
Mit Hilfe des [[glReadPixels]] Befehl kann der [[Framebuffer]] ausgelesen werden. Für einen Screenshot sind meißtens die [[RGB]]-Werte interessant. Bei diesen Werten ergibt sich auch schon das erste Problemm OpenGL speichert die Daten in der Reinfolge Rot Grün Blau, wärend es in einigen Bildformaten (nämlich denen die auf Bitmaps aufbauen) üblich ist die Daten in der Reinfolge Blau Grün Rot zu speichern. Glücklicherweise kann man in aktuellen OpenGL Versionen [[glReadPixels]] anweisen die Daten auch in dieser Reinfolge zu liefern.

Der [[glReadPixels]] Befehl für neue Grafikarten könnte in etwa so aussehen:
<pascal>
// ungünstige Reinfolge Rot Grün Blau
glReadPixels( 0, 0, Breite, Hoehe, GL_RGB, GL_UNSIGNED_BYTE, Daten );
// auf neuren Grafikarten:
glReadPixels( 0, 0, Breite, Hoehe, GL_BGR, GL_UNSIGNED_BYTE, Daten );
</pascal>

Was die einzelen Parameter bedeuten, könnt ihr im [[glReadPixels]] Artikel nachlesen. Es sei hier nur gesagt das das letzte Argument der Speicherplatz ist, an den OpenGL die Daten abspeichern soll(meißt ein Pointer z.B. auf ein Array).

[[Kategorie:Anleitung]]

= Speichern im TGA Format =

Eine TGA-Datei hat einen relativ einfachen Aufbau. Als erstes kommen Header-Informationen und dannach die Daten. Der Header sieht so aus:
<pascal>type
TTGAHEADER = packed record
tfType : Byte;
tfColorMapType : Byte;
tfImageType : Byte;
tfColorMapSpec : Array[0..4] of Byte;
tfOrigX : Word; //Array [0..1] of Byte;
tfOrigY : Word;
tfWidth : Word;
tfHeight : Word;
tfBpp : Byte;
tfImageDes : Byte;
end;
</pascal>
Nun zur Speicherfunktion für ein Screenshot ohne Alpha Wert
<pascal>
procedure ScreenShot(const Name : string);
var
DataBuffer : array of Byte;
f : file;
tgaHeader : TTGAHEADER;
width, height : integer;
DataSize:Integer;
viewport : Array[0..3] of integer;
begin

glGetIntegerv(GL_VIEWPORT, @viewport);
width := viewport[2];
height := viewport[3];

DataSize := ffWidth * ffHeight * 3;

SetLength(DataBuffer,DataSize);

// TGA Kopf mit Daten füllen
ZeroMemory(@tgaHeader, SizeOf(tgaHeader));
tgaHeader.tfImageType := 2; // TGA_RGB = 2
tgaHeader.tfWidth := Width
tgaHeader.tfHeight := Height;
tgaHeader.tfBpp := 24;

glReadPixels(0,0,Width, Height, GL_BGR, GL_UNSIGNED_BYTE, @DataBuffer[0]);

//Datei erstellen
AssignFile(f, Name);
Rewrite( f,1 );
try
// TGA Kopf in die Datei reinschreiben
BlockWrite(F, tgaHeader, SizeOf(tgaHeader));

// Die eigentlichen Bilddaten in die Datei schreiben
BlockWrite(f, DataBuffer[0], DataSize );
finally
CloseFile(f);
end;
end;
</pascal>

[[Kategorie:Anleitung]]

= Speichern im BMP Format =

Auch eine BMP-Datei hat einen relativ einfachen Aufbau. Als erstes kommen Header-Informationen, dann FileInfo-Informationen und dannach die Daten. Der Header sieht so aus:
<pascal> BITMAPINFOHEADER = packed record
biSize: DWORD;
biWidth: Longint;
biHeight: Longint;
biPlanes: Word;
biBitCount: Word;
biCompression: DWORD;
biSizeImage: DWORD;
biXPelsPerMeter: Longint;
biYPelsPerMeter: Longint;
biClrUsed: DWORD;
biClrImportant: DWORD;
end;

BITMAPFILEHEADER = packed record
bfType: Word;
bfSize: DWORD;
bfReserved1: Word;
bfReserved2: Word;
bfOffBits: DWORD;
end;</pascal>
Nun zur Speicherfunktion für ein Screenshot :
<pascal>procedure ScreenShot(const 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 8);

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;</pascal>

DGL Wiki - Benutzerbeiträge [de]

Screenshot