ScreenRecorder-Problem: JPEG's (oder PNG's) zu AVI schneiden

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von StarGate01.

    ScreenRecorder-Problem: JPEG's (oder PNG's) zu AVI schneiden

    Hi

    Ich möchte gerne einen "ScreenRecorder" programmieren. Diesen Teil hab ich schon:

    -- Form1 --



    VB.NET-Quellcode

    1. Public Class Form1
    2. Declare Function GetAsyncKeyState Lib "User32" (ByVal vkKey As Integer) As Short
    3. Private Sub RecScreem_Tick(sender As System.Object, e As System.EventArgs) Handles RecScreen.Tick
    4. Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    5. Dim BMP As New Bitmap(My.Computer.Screen.Bounds.Height, My.Computer.Screen.Bounds.Width)
    6. Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
    7. g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
    10. Dim DirectoryA As String = FileDir.Text
    11. Dim Frame1 As String = FileNum.Text
    12. Dim img1 As String = FileTyp.Text
    14. FileNum.Text = FileNum.Text + 1
    15. BMP.Save(DirectoryA & Frame1 & img1)
    17. End Sub
    19. Private Sub PlayVideo_Tick(sender As System.Object, e As System.EventArgs) Handles PlayVideo.Tick
    20. Dim DirectoryA As String = FileDir.Text
    21. Dim Frame0 As String = FileNum.Text
    22. Dim img0 As String = FileTyp.Text
    24. FileNum.Text = FileNum.Text + 1
    26. Try
    27. VideoScreen.VideoScreenRec.Load(DirectoryA & Frame0 & img0)
    28. Catch ex As Exception
    29. PlayVideo.Enabled = False
    30. MsgBox("Fehler: " & ex.Message)
    31. End Try
    32. End Sub
    34. Private Sub Rec_Click(sender As System.Object, e As System.EventArgs) Handles Rec.Click
    35. MsgBox("Um ein Video zu machen wird dieses Programm zunächst unsichtbar gemacht." & vbCrLf & _
    36. "" & vbCrLf & _
    37. "Drücke F10 um es wieder sichtbar zu machen." & vbCrLf & _
    38. "Drücke F9 um es unsichtbar zu machen." & vbCrLf & _
    39. "Drücke F11 um es sichtbar zu machen und um die Aufnahme zu stoppen")
    40. Me.Opacity = 0.0001
    41. RecScreen.Enabled = True
    42. FileNum.Text = "0"
    43. End Sub
    45. Private Sub Ply_Click(sender As System.Object, e As System.EventArgs) Handles Ply.Click
    46. MsgBox("Für die Vorschau wird das Programm unsichtbar gemacht schließe die Vorschau um es wieder sichtbar zu machen!" & vbCrLf & _
    47. "Außerdem kann es sein das während der Vorschau das Bild etwas in die Breite gezogen ist das sollte sich aber im richtigen Video ändern")
    48. Try
    49. If PlayVideo.Enabled = True Then
    50. MsgBox("Stoppe die Aufnahme und versuche es nochmal")
    51. Else
    52. VideoScreen.Show()
    53. PlayVideo.Enabled = True
    54. FileNum.Text = "0"
    55. Me.Hide()
    56. End If
    57. Catch ex As Exception
    58. MsgBox("Ende!")
    59. End Try
    60. End Sub
    62. Private Sub StpV_Click(sender As System.Object, e As System.EventArgs) Handles StpV.Click
    63. VideoScreen.Hide()
    64. PlayVideo.Enabled = False
    65. End Sub
    67. Private Sub FileLocation_Click(sender As System.Object, e As System.EventArgs) Handles FileLocation.Click
    68. FolderBrowserDialog1.ShowDialog()
    69. FileDir.Text = FolderBrowserDialog1.SelectedPath & "\"
    70. End Sub
    72. Private Sub StpR_Click(sender As System.Object, e As System.EventArgs) Handles StpR.Click
    73. RecScreen.Enabled = False
    74. End Sub
    76. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    77. If GetAsyncKeyState(Keys.F10) Then
    78. Me.Opacity = 1
    79. End If
    80. If GetAsyncKeyState(Keys.F9) Then
    81. Me.Opacity = 0.0001
    82. End If
    83. If GetAsyncKeyState(Keys.F11) Then
    84. Me.Opacity = 1
    85. RecScreen.Enabled = False
    86. End If
    87. End Sub
    89. Private Sub int10_Click(sender As System.Object, e As System.EventArgs)
    90. PlayVideo.Interval = txtInterval.Text
    91. RecScreen.Interval = txtInterval.Text
    92. End Sub
    93. End Class


    -- Form2 --

    VB.NET-Quellcode

    1. Public Class VideoScreen
    2. Private Sub VideoScreen_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosingForm1.Show() End SubEnd Class


    So wie ihr wahrscheinlich gesehen habt ist die erste Form das (Haupt)-Programm was aufnimmst und abspielen kann und die zweite Form ist die Vorschau.

    Jetzt kommt mein Problem:

    Wie kann ich die einzelnen PNG-Bilder zu einer AVI-Datei zusammenfügen?

    Vielen Dank für Antworten :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „PhoenixBlaster“ ()

    Willkommen im Forum. :thumbup:
    Hier musst Du ein Gefühl für die Fragestellung an Frau Google finden, probier mal .net image to movie.
    Da sehen einige Links vielversprechend aus.
    Ich glaube, hier im Forum lief da auch mal ein Thread zu, allerdings ist die Suchfunktion des FDorums nicht so tolerant wie die von Frau Google.
    Dann wäre es schön, wenn Du um solch langen Code einen Expander legst.
    Also: Code mit [VB]-Tags markieren und auf den [+]-Tag neben [VB] klicken.
    Würdest Du bitte Deinen 1. Post entsprechend editieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    wenn Du um solch langen Code einen Expander legst.
    Das sieht so aus:
    Dies ist ein Expander für langen Code

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. For i = 1 To 3
    3. MessageBox.Show(i.ToString)
    4. Next
    5. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    PhoenixBlaster schrieb:

    Also
    Du sollst Deinen Code in einem Post hier, falls er etwas länger ausfällt, in einen Expander packen, das sieht dann so aus wie in meinem Beispiel, wo zufällig eine ForSchleife drin vorkommt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    PhoenixBlaster schrieb:

    wie man sieht
    Lernresistent?

    RodFromGermany schrieb:

    in einen Expander packen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!



    Expander fügt man so ein:

    Spoiler anzeigen
    Hier der Inhalt des Expanders

    Oder mit Titel
    Hier der Inhalt des Expanders
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils