Capturar pantallas como video

[Ñuño Martínez]

Pues hombre, cierto es que alguna vez lo he perdido, pero afortunadamente suelo tener el entendimiento a buen recuaudo así que no he tenido que buscarlo para hallarlo. Aun así, gracias por el interés.

En cuanto a tu consulta, lo que tú buscas es un escritorio remoto (si no he entendido mal). Hay muchos ya disponibles que ya permiten generar un vídeo, por lo que te recomiendo que busques uno. Es mucho más fácil.

[jars]

Hola Ñuño, gracias por responder pero la opcion de escritorio remoto no me sirve. Basicamente necesito ir grabando pantallas en PNG u otro formato, el resto ya veré pero esta es mi necesidad.
Gracias

[nemesio]

Si quieres grabar pantallas tipo fotografía, lo puedes hacer de la siguiente manera:

Código Delphi [-]
 
procedure Capturar_Pantalla;
var
  c: TCanvas;
  r: TRect;
  Foto: TBitmap;
  FotoJPEG : TJPEGImage;
  x,y,Letra,Numero:integer;
  Ruta:String;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    Ruta:=ExtractFileDir(Application.ExeName)+'\images\';
    r := Rect(0, 0, Screen.Width, Screen.Height);
    Foto := TBitmap.Create;       
    Foto.Width  := Screen.Width;
    Foto.Height :=Screen.Height;
    Foto.Canvas.CopyRect(r, c, r);
   //  Convertir la captura de pantalla a jpg
    FotoJPEG := TJPEGImage.Create;
    FotoJPEG.Assign(Foto);
    randomize;
    Letra:=random(27);
    numero:=random(2000);
    FotoJPEG.SaveToFile(Ruta+IntTostr(numero)+'.jpg');
  finally
    ReleaseDC(0, c.Handle);
    Foto.Free;
    FotoJPEG.Free;
    c.Free;
  end;
end;

Solo tienes que activar un Timer y cada cierto tiempo le tomas "Fotografías" a la pantalla.

Saludos

[jars]

Gracias nemesio, ahora dime, hay alguna manera de setear la resolucion de pantalla? Como podría grabar en otros formatos como PNG o GIF o algun otro, es para darle al usuario la posibilidad de mejorar la calidad a costa de ocupar mas espacio o bajar calidad para no ocupar tanto. Gracias

[nemesio]

Si, en los foros vas a encontrar bastantes ejemplos de como cambiar la resolución de la pantalla desde tu aplicación, tambien como grabar en otros formatos de imagenes. En el ejemplo que te di, sale como hacerlo a Jpeg solamente, pero solo es cuestión de adaptar los otros formatos. No olvides incluir en el uses la unidad JPEGS.

[jars]

si, gracias ya lo probe y funciona correctamente, me falta podr setear resolucion y otros formatos.