PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Vb.net mp3 abspielen (als eingebundene Resource)



sunny-boy3
14.07.2009, 14:39
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

inout
14.07.2009, 15:02
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.

sunny-boy3
14.07.2009, 15:04
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.


Da bin ich noch nicht drauf gekommen natürlich wen es eine bessere lösung gibt dan wäre es natürlich nocht schöner

krusty
14.07.2009, 15:30
es gibt auf youtube ein video, wie man mp3 per api abspielen kann =$ kannst ja mal schaun... ist gut erklärt.

magerquark
14.07.2009, 15:32
Dies sollte entweder über Directsound (Teil von DirectX) oder das WindowsMediaPlayer-Steuerelement realisierbar sein.

sunny-boy3
14.07.2009, 15:38
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)).

DarkFire
14.07.2009, 15:51
So hab ich das gemacht... =/


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"

sunny-boy3
14.07.2009, 16:00
So hab ich das gemacht... =/


Leider kommt bei meinen media player immer eine Fehlermeldung

hackerking
15.07.2009, 17:09
Einfach mal Google anschmeißen?

http://www.google.com/search?q=vb.net+play+mp3&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:de:official&client=firefox-a

Kaspersky
15.07.2009, 17:12
du musst die datei erst droppen und dann abspielen, siehe hier:

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

sunny-boy3
16.07.2009, 16:26
du musst die datei erst droppen und dann abspielen, siehe hier:

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

Bekomme es nicht hin steht immer guns ist kein member von resources

Kaspersky
16.07.2009, 16:28
-.- da musst du natürlich den namen deiner mp3 in den resourcen eingeben
#Code verständnis 6

sunny-boy3
16.07.2009, 16:29
-.- da musst du natürlich den namen deiner mp3 in den resourcen eingeben
#Code verständnis 6


Hab ich gemacht jetzt bekomme ich zwar kein fehler aber auch kein ton


So sieht die code aus



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


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IO.File (http://www.google.com/search?q=FILE+site:msdn.microsoft.com).WriteAllByt es("Test.mp3", My.Resources.Remix_Juli_2009)
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

Kaspersky
16.07.2009, 16:49
Tja, code sieht richtig aus, bei mir gehts.
Hier (http://www.files.to/get/730729/5ndmo4nn11) mal projekt

Einfach mal debuggen und hören =)

Bi0sh0k
16.07.2009, 16:58
Also in Vb6 hatte ich mal was probiert.
Wandel doch die mp3 in eine wave datei um. Macht doch nicht viel unterschied.
Möglichst so convertieren das die .wav genug quali hatt aber möglichst so groß ist wie die mp3. Später beim compilen ist das alles viel kleiner. Benutz z.B. Magic Video Converter. Den Serial musste dir selbst besorgen um das Progi voll nutzen zu können. Ich geb dir gern Extern en Tipp, aber hier im Forum sind Serial Anfragen verboten, wie du bestimmt weißt.
Hier ist ein Vb6 Projekt von mir. Zwar muss ich noch einiges dran machen wegen bugs aber es läuft ganz gut. Ist en Game Hack (Offline Spiel). Die Hack funktion ist noch nicht eingecodet, kommt noch.
Hier mein Projekt : http://www.file-upload.net/download-1766792/Projekt1.rar.html
Konstruktive Kritik erwünscht. ;)

Kaspersky
16.07.2009, 16:59
ja genau, convertieren oder einfach die mp3 nehmen was um einiges schneller geht und ohne qualitäts verlust^^

sunny-boy3
16.07.2009, 17:18
ja genau, convertieren oder einfach die mp3 nehmen was um einiges schneller geht und ohne qualitäts verlust^^
Hab ich ja zuzeit möche ja ne mp3 is besser die source geht bei mir nicht (bedeutet kein ton)

Kaspersky
16.07.2009, 17:38
Mach mal die boxen an? XD
Liegt wohl an deinem sys.
Geht nämlich supi^^

sunny-boy3
16.07.2009, 18:37
Mach mal die boxen an? XD
Liegt wohl an deinem sys.
Geht nämlich supi^^

Hab ja den ton an kommt nechts kan alle töne hören aer von der surce kein funke

Kaspersky
16.07.2009, 18:48
Tja dann ist dein pc nicht MP3-Ready! XDDD
Zum tot lachen xD

Toxic222333
16.07.2009, 19:04
nim da einfach AxWindowsMediaPlayer versteck ihn und nim dann die befehle

AxWindowsMediaPlay.1 Stop pause etc.

wird diir dann angezeigt ;) bei Hilfe add mich icq 550103469

Kaspersky
18.07.2009, 17:27
Ja aber den wmp hat noch längst nicht jeder^^

Planxty
21.07.2009, 19:17
wenn anstelle von mp3 du ne wav nimmst gehts ganz einfach

