Guardado Sucesivo De Capturas De Imagen

[Niko]

Hola a todos:

A ver, mediante un ttimer yo hago capturas de pantalla, pero luego quiero que cada vez que haga una (en mi caso cada minuto) se me guarden en una carpeta cada vez con un nombre diferente, es decir:

Ejemplo:

Minuto 1 => 13_03__12_50.bmp // el 13 de marzo a las 12:50.
Minuto 2 => 13_03__12_51.bmp // el 13 de marzo a las 12:51.
y así sucesivamente

Como lo hago???

Gracias de antemano a todos.

Bye

[marcoszorrilla]

Cada minuto?

Código Delphi [-]
program GetScrnBmp;

uses
  Windows,
  Graphics;

{$R *.RES}

var
  B: TBitmap;
  S: string;

begin

  B := TBitmap.Create;

  B.Width := GetSystemMetrics(SM_CXSCREEN);    {Screen.Width}
  B.Height := GetSystemMetrics(SM_CYSCREEN);   {Screen.Height}

  BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);


  if ParamStr(1) <> '' then
    S := ParamStr(1) + '.bmp'
  else
    S := 'Screen.bmp';

  b.SaveToFile (s);

  b.Free;

end.

Ahora bien, mira a ver si puedes poner como disco duro la rueda de un tractor porque con lo que ocupa cada archivo lo tenemos claro.

Un Saludo.

[jachguate]

Descompone la fecha y hora, y luego construis el nombre de archivo, algo como:

Código Delphi [-]
Var
  dd, mm, yy, hh, mm, ss, cs : Word;
  fName : String;

Begin
  DecodeDate(now, yy, mm, dd);
  DecodeTime(now, hh, mm, ss, cs);
  fName := Format('%d_%d__%d_%d.bmp', [dd, mm, hh, mm]);
  bmp.SaveToFile(fName);
end;

Hasta luego.

[Niko]

jejejeje, ke tal?

gracias por tu respuesta, pensandolo bien, llevas razón, y si lo hago en jpg ke ocupa menos???

se puede hacer???

gracias.

Bye

[marcoszorrilla]

Hagas lo que hagas el problema vendrá siendo el mismo si guardas cada minuto, en una hora tendrás ya 60 archivos, calcula.

En formato Bmp una pantalla puede ocupar casi 2 Mb.

Un Saludo.

[DarkByte]

Podrías eliminar las imágenes iguales (cosa complicada), o las más antiguas...