Aufnahme Qualität Bass.Net

  • VB.NET

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

    Aufnahme Qualität Bass.Net

    Hallo,

    nach langem such habe noch keine Lösung gefunden und hoffe das ich hier Hilfe bekomme.

    ich schreibe derzeit ein Programm das den Sound aufnimmt welcher aus den Boxen kommt auf. Soweit klappt aus alles, auch das umwandeln in MP3 klappt auch.

    Wenn ich die Datei abspiele hört es sich stumpf an, also nicht so klangvoll wie im original aus den Boxen kommt.

    Verwende die Bass.Net Bibliothek und lame zum umwandeln

    Was muss ich einstellen damit ich die Qualität verbessern kann. Die beste Lösung wäre wenn so nen Sound hätte wie von einer CD.


    Hoffe es kennst sich jemand aus und kann mir helfen.

    Hallo Waschbaer_1986,
    das sind exakt die einstellungen für die ich mich letztlich auch entschieden habe.

    VB.NET-Quellcode

    1. l.LAME_Mode = EncoderLAME.LAMEMode.JointStereo
    2. l.LAME_UseVBR = True
    3. l.LAME_VBRQuality = EncoderLAME.LAMEVBRQuality.VBR_Q0


    Ich habe auch alle möglichen varianten durchprobiert.
    Kannst ja mal mit

    VB.NET-Quellcode

    1. l.LAME_UseVBR = False
    2. l.LAME_Bitrate = CInt(EncoderLAME.BITRATE.kbps_320)
    3. l.LAME_Quality = EncoderLAME.LAMEQuality.Q0

    probieren.
    Meine Boxen geben damit allerdings keinen merklichen Qualitätssprung aus.
    Das einzige was sich merklich ändert ist die Dateigröße. :)

    Wenn Du Deine Aufnahme nicht konvertierst, also die erzeugte .wav behälst, dann haste die Qualität die du von der Soundkarte bekommst.
    Aber wer will schon solche rießigen Dateien verwalten. Obwohl, wenn Qualität dein Massstab ist, dann doch.

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

    Es geht auch verlustfrei ohne riesige Wavesound-dateien. Dafür gibt es zahlreiche verlustfreie Formate. Meine beiden absoluten Favoriten sind dabei: FLAC und WavPack. FLAC schafft z.b. je nach Musikstück eine Reduzierung der Dateigröße auf nahezu 30%. Das kann aber sehr stark variieren. Laut Hersteller liegt der Durchschnitt bei 60%. Bei WavPack weiß ich es leider nicht so genau. WavPack hat aber noch einen klaren Vorteil gegenüber FLAC. WavPack ist merklich schneller beim Encodieren, nicht aber bei dem Decodieren.

    Ich bezweifle aber, dass der starke Qualitätsverlust von LAME kommt.


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

    im Namespace Un4seen.Bass.Misc gibts diverse einstellungen für andere encoder.
    Unter anderem auch FLAC und WavPack.

    Schau dich mal in der Dokumentation um, steht einiges drin.
    Stichwort BaseEncoder Class.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MyOwnEncoder Inherits BaseEncoder
    3. ' Constructor
    4. Public Sub New(channel As Integer) MyBase.New(channel)
    5. End Sub
    7. Public Overrides Function ToString() As String
    8. Return "My Encoder (BASS_CTYPE_STREAM_MP3)"
    9. End Function
    11. Public Overrides ReadOnly Property DefaultOutputExtension() As String
    12. Get
    13. Return ".mp3"
    14. End Get
    15. End Property
    17. Public Overrides ReadOnly Property EncoderType() As BASSChannelType
    18. Get
    19. Return BASSChannelType.BASS_CTYPE_STREAM_MP3
    20. End Get
    21. End Property
    23. Public Overrides ReadOnly Property SupportsSTDOUT() As Boolean
    24. Get
    25. Return True
    26. End Get
    27. End Property
    29. Public Overrides ReadOnly Property EncoderCommandLine() As String
    30. Get
    31. Return BuildEncoderCommandLine()
    32. End Get
    33. End Property
    35. Public Overrides ReadOnly Property EffectiveBitrate() As Integer
    36. Get
    37. Return My_Bitrate
    38. End Get
    39. End Property
    41. Public Overrides Function Start(proc As ENCODEPROC, user As IntPtr, paused As Boolean) As Boolean
    42. If EncoderHandle <> 0 OrElse (Not (proc Is Nothing) AndAlso Not SupportsSTDOUT) Then
    43. Return False
    44. End If
    45. ' start the encoder
    46. Dim flag As BASSEncode = BASSEncode.BASS_ENCODE_NOHEAD
    47. If Force16Bit Then
    48. flag = flag Or BASSEncode.BASS_ENCODE_FP_16BIT
    49. End If
    50. If paused Then
    51. flag = flag Or BASSEncode.BASS_ENCODE_PAUSE
    52. End If
    53. EncoderHandle = BassEnc.BASS_Encode_Start(ChannelHandle, EncoderCommandLine,
    54. flag, proc, user)
    55. End If
    56. If EncoderHandle = 0 Then
    57. Return False
    58. Else
    59. Return True
    60. End If
    61. End Function
    63. ' local members for setting individual parameters
    64. Public My_Bitrate As Integer = 128
    66. ' just an example here!
    67. Private Function BuildEncoderCommandLine() As String
    68. Dim enCI As New CultureInfo("en-US", False)
    69. Dim sb As New StringBuilder()
    70. ' the file name and path
    71. sb.Append(Path.Combine(EncoderDirectory, "myencoder.exe"))
    72. ' raw input?
    73. If InputFile Is Nothing Then ' STDIN: add the raw pcm header data
    74. sb.Append([String].Format(enCI, " -r -x -s {0:##0.0##} --bitwidth {1}",
    75. ChannelSampleRate / 1000F,(If ChannelBitwidth > 16 Then 16 Else ChannelBitwidth))) 'ToDo: Unsupported feature: conditional (?) operator.
    76. End If ' ...more options here...
    77. sb.Append([String].Format(enCI, " -b {0} -h", My_Bitrate))
    78. ' STDIN or filename
    79. If Not (InputFile Is Nothing) Then
    80. sb.Append((" """ + InputFile + """"))
    81. Else
    82. sb.Append(" -")
    83. End If ' STDOUT or filename
    84. If Not (OutputFile Is Nothing) Then
    85. sb.Append((" """ + OutputFile + """"))
    86. Else
    87. sb.Append(" -")
    88. End If
    89. Return sb.ToString()
    90. End Function
    92. End Class



    Spoiler anzeigen

    Remarks

    This class uses the BASS_CTYPE_STREAM_FLAC encoder type.
    "flac.exe" must be downloaded separately (e.g. from rarewares.org). FLAC also needs the "libmmd.dll", which is also available at rarewares.org.

    Make sure to set the FLAC_xxx flags before retrieving the EncoderCommandLine or calling Start(ENCODEPROC, IntPtr, Boolean).

    This implementation uses the automatic DSP system for encoding. Meaning the sending of sample data to the encoder is done automatically when you play the channel (BASS_ChannelPlay(Int32, Boolean)) or call BASS_ChannelGetData(Int32, IntPtr, Int32) (if it's a decoding channel). So there is no need to call BASS_Encode_Write(Int32, IntPtr, Int32) manually!

    If you simply want to encode a physical file please also take a look to the EncodeFile(String, String, BaseEncoder, BaseEncoder..::..ENCODEFILEPROC, Boolean, Boolean).

    FLAC 'cuesheets' and the 'skip' and 'until' properties are not supported in this implementation by default, but you might add them with the FLAC_CustomOptions parameter.

    Nö DirectX nicht.
    Ab Windows Vista gibts die bis jetzt neueste Technologie für Audio welche WASAPI beinhaltet. Google nach WASAPI Loopback capture.


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

    Waschbaer_1986 schrieb:

    Habs etz mal ausprobiert aber die qualität is nicht wirklich besser geworden.
    Dir reicht also die Qualität von 320bps-MP3 nicht aus.
    Es gibt nur ganz wenige Menschen, die den Unterschied zwischen MP3/320 und WAV hören.
    In Blindvergleichstests gelang dies zielsicher nur Testpersonen mit einem starken Hörfehler.

    Wer z.B. den Frequenzbereich über 8kHz nur noch stark eingeschränkt hört, kann die psychoakustischen Effekte, die MP3 zugrunde liegen, nicht mehr ausnutzen.
    Solltest du zu dieser Gruppe gehören, helfen nur verlustfreie Formate wie WAV oder FLAC.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Wie ich bereits gesagt habe ist aber garantiert nicht MP3 das Problem. Vielmehr wird das Problem sein, dass Bass irgend nen Scheiß verwendet um die Daten aufzunehmen. Erkundige dich mal über google was man mit WASAPI Loopback capture machen kann. Es gibt schon fertige Wrapper und damit haste das recht schnell und verlustfrei.


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