My.Computer.Audio.Play(My.Resources.*NameDerDatei* , AudioPlayMode.WaitToComplete)

sunny-boy3
22.07.2009, 19:44
wenn anstelle von mp3 du ne wav nimmst gehts ganz einfach

My.Computer.Audio.Play(My.Resources.*NameDerDatei* , AudioPlayMode.WaitToComplete)



Habe ich ja derzeit nur das schlägt auf die mbs

Bi0sh0k
30.07.2009, 19:34
haste die mp3 den in ne res datei reingehaun zum compilen?
Und haste den pfad überhaupt richtig angegeben?
Kann sein das du das abspielen vielleicht gar nicht geproggt hast. XD

Impi
31.07.2009, 09:10
using System;
using System.IO;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;

namespace FlowerRadio.Audio
{
/// <summary>
/// Repräsentiert eine MCI-Ausnahme
/// </summary>
public class MciException : Exception
{
public MciException(string message)
{
}
}

/// <summary>
/// Klasse für das Abspielen von Mediadateien über MCI
/// </summary>
public class Mci : IDisposable
{
/* Deklaration der MCI-Funktionen, -Konstanten und -Strukturen */
[DllImport("winmm.dll", CharSet = CharSet.Auto)]
private static extern int mciSendString(string lpstrCommand,
StringBuilder lpstrReturnString, int uReturnLength, IntPtr
hwndCallback);

[DllImport("winmm.dll", CharSet = CharSet.Auto)]
private static extern int mciGetErrorString(int dwError, StringBuilder
lpstrBuffer, int uLength);

[DllImport("kernel32.dll", CharSet = CharSet.Auto)]
private static extern int GetShortPathName(string lpszLongPath,
StringBuilder lpszShortPath, int cchBuffer);

/* Eigenschaft für den MCI-Alias */
private string alias;

private bool isOpen = false;
/// <summary>
/// Gibt an, ob gerade ein MCI-Gerät geöffnet ist
/// </summary>
public bool IsOpen
{
get
{
return this.isOpen;
}
}

/// <summary>
/// Liefert eine Fehlermeldung zu einem gegebenen
/// Fehlercode
/// </summary>
/// <param name="errorCode">Der Fehlercode</param>
/// <returns>Gibt die Fehlermeldung zurück</returns>
private string GetMciError(int errorCode)
{
StringBuilder errorMessage = new StringBuilder(255);
if (mciGetErrorString(errorCode, errorMessage,
errorMessage.Capacity) == 0)
{
return "MCI-Fehler " + errorCode;
}
else
{
return errorMessage.ToString();
}
}

/// <summary>
/// Öffnet eine Multimediadatei
/// </summary>
/// <param name="filename">Der Dateiname</param>
public void Open(string filename)
{
Open(filename, null);
}

/// <summary>
/// Öffnet eine Multimediadatei
/// </summary>
/// <param name="filename">Der Dateiname</param>
/// <param name="owner">Der Besitzer der erzeugten MCI-Instanz</param>
public void Open(string filename, Control owner)
{
// Schließen einer eventuell zuvor noch geöffneten
// Datei
if (this.IsOpen)
{
this.Close();
}

// Alias für das MCI-Gerät erzeugen
this.alias = Guid.NewGuid().ToString("N");

// Überprüfen, ob die Datei existiert
if (File.Exists(filename) == false)
{
throw new FileNotFoundException("Die Datei '" + filename +
"' existiert nicht", filename);
}

// Den kurzen Dateinamen ermitteln
StringBuilder shortPath = new StringBuilder(261);
if (GetShortPathName(filename, shortPath, shortPath.Capacity) == 0)
{
throw new MciException("Fehler beim Auslesen des kurzen " +
"Dateinamens für '" + filename + "': Windows-Fehler " +
Marshal.GetLastWin32Error());
}

// MCI-Befehlsstring zum Öffnen zusammensetzen
string mciString = "open " + shortPath.ToString() +
" type mpegvideo alias " + this.alias;

if (owner != null)
{
mciString += " parent " + (int)owner.Handle + " style child";
}

// MCI-Gerät öffnen
int result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Öffnen des MCI-Geräts: " +
GetMciError(result));
}

this.isOpen = true;

// Das Zeitformat für Längen- und Positionsangaben explizit
// auf Millisekunden setzen
mciString = "set " + this.alias + " time format ms";
result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Setzen des Zeitformats: " +
GetMciError(result));
}
}

/// <summary>
/// Gibt die Abspiellänge der aktuellen Multimediadatei zurück
/// </summary>
public int Length
{
get
{
StringBuilder buffer = new StringBuilder(261);
int result = mciSendString("status " + this.alias + " length",
buffer, buffer.Capacity, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Lesen von 'Length': " +
GetMciError(result));
}

return int.Parse(buffer.ToString());
}
}

