ScreenRecorder zu wenig fps (und Systemsound?)

Twometer · 18. Oktober 2014, 15:22

Hallo Leute
ich habe einen Screen-Recorder programmiert und wollte jetzt noch einfügen, dass er mehr fps aufnimmt. Bin leider auf nicht mehr als 15-20 gekommen.
Wenn jemand ne Idee hätte wie ich das hinbekommen könnte wäre das cool.

Mein Code ist bisher:

VB.NET-Quellcode

Dim screenShotCount as integer= 0
Sub ScreenshotThread()
While True
screenShotCount += 1
Screenshot()
End While
End Sub

ThePlexian · 18. Oktober 2014, 15:40

1. Wieso hat deine Methode den Suffix "Thread" ?
2. Was macht Screenshot ?

Trade · 18. Oktober 2014, 16:14

Hallo,

solange Du so arbeitest kannst Du es leider schon vergessen. Mich wundert, dass Du somit schon so viele FPS schaffst. ;)
Auf jeden Fall: Das scheint mir nicht all zu performant auszusehen, da Du die Hardware wirklich beanspruchst, vor allem wenn man auch so viele Bilder in den RAM reinholt etc.

Du könntest höchstens noch mit DirectX arbeiten, aber das erhöht den Aufwand und erfordert mehr Kenntnisse in der Programmierung.

Grüße

Twometer · 18. Oktober 2014, 17:36

@ThePlexian Der Code von Screenshot ist der hier:

VB.NET-Quellcode

