DGL • Thema anzeigen - Screenshot für Anfänger?

Screenshot für Anfänger?

Moderator: DGL-Team

Seite 1 von 2

[ 27 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Arnulf

Betreff des Beitrags: Screenshot für Anfänger?

Verfasst: Do Mär 17, 2005 21:04

DGL Member

Registriert: Do Mär 17, 2005 20:43
Beiträge: 26

Hallo
Ich hab mich schon ein bisschen durch das forum gekämpft und auch das einsteiger tutorial gelesen.
Allerdings komm ich immernoch nicht zurecht.

Was ich eigentlich will ist von einem spiel (medal of honor) einen screenshot machen.
Ich hab das schon programmiert, allerdings über die windows funktionen:

Code:

BitBlt(bm.Canvas.Handle,0,0,Width,Height,Dc,x,y,SRCCOPY);

hier habe ich aber das problem, daß overlays bzw. huds und manchmal auch die spieler oder models nicht am screenshot drauf sind.

jetzt hab ich mir gedacht ich muß doch dirrekt den grafikspeicher auslesen können.

ich hab versucht eine funktion von Sascha Willems aus diesem forum zu nutzen aber bin kläglich gescheitert.

Ich hab dazu ein template runtergeladen und die funktion einfach mit einem button aufgerufen.
damit macht er mir auch ein bild allerdings nur von dem fenster des templates und da auch nur ein schwarzes bild.

Wenn ich das richtig verstehe, muß ich beim inizialisieren der ogl funktionen den handle des fensters übergeben:

Code:

DC := GetDC(Handle);

handle also im sinn von HWND - also würde das dann der handle von dem spiel fenster sein????.

Das würde aber bedeuten ich initalisiere opengl erst nachdem das spiel gestartet ist und ich den handle davon hab.
danach mach ich das init und ruf die screenshot funktion auf?

oder hab ich das komplett falsch verstanden?

ich frag deshalb nach, weil ich schon seit 2 tagen damit rumspiel und einfach keinen screenshot zusammenbekom lol.

Arnulf

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Mär 17, 2005 21:34

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

ich weiß nicht ab es das ist, was du meinst, aber während dem Bild die "Druck"-Taste drücken (über Einfg

), und dann kannst du das Bild
in Paint oder so einfügen

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Do Mär 17, 2005 21:36

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Einsteiger-Fragen?

Also von SnagIt7 weiß ich, dass es DirectX verwenden kann, um DirectX Ausgaben zu photographieren. Funktioniert auch einwandfrei. Für OpenGL konnte ich das aber IMHO ganz normal machen.

Dein Problem mit dem nicht vorhandenen HUD dürfte sich leicht erklären lassen. Bei FRAPS war ja cuh eine README dabei, wo ein paar Denkansätze gegeben wurden. Und da wurde auch vom Doublebuffering gesprochen. Es kann einfach sein, dass du ein Bild machst, zu diesem Zeitpunkt aber das HUD noch im Grafikspeicher rumliegt und erst in der nächsten Millisekunde danach gezeichnet wird, dann aber dafür der Rest von der Graphik fehlt.

Dagegen gibt es jetzt direkt AFAIK kein richtiges Mittel, außer höchstens irgendwie Doublebuffering auszumachen, was aber leider wohl flachfallen dürfte...

_________________
"Für kein Tier wird so viel gearbeitet wie für die Katz'."

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Mär 17, 2005 21:45

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

mach's einfach, wie ich's geschrieben hab. Ging bei mir auch

Nach oben

Frase

Betreff des Beitrags:

Verfasst: Do Mär 17, 2005 21:47

Forenkatze

Registriert: Mi Okt 22, 2003 18:30
Beiträge: 1945
Wohnort: Närnberch
Programmiersprache: Scala, Java, C*

Ich denke mal schon, dass Arnulf die Druck-Taste bekannt ist.
Obwohl?... Bei dem Thread-Titel?

_________________
"Für kein Tier wird so viel gearbeitet wie für die Katz'."

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Do Mär 17, 2005 22:12

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

mag sein, dass er die kennt. Aber wenn, hätte er es doch auprobiert, oder????

Nach oben

Arnulf

Betreff des Beitrags:

Verfasst: Do Mär 17, 2005 22:14

DGL Member

Registriert: Do Mär 17, 2005 20:43
Beiträge: 26

ja ist mir bekannt die druck taste - jetzt mal im ernst.

ich schreib ein anticheat tool für medal of honor - sogar ein sehr gutes.
es wird ja auch schon verwenden in diversen ligen.

ich mach screenshots vom desktop eben mit scrcopy und da fehlen mir leider diese huds.
ich lade die auch dirrekt auf den anticheat server rauf.
Das funktioniert alles wunderbar - bis auf zwei dinge.
1. es lagt sehr beim screenshot holen (nicht beim raufladen).
2. es ist nicht alles drauf was drauf sein sollte.

ich poste mal was ich mir zusammengebastelt hab - ich bekomm aber leider kein bild sondern nur sinnlose grafik pixel.

Code:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg,
  dglOpenGL, StdCtrls;
 
type
PRGBQuad = ^TRGBQuad;
TRGBQuad = packed record
   Red   : Byte;
   Green : Byte;
   Blue  : Byte;
   Alpha : Byte;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    RC        : HGLRC;
    DC        : HDC;
    ShowFPS   : Boolean;
    FontBase  : GLUInt;
    StartTick : Cardinal;
    Frames    : Integer;
    FPS       : Single;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// =============================================================================
//  glSaveScreen
// =============================================================================
//  Speichert einen Screenshot des aktuellen Pufferinhaltes
// =============================================================================
procedure glSaveScreen(pFilename : String);
var
 Viewport : array[0..3] of TGLint;
 JPG      : TJPEGImage;
 RGBBits  : PRGBQuad;
 Pixel    : PRGBQuad;
 BMP      : TBitmap;
 Header   : PBitmapInfo;
 x,y      : Integer;
 Temp     : Byte;
begin
glGetIntegerv(GL_VIEWPORT, @Viewport);
GetMem(RGBBits, Viewport[2]*Viewport[3]*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, Viewport[2], Viewport[3], GL_RGBA, GL_UNSIGNED_BYTE, RGBBits);
// Screenshot als JPG speichern
JPG := TJPEGImage.Create;
BMP := TBitmap.Create;
BMP.PixelFormat := pf32Bit;
BMP.Width       := Viewport[2];
BMP.Height      := Viewport[3];
GetMem(Header, SizeOf(TBitmapInfoHeader));
with Header^.bmiHeader do
 begin
 biSize        := SizeOf(TBitmapInfoHeader);
 biWidth       := Viewport[2];
 biHeight      := Viewport[3];
 biPlanes      := 1;
 biBitCount    := 32;
 biCompression := BI_RGB;
 biSizeImage   := Viewport[2]*Viewport[3]*4;
 end;
// Rot und Blau vertauschen
Pixel := RGBBits;
for x := 0 to Viewport[2]-1 do
 for y := 0 to Viewport[3]-1 do
  begin
  Temp       := Pixel.Red;
  Pixel.Red  := Pixel.Blue;
  Pixel.Blue := Temp;
  inc(Pixel);
  end;
SetDIBits(Bmp.Canvas.Handle, Bmp.Handle, 0, Viewport[3], RGBBits, TBitmapInfo(Header^), DIB_RGB_COLORS);
JPG.CompressionQuality := 100;
JPG.Assign(BMP);
JPG.SaveToFile(pFileName);
FreeMem(Header);
FreeMem(RGBBits);
JPG.Free;
BMP.Free;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var FoundWindow : hwnd;
begin
// Wenn gewollt, dann hier in den Vollbildmodus wechseln
// Muss vorm Erstellen des Kontextes geschehen, da durch den Wechsel der
// Gerätekontext ungültig wird!
// GoToFullscreen(1600, 1200, 32, 75);
 
// OpenGL-Funtionen initialisieren
InitOpenGL;
 FoundWindow := FindWindowEx(0 ,0 , 'Medal of Honor Allied Assault(TM) Spearhead', nil);
if foundwindow > 0 then
begin
// Gerätekontext holen
DC := GetDC(FoundWindow);
// Renderkontext erstellen (32 Bit Farbtiefe, 24 Bit Tiefenpuffer, Doublebuffering)
RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
// Erstellten Renderkontext aktivieren
ActivateRenderingContext(DC, RC);
// Tiefenpuffer aktivieren
glEnable(GL_DEPTH_TEST);
// Nur Fragmente mit niedrigerem Z-Wert (näher an Betrachter) \"durchlassen\"
glDepthFunc(GL_LESS);
// Löschfarbe für Farbpuffer setzen
glClearColor(0,0,0,0);
// Displayfont erstellen
//BuildFont('MS Sans Serif');
// Idleevent für Rendervorgang zuweisen
//Application.OnIdle := ApplicationEventsIdle;
// Zeitpunkt des Programmstarts für FPS-Messung speichern
StartTick := GetTickCount;
Form1.Caption := inttostr (FoundWindow);
end
else
Form1.Caption := 'Nix Gefunden';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
glSaveScreen ('nothing.jpg');
end;
 
end.

Also ich bin kein völliger delphi anfänger - obwohl ich erst seit 3 monaten damit arbeite.
wenn sich jemand für den anticheat interessiert:http://www.gamehost.biz/webmanager/view.php?docid=3379&page=enterfilesub&mainarea=117&subarea=118

ist ja ziemlich fertig - nur die screenshots muß ich irgendwie besser machen.

Arnulf

Moderiert von Lossy eX: Code durch Pascaltag ersetzt

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 11:08

DGL Member

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

Ich gebe dir meine angepaste Quaqe II Version of GLScreenShot-Procedure. Zwar funktioniert es nur mit *.tga Format, aber was soll´s.

Code:

 
procedure GLScreenShot(name : string);
 
type TTGAHEADER = packed record
    tfType : Byte;
    tfColorMapType : Byte;
    tfImageType : Byte;
    tfColorMapSpec : Array[0..4] of Byte;
    tfOrigX : Array [0..1] of Byte;
    tfOrigY : Array [0..1] of Byte;
    tfWidth : Array [0..1] of Byte;
    tfHeight : Array [0..1] of Byte;
    tfBpp : Byte;
    tfImageDes : Byte;
  end;
 
const MaxSize_ = 1024 * 768 * 4 + 1;
 
var Buffer : array of Byte;
    c,i,j,temp : integer;
    f : file;
    tgaHeader : TTGAHEADER;
    ffwidth, ffheight : integer;
    viewport : Array[0..3] of integer;
 
begin
 glGetIntegerv(GL_VIEWPORT, @viewport);
 ffwidth := viewport[2];
 ffheight:= viewport[3];
 
 c:= ffWidth * ffHeight * 4;
 
 if c>maxsize_ then Exit;
 
 SetLength(buffer,c);
 
 ZeroMemory(@tgaHeader, SizeOf(tgaHeader));
 
    // Fill the structure with info for the image to be saved
    tgaHeader.tfImageType := 2; // TGA_RGB = 2
    tgaHeader.tfWidth[0] := ffWidth and 255;
    tgaHeader.tfWidth[1] := ffWidth shr 8;
    tgaHeader.tfHeight[0] := ffHeight and 255;
    tgaHeader.tfHeight[1] := ffHeight shr 8;
    tgaHeader.tfBpp := 24;
 
 glReadPixels(0,0,ffWidth, ffHeight, GL_RGBA, GL_UNSIGNED_BYTE, @Buffer[0]);   // get image as 32-bit format
 
    // swap rgb to bgr
     i := 0;
     while ( i < c) do
     begin
        temp := buffer[i];
        buffer[i] := buffer[i+2];
        buffer[i+2] := temp;
      inc(i,4);
     end;
 
 c := ffwidth * ffheight * 3;
 i := 0;
 j := 0;
 
    while ( i < c) do        // convert from 32-bit to 24 bitformat
    begin
      Buffer[i] := Buffer[j];
      Buffer[i+1] := Buffer[j+1];
      Buffer[i+2] := Buffer[j+2];
 
      Inc(i,3);
      Inc(j,4);
    end;
 
 AssignFile(f, name);
 Rewrite( f,1 );
 
 BlockWrite(F, tgaHeader, SizeOf(tgaHeader));
 BlockWrite(f, buffer[0], c );
 
 CloseFile(f);
 SetLength(buffer, 0 );
 
end;
 

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

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 13:42

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

wie wäre es denn, wenn du
1. die framerate holst(sollte ja gehen, die meisten anticheat-tools sind ja hacks)
2. 2 bis 4 shots innerhalb dieser zeitspanne machst
3. und dann mal schaust was rauskommt?

das wäre bestimmt interessant, oder?

EDIT: natürlich mit der methode, die funktioniert, aber das hud o.ä. fehlt.

_________________

"User Error. Replace User and hit Continue."

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 14:22

DGL Member

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

Also warum es bei dir lagt kann ich dir sagen. (Denke ich mal)

1. glReadPixels ist ziemlich langsam.
2. Als JPG Komprimieren ist ebenso sehr langsam.
Wenn du beides zusammen in einem Atemzug machst, dürfte der Rechner ca 750ms (PI mal Daumen) mit deiner Arbeit beschäftigt sein. Das führt dann natürlich unweigerlich dazu, dass es langsam ist.

Was mich allerdings ein wenig wundert ist die Tatsache, dass das Auslesen des Fensterinhaltes (zwar auch nicht wesentlich schneller) keine sinnvollen Ergebnisse geliefert hat. Normal ließt du ja nur das aus was auf dem Bildschirm dargestellt wird. Das sollte ja ein sinnvolles Bild sein.

Außerdem erstellst du deinen eigenen RenderContext auf dem Fenster von Medal of Honor. Wenn ich mich nicht irre dürften die dann nichts miteinander zu tun haben. Habe so etwas aber auch noch nie probiert.

Allerdings das schon mal angesprochene Fraps macht das. Wäre mal ganz interessant herraus zufinden was er genau macht. Der ist nämlich auch in der Lage auf sinnvolle Art und Weise ein Screenshot von einem Programm anzufertigen.

Nach oben

Arnulf

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 14:35

DGL Member

Registriert: Do Mär 17, 2005 20:43
Beiträge: 26

Ich hab die methode von sniper_w probiert aber es kommt das gleiche raus wie mit dem bitmap bzw. jpg.

Ich zeig euch mal das bild das rauskommt:
Bild

also ob die farbpalette nicht stimmt ...

Arnulf[/img]

Nach oben

Arnulf

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 14:45

DGL Member

Registriert: Do Mär 17, 2005 20:43
Beiträge: 26

@ Lossy eX
du hast das falsch verstanden - die methode die ich bisher benutzt habe schaut so aus und das funktioniert recht gut.
bis auf lag und das fehlen von teilen:

Code:

procedure ScreenShot(x : integer; y : integer; Width : integer; Height : integer; bm : TBitMap);
          var
             dc: HDC; lpPal : PLOGPALETTE;
          begin
               if ((Width = 0) OR (Height = 0)) then exit;
               bm.Width := Width;
               bm.Height := Height;
               dc := GetDc(0);
               if (dc = 0) then exit;
               if (GetDeviceCaps(dc, RASTERCAPS) AND RC_PALETTE = RC_PALETTE) then
               begin
                    GetMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
                    FillChar(lpPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0);
                    lpPal^.palVersion := $300;
                    lpPal^.palNumEntries :=GetSystemPaletteEntries(dc,0,256,lpPal^.palPalEntry);
                    if (lpPal^.PalNumEntries <> 0) then
                    begin
                         {create the palette}
                         bm.Palette := CreatePalette(lpPal^);
                    end;
                    FreeMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
               end;
               BitBlt(bm.Canvas.Handle,0,0,Width,Height,Dc,x,y,SRCCOPY);
               ReleaseDc(0, dc);
end;

rauskommen tut dann sowas:

Bild

und hier vom gleichen spieler ein bild - wo einfach alles fehlt - der spieler selbst alle anzeigen und auch die gegner.
Das ist für einen anitcheat unbrauchbar

Also versuche ich eine methode zu finden wo ich alles drauf bekomme und nach möglichkeit nicht die windows funktionen verwendet (wegen lag).

Arnulf

Moderiert von Lossy eX: Code durch Pascaltag ersetzt

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 15:03

DGL Member

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

Zitat:

also ob die farbpalette nicht stimmt ...

Ne. Du das ist keine falsche Farbpalette. Ich arbeite derzeit an Bildern an denen ich die Farbpalette verändere. Und die Bilder sehen noch wesentlich mehr nach Bildern aus als dein willenloser Speicherauszug.
Wie du bei dem Bild siehst ist das ein wiederkehrendes Muster. Ich tippe einfach mal darauf, dass das in nicht initialisierter Speicherbereich ist. Also als ob du etwas ausgelesen hättest was vorher von etwas anderem verwendet wurde. Also texturen oder so. Aber dafür ist das eigentlich zu durcheinander.

Was mir aber da gerade auffällt. Ist jetzt auch nicht wichtig, weil es ja eh nicht funktioniert. Evtl wäre es sinnvoll, nicht so viel Aktionen durchzuführen. Also in dem Code von sniper. Erst Bilddaten auslesen, dann Rot und Blau Tauschen, dann Alpha wegschmeißen. Die beiden letzten Aktionen könnte man in eine packen. Also RGB in BGR umformen und gleichzeitig das Alpha wegfallen lassen. Somit spart man sich schon ein mal den Speicher zu kopieren. Noch besser wäre es aber wenn OpenGL einem das richtige Format liefert.
glReadPixels müsste das Format GL_BGR verstehen. Somit wäre der Buffer den wir von OpenGL bekommen auch genau schon das was wir direkt auf die Platte schreiben könnten. Somit würden keine zusätzlichen Speicherkopierereien anfallen. Das aber nur mal so am Rande.

Zitat:

du hast das falsch verstanden - die methode die ich bisher benutzt habe schaut so aus und das funktioniert recht gut.
bis auf lag und das fehlen von teilen:

Na ja. Ich meinte mit dem nicht funktionieren ja eigentlich das Fehlen von verschiedenen Teilen. ;-)

Aber Wundern tut es mich dennoch wieso da so etwas dabei raus kommt.

Hat du schon mal versucht nicht den Desktop (GetDC(0)) sondern das mit dem DC des Fensters zu machen? Ich denke mal ja. Aber sicher ist sicher.

PS: Wenn du Code postest dann benutz bitte die Pascaltags und nicht die Code Tags. Danke.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 15:06

DGL Member

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

Zitat:

Ich hab die methode von sniper_w probiert aber es kommt das gleiche raus wie mit dem bitmap bzw. jpg.

Natürlich kommt nichts, weli du kein Zugriff auf RC von MedalOfHonor hast. Sonst, mit einem eigenem RC geht es wunderbar, schließlich ist das so in Quake II gemacht.

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

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: Fr Mär 18, 2005 15:13

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

Vielleicht so:

Code:

procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;
  
    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;

:D:D:D

Nach oben

Seite 1 von 2

[ 27 Beiträge ]

Gehe zu Seite 1, 2 Nächste

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

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