Audio aus mp4 extrahieren

  • VB.NET
  • .NET (FX) 4.0

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Manawyrm.

    Lese die Spezifikation und schreibe auf dieser Basis ein Programm, das die Tracks der MP4-Datei extrahieren kann.
    Ich habe selbst einen Demuxer für den MP4 Container zu Übungszwecken geschrieben, es ist aufwändig. Wenn du dir diesen Aufwand ersparen willst, dann musst du eben auf eine vorgefertigte Lösung zurückgreifen. Da das Framework hier meines Wissens nach nichts bereitstellt, musst du wohl auf andere Bibliotheken wie ffmpeg, mp4Box, libmp4, ... zurückgreifen.

    @markus.obi : Ich möchte nicht für jede konversion ein neues programm starten. Ausserdem möchte ich ggf rückmeldungen(erfolgreich,arbeitet,25%,fehlgeschlagen) und das habe ich bei ffmpeg nicht, was ich so gesehen hab ;).
    @Infinity : Jo, ich möcht ja nicht gleich was eigenes, ne dll genügt(danke dafür) :)
    Thx
    Wer Rechtschreibfehler findet darf sie behalten :)

    Den hast du sehr wohl bei ffmpeg ;) du musst ihn nur richtig Interpretieren und natürlich zur dir bzw. deiner Anwendung umleiten (ProcessStartInfo.RedirectStandardOutput & ProcessStartInfo.RedirectStandardError)

    @slice : Jaaa, ok sagen wir mal so: ich bin ein wenig alergisch auf externe consolenanwendungen wo ich mir etwas hilflos vorkomme(ich hoffe du weist was ich meine),ich mein jeder kann mitlesen und so, ausserdem möchte ich das dann unter mono auf nem server laufen lassen und möchte nicht allzu viele fehler bekommen(du weist ja- je weniger fehler desto besser :D). Ausserdem liebe ich dll´s :D
    mfg
    Wer Rechtschreibfehler findet darf sie behalten :)

    Externe Konsolenanwendungs zu starten ist wesentlich einfach als sich in die API von ffmpeg/avconv oder einer ähnlichen Bibliothek einzulesen und sollte auch unter Mono keine Probleme bereiten (wobei ich wenn eine Linuxdistribution die Zielplattform sein sollte eher zu einer andern Programmiersprache als VB.Net raten würde). Hier trotzdem der Link zur Dokumentation von ffmpeg: ffmpeg.org/doxygen/2.1/index.html
    Natürlich gibt es noch weitere Bibliotheken die du nutzen könntest. Nur um der eventuellen nächsten Frage vorzubeugen: Wie du Funktionen aus Programmbiliotheken die mit C geschrieben wurden in VB.Net verwenden kannst wurde hier im Forum glaube ich bereits ganz gut beschrieben (Suche benutzen).

    Ausserdem liebe ich dll´s

    Unter unixartigen Systemen werden keine "DLLs" verwendet, deswegen solltest du lieber allgemein von Programmbiblotheken reden.

    Jo, ma gucken xD
    Hat wer ne ahnung wie ich das unter vb zum laufen bekomm:avblocks.com/download-try/ ?
    Ich hab das schon convertet, so gut´s ging, aber nun hats probleme mit " t.OnContinue ", das gibts nähmlich nicht....irgendwie...
    Das originale:
    Spoiler anzeigen

    Quellcode

    1. /*
    2. * Copyright (c) 2013 Primo Software. All Rights Reserved.
    3. *
    4. * Use of this source code is governed by a BSD-style license
    5. * that can be found in the LICENSE file in the root of the source
    6. * tree.
    7. */
    8. using System;
    9. using System.Collections.Generic;
    10. using System.Text;
    11. using PrimoSoftware.AVBlocks;
    13. namespace VideoConverter
    14. {
    15. class PresetDescriptor
    16. {
    17. public Preset Id;
    18. public string Name;
    19. public bool AudioOnly;
    20. public string FileExtension;
    22. public PresetDescriptor(Preset id, string name, bool audioOnly, string fileExtension)
    23. {
    24. this.Id = id;
    25. this.Name = name;
    26. this.AudioOnly = audioOnly;
    27. this.FileExtension = fileExtension;
    28. }
    30. public override string ToString()
    31. {
    32. if (this.FileExtension == null)
    33. return this.Name;
    35. return string.Format("{0} (.{1})", this.Name, this.FileExtension);
    36. }
    37. };
    39. class AvbTranscoder
    40. {
    41. private static PresetDescriptor[] presets = new PresetDescriptor[]
    42. {
    43. // video presets
    44. new PresetDescriptor(Preset.DVD_PAL_MP2, "DVD PAL 4:3, MP2", false, "mpg"),
    45. new PresetDescriptor(Preset.DVD_PAL_WIDE_MP2, "DVD PAL 16:9, MP2", false, "mpg"),
    46. new PresetDescriptor(Preset.DVD_NTSC_PCM, "DVD NTSC 4:3, PCM", false, "mpg"),
    47. new PresetDescriptor(Preset.DVD_NTSC_MP2, "DVD NTSC 4:3, MP2", false, "mpg" ),
    48. new PresetDescriptor(Preset.DVD_NTSC_WIDE_PCM, "DVD NTSC 16:9, PCM", false, "mpg" ),
    49. new PresetDescriptor(Preset.DVD_NTSC_WIDE_MP2, "DVD NTSC 16:9, MP2", false, "mpg"),
    50. new PresetDescriptor(Preset.AppleTv_H264, "Apple TV H.264", false, "mp4"),
    51. new PresetDescriptor(Preset.AppleTv_MPEG4, "Apple TV MPEG-4", false, "mp4"),
    52. new PresetDescriptor(Preset.Apple_LiveStreaming,"Apple Live Streaming",false, "ts"),
    53. new PresetDescriptor(Preset.MP4_H264, "MP4 H.264", false, "mp4"),
    54. new PresetDescriptor(Preset.iPad_H264, "iPad H.264", false, "mp4"),
    55. new PresetDescriptor(Preset.iPad_H264_HD, "iPad H.264 HD", false, "mp4"),
    56. new PresetDescriptor(Preset.iPad_MPEG4, "iPad MPEG-4", false, "mp4"),
    57. new PresetDescriptor(Preset.iPhone_H264, "iPhone, iPod Touch H.264", false, "mp4"),
    58. new PresetDescriptor(Preset.iPhone_MPEG4, "iPhone, iPod Touch MPEG-4", false, "mp4"),
    59. new PresetDescriptor(Preset.iPod_H264, "iPod Classic H.264", false, "mp4"),
    60. new PresetDescriptor(Preset.iPod_MPEG4, "iPod Classic MPEG-4", false, "mp4"),
    61. new PresetDescriptor(Preset.MPEG1, "MPEG-1", false, "mpg"),
    62. new PresetDescriptor(Preset.WebM, "WebM", false, "webm"),
    64. // audio presets
    65. new PresetDescriptor(Preset.AudioCD, "Audio CD Wav", true, "wav"),
    66. new PresetDescriptor(Preset.AAC, "AAC ADTS", true, "aac"),
    67. new PresetDescriptor(Preset.M4A, "AAC M4A", true, "m4a"),
    68. new PresetDescriptor(Preset.MP2_DVD, "MPEG Audio for DVD", true, "mp2"),
    69. new PresetDescriptor(Preset.MP3, "MP3", true, "mp3"),
    70. new PresetDescriptor(Preset.WMA_Standard, "WMA Standard", true, "wma"),
    71. new PresetDescriptor(Preset.WMA_Professional, "WMA Professional", true, "wma"),
    72. new PresetDescriptor(Preset.WMA_Lossless, "WMA Lossless", true, "wma"),
    73. new PresetDescriptor(Preset.OggVorbis, "Ogg (Vorbis)", true, "ogg"),
    75. };
    77. public static PresetDescriptor[] Presets
    78. {
    79. get { return presets; }
    80. }
    82. private static string FormatErrorMessage(ErrorInfo e)
    83. {
    84. return string.Format("{0} Error, Code: {1} ({2})", e.Facility, e.Code, e.Message ?? "");
    85. }
    87. // return error message or null if success
    88. public static string ConvertFileWithPreset(string inputFile, string outputFile, Preset outputPreset,
    89. EventHandler<TranscoderContinueEventArgs> onContinue,
    90. EventHandler<TranscoderProgressEventArgs> onProgress,
    91. EventHandler<TranscoderStatusEventArgs> onStatus
    92. )
    93. {
    94. MediaInfo mediaInfo = new MediaInfo();
    95. mediaInfo.InputFile = inputFile;
    96. if (!mediaInfo.Load())
    97. {
    98. return FormatErrorMessage(mediaInfo.Error);
    99. }
    101. using (Transcoder t = new Transcoder())
    102. {
    103. if (onContinue != null)
    104. t.OnContinue += onContinue;
    106. if (onProgress != null)
    107. t.OnProgress += onProgress;
    109. if (onStatus != null)
    110. t.OnStatus += onStatus;
    112. MediaSocket insocket = MediaSocket.FromMediaInfo(mediaInfo);
    113. t.Inputs.Add(insocket);
    114. MediaSocket outsocket = MediaSocket.FromPreset(outputPreset, Quality.Normal);
    115. if (outsocket == null)
    116. {
    117. return "Cannot create output preset";
    118. }
    119. outsocket.File = outputFile;
    120. t.Outputs.Add(outsocket);
    122. if (!t.Open())
    123. return FormatErrorMessage(mediaInfo.Error);
    125. if (!t.Run())
    126. return FormatErrorMessage(mediaInfo.Error);
    128. t.Close();
    129. }
    131. return null; // no error
    132. }
    133. }
    135. }

    das convertierte:
    Spoiler anzeigen

    Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Text
    3. Imports PrimoSoftware.AVBlocks
    4. Imports PrimoSoftware
    6. Namespace VideoConverter
    7. Class PresetDescriptor
    8. Public Id As Preset
    9. Public Name As String
    10. Public AudioOnly As Boolean
    11. Public FileExtension As String
    13. Public Sub New(ByVal id As Preset, ByVal name As String, ByVal audioOnly As Boolean, ByVal fileExtension As String)
    14. Me.Id = id
    15. Me.Name = name
    16. Me.AudioOnly = audioOnly
    17. Me.FileExtension = fileExtension
    18. End Sub
    20. Public Overrides Function ToString() As String
    21. If Me.FileExtension Is Nothing Then
    22. Return Me.Name
    23. End If
    25. Return String.Format("{0} (.{1})", Me.Name, Me.FileExtension)
    26. End Function
    27. End Class
    29. Class AvbTranscoder
    30. ' video presets
    32. ' audio presets
    34. Private Shared m_presets As PresetDescriptor() = New PresetDescriptor() {New PresetDescriptor(Preset.DVD_PAL_MP2, "DVD PAL 4:3, MP2", False, "mpg"), New PresetDescriptor(Preset.DVD_PAL_WIDE_MP2, "DVD PAL 16:9, MP2", False, "mpg"), New PresetDescriptor(Preset.DVD_NTSC_PCM, "DVD NTSC 4:3, PCM", False, "mpg"), New PresetDescriptor(Preset.DVD_NTSC_MP2, "DVD NTSC 4:3, MP2", False, "mpg"), New PresetDescriptor(Preset.DVD_NTSC_WIDE_PCM, "DVD NTSC 16:9, PCM", False, "mpg"), New PresetDescriptor(Preset.DVD_NTSC_WIDE_MP2, "DVD NTSC 16:9, MP2", False, "mpg"), _
    35. New PresetDescriptor(Preset.AppleTv_H264, "Apple TV H.264", False, "mp4"), New PresetDescriptor(Preset.AppleTv_MPEG4, "Apple TV MPEG-4", False, "mp4"), New PresetDescriptor(Preset.Apple_LiveStreaming, "Apple Live Streaming", False, "ts"), New PresetDescriptor(Preset.MP4_H264, "MP4 H.264", False, "mp4"), New PresetDescriptor(Preset.iPad_H264, "iPad H.264", False, "mp4"), New PresetDescriptor(Preset.iPad_H264_HD, "iPad H.264 HD", False, "mp4"), _
    36. New PresetDescriptor(Preset.iPad_MPEG4, "iPad MPEG-4", False, "mp4"), New PresetDescriptor(Preset.iPhone_H264, "iPhone, iPod Touch H.264", False, "mp4"), New PresetDescriptor(Preset.iPhone_MPEG4, "iPhone, iPod Touch MPEG-4", False, "mp4"), New PresetDescriptor(Preset.iPod_H264, "iPod Classic H.264", False, "mp4"), New PresetDescriptor(Preset.iPod_MPEG4, "iPod Classic MPEG-4", False, "mp4"), New PresetDescriptor(Preset.MPEG1, "MPEG-1", False, "mpg"), _
    37. New PresetDescriptor(Preset.WebM, "WebM", False, "webm"), New PresetDescriptor(Preset.AudioCD, "Audio CD Wav", True, "wav"), New PresetDescriptor(Preset.AAC, "AAC ADTS", True, "aac"), New PresetDescriptor(Preset.M4A, "AAC M4A", True, "m4a"), New PresetDescriptor(Preset.MP2_DVD, "MPEG Audio for DVD", True, "mp2"), New PresetDescriptor(Preset.MP3, "MP3", True, "mp3"), _
    38. New PresetDescriptor(Preset.WMA_Standard, "WMA Standard", True, "wma"), New PresetDescriptor(Preset.WMA_Professional, "WMA Professional", True, "wma"), New PresetDescriptor(Preset.WMA_Lossless, "WMA Lossless", True, "wma"), New PresetDescriptor(Preset.OggVorbis, "Ogg (Vorbis)", True, "ogg")}
    40. Public Shared ReadOnly Property Presets() As PresetDescriptor()
    41. Get
    42. Return m_presets
    43. End Get
    44. End Property
    46. Private Shared Function FormatErrorMessage(ByVal e As ErrorInfo) As String
    47. Return String.Format("{0} Error, Code: {1} ({2})", e.Facility, e.Code, If(e.Message, ""))
    48. End Function
    50. ' return error message or null if success
    51. Public Shared Function ConvertFileWithPreset(ByVal inputFile As String, ByVal outputFile As String, ByVal outputPreset As Preset, ByVal onContinue As EventHandler(Of TranscoderContinueEventArgs), ByVal onProgress As EventHandler(Of TranscoderProgressEventArgs), ByVal onStatus As EventHandler(Of TranscoderStatusEventArgs)) As String
    52. Dim mediaInfo As New MediaInfo()
    53. mediaInfo.InputFile = inputFile
    54. If Not mediaInfo.Load() Then
    55. Return FormatErrorMessage(mediaInfo.[Error])
    56. End If
    58. Using t As New PrimoSoftware.AVBlocks.Transcoder()
    59. If onContinue IsNot Nothing Then
    60. t.OnContinue += onContinue
    61. End If
    63. If onProgress IsNot Nothing Then
    64. t.OnProgress += onProgress
    65. End If
    67. If onStatus IsNot Nothing Then
    68. t.OnStatus += onStatus
    69. End If
    71. Dim insocket As MediaSocket = MediaSocket.FromMediaInfo(mediaInfo)
    72. t.Inputs.Add(insocket)
    73. Dim outsocket As MediaSocket = MediaSocket.FromPreset(outputPreset, Quality.Normal)
    74. If outsocket Is Nothing Then
    75. Return "Cannot create output preset"
    76. End If
    77. outsocket.File = outputFile
    78. t.Outputs.Add(outsocket)
    80. If Not t.Open() Then
    81. Return FormatErrorMessage(mediaInfo.[Error])
    82. End If
    84. If Not t.Run() Then
    85. Return FormatErrorMessage(mediaInfo.[Error])
    86. End If
    88. t.Close()
    89. End Using
    91. Return Nothing
    92. ' no error
    93. End Function
    94. End Class
    96. End Namespace

    Wer Rechtschreibfehler findet darf sie behalten :)

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

Facebook
Telefonspende