Скоростное создание скриншотов - до 30 в секунду

@_Ender_ · Регистрация: 30.01.2016

Студворк — интернет-сервис помощи студентам

Всем привет! Я настолько отважный парень, что решился написать программу для захвата видео с экрана! В общем у меня отчасти получилось: Сначала я делал скриншоты рабочего стола через VB, и записывал их в отдельные PNG файлы, затем через BAT файл, используя библиотеку ffmpeg склеивал эти PNG'шки в MP4 файл, в целом, всё нормально, качество идеальное. Но проблема состоит в том, что VB не способен делать больше 5 скринов в секунду

! Подскажите пожалуйста, как создавать как минимум 30 скринов в секунду(Язык программирования не важен, главное, что-бы быстро)

@Jason · 29.03.2016, 01:06

По вашему вопросу, могу посоветовать только то, что первое в голову пришло (может быть и глупость):
Собственно попробовать создать еще потоки, которые так-же будут делать скриншоты, передавать им Stopwatch (миллисекунды), и сохранять их по этому имени.

Добавлено через 8 минут
В 2 потока, за 4 секунды, делает более > 200 скриншотов.

Добавлено через 5 минут
P.S. Память не жалеет...

@godmode · 29.03.2016, 08:43

Когда-то делал подобное, может даже исходники найду. Попробуй получить дескриптор экрана, а затем копируй через BitBlt winapi. Со скоростью все должно быть в порядке, если в память сохранять.

@Jason · 29.03.2016, 09:34

Вот, проверил > 50 в секунду.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
 
    Dim OneThread As New Threading.Thread(AddressOf MySub)
    Dim TwoThread As New Threading.Thread(AddressOf MySub)
    Dim ThreeThread As New Threading.Thread(AddressOf MySub)
 
    Dim CurrentTime As New List(Of ULong)
 
    Sub MySub(ByVal watch As Stopwatch)
        Do
            Dim Current As New TimeSpan
            Dim IntL As ULong = watch.ElapsedMilliseconds
            If CurrentTime.Contains(IntL) = False Then
                Dim Bmp As Bitmap = GetScreen()
                Bmp.Save("E:\test" & watch.ElapsedMilliseconds & ".bmp")
                Bmp.Dispose()
            End If
        Loop
    End Sub
 
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Function GetScreen() As Bitmap
        Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(Bmp)
        G.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size)
        G.Dispose()
        Return Bmp
    End Function
 
    Dim watch As New Stopwatch
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        watch.Start()
        OneThread.Start(watch)
        TwoThread.Start(watch)
        ThreeThread.Start(watch)
    End Sub
 
End Class

@_Ender_ · 29.03.2016, 09:50 **[ТС]**

Спасибо, сейчас проверю

Добавлено через 9 минут

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

Вот, проверил > 50 в секунду.

Jason красава! Всё робит! Удачи тебе!

Добавлено через 5 минут
Извини, а можно ещё сделать кнопку остановки, и файлы называть по номеру кадра, а то у меня какая-то ошибка.

@Jason · 29.03.2016, 10:15

Да можно, конечно:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Class Form1
 
    Dim OneThread As Threading.Thread
    Dim TwoThread As Threading.Thread
    Dim ThreeThread As Threading.Thread
 
    Dim IndexFrame As New List(Of Integer)
 
    Dim isRunning As Boolean = False
 
    Sub MySub()
        Do While isRunning
            Dim Bmp As Bitmap = GetScreen()
            IndexFrame.Add(IndexFrame(IndexFrame.Count - 1) + 1)
            Bmp.Save("E:\test" & IndexFrame(IndexFrame.Count - 1) & ".bmp")
            Bmp.Dispose()
        Loop
    End Sub
 
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Function GetScreen() As Bitmap
        Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(Bmp)
        G.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size)
        G.Dispose()
        Return Bmp
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        IndexFrame.Add(0)
        isRunning = True
        OneThread = New Threading.Thread(AddressOf MySub)
        TwoThread = New Threading.Thread(AddressOf MySub)
        ThreeThread = New Threading.Thread(AddressOf MySub)
        OneThread.Start()
        TwoThread.Start()
        ThreeThread.Start()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        isRunning = False
        IndexFrame.Clear()
    End Sub
 
End Class

Что за ошибка (что пишет)?

Добавлено через 5 минут
Кнопку остановки, лучше так (иначе могу возникнуть ошибки с примером выше, не проверял просто):

VB.NET
1
2
3
4
5
6
7
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        isRunning = False
        Do While OneThread.IsAlive Or TwoThread.IsAlive Or ThreeThread.IsAlive
 
        Loop
        IndexFrame.Clear()
    End Sub

@_Ender_ · 29.03.2016, 10:25 **[ТС]**

А в PNG можно? Чёт я забыл как Format.PNG писать

Добавлено через 3 минуты
А в PNG можно? Чёт я забыл как Format.PNG писать

