capturar mas de una pantalla

[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

[[escafandra]]

No me di cuenta que usabas Lazarus. Te paso el código que he compilado en Lazarus pero probado con un solo monitor, no dispongo de configuración con dos minitores:

Código Delphi [-]
uses   Windows, ....;  
function EnumDisplayMonitors(dc: HDC; lprcClip: PRECT; lpfnEnum: pointer; dwData: LPARAM): boolean; stdcall; external 'User32.dll' name 'EnumDisplayMonitors';  

implementation   
{$R *.lfm}    

function MonitorEnumProc(hMonitor: THANDLE; hdcMonitor: HDC; var lprcMonitor: RECT; 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, nil, @MonitorEnumProc, 0); 
  ReleaseDC(0, VirtualScreenDC); 
end;     

{ TForm1 }  

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

Espero que te sirva de ayuda.

Saludos.

[Segator]

escafandra muchas gracias por el aporte, gracias a tu codigo me dio la idea para encontrar una solucion en parte teorica en parte
practica que comento aqui para que le sirva a otros exactamente asi como esta tu codigo sale en negro la imagen cuando
captura el segundo monitor, pero se me ocurrio algo: y si capturo una imagen del "monitor1" pero con las cordenadas del monitor2?
y lo pongo entre comillas pues ya no seria la imagen del monitor1, en una pequeña prueba en la practica funciono
esto:

Código Delphi [-]
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, W, H, 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;

claro que yo sabia que el monitor 2 esta justo a la derecha del 1 y que tambien tenia la misma resolucion
pero esto se podia resolver con una funcion llamada MonitorFromPoint y le pasamos la resolucion de ancho de nuestro actual
monitor1 +1 como cordenada horizontal para saber si hay un monitor a la derecha y claro 0 en la cordenada vertical, lo mismo
podia ser si el monitor esta a la izquierda pero esta ves le restamos -1 o -5 por si existe algun borde digo yo, si el monitor esta
debajo le pasamos el alto de nuestro +1 como cordenada vertical y 0 horizontal y lo mismo a la inversa si esta arriba, esto es en
parte teoria pero lo llevare a la practica en un codigo completo y si funciona lo pondre aqui pa tados, saludos.

[Segator]

Disculpen si los enrede un poco en el post de arriba, pero ya logre capturar cada monitor de forma independiente, gracias a escafandra, hice una simplificacion del codigo y otros pequeños cambios y asi es como quedo:

Código Delphi [-]
function monitortobmp(pantalla:TMonitor);
var 
DC:HDC;
    bmp, hbmp:HBitMap; 
    mw,     mh,     mt,     ml:integer;
    imagen:TBitMap; 
    mirror:boolean;
begin
    mw:=pantalla.Width;
    mh:=pantalla.Height;
    mt:=pantalla.Top;
    ml:=pantalla.Left;
    mirror:=false;
if pantalla.MonitorNum <> 0 then
   begin 
 if mt = 0 then
 begin 
   mirror:=true;
   ShowMessage('El monitor '+inttostr(pantalla.MonitorNum+1)+' no existe o es un espejo');
   end;
 end;
if not mirror then
  begin
    DC:=CreateCompatibleDC(0);
    bmp:=CreateCompatibleBitmap(GetDC(0), mw, mh);
    hbmp:=SelectObject(DC,bmp);
    BitBlt(DC, 0, 0, mw, mh, GetDC(0), ml,mt, SRCCOPY + $40000000);
    SelectObject(DC, hbmp);
    DeleteObject(DC);
    imagen:=TBitMap.Create;
    imagen.Handle:=bmp;
    imagen.SaveToFile('pantalla.bmp');
   {elimine la variable n porque yo aqui en ves de salvar el bmp se lo asigne a un componente visual Imagen
     y luego este lo salvo con un numero incremental}
    imagen.Free;
 end;
end;

luego pueden saber si hay mas de un monitor disponible con:

Código Delphi [-]
screen.MonitorCount;

y llamar a la funcion asi:

Código Delphi [-]
monitortobmp(screen.Monitors[x].Handle);

donde x es el numero del monitor al que quieran capturar
espero les sirva a todos, saludos.

[FENIXadr]

Buenisimoo me fue de mucha utilidad!!!...

Muchas gracias..

Saludos.