25 скриншотов в секунду

[IgoRek125]

Добрый день, дорогие друзья!
Хочу написать программу, которая будет делать 25 или даже 30 скриншотов в секунду. По сути получается видео. Но мне нужны именно скриншоты.

Вот текст программы:

procedure TForm1.Timer1Timer(Sender: TObject);
var
    bmp : TBitmap;
    jpg : TJpegImage;
    i : integer;

begin
    For i:=1 to round(1000/SpinEdit1.Value) do begin     // в SpinEdit1 записано ко-во кадров в секунду.
        bmp := TBitmap.Create;
        bmp.Width := Screen.Width;
        bmp.Height := Screen.Height;
        BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height, GetDC(0), 0,0,SRCCOPY);

        jpg := TJpegImage.Create;
        jpg.Assign(bmp);
        jpg.CompressionQuality:=100;
        jpg.Compress;
        jpg.SaveToFile('kadr\'+label1.Caption+'.jpg');

        jpg.Free;
        bmp.Free;
        Label1.Caption:=IntToStr(FileName);
        FileName:=FileName+1;     // FileName - просто нумерация кадров.

    end;
end;

Если убрать jpg и сохранять скриншот прямо в bmp, то процесс ускоряется, но всё равно не достаточно. Да и всё равно bmp - это увесистый формат, большая идёт нагрузка на винчестер.

Проблема в том, что функция BitBlt слишком сильно нагружает компьютер и он банально не успевает справиться с поставленной задачей.

Можно ли использовать другой алгоритм, что бы ускорить процесс?
Или, может быть, возможно использовать изображение с экрана, как двумерный массив точек, перекидывать его в jpg и потом сохранять в файл?

[NetSpace]

знакомое дело. максимум получается при незагруженности процессора другими задачами 15 нормальных кадров в секунду. 25-30 - уже начинает тормозить программа. давно уже как-то, года 4 назад была мысль по-максимум облегчить программу, урезав в библиотеках все неиспользуемые функции, оставив только используемые. а потом и в сами функции залезть похимичить, убрав оттуда всякие проверки на ошибки
1. как вариант: записывать скриншоты через каждые 6Мб в один файл в конец (размер файла может быть и до 15 Гб), для скорости, а в конце, когда запись с экрана остановил уже, чтоб эти файлы потихоньку оттудова извлекались и качественно записывались в папку. работа с потоками.
...вот сейчас когда расписал этот процесс, аж самому захотелось взять и реализовать...
а вообще, на исходник моего скриншотника, мож, чего и допилишь

[IgoRek125]

Сообщение от NetSpace

а твой HTML-код в любом браузере работает????

В браузере по идее не должен работать )))

Но сработает в Delphi

Сообщение от NetSpace

1. как вариант: записывать скриншоты через каждые 6Мб в один файл в конец (размер файла может быть и до 15 Гб), для скорости, а в конце, когда запись с экрана остановил уже, чтоб эти файлы потихоньку оттудова извлекались и качественно записывались в папку. работа с потоками.
...вот сейчас когда расписал этот процесс, аж самому захотелось взять и реализовать...
а вообще, на исходник моего скриншотника, мож, чего и допилишь

1. Спасибо за исходник. Я его просматриваю. Кстати, у тебя там погрешность выходит по скорости съёмки. Чем больше кадров в секунду, тем больше погрешность. На 25 кадров в секунду, скриншоты делаются в два раза медленнее, чем должны. Но их число правильное получается.

2. Я не умею работать с потоками. Есть статья или учебник по потокам?

3. Я не совсем понимаю, как следить за объёмом файла. Ты предлагаешь просто записывать каждый скрин в один файл подряд, обновляя его? Потом, когда процесс останавливается, всю эту массу программа должна разобрать по отдельным файликам.
Но какой в этом смысл? Разве так будет плюс к скорости?
А если программа работает так час или даже два. Там ведь такая каша получится...

Мне кажется, что я просто не понял тебя.


Хотя, если брать и допустим каждую секунду кидать в один TBitmap 25 скринов подряд, увеличивая его размер лишь в памяти компьютера, а потом сразу все 25 кадров разом сохранить. И так столько времени, сколько хочется, пока место на диске не закончится.
Может так имеешь в виду?

[kropotkina-alice]

Видать, поиск запрещен?
http://programmersforum.ru/showthread.php?t=23471

[ResourceSpace]

0. http://programmersforum.ru/showpost.php?p=1766869

1. Изменение Label1.Caption съедает время. А ещё нельзя просто совать GetDC(0) в параметры BitBlt(), у вас утечка из-за этого. Не говоря о том что GetDC(0) тоже съедает время, а его можно делать один раз и заранее.

2.

Сообщение от IgoRek125

функция BitBlt слишком сильно нагружает компьютер

Никак нет.

3.

Сообщение от IgoRek125

Если убрать jpg и сохранять

Сообщение от ResourceSpace

Стандартный TJPEGImage чудовищно тормознутый. Его удалить бы с корнями к чертям...

4.

Сообщение от IgoRek125

что бы ускорить процесс?

Вот что в цикле точно делать не надо:
* TBitmap.Create;
* TJpegImage.Create;
* jpg.Free;
* bmp.Free;
Да и вообще, почему у вас цикл в OnTimer??

[NetSpace]

кто-то на этом форуме выкладывал исходник скриншотера, который использует различные кодеки для компрессии. но вот одна незадача - при попытке скомпилировать, вываливает кучу ошибок связанных с записью аудио. подключенные модули WaveUtils, WaveStorage, WaveRecorders, WaveMixer, WaveIO, WaveIn, WaveACM, msacm висят мёртвым грузом и не дают ничего, только приписанные в них типы не определяются и, видать, компилятор требует новых каких-то модулей. в итоге, решил просто убрать запись звука, оставив только видео, как мне и было нужно изначально. давно уже на него смотрел, вот, за пару вечеров вырезал всю неработающую аудионачинку. может, кому пригодится...

[nikolas0]

а не проще ли будет,нажимать кнопку print screen?копировать и,переименовывать в другой папке этот фото экрана.Какой кстати путь этого фото в Windows.

[NetSpace]

nikolas0,
нажимать вручную (физически) кнопку 25 раз в секунду? ну, Брюс Ли обзавидовался бы такой скорости...
а если программно нажимать - так я и делал, когда свою программу писал, потом автосохранение рисунков в папку. данный процесс выходит долгим, к сожалению....