3 respuestas en este tema

[Dante]

Hola, hace tiempo "omar73rnr" habrio varios temas sobre la captura de imagen de juegos y no tuvieron solucion:
http://delphiaccess....pantalla-en-w7/
http://delphiaccess....turar-pantalla/

en estos momentos es posible mediate las librerias de Opengl realizar esto?

[enecumene]

Prueba lo siguiente:

delphi

procedure CapturarPantalla;
var
   pbuf: pointer;
   y: integer;
   bmp: TBitmap;
   p1, p2: pointer;
begin
   glReadBuffer(GL_FRONT);
   GetMem( pbuf, pnScene.Width * pnScene.Height * 4);
   glReadPixels( 0, 0, pnScene.Width, pnScene.Height, GL_RGBA, GL_UNSIGNED_BYTE, pbuf);
 
   bmp := TBitmap.Create;
   bmp.PixelFormat := pf32bit;
   bmp.Width := pnScene.Width;
   bmp.Height := pnScene.height;
 
   for y := 0 to (pnScene.Height -1) do
   begin
      p1 := bmp.ScanLine[y];
      p2 := pointer( integer(pbuf)+ (y * bmp.Width * 4));
      CopyMemory( p1, p2, bmp.Width * 4);
   end;
 
   bmp.SaveToFile( 'c:\test\temp.bmp');
   bmp.Free;
   FreeMem( pbuf);
end;

Nota: pnScene es un panel en este caso.

 

Saludos.

[Dante]

Sigue saliendo en negro

delphi

type
Scence = record
Width : DWORD;   
 Height : DWORD;
 
var
pnScene: Scence;
 
 
 pnScene.Width :=GetSystemMetrics(SM_CXSCREEN);    
 pnScene.Height := GetSystemMetrics(SM_CYSCREEN);

, explicame vie lo de pnScene yo lo asigne a el el tamaño de monitor, no se si asi estara bien

[Dante]

Al parece segun lo q comentan en este sitio https://www.experts-...answer39667651 no se puede tirar una foto a un juego sin inyectar una dll en el proceso pues OpenGL no es multihilo, jejje alguna solucion para esto