Добавлено через 2 минуты
Всё, вспомнил: ImageFormat.Png

Добавлено через 1 минуту
Через Imports System.Drawing.Imaging

@Jason · 29.03.2016, 10:26

А вы попробуйте переименовать в JPG и загрузить на форум, на что вам напишут:
219.jpg:
Это PNG изображение имеет неверное расширение.
Просто сохраняйте с расширением png, не знаю, почему я там написал bmp

.

Добавлено через 59 секунд

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

Через Imports System.Drawing.Imaging

Прочитайте то, что я написал.

@_Ender_ · 29.03.2016, 10:32 **[ТС]**

Отлично, а то в BMP почему-то не компилировался видео файл! Последняя просьба: нужно измерить средний fps!

@Jason · 29.03.2016, 10:34

Средний FPS, после остановки?

@_Ender_ · 29.03.2016, 10:43 **[ТС]**

Да!

@Jason · 29.03.2016, 10:43

Если после остановки, то:

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Class Form1
 
    Dim OneThread As Threading.Thread
    Dim TwoThread As Threading.Thread
    Dim ThreeThread As Threading.Thread
 
    Dim IndexFrame As New List(Of Integer)
 
    Dim isRunning As Boolean = False
 
    Sub MySub()
        Do While isRunning
            Dim Bmp As Bitmap = GetScreen()
            IndexFrame.Add(IndexFrame(IndexFrame.Count - 1) + 1)
            Bmp.Save("E:\test" & IndexFrame(IndexFrame.Count - 1) & ".bmp")
            Bmp.Dispose()
        Loop
    End Sub
 
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Function GetScreen() As Bitmap
        Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(Bmp)
        G.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size)
        G.Dispose()
        Return Bmp
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        IndexFrame.Add(0)
        isRunning = True
        OneThread = New Threading.Thread(AddressOf MySub)
        TwoThread = New Threading.Thread(AddressOf MySub)
        ThreeThread = New Threading.Thread(AddressOf MySub)
        watch = New Stopwatch
        watch.Start()
        OneThread.Start()
        TwoThread.Start()
        ThreeThread.Start()
    End Sub
 
    Dim watch As Stopwatch
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        isRunning = False
        Do While OneThread.IsAlive Or TwoThread.IsAlive Or ThreeThread.IsAlive
 
        Loop
        MsgBox("Средний FPS: " & Convert.ToString((IndexFrame.Count - 1) / watch.Elapsed.Seconds))
        'Если надо округлить, то: Convert.ToString(Fix((IndexFrame.Count - 1) / watch.Elapsed.Seconds)))
        watch.Stop()
        IndexFrame.Clear()
    End Sub
 
End Class

@_Ender_ · 29.03.2016, 10:54 **[ТС]**

Отлично, доделаю, скину прогу. Спасибо большое! У меня ругается на E:\test(C:\ffmpeg), а на C:\ffmpeg\ робит, это наверное из-за того, что у меня VB2008

Добавлено через 2 минуты
Можно ещё 3-ю кнопку для удаления остаточных файлов (Наших скринов)

@Jason · 29.03.2016, 10:55

Это что? E:\test(C:\ffmpeg)

?
E - у меня лок. диск. Ты используй свой путь (я тестировал у себя) и не забудь там папку создать.

@_Ender_ · 29.03.2016, 10:56 **[ТС]**

Я же в скобках свой написал

@Дядя Корней · 29.03.2016, 11:02

Jason, нельзя останавливать потоки через Boolean.

VB.NET
1
Dim isRunning As Boolean = False

Вернее останавливать то можно, но это не правильное решение, т.к. при такой остановке не снимается нагрузка с процессора.
Правильнее будет через Suspend и Resume, в таком случае потоки остановятся на безопасных поинтерах и при этом снимется нагрузка с системы. Правда стоит отметить, что Suspend и Resume уже устаревшее. Сейчас насколько я знаю рекомендуется использовать мьютексы.

@Jason · 29.03.2016, 11:02

ВНИМАНИЕ! Код удалит все файлы из папки! Поэтому "кормить" это, только папкой со скриншотами, либо сделать проверку на расширение.

VB.NET
1
2
3
4
5
6
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim DirInfo As DirectoryInfo = New DirectoryInfo("E:\test")
        For Each file As FileInfo In DirInfo.GetFiles
            file.Delete()
        Next
    End Sub

@Jason · 29.03.2016, 11:12

Дядя Корней, первый раз слышу о том, что так нельзя останавливать поток (не правильное решение).
Вот скриншот студии, нагрузка ЦП (красное во время работы, синее после работы).

Скоростное создание скриншотов - до 30 в секунду

Может, конечно я и не прав, с удовольствием почитаю мнения других.

@Дядя Корней · 29.03.2016, 12:18

Jason, книга А.Дубовцев | Microsoft .NET. Наиболее полное руководство
Стр. 393.
С иллюстрациями показан наглядный пример остановки с boolean и Suspend.
Вариант с boolean не высвобождает ресурсы и нагрузка остается.