Dim waW As Integer = My.Computer.Screen.WorkingArea.Width
Dim waH As Integer = My.Computer.Screen.WorkingArea.Height
Dim screenX As Integer = My.Computer.Screen.Bounds.X
Dim screenY As Integer = My.Computer.Screen.Bounds.Y
Private Sub Screenshot()
Dim screenImage = New Bitmap(waW, waH)
Dim g As Graphics = Graphics.FromImage(screenImage)
g.CopyFromScreen(screenX, screenY, 0, 0, New Size(waW, waH))
Cursor.Draw(g, New Rectangle(MousePosition, New Size(32, 32)))
screenImage.Save("C:\rec\" + screenShotCount.ToString + ".jpg", ImageFormat.Jpeg)
g.Dispose()
screenImage.Dispose()
End Sub

Und Die Methode hat den Suffix Thread weil sie zu einem Thread gehört

VB.NET-Quellcode

Public tScreenshot As New Thread(AddressOf ScreenshotThread)

@Trade
Ich lade sie ja nicht in den RAM sondern speichere sie. DirectX habe ich mal probiert, zwar für 3D aber das ist echt schwer finde ich.

ichduersie · 18. Oktober 2014, 18:02

Doch du lädst die Bilder in den RAM. Mit

VB.NET-Quellcode

Dim screenImage = New Bitmap(waW, waH)
Dim g As Graphics = Graphics.FromImage(screenImage)
g.CopyFromScreen(screenX, screenY, 0, 0, New Size(waW, waH))

erstellst du die Variable screenImage und füllst Sie mit dem Screenshot. Wenn das ganze nicht im RAM wäre, würde deine Zeile zum speichern nicht funktionieren, weil sie nichts zum speichern hätte. Das Bild wird bis zu screenImage.Dispose() im RAM zwischengespeichert. Das ist der Sinn des Arbeitsspeichers, denn sonst müsstest du das Bild direkt abspeichern, ohne Nutzung des Arbeitsspeichers, was in VB soviel ich weiß nicht möglich ist. (Korrigiert mich bitte, wenn Ich da falsch liege...)

Um den Screenshot zu machen nutzt du GDI+. Das ist Bullshit :!:

, denn GDI+ läuft komplett über den Prozessor. Intelligenter wäre es, die Grafikkarte zu nutzen (bspw. mit DirectX oder OpenGL). Diese hat deutlich mehr Leistung, und wurde extra dafür konzipiert, um mit Grafiken / Medien zu arbeiten.

LG

Artentus · 18. Oktober 2014, 18:03

Twometer schrieb:

Ich lade sie ja nicht in den RAM sondern speichere sie.

Was die Sache noch viel langsamer macht. In dem RAM müssen die Bilder ja so oder so, da kommt kein Rocording-Programm drum rum, aber was wirklich Zeit kostet ist, die Bilder unkomprimiert zu speichern. Gute Frameraten wirst du nur erhalten, wenn du die Bilder gleich zu einem Video kodierst und dieses speicherst.

Twometer · 18. Oktober 2014, 18:07

@Artentus Die Videospeicherung mache ich mit ffmpeg am Ende, aber wie soll ich das sofort in die Datei speichern? Bei Google kommt auch nix gescheites.

Gonger96 · 18. Oktober 2014, 18:09

Wenn es da nichts Fertiges gibt, wirst du dich mit dem Videoformat und Kontainerformat auseinander setzen müssen und es selbst implementieren müsen.

Artentus · 18. Oktober 2014, 18:17

In .Net würde ein Videoencoder niemals in Echtzeit laufen, deswegen existieren solche auch nicht. Es würde also darauf hinauslaufen, mittels C++/CLI einen Encoder wie x264 zu wrappen.

tolio · 18. Oktober 2014, 18:26

Artentus schrieb:

In .Net würde ein Videoencoder niemals in Echtzeit laufen, deswegen existieren solche auch nicht.

falsch.
exkode.com/dxtory-features-en.html

der dx hook ist nativ geschrieben aber daran führt kein weg dran vorbei, der rest .net ist kein problem

Artentus · 18. Oktober 2014, 18:28

DxTory ist kein Videoencoder.

Twometer · 18. Oktober 2014, 18:28

@Artentus Ich hab da jetzt aber was gefunden, was aber leider nicht funktioniert...
Der code ist nicht von mir, aber da kommt ein Fehler
AviWriter.vb

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class AviWriter
Private aviFile As Integer = 0
Private aviStream As IntPtr = IntPtr.Zero
Private frameRate As UInt32 = 0
Private countFrames As Integer = 0
Private width As Integer = 0
Private height As Integer = 0
Private stride As UInt32 = 0
Private fccType As UInt32 = Avi.StreamtypeVIDEO
Private fccHandler As UInt32 = 1668707181
Private strideInt As Integer
Private strideU As UInteger
Private heightU As UInteger
Private widthU As UInteger
Public Sub OpenAVI(ByVal fileName As String, ByVal frameRate As UInt32)
Me.frameRate = frameRate
Avi.AVIFileInit()
Dim OpeningError As Integer = Avi.AVIFileOpen(aviFile, fileName, 4097, 0)
If OpeningError <> 0 Then
Throw New Exception("Error in AVIFileOpen: " + OpeningError.ToString())
End If
End Sub
Public Sub AddFrame(ByVal bmp As Bitmap)
bmp.RotateFlip(RotateFlipType.RotateNoneFlipY)
Dim bmpData As BitmapData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), ImageLockMode.[ReadOnly], PixelFormat.Format24bppRgb)
If countFrames = 0 Then
Dim bmpDatStride As UInteger = bmpData.Stride
Me.stride = DirectCast(bmpDatStride, UInt32)
Me.width = bmp.Width
Me.height = bmp.Height
CreateStream()
End If
strideInt = stride
Dim writeResult As Integer = Avi.AVIStreamWrite(aviStream, countFrames, 1, bmpData.Scan0, DirectCast((strideInt * height), Int32), 0, 0, 0)
If writeResult <> 0 Then
Throw New Exception("Error in AVIStreamWrite: " + writeResult.ToString())
End If
bmp.UnlockBits(bmpData)
System.Math.Max(System.Threading.Interlocked.Increment(countFrames), countFrames - 1)
End Sub
Private Sub CreateStream()
Dim strhdr As New Avi.AVISTREAMINFOstruc()
strhdr.fccType = fccType
strhdr.fccHandler = fccHandler
strhdr.dwScale = 1
strhdr.dwRate = frameRate
strideU = stride
heightU = height
strhdr.dwSuggestedBufferSize = DirectCast((stride * strideU), UInt32)
strhdr.dwQuality = 10000
heightU = height
widthU = width
strhdr.rcFrame.bottom = DirectCast(heightU, UInt32)
strhdr.rcFrame.right = DirectCast(widthU, UInt32)
strhdr.szName = New UInt16(64) {}
Dim createResult As Integer = Avi.AVIFileCreateStream(aviFile, aviStream, strhdr)
If createResult <> 0 Then
Throw New Exception("Error in AVIFileCreateStream: " + createResult.ToString())
End If
Dim bi As New Avi.BITMAPINFOHEADERstruc()
Dim bisize As UInteger = Marshal.SizeOf(bi)
bi.biSize = DirectCast(bisize, UInt32)
bi.biWidth = DirectCast(width, Int32)
bi.biHeight = DirectCast(height, Int32)
bi.biPlanes = 1
bi.biBitCount = 24
strideU = stride
heightU = height
bi.biSizeImage = DirectCast((strideU * heightU), UInt32)
Dim formatResult As Integer = Avi.AVIStreamSetFormat(aviStream, 0, bi, Marshal.SizeOf(bi))
If formatResult <> 0 Then
Throw New Exception("Error in AVIStreamSetFormat: " + formatResult.ToString())
End If
End Sub
Public Sub Close()
If aviStream <> IntPtr.Zero Then
Avi.AVIStreamRelease(aviStream)
aviStream = IntPtr.Zero
End If
If aviFile <> 0 Then
Avi.AVIFileRelease(aviFile)
aviFile = 0
End If
Avi.AVIFileExit()
End Sub
End Class