/// <summary>
/// Spielt eine geladene Multimediadatei ab
/// </summary>
/// <param name="repeat">Gibt an, ob das Abspielen nach dem Ende wieder von vorne beginnen soll</param>
public void Play(bool repeat)
{
Play(0, this.Length, repeat);
}

/// <summary>
/// Spielt eine geladene Multimediadatei ab einer bestimmten Position ab
/// </summary>
/// <param name="from">Die Startposition</param>
/// <param name="repeat">Gibt an, ob das Abspielen nach dem Ende wieder von vorne beginnen soll</param>
public void Play(int from, bool repeat)
{
Play(from, this.Length - from, repeat);
}

/// <summary>
/// Spielt eine geladene Multimediadatei ab einer bestimmten Position
/// und bis zu einer bestimmten anderen Position ab
/// </summary>
/// <param name="from">Die Startposition</param>
/// <param name="to">Die Endposition</param>
/// <param name="repeat">Gibt an, ob das Abspielen nach dem Ende wieder von vorne beginnen soll</param>
public void Play(int from, int to, bool repeat)
{
string mciString = "play " + this.alias +
" from " + from + " to " + to;
if (repeat)
{
mciString += " repeat";
}
int result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Aufruf von 'Play': " +
GetMciError(result));
}
}

/// <summary>
/// Verwaltet die Lautstärke
/// </summary>
public int Volume
{
get
{
StringBuilder buffer = new StringBuilder(261);
int result = mciSendString("status " + this.alias + " volume",
buffer, buffer.Capacity, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Lesen von 'Volume': " +
GetMciError(result));
}
return int.Parse(buffer.ToString());
}

set
{
int result = mciSendString("setaudio " + this.alias +
" volume to " + value, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Aufruf von 'SetAudio': " +
GetMciError(result));
}
}
}

/// <summary>
/// Verwaltet die aktuelle Position in den Multimedia-Daten
/// </summary>
public int Position
{
get
{
StringBuilder buffer = new StringBuilder(261);
int result = mciSendString("status " + this.alias + " position",
buffer, buffer.Capacity, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Lesen von 'Position': " +
GetMciError(result));
}
return int.Parse(buffer.ToString());
}

set
{
int result = mciSendString("seek " + this.alias +
" to " + value, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Setzen von 'Position'" +
GetMciError(result));
}
result = mciSendString("play " + this.alias, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Aufruf von 'Play': " +
GetMciError(result));
}
}
}

/// <summary>
/// Verwaltet die aktuelle Abspiel-Geschwindigkeit
/// </summary>
public int PlaybackSpeed
{
get
{
StringBuilder buffer = new StringBuilder(261);
int result = mciSendString("status " + this.alias + " speed",
buffer, buffer.Capacity, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Lesen von 'Speed'" +
GetMciError(result));
}
return int.Parse(buffer.ToString());
}

set
{
string mciString = "set " + this.alias + " speed " + value;
int result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Setzen von 'Speed': " +
GetMciError(result));
}
}
}

/// <summary>
/// Methode zur Definition der Abspielposition und -größe für Videos, die auf einem Formular, einer PictureBox o. ä. dargestellt werden
/// </summary>
/// <param name="x">Die X-Position</param>
/// <param name="y">Die Y-Position</param>
/// <param name="width">Die Breite</param>
/// <param name="height">Die Höhe</param>
public void SetRectangle(int x, int y, int width, int height)
{
string mciString = "put " + this.alias + " window at " + x +
" " + y + " " + width + " " + height;
int result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Aufruf von 'Put Window at': " +
GetMciError(result));
}
}

/// <summary>
/// Stoppt den aktuellen Abspielvorgang
/// </summary>
public void Stop()
{
string mciString = "stop " + this.alias;
int result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Aufruf von 'Stop': " +
GetMciError(result));
}
}

/// <summary>
/// Schließt ein aktuell geöffnetes MCI-Gerät
/// </summary>
public void Close()
{
if (this.isOpen)
{
string mciString = "close " + this.alias;
int result = mciSendString(mciString, null, 0, IntPtr.Zero);
if (result != 0)
{
throw new MciException("Fehler beim Aufruf von 'Close': " +
GetMciError(result));
}

this.isOpen = false;
}
}

/// <summary>
/// Schließt ein aktuell geöffnetes MCI-Gerät
/// </summary>
public void Dispose()
{
this.Close();
}

/// <summary>
/// Finalisierer
/// </summary>
~Mci()
{
this.Close();
}
}
}

Hatte vor kurzem erst selber das Problem mit dem abspielen von MP3's und diese Klasse sollte genau das verwirklichen was du suchst.
Ist zwar C# aber ich glaube das in VB.net umzuschreiben sollte nich das Problem sein.
Mfg Impi

Kaspersky
03.08.2009, 22:17
So für alle die Mp3 aus den resourcen ohne controls etc abspielen möchten.
Klick (http://free-hack.com/showthread.php?t=45380)