Добавлено через 1 минуту
Jason, и да, у вас на скриншоте включен debug режим, он работает совсем не так, как релиз версия. В дебаг совсем иначе идет распределение памяти.

Добавлено через 28 минут

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

ВНИМАНИЕ! Код удалит все файлы из папки! Поэтому "кормить" это, только папкой со скриншотами, либо сделать проверку на расширение.

Честно говоря тоже не оптимальный код. Для чего использовать цикл, если можно сразу удалить всю папку разом?
Пример

VB.NET
1
Directory.Delete("путь")

@_Ender_ · 29.03.2016, 13:13 **[ТС]**

У меня опять возникла проблема: я запуская ffmpeg следующей командой:ffmpeg -r 20 -f image2 -i %d.png test.mp4 .%d значит все файлы png то-есть: 1.png, 2.png и т.д. Я запускаю батник cmd'шкой, и эта cmd'шка не видит % и-за чего и не удаётся кодировать видеофайл(

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9

	.NET 4.x Скоростное создание скриншотов - до 30 в секунду 28.03.2016, 19:48. Показов 2522. Ответов 20 Метки нет (Все метки) Всем привет! Я настолько отважный парень, что решился написать программу для захвата видео с экрана! В общем у меня отчасти получилось: Сначала я делал скриншоты рабочего стола через VB, и записывал их в отдельные PNG файлы, затем через BAT файл, используя библиотеку ffmpeg склеивал эти PNG'шки в MP4 файл, в целом, всё нормально, качество идеальное. Но проблема состоит в том, что VB не способен делать больше 5 скринов в секунду! Подскажите пожалуйста, как создавать как минимум 30 скринов в секунду(Язык программирования не важен, главное, что-бы быстро) 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	29.03.2016, 01:06
	По вашему вопросу, могу посоветовать только то, что первое в голову пришло (может быть и глупость): Собственно попробовать создать еще потоки, которые так-же будут делать скриншоты, передавать им Stopwatch (миллисекунды), и сохранять их по этому имени. Добавлено через 8 минут В 2 потока, за 4 секунды, делает более > 200 скриншотов. Добавлено через 5 минут P.S. Память не жалеет... 0

@godmode 47 / 47 / 7 Регистрация: 26.12.2014 Сообщений: 189
	29.03.2016, 08:43
	Когда-то делал подобное, может даже исходники найду. Попробуй получить дескриптор экрана, а затем копируй через BitBlt winapi. Со скоростью все должно быть в порядке, если в память сохранять. 0

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9
	29.03.2016, 10:25 [ТС]
	А в PNG можно? Чёт я забыл как Format.PNG писать Добавлено через 3 минуты А в PNG можно? Чёт я забыл как Format.PNG писать Добавлено через 2 минуты Всё, вспомнил: ImageFormat.Png Добавлено через 1 минуту Через Imports System.Drawing.Imaging 0

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9
	29.03.2016, 10:32 [ТС]
	Отлично, а то в BMP почему-то не компилировался видео файл! Последняя просьба: нужно измерить средний fps! 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	29.03.2016, 10:34
	Средний FPS, после остановки? 0

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9
	29.03.2016, 10:43 [ТС]
	Да! 0

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9
	29.03.2016, 10:54 [ТС]
	Отлично, доделаю, скину прогу. Спасибо большое! У меня ругается на E:\test(C:\ffmpeg), а на C:\ffmpeg\ робит, это наверное из-за того, что у меня VB2008 Добавлено через 2 минуты Можно ещё 3-ю кнопку для удаления остаточных файлов (Наших скринов) 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	29.03.2016, 10:55
	Это что? E:\test(C:\ffmpeg) ? E - у меня лок. диск. Ты используй свой путь (я тестировал у себя) и не забудь там папку создать. 0

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9
	29.03.2016, 10:56 [ТС]
	Я же в скобках свой написал 0

@Jason 525 / 487 / 99 Регистрация: 25.12.2011 Сообщений: 1,176
	29.03.2016, 11:12
	Дядя Корней, первый раз слышу о том, что так нельзя останавливать поток (не правильное решение). Вот скриншот студии, нагрузка ЦП (красное во время работы, синее после работы). Может, конечно я и не прав, с удовольствием почитаю мнения других. 0

@_Ender_ 0 / 0 / 0 Регистрация: 30.01.2016 Сообщений: 9
	29.03.2016, 13:13 [ТС]
	У меня опять возникла проблема: я запуская ffmpeg следующей командой:ffmpeg -r 20 -f image2 -i %d.png test.mp4 .%d значит все файлы png то-есть: 1.png, 2.png и т.д. Я запускаю батник cmd'шкой, и эта cmd'шка не видит % и-за чего и не удаётся кодировать видеофайл( 0

Скоростное создание скриншотов - до 30 в секунду

Решение