capturar mas de una pantalla

[Segator]

Saludos a todo el club, casi todos sabemos como capturar la pantalla con GetDC(0) pero que pasa si tenemos varios monitores, porque GetDC(1..x) no funciona yo asumo que hay una lista de DCs y que el 0 es el monitor actual pero donde se coloca el segundo o el 3ro, he probado con Screen.Monitors[x].Handle pero no funciona, logico si tenemos configuras las pantallas para que sean una extencion horizontal o vertical del escritorio con GetDC(0) saldra una imagen de todas, pero eso no es lo que quiero, quiero hacer capturas independientes de cada pantalla en configuracion DualView, preferiblemente multiplataforma ya que es para una aplicacion que estoy haciendo y quiero que corra donde quiera. (trabajo en Lazarus)

[[escafandra]]

No puedo probar con mas de un monitor, pero se me ocurre que enumeres los monitores y captures sus imágenes. Mas o menos sería de esta forma:

Código Delphi [-]
function MonitorEnumProc(hMonitor: THANDLE; hdcMonitor: HDC; var lprcMonitor: TRECT; dwData: LPARAM): boolean; stdcall;
{$J+}
const
  n: integer = 0;
var
  W, H: integer;
  DC: HDC;
  bmp, oldbmp: HBITMAP;
  Bitmap: TBitmap;
begin

  W:= lprcMonitor.Right - lprcMonitor.Left;
  H:= lprcMonitor.Bottom - lprcMonitor.Top;
  DC:= CreateCompatibleDC(0);
  bmp:= CreateCompatibleBitmap(hdcMonitor, W, H);
  oldbmp:= SelectObject(DC, bmp);
  BitBlt(DC, 0, 0, W, H, hdcMonitor, lprcMonitor.Left, lprcMonitor.Top, SRCCOPY + $40000000);
  SelectObject(DC, oldbmp);
  DeleteObject(DC);
  Bitmap:= TBitmap.Create;
  Bitmap.Handle:= bmp;
  Bitmap.SaveToFile(Format('panta%d.bmp', [n]));
  inc(n);
  Bitmap.Free;
  Result:= true;
{$J-}
end;

procedure CaptureMonitors;
var
  VirtualScreenDC: HDC;
begin
  VirtualScreenDC:= GetDC(0);
  EnumDisplayMonitors(VirtualScreenDC, 0, @MonitorEnumProc, 0);
  ReleaseDC(0, VirtualScreenDC);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CaptureMonitors;
end;

Saludos.

[Segator]

Bien me dispuse a probarlo pero me da el siguiente error:
unit1.pas(63,59) Error: Incompatible type for arg no. 3: Got "<address of function(LongWord,LongWord,var RECT,LongInt):Boolean;StdCall>", expected "<procedure variable type of function(LongWord,LongWord,PRECT,LongInt):LongBool;StdCall>"
en la funcion @MonitorEnumProc y si la cambio por PRECT me dice:
unit1.pas(34,84) Error: Identifier not found "PRECT", otra cosa, porque es el SRCCOPY + $40000000 y no simplemete SRCCOPY?

[[escafandra]]

[quote=Segator;470244]Bien me dispuse a probarlo pero me da el siguiente error:
unit1.pas(63,59) Error: Incompatible type for arg no. 3: Got "<address of function(LongWord,LongWord,var RECT,LongInt):Boolean;StdCall>", expected "<procedure variable type of function(LongWord,LongWord,PRECT,LongInt):LongBool;StdCall>" en la funcion @MonitorEnumProc y si la cambio por PRECT me dice:
unit1.pas(34,84) Error: Identifier not found "PRECT"[quote]

Pues depende de las definiciones del delphi que uses. Yo lo he compilado con delphi7. Realiza los siguientes cambios:

PRECT es un Puntero a RECT

type
PRECT = ^TRECT;

....

Pasa lprcMonitor como un puntero en lugar de por referencia:

function MonitorEnumProc(hMonitor: THANDLE; hdcMonitor: HDC; lprcMonitor: PRECT; dwData: LPARAM): boolean; stdcall;

Empezado por Segator

...otra cosa, porque es el SRCCOPY + $40000000 y no simplemete SRCCOPY?

$40000000 es el valor de CAPTUREBLT lo pongo para capturar ventanas semitransparentes.


Saludos.

[Segator]

me funciona para el monitor principal pero para el otro me da 'External: SIGFPE' vale aclarar que no estoy usando delphi si no Lazarus + FPC y que dicen que la funcion GetDC(0) esta puesta solo por compativilidad, aunque esto si funciona: var bmp:TBitmap; begin bmp:=TBitmap.Create; bmp.LoadFromDevice(GetDC(0)); bmp.SaveToFile('imagen.bmp'); end;

[ecfisa]

Hola Segator.

Por favor cuando incluyas código en tu mensaje utiliza TAG's para darle más legibilidad:



Saludos y gracias por tu colaboración