Captura de pantalla por monitor

[avitalini]

Buen día, algo estoy haciendo mal en el foro, ya que creo se borró la actualización del posteo, así que edito el post original.

Tomé el codigo del ejemplo de barcode y lo modifiqué a mis necesidades, pero no funciona por Monitor tomado de SCREEN:aMonitors

Código: Seleccionar todo

function Captura()
   Local aMonitores
   Local oMonitor

   aMonitores := SCREEN:aMonitors

   for each oMonitor in aMonitores
      Procesode_Captura( oMonitor , oMonitor:nMonitor )
   next

return nil

Function Procesode_Captura( oMonitor , nMonitor )

   LOCAL hBitmap
   LOCAL aRect
   LOCAL oPict
   Local cNombre

   aRect := { 0 , 0 , oMonitor:nWidth , oMonitor:nHeight }

   hBitmap := XA_CaptureBitmap( oMonitor:Handle , aRect ) // <-- en Monitores no funciona

   oPict := TPicture():CreateIndirect( 1 , hBitmap )
   cNombre := "Monitor-" + ToString( nMonitor ) + "-"  + DToS( Date() ) + "-"+ StrTran( Time() , ":","")+".jpg"
   OutDebug( cNombre )
   oPict:Save( cNombre, 1 )
   oPict:End()

Return nil

[avitalini]

¡Solucionado!

Saludos y gracias a los que se tomaron el tiempo de leer el post.

Código: Seleccionar todo

   aRect    := { oMonitor:nLeft , 0 , oMonitor:nWidth + oMonitor:nLeft  , oMonitor:nHeight }
   hBitmap  := XA_CaptureBitmap(  GetDesktopWindow()    , aRect )