AVI erstellen mit Malisch's AVI-Lib

Epic · 8. Januar 2011, 20:53

Hey Leute,

hier würd ich euch gerne zeigen, wie ihr einen einfachen (!) AVI-Film mit VB.net und Malisch's AVI-Lib ertsellen könnt.
Zuallererst werden die beiden dll's dafür bennötigt, die könnt ihr euch hier herunterladen.

Entpackt die Dll's, erstellt ein neues Projekt und fügt dem Projekt anschließend die Verweise hinzu.

Der Code, um aus einer Image-List (einer Lsite voller Bilder) ein AVI zu erstellen (Funktion):

VB.NET-Quellcode

Private Sub CreateAVI()
If IO.File.Exists("temp.avi") = True Then
IO.File.Delete("temp.avi")
End If
Dim Imgs As New List(Of Image)
Imgs.Add(Image.FromFile("bild1.png"))
Imgs.Add(Image.FromFile("bild2.png"))
Imgs.Add(Image.FromFile("bild3.png"))
avicreator.CreateAVIFile(Imgs.ToArray(), 5 --- DIE FRAMERATE ---- , SystemInformation.VirtualScreen.Width --- BREITE DES VIDEOS, SystemInformation.VirtualScreen.Height --- HÖHE DES VIDEOS, "temp.avi")
avicreator.setmessage("Das Video wurde erstellt.")
'optional starten wir das Video
Process.Start("temp.avi")
End Sub

Es nicht möglcih Sound hinzuzufügen, wenn man ein Bild aber längermachen wilslt, stellst du die Frammerate auf eins und wiederholst das jeweilige Bild so oft ;).

Habt Spaß damit!

Mfg
Epic

Alufolie · 12. Februar 2011, 20:04

Ich brauche Hilfe. Nachdem ich das Video erstellt habe, kommt ein Fenster, bei dem ich die Komprimierung des Videos auswähle soll. Wenn ich dort etwas auswähle und auf OK drücke, stürzt mein Programm ab. Danke schon mal im Voraus für die Antworten

Epic · 13. Februar 2011, 02:46

Tolle Fehlerbeschreibung... es stürzt ab. Kommt irgendetwas danach?

Alufolie · 13. Februar 2011, 07:43

Sorry, aber genau das macht es. Es beendet sich und Windows fragt mich, ob ich einen Fehlerbericht an Microsoft schicken will. Mehr bekommt man nicht zu sehen

Epic · 13. Februar 2011, 20:24

Hmmm... das ist merkwürdig, ich hatte das selbe Problem auch mal. Die Lösung: Es gab keine... Ich schau mal.

Alufolie · 13. Februar 2011, 22:49

Mal funktioniert es, mal nicht. Keine Ahnung, woran das liegt. Wenn das Programm nicht abstürzt, sondern eine avi-Datei anlegt, ist in der nichts zu sehen

Epic · 14. Februar 2011, 01:20

Hmmm... lösche mal die Zeile mit "Process.Start(", es kann sein, dass die Anwendung versucht, eine AVI zu öffnen, die noch nicht fertig gespeichert wurde... Ach ja, bei größeren Filmen (ab 3 sekunden) musst du laaange warten ^^.

Memo · 15. Februar 2011, 08:14

Schon bei 3 Sekunden ?
Was ist den wenn du einen 1h Film machen willst

ExtremRoyalGuard · 15. Februar 2011, 11:42

Entschuldige die Wortwahl :
Dann bist du so richtig im Arsch!

Hudson Smith · 16. Februar 2011, 02:30

Hallo!

Da ich mich gerade auch mit dem Thema beschäftigt habe, kann ich euch sagen, dass ihr mit der Lib von Malisch kein Video in der Länge einer Stunde erstellen könnt da er eine List(of Image) bzw. ein Image Array benutzt.
Wenn man jetzt versucht mehr als 1000 Bilder in ein Image-Array zu laden wir euer Arbeitsspeicher irgendwann voll werden und das Programm hängt sich auf =P.

Lösungsvorschlag:

Benutzt die avilib die auch Malisch verwendet hat um den Avi Film zu machen oder geht noch weiter zurück und schaut euch mal den Code an adp-gmbh.ch/csharp/avi/write_avi.html. Natürlich müsste dieser Code dann Konvertiert oder umgeschrieben werden.

