Waveform mit bass.dll darstellen

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von TByte.

    Waveform mit bass.dll darstellen

    Hallo,
    ich weiß jetzt nicht, ob das Thema schon öfters gepostet wurde, doch nach meiner mehrtägigen Online-Recherche-Odysee versuche ich jetzt mal hier mein Glück:
    Im Grunde ist es ganz simple: Wie gibt man mittels der bass.dll die komplette Waveform eines Songs aus? Z.B. in einer PictureBox!
    Die durch meine Online-Recherchen gefundenen Codefragmente waren nicht allzu hilfreich, da diese alle immer unvollständig oder sehr fehlerhaft waren...!
    Also, wer eine Tutorial, einen kompletten Beispielcode oder ähnliches kennt, bitte posten...
    DAnke fschonmal für jede Hilfe.
    mfg
    TByte

    Willkommen im Club. :thumbsup:
    Hast Du schon die beiden Bass-DLL-Tutorials hier im Forum gefunden:
    Bass-Tut 1 und Bass-Tut 2
    Kompletten Beispielcode findest Du nur im vb@rchiv oder so.
    Wenn Du schon Code hast, der aber nicht läuft, poste ihn hoch, wie reden drüber und bügeln die Fehler raus. Die Initiative aber liegt bei Dir.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,
    wegen des Codes: Das ist u.a. Beispielcode, wie der folgende, den man selbst in ein Projekt einbetten muß:

    VB.NET-Quellcode

    1. Private WF As Un4seen.Bass.Misc.WaveForm = Nothing
    2. Private Sub GetWaveForm()
    3. ' render a wave form
    4. WF = New Un4seen.Bass.Misc.WaveForm("test.mp3", New Un4seen.Bass.Misc.WAVEFORMPROC(MyWaveFormCallback), Me)
    5. WF.CallbackFrequency = 500
    6. ' every 10 seconds rendered
    7. WF.ColorBackground = Color.Black
    8. WF.ColorBase = Color.Lime
    9. WF.ColorPeak = Color.Red
    10. ' it is important to use the same resolution flags as for the playing stream
    11. ' e.g. if an already playing stream is 32-bit float, so this should also be
    12. ' or use 'SyncPlayback' as shown below
    13. WF.RenderStart(True, BASSFlag.BASS_SAMPLE_FLOAT)
    14. End Sub
    16. Private Sub MyWaveFormCallback(framesDone As Integer,framesTotal As Integer,elapsedTime As TimeSpan,finished As Boolean)
    17. ' will be called during rendering...
    18. DrawWave()
    19. If finished Then
    20. Console.WriteLine("Finished rendering in {0}sec.",elapsedTime)
    21. Console.WriteLine("FramesRendered={0} of {1}",WF.FramesRendered,WF.FramesToRender)
    22. ' if your playback stream uses a different resolution than the WF
    23. ' use this to sync them
    24. WF.SyncPlayback(_stream)
    25. End If
    26. End Sub
    28. Private Sub DrawWave()
    29. If Not (WF Is Nothing) Then
    30. Me.pictureBox1.BackgroundImage = WF.CreateBitmap(Me.pictureBox1.Width,Me.pictureBox1.Height,-1,-1,False)
    31. Else
    32. Me.pictureBox1.BackgroundImage = Nothing
    33. End If
    34. End Sub


    Ich habe mal den Originalcode eingefügt, so wie ich ihn im Netz gefunden habe.
    Alles, was auf eine Konsolenanwendung hinweißt habe ich umgeschrieben, so daß ich da Ausgaben in Labels bekomme...

    mfg
    TByte

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „TByte“ ()

    Ich hoffe, Du bist meiner Meinung wenn ich sage, dass Dein Code-Zitat hier absolut be... ankommt. :thumbdown:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Jetzt ist es in Ordnung. Danke.
    Wo kommt denn die Deklaration dieser Prozedur her:

    VB.NET-Quellcode

    1. Private Sub MyWaveFormCallback(ByVal framesDone As Integer, ByVal framesTotal As Integer, ByVal elapsedTime As TimeSpan, ByVal finished As Boolean)

    Der Delegat "Un4seen.Bass.Misc.WAVEFORMPROC" erfordert als einziges Argument für seinen Konstruktor einen AddressOf-Ausdruck oder einen Lambda-Ausdruck.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Da muß ich ehrlich sein, das weiß ich nicht so genau!
    In Zeile 4 wird ja am Ende diese Funktion (MyWaveFormCallback) aufgerufen und keine Werte mitübergeben. Das hat mich schon etwas stutzig gemacht... Ich habe dann etwas rumprobiert, also, die Werte weggelassen, benötigte Werte ausgelesen und mitübergeben, aber irgendwie wollte das alles nicht so funktionieren.
    Ich denke mal, daß der Code mehr oder weniger als Grundlage genutzt werden kann, um da was eigenes zu erstellen...

    Sieh Dir mal die beiden Tuts an, die ich Dir oben gepostet habe.
    Da sollte in jedem Falle ein lauffähiger Code drin sein.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo TByte.

    Da das wirklich nicht einfach ist, hab ich mich entschieden, Dir diesen Code zu posten.

    Die Picturebox heisst in diesem Fall "PictureBoxBigWave"

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region " Wave Form Drawing & Spektrum"
    2. ' Deklaration - Wave Form zeichnen
    3. Private IsDrawing As Boolean = False
    4. Private WF As Un4seen.Bass.Misc.WaveForm
    5. Private _deviceLatencyBytes As Integer = 0
    6. #End Region
    7. #Region " updateTimer"
    8. Private _updateTimer As BASSTimer = Nothing
    9. Private _updateInterval As Integer = 50
    10. Private Channel_Pos As Long ' Position in bytes
    11. Private Channel_Len As Long ' Länge in bytes
    12. #End Region
    14. Private Sub Form_load
    15. If False = Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT Or BASSFlag.BASS_STREAM_PRESCAN, Me.Handle) Then
    16. ‘Fehlerbehandlung
    17. End If
    19. _updateTimer = New Un4seen.Bass.BASSTimer(_updateInterval)
    20. AddHandler _updateTimer.Tick, AddressOf timerUpdate_Tick
    21. End Sub
    23. Private Sub abspielen()
    24. ' evtl. laufenden stream schließen
    25. If strm <> 0 Then
    26. If WF.IsRenderingInProgress Then
    27. WF.RenderStop()
    28. WF.Reset()
    29. End If
    30. Bass.BASS_ChannelStop(strm)
    31. Bass.BASS_StreamFree(strm)
    32. End If
    33. strm = Bass.BASS_StreamCreateFile(_filename, 0, 0, BASSFlag.BASS_DEFAULT Or BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_SAMPLE_FLOAT)
    34. SetupWaveForm()
    35. If strm <> 0 AndAlso Bass.BASS_ChannelPlay(strm, False) Then
    36. _updateTimer.[Start]()
    37. Else
    38. MsgBox(BASS_GetErrorDescription(Bass.BASS_ErrorGetCode()))
    39. End If
    40. End Sub
    41. #Region " timerUpdate"
    42. Private Sub timerUpdate_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
    43. Channel_Pos = Bass.BASS_ChannelGetPosition(strm, BASSMode.BASS_POS_BYTES) ' Position in bytes
    44. Channel_Len = Bass.BASS_ChannelGetLength(strm, BASSMode.BASS_POS_BYTES) ' Länge in bytes
    46. If CType(Bass.BASS_ChannelIsActive(strm), BASSActive) = BASSActive.BASS_ACTIVE_PLAYING Then
    47. DrawWavePosition(Channel_Pos, Channel_Len) 'Wave Position updaten
    48. ElseIf CType(Bass.BASS_ChannelIsActive(strm), BASSActive) = BASSActive.BASS_ACTIVE_PAUSED Then
    49. DrawWavePosition(Channel_Pos, Channel_Len) 'Wave Position updaten
    50. Else
    51. _updateTimer.[Stop]()
    52. _updateTimer.[Dispose]()
    53. Exit Sub
    54. End If
    55. End Sub
    56. #End Region
    57. #Region " Wave Form Drawing "
    58. Private Sub SetupWaveForm()
    59. WF = New WaveForm(_filename, New WAVEFORMPROC(AddressOf MyWaveFormCallback), Me)
    60. WF.FrameResolution = 0.01F ' 10ms
    61. WF.CallbackFrequency = 500 ' alle 5 sekunden wird gerendert (500*10ms=5sec)
    63. 'Farben
    64. WF.ColorBackground = Color.Transparent
    65. WF.ColorLeft = Color.FromArgb(64, 64, 50)
    66. WF.ColorRight = Color.FromArgb(64, 64, 50)
    68. WF.ColorLeftEnvelope = Color.Orange
    69. WF.ColorRightEnvelope = Color.Orange
    71. WF.ColorMiddleLeft = Color.Wheat
    72. WF.ColorMiddleRight = Color.Wheat
    74. WF.DrawCenterLine = True
    75. WF.DrawEnvelope = True
    76. WF.DrawMarker = WaveForm.MARKERDRAWTYPE.Line Or WaveForm.MARKERDRAWTYPE.Name Or WaveForm.MARKERDRAWTYPE.NamePositionMiddle
    78. WF.RenderStart(True, BASSFlag.BASS_SAMPLE_FLOAT Or BASSFlag.BASS_STREAM_PRESCAN)
    79. WF.SyncPlayback(strm)
    80. End Sub
    82. Private Sub MyWaveFormCallback(ByVal framesDone As Integer, ByVal framesTotal As Integer, ByVal elapsedTime As TimeSpan, ByVal finished As Boolean)
    83. DrawWave(False)
    84. If finished Then
    85. DrawWave(True)
    86. End If
    87. End Sub
    89. Private Sub DrawWave(Optional ByVal highQuality As Boolean = False)
    90. If highQuality = False Then
    91. IsDrawing = Not IsDrawing
    92. If IsDrawing Then Exit Sub
    93. End If
    94. If Not WF Is Nothing Then
    95. Me.PictureBoxBigWave.BackgroundImage = WF.CreateBitmap(Me.PictureBoxBigWave.Width, Me.PictureBoxBigWave.Height, -1, -1, highQuality)
    96. If WF.IsRenderingInProgress Then Exit Sub
    97. Else
    98. Me.PictureBoxBigWave.BackgroundImage = Nothing
    99. End If
    100. End Sub
    102. Private Sub DrawWavePosition(ByVal pos As Long, ByVal len As Long)
    103. Dim PenColor As Color = Color.Red
    105. If len = 0 OrElse pos < 0 Then
    106. Me.PictureBoxBigWave.Image = Nothing
    107. Return
    108. End If
    109. Dim bitmap As Bitmap = Nothing
    110. Dim g As Graphics = Nothing
    111. Dim p As Pen = Nothing
    112. Dim bpp As Double = 0
    113. Try
    114. bpp = len / CType(Me.PictureBoxBigWave.Width, Double)
    116. pos -= _deviceLatencyBytes
    117. p = New Pen(PenColor)
    118. bitmap = New Bitmap(Me.PictureBoxBigWave.Width, Me.PictureBoxBigWave.Height)
    119. g = Graphics.FromImage(bitmap)
    120. g.Clear(Color.White)
    122. Dim x As Integer = CType(Math.Round(pos / bpp), Integer)
    123. ' position (x) = wo die Linie gezeichnet wird
    124. g.DrawLine(p, x, 0, x, Me.PictureBoxBigWave.Height - 1)
    125. bitmap.MakeTransparent(Color.White)
    126. Catch
    127. bitmap = Nothing
    128. Finally
    129. ' Graphic Resourcen freigeben
    130. If Not p Is Nothing Then p.Dispose()
    131. If Not g Is Nothing Then g.Dispose()
    132. End Try
    133. Me.PictureBoxBigWave.Image = bitmap
    134. End Sub
    135. #End Region



    Das funktioniert am besten, wenn Du die Abspielvorgänge in einem Timer laufen läßt. (in diesem Fall ein BASSTimer).
    Die Wave bekommt man auch ohne abspielen, aber da musst Du die Datei prescannen bei Bass.BASS_StreamCreateFile(...

    Und bitte daran denken, nicht 1 zu 1 übernehmen, der Code ist aus meinem Projekt und ich kann nicht garantieren, auf die Schnelle
    alle nötigen Variablen deklariert zu haben. Aber zum studieren und begreifen reichts allemal

    Das sollte aber erstmal genügen.

    mfg OnkelR

    Hallo,
    danke, werde es gleich mal ausprobieren bzw. mich versuchen da reinzudenken...
    Natürlich werde ich den Code nicht 1zu1 übernehmen, da man ja in seinen eigenen Projekten immer auf die persönliche Originalität achten sollte...
    Aber als Denkanstoß ist es trotzdem super... Also nochmal danke... Ich werde es dann posten, wenn ich es hinbekommen habe... Kann aber etwas dauern...
    grüsse
    TByte

    für nen besseres Verständnis wäre es sehr empfehlenswert die sehr gute Dokumentation von der Bibliothek anzuschauen. Das ist dann eigentlich schon fast selbsterklärend.
    bass.radio42.com/help/html/6a2…86b-74e7-3a0a65f7e545.htm


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

    So, es funktioniert einwandfrei...
    Wenn man mal weiß, wie es geht, dann ist es nicht mehr schwer...
    Ich danke allen, die mir hierbei geholfen haben...
    Grüsse
    TByte

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

    TByte schrieb:

    da man ja in seinen eigenen Projekten immer auf die persönliche Originalität achten sollte...

    Wieviel eigene Projekte hast Du denn bis jetzt erstellt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Eigene Projekte??
    Keine Ahnung, ich programmiere eigentlich nur so für mich, wenn es der Job zuläßt, um zu schauen, wie was funktioniert, um quasi up-to-date zu bleiben...
    Meine Projekte waren bis jetzt meistens nur für den Eigengebrauch und der Rest für die Ablage...
    Zur Zeit schreibe ich an ner kleinen Light & Sound-Applikation für meinen Partykeller...