Hallo weiß jemand von euch wie ich in vb.net eine als resource eingebundene mp3 als hintergrund musik laufen lassen kann???
wie es bei wave geht weiß ich will es aber mit einer mp3 machen vielen dank schonmal in vorraus
Druckbare Version
Hallo weiß jemand von euch wie ich in vb.net eine als resource eingebundene mp3 als hintergrund musik laufen lassen kann???
wie es bei wave geht weiß ich will es aber mit einer mp3 machen vielen dank schonmal in vorraus
Ich glaube, dass das ohne viele Umwege nicht so einfach möglich ist. (Ich lasse mich aber auch gerne eines Besseren belehren ;))
Du tust gut daran, die Datei vor dem Abspielen kurz auf die HDD zu schreiben und dann später ggf. wieder zu löschen.
es gibt auf youtube ein video, wie man mp3 per api abspielen kann =$ kannst ja mal schaun... ist gut erklärt.
Dies sollte entweder über Directsound (Teil von DirectX) oder das WindowsMediaPlayer-Steuerelement realisierbar sein.
Habe jetzt das windows media Control eingesetzt und die mp3 als resource hinzugefügt habe diese code um das ganze zu kopieren In einen Pfad
Dere media player funzt aber iwie nicht bei mir immer wen ich debug machenwill kommt diese fehlermeldung:
Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Klasse nicht registriert (Ausnahme von HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).
So hab ich das gemacht... =/
Zitat:
Dim Pfad As String = Environment.GetFolderPath(Environment.SpecialFolde r.MyMusic)
Dim Res() As Byte = My.Resources.SAW3
IO.File.WriteAllBytes(Pfad & "\Music.mp3", Res)
WMP.URL = Pfad & "\Saw.mp3"
Einfach mal Google anschmeißen?
http://www.google.com/search?q=vb.ne...ient=firefox-a
du musst die datei erst droppen und dann abspielen, siehe hier:
Code:Option Explicit On
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
mciSendString("stop MyMP3", 0, 0, 0)
mciSendString("close MyMP3", 0, 0, 0)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
IO.File.WriteAllBytes("test.mp3", My.Resources.Guns)
If mciSendString("open " & "test.mp3" & " type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then
mciSendString("play MyMP3 from 0", 0, 0, 0)
End If
End Sub
End Class