Mfg
Hudson Smith

PS: Der Fehler mit der Komprimierung wird auch bei der avilib kommen. Ich selber habe da auch noch keine Lösung gefunden.

Gamemaster22 · 16. Februar 2011, 16:01

Hi,
ich hatte nichts anderes zu tun und habe den Code in Vb.net übersetzt:
Viel Spaß damit!

Spoiler anzeigen

VB.NET-Quellcode

'Code von [url]http://www.adp-gmbh.ch/csharp/avi/write_avi.html[/url]
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class AviWriter
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Private Structure AVISTREAMINFOW
Public fccType As UInt32, fccHandler As UInt32, dwFlags As UInt32, dwCaps As UInt32
Public wPriority As UInt16, wLanguage As UInt16
Public dwScale As UInt32, dwRate As UInt32, dwStart As UInt32, dwLength As UInt32, dwInitialFrames As UInt32, dwSuggestedBufferSize As UInt32, _
dwQuality As UInt32, dwSampleSize As UInt32, rect_left As UInt32, rect_top As UInt32, rect_right As UInt32, rect_bottom As UInt32, _
dwEditCount As UInt32, dwFormatChangeCount As UInt32
Public szName0 As UInt16, szName1 As UInt16, szName2 As UInt16, szName3 As UInt16, szName4 As UInt16, szName5 As UInt16, _
szName6 As UInt16, szName7 As UInt16, szName8 As UInt16, szName9 As UInt16, szName10 As UInt16, szName11 As UInt16, _
szName12 As UInt16, szName13 As UInt16, szName14 As UInt16, szName15 As UInt16, szName16 As UInt16, szName17 As UInt16, _
szName18 As UInt16, szName19 As UInt16, szName20 As UInt16, szName21 As UInt16, szName22 As UInt16, szName23 As UInt16, _
szName24 As UInt16, szName25 As UInt16, szName26 As UInt16, szName27 As UInt16, szName28 As UInt16, szName29 As UInt16, _
szName30 As UInt16, szName31 As UInt16, szName32 As UInt16, szName33 As UInt16, szName34 As UInt16, szName35 As UInt16, _
szName36 As UInt16, szName37 As UInt16, szName38 As UInt16, szName39 As UInt16, szName40 As UInt16, szName41 As UInt16, _
szName42 As UInt16, szName43 As UInt16, szName44 As UInt16, szName45 As UInt16, szName46 As UInt16, szName47 As UInt16, _
szName48 As UInt16, szName49 As UInt16, szName50 As UInt16, szName51 As UInt16, szName52 As UInt16, szName53 As UInt16, _
szName54 As UInt16, szName55 As UInt16, szName56 As UInt16, szName57 As UInt16, szName58 As UInt16, szName59 As UInt16, _
szName60 As UInt16, szName61 As UInt16, szName62 As UInt16, szName63 As UInt16
End Structure
' vfw.h
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Private Structure AVICOMPRESSOPTIONS
Public fccType As UInt32
Public fccHandler As UInt32
Public dwKeyFrameEvery As UInt32
' only used with AVICOMRPESSF_KEYFRAMES
Public dwQuality As UInt32
Public dwBytesPerSecond As UInt32
' only used with AVICOMPRESSF_DATARATE
Public dwFlags As UInt32
Public lpFormat As IntPtr
Public cbFormat As UInt32
Public lpParms As IntPtr
Public cbParms As UInt32
Public dwInterleaveEvery As UInt32
End Structure
<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Public Structure BITMAPINFOHEADER
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
Public Class AviException
Inherits ApplicationException
Public Sub New(ByVal s As String)
MyBase.New(s)
End Sub
Public Sub New(ByVal s As String, ByVal hr As Int32)
MyBase.New(s)
If hr = AVIERR_BADPARAM Then
err_msg = "AVIERR_BADPARAM"
Else
err_msg = "unknown"
End If
End Sub
Public Function ErrMsg() As String
Return err_msg
End Function
Private Const AVIERR_BADPARAM As Int32 = -2147205018
Private err_msg As String
End Class
Public Function Open(ByVal fileName As String, ByVal frameRate As UInt32, ByVal width As Integer, ByVal height As Integer) As Bitmap
frameRate_ = frameRate
width_ = CType(width, UInt32)
height_ = CType(height, UInt32)
bmp_ = New Bitmap(width, height, PixelFormat.Format24bppRgb)
Dim bmpDat As BitmapData = bmp_.LockBits(New Rectangle(0, 0, width, height), ImageLockMode.[ReadOnly], PixelFormat.Format24bppRgb)
stride_ = CType(bmpDat.Stride, UInt32)
bmp_.UnlockBits(bmpDat)
AVIFileInit()
' OF_WRITE | OF_CREATE (winbase.h)
Dim hr As Integer = AVIFileOpenW(pfile_, fileName, 4097, 0)
If hr <> 0 Then
Throw New AviException("error for AVIFileOpenW")
End If
CreateStream()
SetOptions()
Return bmp_
End Function
Public Sub AddFrame()
Dim bmpDat As BitmapData = bmp_.LockBits(New Rectangle(0, 0, CInt(width_), CInt(height_)), ImageLockMode.[ReadOnly], PixelFormat.Format24bppRgb)
' pointer to data
' 16 = AVIIF_KEYFRAMe
Dim hr As Integer = AVIStreamWrite(psCompressed_, count_, 1, bmpDat.Scan0, CType(stride_ * height_, Int32), 0, _
0, 0)
If hr <> 0 Then
Throw New AviException("AVIStreamWrite")
End If
bmp_.UnlockBits(bmpDat)
count_ += 1
End Sub
Public Sub Close()
AVIStreamRelease(ps_)
AVIStreamRelease(psCompressed_)
AVIFileRelease(pfile_)
AVIFileExit()
End Sub
Private Sub CreateStream()
Dim strhdr As New AVISTREAMINFOW()
strhdr.fccType = fccType_
strhdr.fccHandler = fccHandler_
strhdr.dwFlags = 0
strhdr.dwCaps = 0
strhdr.wPriority = 0
strhdr.wLanguage = 0
strhdr.dwScale = 1
strhdr.dwRate = frameRate_
' Frames per Second
strhdr.dwStart = 0
strhdr.dwLength = 0
strhdr.dwInitialFrames = 0
strhdr.dwSuggestedBufferSize = height_ * stride_
strhdr.dwQuality = &HFFFFFFFFUI
'-1; // Use default
strhdr.dwSampleSize = 0
strhdr.rect_top = 0
strhdr.rect_left = 0
strhdr.rect_bottom = height_
strhdr.rect_right = width_
strhdr.dwEditCount = 0
strhdr.dwFormatChangeCount = 0
strhdr.szName0 = 0
strhdr.szName1 = 0
Dim hr As Integer = AVIFileCreateStream(pfile_, ps_, strhdr)
If hr <> 0 Then
Throw New AviException("AVIFileCreateStream")
End If
End Sub
Private Sub SetOptions()
Dim opts As New AVICOMPRESSOPTIONS()
opts.fccType = 0
'fccType_;
opts.fccHandler = 0
'fccHandler_;
opts.dwKeyFrameEvery = 0
opts.dwQuality = 0
' 0 .. 10000
opts.dwFlags = 0
' AVICOMRPESSF_KEYFRAMES = 4
opts.dwBytesPerSecond = 0
opts.lpFormat = 0
'new IntPtr(0);
opts.cbFormat = 0
opts.lpParms = 0
'new IntPtr(0);
opts.cbParms = 0
opts.dwInterleaveEvery = 0
Dim p As Pointer(Of AVICOMPRESSOPTIONS) = New Pointer(Of AviWriter.AVICOMPRESSOPTIONS)(opts)
Dim pp As Pointer(Of Pointer(Of AVICOMPRESSOPTIONS)) = New Pointer(Of AviWriter.AVICOMPRESSOPTIONS*)(p)
Dim x As IntPtr = ps_
Dim ptr_ps As New Pointer(Of IntPtr)(x)
AVISaveOptions(0, 0, 1, ptr_ps, pp)
' TODO: AVISaveOptionsFree(...)
Dim hr As Integer = AVIMakeCompressedStream(psCompressed_, ps_, opts, 0)
If hr <> 0 Then
Throw New AviException("AVIMakeCompressedStream")
End If
Dim bi As New BITMAPINFOHEADER()
bi.biSize = 40
bi.biWidth = CType(width_, Int32)
bi.biHeight = CType(height_, Int32)
bi.biPlanes = 1
bi.biBitCount = 24
bi.biCompression = 0
' 0 = BI_RGB
bi.biSizeImage = stride_ * height_
bi.biXPelsPerMeter = 0
bi.biYPelsPerMeter = 0
bi.biClrUsed = 0
bi.biClrImportant = 0
hr = AVIStreamSetFormat(psCompressed_, 0, bi, 40)
If hr <> 0 Then
Throw New AviException("AVIStreamSetFormat", hr)
End If
End Sub
<DllImport("avifil32.dll")> _
Private Shared Sub AVIFileInit()
End Sub
<DllImport("avifil32.dll")> _
Private Shared Function AVIFileOpenW(ByRef ptr_pfile As Integer, <MarshalAs(UnmanagedType.LPWStr)> ByVal fileName As String, ByVal flags As Integer, ByVal dummy As Integer) As Integer
End Function
<DllImport("avifil32.dll")> _
Private Shared Function AVIFileCreateStream(ByVal ptr_pfile As Integer, ByRef ptr_ptr_avi As IntPtr, ByRef ptr_streaminfo As AVISTREAMINFOW) As Integer
End Function
<DllImport("avifil32.dll")> _
Private Shared Function AVIMakeCompressedStream(ByRef ppsCompressed As IntPtr, ByVal aviStream As IntPtr, ByRef ao As AVICOMPRESSOPTIONS, ByVal dummy As Integer) As Integer
End Function
<DllImport("avifil32.dll")> _
Private Shared Function AVIStreamSetFormat(ByVal aviStream As IntPtr, ByVal lPos As Int32, ByRef lpFormat As BITMAPINFOHEADER, ByVal cbFormat As Int32) As Integer
End Function
<DllImport("avifil32.dll")> _
Private Shared Function AVISaveOptions(ByVal hwnd As Integer, ByVal flags As UInt32, ByVal nStreams As Integer, ByVal ptr_ptr_avi As Pointer(Of IntPtr), ByVal ao As Pointer(Of Pointer(Of AVICOMPRESSOPTIONS))) As Integer
End Function
<DllImport("avifil32.dll")> _
Private 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
<DllImport("avifil32.dll")> _
Private Shared Function AVIStreamRelease(ByVal aviStream As IntPtr) As Integer
End Function
<DllImport("avifil32.dll")> _
Private Shared Function AVIFileRelease(ByVal pfile As Integer) As Integer
End Function
<DllImport("avifil32.dll")> _
Private Shared Sub AVIFileExit()
End Sub
Private pfile_ As Integer = 0
Private ps_ As New IntPtr(0)
Private psCompressed_ As New IntPtr(0)
Private frameRate_ As UInt32 = 0
Private count_ As Integer = 0
Private width_ As UInt32 = 0
Private stride_ As UInt32 = 0
Private height_ As UInt32 = 0
Private fccType_ As UInt32 = 1935960438
' vids
Private fccHandler_ As UInt32 = 808810089
' IV50
'1145656899; // CVID
Private bmp_ As Bitmap
End Class

MfG,
Gamemaster22

vb-checker · 16. Februar 2011, 20:12

Hast du das wirklich übersetzt oder nur durch einen Konvertierer gejagt? Ich bekomme nämlich einige Fehler.

Übrigens schadet das [vb] [/vb ] Tag nicht.

Gamemaster22 · 17. Februar 2011, 17:57

Ertappt

Ich habe ihn durch einen Konvertierer gejagt.

MfG

joniator · 9. Februar 2014, 03:24

Sorry, dass ich tote zum leben auferwecke, aber könnte das bitte jemand reuppen?

StarGate01 · 9. Februar 2014, 15:02

Baus Dir selbst:
[VB 2012] Konverter der Bilder zu einem Video umwandelt

AVI erstellen mit Malisch's AVI-Lib

AVI erstellen mit Malisch's AVI-Lib

VB.NET-Quellcode

VB.NET-Quellcode

Skybird schrieb:

Ähnliche Themen

4 Benutzer haben hier geschrieben