ah .. ecco .... era semplice ....
un bel problema ....
con un file WAV codificato opus (scaricato dal sito degli sviluppatori di opus codec) il sistema va' ...
dopo aver passato la path con un dialog chiamo questo form (MusicImporter) di editing audio e nel form_open
Public Sub Form_Open()
Dim hImage As Picture
WaveForm.MusicFilePath = MusicImporter.Tag
If Exist(MusicImporter.Tag & ".png") = False Then WaveForm.Main
hImage = Picture.Load(MusicImporter.Tag & ".png")
DrawingArea_WaveForm.Clear
DrawingArea_WaveForm.Width = hImage.Width
DrawingArea_WaveForm.Height = hImage.Height
DrawingArea_WaveForm.BackGround = Color.Green
Draw.Begin(DrawingArea_WaveForm)
Draw.Picture(hImage, 0, 0, 800, 200)
Draw.End
End
nel modulo WaveForm (che hai codiifcato tu), ho aggiunto una public per parametrizzare la path del file audio
Public MusicFilePath As String
e nel main del waveform ho seguito di conseguenza:
Public Sub Main()
Dim rend As New RENDER
Dim percorsoFile As String
percorsoFile = MusicFilePath ' Il file audio (wav o ogg) dal quale creare la forma d'onda
With rend
.sndfilepath = percorsoFile
.pngfilepath = percorsoFile & ".png" ' Il percorso del futuro file .png
.filename = File.Name(percorsoFile) ' Il solo nome del file comprensivo di estensione
etc etc etc
e' carino .. ma il limite degli mp3 e' tosto .....