Avi.vb

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class Avi
Public Const StreamtypeVIDEO As Integer = 1935960438
Public Const OF_SHARE_DENY_WRITE As Integer = 32
Public Const BMP_MAGIC_COOKIE As Integer = 19778
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Public Structure RECTstruc
Public left As UInt32
Public top As UInt32
Public right As UInt32
Public bottom As UInt32
End Structure
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Public Structure BITMAPINFOHEADERstruc
Public biSize As UInt32
Public biWidth As Int32
Public biHeight As Int32
Public biPlanes As Int16
Public biBitCount As Int16
Public biCompression As UInt32
Public biSizeImage As UInt32
Public biXPelsPerMeter As Int32
Public biYPelsPerMeter As Int32
Public biClrUsed As UInt32
Public biClrImportant As UInt32
End Structure
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Public Structure AVISTREAMINFOstruc
Public fccType As UInt32
Public fccHandler As UInt32
Public dwFlags As UInt32
Public dwCaps As UInt32
Public wPriority As UInt16
Public wLanguage As UInt16
Public dwScale As UInt32
Public dwRate As UInt32
Public dwStart As UInt32
Public dwLength As UInt32
Public dwInitialFrames As UInt32
Public dwSuggestedBufferSize As UInt32
Public dwQuality As UInt32
Public dwSampleSize As UInt32
Public rcFrame As RECTstruc
Public dwEditCount As UInt32
Public dwFormatChangeCount As UInt32
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=64)> _
Public szName As UInt16()
End Structure
'Initialize the AVI library
<DllImport("avifil32.dll")> _
Public Shared Sub AVIFileInit()
End Sub
'Open an AVI file
<DllImport("avifil32.dll", PreserveSig:=True)> _
Public Shared Function AVIFileOpen(ByRef ppfile As Integer, ByVal szFile As [String], ByVal uMode As Integer, ByVal pclsidHandler As Integer) As Integer
End Function
'Create a new stream in an open AVI file
<DllImport("avifil32.dll")> _
Public Shared Function AVIFileCreateStream(ByVal pfile As Integer, ByRef ppavi As IntPtr, ByRef ptr_streaminfo As AVISTREAMINFOstruc) As Integer
End Function
'Set the format for a new stream
<DllImport("avifil32.dll")> _
Public Shared Function AVIStreamSetFormat(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADERstruc, ByVal cbFormat As Int32) As Integer
End Function
'Write a sample to a stream
<DllImport("avifil32.dll")> _
Public Shared Function AVIStreamWrite(ByVal aviStream As IntPtr, ByVal lStart As Int32, ByVal lSamples As Int32, ByVal lpBuffer As IntPtr, ByVal cbBuffer As Int32, ByVal dwFlags As Int32, _
ByVal dummy1 As Int32, ByVal dummy2 As Int32) As Integer
End Function
'Release an open AVI stream
<DllImport("avifil32.dll")> _
Public Shared Function AVIStreamRelease(ByVal aviStream As IntPtr) As Integer
End Function
'Release an open AVI file
<DllImport("avifil32.dll")> _
Public Shared Function AVIFileRelease(ByVal pfile As Integer) As Integer
End Function
'Close the AVI library
<DllImport("avifil32.dll")> _
Public Shared Sub AVIFileExit()
End Sub
End Class

