Covert MP3 enz

[bonnowagt]

Is er een code in VB2010 om bijv. mp3 naar wav, flac naar mp3 enz te converteren, heb al gezocht op google maar niet echt iets gevonden wie heeft hiervan voorbeelden oid. Ik hou mij aanbevolen.

Groetjes

 

[old Hippy]

Hier een link helpt je mischien verder

http://www.codeproject.com/KB/audio-video/Aumplib.aspx

 

[JoZ1]

Gewoon even zoeken. (Bijv. http://www.pcreview.co.uk/forums/wav-mp3-conversion-through-vbulletin-net-3-5-a-t3851509.html)

Er is zat over te vinden.

 

[bonnowagt]

Mediapayer wel of niet

Een simpele en misschien ook wel domme vraag.

ik maak een mediaplayer maak met als basis de AXWindowsmediaplayer .
Heb ik op de pc dan om de meiaspeler te laten spelen nog steeds WindowsMediaPlayer nodig indien die niet op de pc is geinstalleerd?

 

[JoZ1]

Ik denk het niet, mits je de DLL bijvoegt.

 

[bonnowagt]

Wmp

Je bedoelt waarschijnlijk de AXINTEROPWMPLIB. Deze heb ik toegevoegd

 

[JoZ1]

Ja, probeer het eens op een systeem zonder WMP.

 

[hanonymouss]

Een simpele en misschien ook wel domme vraag.

ik maak een mediaplayer maak met als basis de AXWindowsmediaplayer .
Heb ik op de pc dan om de meiaspeler te laten spelen nog steeds WindowsMediaPlayer nodig indien die niet op de pc is geinstalleerd?

Zet een combobox ,, textbox en 2 buttons op jouw form.
klik op combobox => edit items => .wav .flac

en gebruik deze code:

[CPP] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SelectVid.ShowDialog()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim type As String = ComboBox1.Text

If ComboBox1.Text = "" Then

MsgBox("Geen bestand geslecteerd!")

Else

End If

MsgBox(TextBox1.Text + " Is geconverteerd naar: " + type + " Bestand.")

Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)

FileCopy(TextBox1.Text, oldFile + type)


End Sub

Private Sub SelectVid_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SelectVid.FileOk

Dim file As String = SelectVid.FileName

TextBox1.Text = file
Dim type As String = ComboBox1.Text
End Sub
[/CPP]

Succes :thumb:

 

[JoZ1]

@hanonymouss: Kun je even uitleggen wat je code precies voor nut heeft? Het is in ieder geval onvolledig (SelectVid?).

 

[hanonymouss]

Wat vergeten

JoZ1: Inderdaad ik ben iets vergeten. Ik ben een openfiledialog vergeten die ik als naam
" SelectVid" heb gegeven.

Het kan naar een andere bestandstype converteren