In einem mp4 Video einen Text einblenden

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von jnpanzer.

    In einem mp4 Video einen Text einblenden

    Ich möchte in einem Video ein bzw. mehrere Texte einfügen.
    Ich nutze hierzu ffmpeg.

    Mit der Kommandozeile mit ffmpeg exe bekomme ich das hin.
    Ich möchte das aber gerne in VB.net machen mit Accord.

    Bei der Ausführung kommt die Meldung "Fehler BC30560 "VideoFileReader und FileWriter" ist im Namespace "Accord.Video.FFMPEG" mehrdeutig.".
    Ich hatte auch schon "Accord.Video.FFMPEG.VideoFileReader()" versucht.

    Kann mir jemand einen Tipp geben?

    VB.NET-Quellcode

    1. Imports Accord.Video.FFMPEG
    2. Imports System.Drawing
    4. Public Class frmVideo
    5. Private Sub btnAddText_Click(sender As Object, e As EventArgs) Handles btnAddText.Click
    6. Dim inputPath As String = "C:\logs\Digital.mp4"
    7. Dim outputPath As String = "C:\logs\Digital_out.mp4"
    8. Dim overlayText As String = "Neuer Preis"
    10. AddTextOverlay(inputPath, outputPath, overlayText)
    12. MessageBox.Show("Die Verarbeitung ist abgeschlossen.")
    13. End Sub
    15. Private Sub AddTextOverlay(inputPath As String, outputPath As String, overlayText As String)
    17. 'Fehler BC30560 "VideoFileReader" ist im Namespace "Accord.Video.FFMPEG" mehrdeutig.
    19. Using reader As New VideoFileReader()
    20. reader.Open(inputPath)
    22. 'Fehler BC30560 "VideoFileWriter" ist im Namespace "Accord.Video.FFMPEG" mehrdeutig.
    24. Using writer As New VideoFileWriter()
    25. writer.Open(outputPath, reader.Width, reader.Height, reader.FrameRate, reader.VideoCodec)
    27. Dim frameIndex As Integer = 0
    29. While True
    30. Dim frame As Bitmap = reader.ReadVideoFrame()
    32. If frame Is Nothing Then
    33. Exit While
    34. End If
    36. Using g As Graphics = Graphics.FromImage(frame)
    37. Using font As New Font("HelveticaNeueLT Std ExtBlk Cn", 27)
    38. Dim textSize As SizeF = g.MeasureString(overlayText, font)
    39. Dim x As Integer = 500
    40. Dim y As Integer = 700
    42. g.DrawString(overlayText, font, Brushes.White, x, y)
    43. End Using
    44. End Using
    46. writer.WriteVideoFrame(frame)
    47. frameIndex += 1
    48. End While
    50. writer.Close()
    51. End Using
    53. reader.Close()
    54. End Using
    55. End Sub
    56. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „jnpanzer“ ()

    Wenn Du zu viele Namespaces importierst, kann es sein, dass es gleichnamige Klassen in verschiedenen Namespaces gibt. Wenn also im importierten Namespace N1 eine Klasse Kx existiert und eine Klasse Kx im Namespace N2 und Du nur schreibst Dim X As New Kx, dann weiß der Compiler nicht, welches Kx Du meinst. Gib den Namespace mit an, dann wird es dem Compiler klar. Schreib also z.B.: Dim X As New N1.Kx
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo VaporiZed
    Danke für deiuenn Tipp

    Das hatte ich auch schon verucht. Hatte mir google vorgeschlagen
    Leider mit den gleichen Ergebnis.

    Mit "Accord.Video.FFMPEG.VideoFileReader()".


    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Accord.Video.FFMPEG
    3. Imports System.Drawing
    5. Public Class frmVideo
    7. Private Sub btnAddText_Click(sender As Object, e As EventArgs) Handles btnAddText.Click
    8. Dim inputPath As String = "C:\logs\Digital.mp4"
    9. Dim outputPath As String = "C:\logs\Digital_out.mp4"
    10. Dim overlayText As String = "Neuer Preis"
    12. AddTextOverlay(inputPath, outputPath, overlayText)
    14. MessageBox.Show("Die Verarbeitung ist fertig.")
    15. End Sub
    17. Private Sub AddTextOverlay(inputPath As String, outputPath As String, overlayText As String)
    19. 'Leider kommt der Fehler
    20. 'Fehler BC30560 "VideoFileReader" ist im Namespace "Accord.Video.FFMPEG" mehrdeutig.
    22. Using reader As New Accord.Video.FFMPEG.VideoFileReader()
    23. reader.Open(inputPath)
    25. 'Leider kommt der Fehler
    26. 'Fehler BC30560 "VideoFileWriter" ist im Namespace "Accord.Video.FFMPEG" mehrdeutig.
    28. Using writer As New Accord.Video.FFMPEG.VideoFileWriter()
    29. writer.Open(outputPath, reader.Width, reader.Height, reader.FrameRate, reader.VideoCodec)
    31. Dim frameIndex As Integer = 0
    33. While True
    34. Dim frame As Bitmap = reader.ReadVideoFrame()
    36. If frame Is Nothing Then
    37. Exit While
    38. End If
    40. Using g As Graphics = Graphics.FromImage(frame)
    41. Using font As New Font("HelveticaNeueLT Std ExtBlk Cn", 27)
    42. Dim textSize As SizeF = g.MeasureString(overlayText, font)
    43. Dim x As Integer = 500
    44. Dim y As Integer = 700
    46. g.DrawString(overlayText, font, Brushes.White, x, y)
    47. End Using
    48. End Using
    50. writer.WriteVideoFrame(frame)
    51. frameIndex += 1
    52. End While
    54. writer.Close()
    55. End Using
    57. reader.Close()
    58. End Using
    59. End Sub
    60. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „jnpanzer“ ()

    Klingt so, als ob Du doppelte DLLs eingebunden hast, vielleicht einmal direkt von Accord und eine, die Accord nutzt. Woer hast Du Accord? nuget? Oder welche andere Quelle?
    Wenn Du über nuget bezogen hast, stell sicher, dass Du nur ein Paket verwendest, also nicht Accord und dann noch Accord.Video.FFMPEG oder sowas doppeltes.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Danke für deienn Tipp.
    Ich habe da ein wenig zu viel importiert ...
    Hab es komplett neu gemacht ..

    Gab noch einige andere Probleme... aber es läuft jetzt :)

    Anbei er Lauffähiger Code

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Accord.Video
    3. Imports Accord.Video.FFMPEG
    4. Imports System.Drawing
    6. Public Class Form1
    7. Private Sub btnAddText_Click(sender As Object, e As EventArgs) Handles btnAddText.Click
    8. Dim inputPath As String = "C:\logs\Digital.mp4"
    9. Dim outputPath As String = "C:\logs\Digital_out2.mp4"
    10. Dim overlayText As String = "Hier ist der Text"
    12. AddTextOverlay(inputPath, outputPath, overlayText)
    14. MessageBox.Show("Die Verarbeitung ist abgeschlossen.")
    15. End Sub
    17. Private Sub AddTextOverlay(inputPath As String, outputPath As String, overlayText As String)
    18. Dim reader As New VideoFileReader()
    19. reader.Open(inputPath)
    21. Dim writer As New VideoFileWriter()
    22. writer.Open(outputPath, reader.Width, reader.Height, reader.FrameRate, VideoCodec.MPEG4)
    24. Dim font As New Font("Arial", 24)
    25. Dim brush As New SolidBrush(Color.White)
    26. Dim x As Integer = 100
    27. Dim y As Integer = 102
    29. Dim frameIndex As Integer = 0
    30. While True
    31. Dim frame As Bitmap = reader.ReadVideoFrame()
    33. If frame Is Nothing Then
    34. Exit While
    35. End If
    37. Using g As Graphics = Graphics.FromImage(frame)
    38. g.DrawString(overlayText, font, brush, x, y)
    39. End Using
    41. writer.WriteVideoFrame(frame)
    42. frameIndex += 1
    44. frame.Dispose()
    45. End While
    47. writer.Close()
    48. reader.Close()
    49. End Sub
    50. End Class

Facebook
Telefonspende