Konverter der Bilder zu einem Video umwandelt

  • VB.NET

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

    Gibt's auch Code?

    Nö.
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Natürlich geht das ohne dll. Entweder du liest dir ewig lange Formatspezifikationen durch haust dich auf lowlevel Ebene durch was bei AVI recht müßselig werden dürfte oder du verwendest WinAPI oder eventuell sogar ComInterfaces von Windows um dir selbst die Funktionalität zu erstellen die du brauchst. Such mal hier nen bisschen rum: msdn.microsoft.com/de-de/libra…op/dd756860(v=vs.85).aspx
    Das ist eine von mehreren API's.
    Jedoch wird auch das deine Kompetenz bei weitem übersteigen und somit Dll oder lass es. Es geht nunmal nicht immer alles so einfach. Gerade Multimedia ist oft sehr kompliziert.

    Ach ja ich würde mich an deiner Stelle mal an den Google Support wenden. Irgendwas scheint bei dir kaput zu sein:
    google.at/search?q=vb.net+crea…&sourceid=chrome&ie=UTF-8

    google.at/search?q=c%23+create…&sourceid=chrome&ie=UTF-8


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Ich hatte mich mal damit auseinandergesetzt.
    Der folgende Code stammt nicht von mir.

    AVI.vb
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    4. Public Class Avi
    6. Public Const StreamtypeVIDEO As Integer = 1935960438
    7. Public Const OF_SHARE_DENY_WRITE As Integer = 32
    8. Public Const BMP_MAGIC_COOKIE As Integer = 19778
    10. <StructLayout(LayoutKind.Sequential, Pack:=1)> _
    11. Public Structure RECTstruc
    12. Public left As UInt32
    13. Public top As UInt32
    14. Public right As UInt32
    15. Public bottom As UInt32
    16. End Structure
    18. <StructLayout(LayoutKind.Sequential, Pack:=1)> _
    19. Public Structure BITMAPINFOHEADERstruc
    20. Public biSize As UInt32
    21. Public biWidth As Int32
    22. Public biHeight As Int32
    23. Public biPlanes As Int16
    24. Public biBitCount As Int16
    25. Public biCompression As UInt32
    26. Public biSizeImage As UInt32
    27. Public biXPelsPerMeter As Int32
    28. Public biYPelsPerMeter As Int32
    29. Public biClrUsed As UInt32
    30. Public biClrImportant As UInt32
    31. End Structure
    33. <StructLayout(LayoutKind.Sequential, Pack:=1)> _
    34. Public Structure AVISTREAMINFOstruc
    35. Public fccType As UInt32
    36. Public fccHandler As UInt32
    37. Public dwFlags As UInt32
    38. Public dwCaps As UInt32
    39. Public wPriority As UInt16
    40. Public wLanguage As UInt16
    41. Public dwScale As UInt32
    42. Public dwRate As UInt32
    43. Public dwStart As UInt32
    44. Public dwLength As UInt32
    45. Public dwInitialFrames As UInt32
    46. Public dwSuggestedBufferSize As UInt32
    47. Public dwQuality As UInt32
    48. Public dwSampleSize As UInt32
    49. Public rcFrame As RECTstruc
    50. Public dwEditCount As UInt32
    51. Public dwFormatChangeCount As UInt32
    52. <MarshalAs(UnmanagedType.ByValArray, SizeConst:=64)> _
    53. Public szName As UInt16()
    54. End Structure
    56. 'Initialize the AVI library
    57. <DllImport("avifil32.dll")> _
    58. Public Shared Sub AVIFileInit()
    59. End Sub
    61. 'Open an AVI file
    62. <DllImport("avifil32.dll", PreserveSig:=True)> _
    63. Public Shared Function AVIFileOpen(ByRef ppfile As Integer, ByVal szFile As [String], ByVal uMode As Integer, ByVal pclsidHandler As Integer) As Integer
    64. End Function
    66. 'Create a new stream in an open AVI file
    67. <DllImport("avifil32.dll")> _
    68. Public Shared Function AVIFileCreateStream(ByVal pfile As Integer, ByRef ppavi As IntPtr, ByRef ptr_streaminfo As AVISTREAMINFOstruc) As Integer
    69. End Function
    71. 'Set the format for a new stream
    72. <DllImport("avifil32.dll")> _
    73. Public Shared Function AVIStreamSetFormat(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADERstruc, ByVal cbFormat As Int32) As Integer
    74. End Function
    76. 'Write a sample to a stream
    77. <DllImport("avifil32.dll")> _
    78. 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, _
    79. ByVal dummy1 As Int32, ByVal dummy2 As Int32) As Integer
    80. End Function
    82. 'Release an open AVI stream
    83. <DllImport("avifil32.dll")> _
    84. Public Shared Function AVIStreamRelease(ByVal aviStream As IntPtr) As Integer
    85. End Function
    87. 'Release an open AVI file
    88. <DllImport("avifil32.dll")> _
    89. Public Shared Function AVIFileRelease(ByVal pfile As Integer) As Integer
    90. End Function
    92. 'Close the AVI library
    93. <DllImport("avifil32.dll")> _
    94. Public Shared Sub AVIFileExit()
    95. End Sub
    97. End Class



    AVIWriter.vb
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Imports System.Runtime.InteropServices
    4. Public Class AviWriter
    5. Private aviFile As Integer = 0
    6. Private aviStream As IntPtr = IntPtr.Zero
    7. Private frameRate As UInt32 = 0
    8. Private countFrames As Integer = 0
    9. Private width As Integer = 0
    10. Private height As Integer = 0
    11. Private stride As UInt32 = 0
    12. Private fccType As UInt32 = Avi.StreamtypeVIDEO
    13. Private fccHandler As UInt32 = 1668707181
    15. Private strideInt As Integer
    16. Private strideU As UInteger
    17. Private heightU As UInteger
    18. Private widthU As UInteger
    20. Public Sub OpenAVI(ByVal fileName As String, ByVal frameRate As UInt32)
    21. Me.frameRate = frameRate
    23. Avi.AVIFileInit()
    26. Dim OpeningError As Integer = Avi.AVIFileOpen(aviFile, fileName, 4097, 0)
    27. If OpeningError <> 0 Then
    28. Throw New Exception("Error in AVIFileOpen: " + OpeningError.ToString())
    29. End If
    30. End Sub
    32. Public Sub AddFrame(ByVal bmp As Bitmap)
    34. bmp.RotateFlip(RotateFlipType.RotateNoneFlipY)
    36. Dim bmpData As BitmapData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), ImageLockMode.[ReadOnly], PixelFormat.Format24bppRgb)
    38. If countFrames = 0 Then
    39. Dim bmpDatStride As UInteger = bmpData.Stride
    40. Me.stride = DirectCast(bmpDatStride, UInt32)
    41. Me.width = bmp.Width
    42. Me.height = bmp.Height
    43. CreateStream()
    44. End If
    45. strideInt = stride
    46. Dim writeResult As Integer = Avi.AVIStreamWrite(aviStream, countFrames, 1, bmpData.Scan0, DirectCast((strideInt * height), Int32), 0, 0, 0)
    48. If writeResult <> 0 Then
    49. Throw New Exception("Error in AVIStreamWrite: " + writeResult.ToString())
    50. End If
    52. bmp.UnlockBits(bmpData)
    53. System.Math.Max(System.Threading.Interlocked.Increment(countFrames), countFrames - 1)
    54. End Sub
    57. Private Sub CreateStream()
    58. Dim strhdr As New Avi.AVISTREAMINFOstruc()
    59. strhdr.fccType = fccType
    60. strhdr.fccHandler = fccHandler
    61. strhdr.dwScale = 1
    62. strhdr.dwRate = frameRate
    63. strideU = stride
    64. heightU = height
    65. strhdr.dwSuggestedBufferSize = DirectCast((stride * strideU), UInt32)
    66. strhdr.dwQuality = 10000
    68. heightU = height
    69. widthU = width
    70. strhdr.rcFrame.bottom = DirectCast(heightU, UInt32)
    71. strhdr.rcFrame.right = DirectCast(widthU, UInt32)
    72. strhdr.szName = New UInt16(64) {}
    74. Dim createResult As Integer = Avi.AVIFileCreateStream(aviFile, aviStream, strhdr)
    75. If createResult <> 0 Then
    76. Throw New Exception("Error in AVIFileCreateStream: " + createResult.ToString())
    77. End If
    79. Dim bi As New Avi.BITMAPINFOHEADERstruc()
    80. Dim bisize As UInteger = Marshal.SizeOf(bi)
    81. bi.biSize = DirectCast(bisize, UInt32)
    82. bi.biWidth = DirectCast(width, Int32)
    83. bi.biHeight = DirectCast(height, Int32)
    84. bi.biPlanes = 1
    85. bi.biBitCount = 24
    87. strideU = stride
    88. heightU = height
    89. bi.biSizeImage = DirectCast((strideU * heightU), UInt32)
    90. Dim formatResult As Integer = Avi.AVIStreamSetFormat(aviStream, 0, bi, Marshal.SizeOf(bi))
    91. If formatResult <> 0 Then
    92. Throw New Exception("Error in AVIStreamSetFormat: " + formatResult.ToString())
    93. End If
    94. End Sub
    97. Public Sub Close()
    98. If aviStream <> IntPtr.Zero Then
    99. Avi.AVIStreamRelease(aviStream)
    100. aviStream = IntPtr.Zero
    101. End If
    102. If aviFile <> 0 Then
    103. Avi.AVIFileRelease(aviFile)
    104. aviFile = 0
    105. End If
    106. Avi.AVIFileExit()
    107. End Sub
    109. End Class



    Verwendung:

    VB.NET-Quellcode

    1. Dim Writer As New AviWriter
    2. Writer.OpenAVI("C:\bla\bla.avi", 10) 'pfad, framerate
    3. For Each Frame In bmpArray 'array von Bitmaps
    4. Writer.AddFrame(Frame)
    5. Next
    6. Writer.Close()


    Quelle: Codeproject

    Viel Erfolg noch,
    SᴛᴀʀGᴀᴛᴇ01

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

    Das ist ja ma toll. Das ist eh genau der Wrapper für das die API's die ich gepostet habe :)
    Jedoch würde mir da noch ne Hintergrundmusik fehlen.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.