Mein Code

Spoiler anzeigen

Fehler siehe Anhang (sorry für den seltsamen dateinamen)

Artentus · 18. Oktober 2014, 18:33

Du wirst dich damit schon intensiv befassen müssen, einfach ein bisschen Code kopieren bringt da nichts, dafür ist das Thema viel zu komplex. Und ich hab nicht die Zeit, das für dich zu übernehmen und mich durch diesen Code zu wühlen.

thefiloe · 18. Oktober 2014, 18:34

Mein Tipp: Nimm einen Thread um die Screenshots in den Speicher zu laden und einen anderen der diese abarbeitet, speichert und im RAM löscht. Das einzige Problem dabei kann sein, dass der 2. Thread mit schreiben nicht hinter her kommt und es dir den RAM zuhaut.

Twometer · 18. Oktober 2014, 18:38

Okay ich habe jetzt den einen Fehler wegbekommen - lag daran, dass ich auf Die Systemplatte geschrieben hab. Da hat der natürlich keine Rechte... Jetzt hab ich gedacht es funktioniert, aber meine IDE sieht das wohl anders. Jetzt kommt ein noch mysteriöserer Fehler. Wenn da jemand eine Idee hätte, was das sein könnte und was ich dagegen machen könnte, wäre das wirklich cool.
EDIT: @thefiloe Gute Idee werd ich mal ausprobieren

thefiloe · 18. Oktober 2014, 18:43

Entschuldige aber was sollen wir mit sowas anfangen können? Hat wahrscheinlich was mit pinvoke, ... irgendwas im nicht verwalteten Speicher zu tun. Kein Stacktrace nichts. Ne Fehlermeldung hinklatschen... naja kannste gern machen, wird nix bringen.

Twometer · 18. Oktober 2014, 19:00

Ich habe das jetzt so gemacht das er nicht immer neu das Bild erzeugen muss und jetzt läufts mit 29fps

Was ich jetzt noch gerne einbauen würde ist, dass er den System-Sound aufnimmt. Geht das, wenn ja wie?

thefiloe · 18. Oktober 2014, 19:58

Puh. Das ist schwierig. Frag am besten mal unseren Multimedia-Experten @ErfinderDesRades. Der hat sicherlich eine fantastische Lösung für dich die auch garantiert überall inklusive Rechenschieber läuft :).

Twometer · 20. Oktober 2014, 15:39

Sorry für die vielleicht blöde Frage, aber ich bin noch relativ neu hier. Wie macht man das (Einzelne Person fragen)?

nafets · 20. Oktober 2014, 15:53

Systemsound nimmste zum Beispiel mit CSCore auf.

ScreenRecorder zu wenig fps (und Systemsound?)

ScreenRecorder zu wenig fps (und Systemsound?)

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Twometer schrieb:

Artentus schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

10 Benutzer haben hier geschrieben