Capturar imagen de una ventana (que no es la activa)

[Neftali [Germán.Estévez]]

Pues eso.
Debe hacer una captura de pantalla (de una ventana para ser más exactos), pero de una ventana (Window) que no es la que está en primer plano (no es lade la app. activa, sino que está por debajo, por decirlo así, de la actual con la que se está trabajando).

¿Me expiqué?

Dispongo del Handle, título y demás datos de la ventana que quiero capturar.

Imagen.

[[Bicho]]

Hola Germán,

necesitas guardar la otra ventana en una imagen o ¿quieres algo más como acceder a ella, copiar texto, escribir en ella, etc?

A ver si esto sirve:

Código Delphi [-]
var   hwndMiVentana : THandle;
       Titulo : string;
begin
  Titulo := 'Aqui va el titulo completo de la ventana';

  hwndMiVentana := FindWindow(nil,Titulo); //Buscamos si existe la ventana
  if hwndMiVentana <> 0 then begin //Existe la ventana
     SetForegroundWindow(hwndMiVentana); //Ponemos la ventana como activa
     keybd_event(vk_snapshot,1, 0, 0); //Con esto realizamos una captura de la ventana activa
  end;
end;

Para hacerlo más bonito, puedes guardar en una variable Handle el de tu aplicación, y cuando hayas terminados, haces lo mismo, haces un FindWindow y pones la ventana activa.

Espero te sirva

Saludos

[Neftali [Germán.Estévez]]

Empezado por Bicho

necesitas guardar la otra ventana en una imagen o ¿quieres algo más como acceder a ella, copiar texto, escribir en ella, etc?

Hola Bicho, gracias por la contestación.
Necesito guardar la imagen de la ventana; Una captura, vamos; Con la salvedad de que la ventana no es la activa (y eso debe seguir así ).

Empezado por Bicho

...haces un FindWindow y pones la ventana activa.

Gracias, pero no me vale.
Como he dicho debe ser una ventana que no es la activa y debo capturarla estando así; No puedo pasarla a primer plano, capturarla y volverla a pasar a segundo plano.
No tengo pobleas para capturar el escritorio, la ventana activa, una porción,... El problema es que debo capturar una que está en "segundo plano".

[Neftali [Germán.Estévez]]

Empezado por Bicho

necesitas guardar la otra ventana en una imagen o ¿quieres algo más como acceder a ella, copiar texto, escribir en ella, etc?

Hola Bicho, gracias por la contestación.
Necesito guardar la imagen de la ventana; Una captura, vamos; Con la salvedad de que la ventana no es la activa (y eso debe seguir así ).

Empezado por Bicho

...haces un FindWindow y pones la ventana activa.

Gracias, pero no me vale.
Como he dicho debe ser una ventana que no es la activa y debo capturarla estando así; No puedo pasarla a primer plano, capturarla y volverla a pasar a segundo plano.
No tengo poblemas para capturar el escritorio, la ventana activa, una porción,... El problema es que debo capturar una que está en "segundo plano".

[roman]

¿Y si fuera la activa como la capturarías? Digo es que la verdad nunca me he puesto a hacer esto y no sé qué ventaja da que esté activa. En mi ingenuidad, yo buscaría el handle de la ventana con FindWindow, luego usaría GetWindowRect para obtener el rectangulo que ocupa. Después un GetDC(0) para obtener un HDC del escritorio que le asignaría a un Canvas, y finalmente Canvas.CopyRect para copiar el recángulo que obtuve antes al canvas de mi preferencia.

Obviamente no lo he probado.

// Saludos

[roman]

Esta función captura la ventana indicada:

Código Delphi [-]
procedure SnapShot(Window: HWND; FileName: String);
var
  Canvas: TCanvas;
  Bitmap: TBitmap;
  WindowRect: TRect;
  BmpRect: TRect;

begin
  GetWindowRect(Window, WindowRect);
  Canvas := TCanvas.Create;
  Bitmap := TBitmap.Create;

  try
    Canvas.Handle := GetDC(0);

    Bitmap.Width := WindowRect.Right - WindowRect.Left;
    Bitmap.Height := WindowRect.Bottom - WindowRect.Top;
    BmpRect := Rect(0, 0, Bitmap.Width, Bitmap.Height);

    Bitmap.Canvas.CopyRect(BmpRect, Canvas, WindowRect);
    Bitmap.SaveToFile(FileName);
  finally
    Canvas.Free;
    Bitmap.Free;
  end;
end;

y la guarda en el archivo que se indique. Sin embargo, supongo que por esto:

Empezado por Neftali

no es lade la app. activa, sino que está por debajo, por decirlo así, de la actual con la que se está trabajando

no te ha de servir, pues en la captura aparecerá lo que esté por arriba de esa ventana.

// Saludos

[[seoane]]

Creo que la respuesta no esta por el camino habitual (obtener el dc y copiar), creo que la respuesta debes buscarla en los mensajes WM_PRINT y WM_PRINTCLIENT. Estos mensajes se utilizan para pedir a una ventana que se dibuje en un dc determinado. Es decir, primero crearíamos un bitmap y luego enviaríamos el mensaje WM_PRINT a la ventana usando el dc de ese bitmap, entonces la ventana se dibujaría dentro del bitmap.

No lo he probado, pero por ahí puedes buscar código con esos mensajes para orientarte. De todas formas no siempre se obtiene un buen resultado, la ventana tiene que manejar ese mensaje y no todas lo hacen.

Bueno, tampoco te aclare mucho la cuestión, pero te dejo algo por donde empezar a buscar.

[Neftali [Germán.Estévez]]

Empezado por roman

Esta función captura la ventana indicada...
Sin embargo, supongo que por esto no te ha de servir, pues en la captura aparecerá lo que esté por arriba de esa ventana.

Pues llevas toda la razón Román, y esas fueron más o menos mis primeras pruebas.
Siguiendo los pasos que tú comentas llegué al mismo sitio y el resultado era el esperado (y el mismo que tú comentas); Se captura la ventana correctamente, pero los que hay encima "tapan" la ventana que se está capturando.

Imagen