> Dim oAssembly As Reflection.Assembly = MyClass.GetType.Assembly

> Hi,

> I am trying to play a wav from an embedded resource.  I have added a file
> and changed the BuildAction to Embedded Resource.  I can not get the
stream
> to play.  It says the stream length is nothing.  Can somebody please help.
> Below is the code.

> Thanks,

> Dan

> Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySound"
(ByVal
> pszSound() As Byte, ByVal hMod As Int16, ByVal fdwSound As Long) As
Boolean

> Public RetValue As Boolean

> Public Enum zzSound

> Async = &H1L

> Memory = &H4L

> Resource = &H40004L

> Sync = &H0L

> End Enum

> Public Sub PlayAudioFromRes(ByVal filename As String)

> Dim oAssembly As Reflection.Assembly = MyClass.GetType.Assembly

> Dim Stream As System.IO.Stream

> Dim buffer() As Byte

> filename = oAssembly.GetName.Name & "." & filename

> Stream = oAssembly.GetManifestResourceStream(filename)

> ReDim buffer(CType(Stream.Length, Integer))

> Stream.Read(buffer, 0, buffer.Length)

> RetValue = PlaySound(buffer, 0, zzSound.Memory + zzSound.Async)

> End Sub

>Subject: Playing WAV from Embedded Resource
>Date: Sun, 20 Apr 2003 10:49:23 -0400
>Lines: 50
>X-Priority: 3
>X-MSMail-Priority: Normal
>X-Newsreader: Microsoft Outlook Express 6.00.3790.0
>X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.3790.0

>Newsgroups:

>NNTP-Posting-Host: host-64-179-39-13.har.choiceone.net 64.179.39.13
>Path: cpmsftngxa06.phx.gbl!TK2MSFTNGP08.phx.gbl!TK2MSFTNGP10.phx.gbl
>Xref: cpmsftngxa06.phx.gbl microsoft.public.dotnet.general:91709

>X-Tomcat-NG: microsoft.public.dotnet.languages.vb

>Hi,

>I am trying to play a wav from an embedded resource.  I have added a file
>and changed the BuildAction to Embedded Resource.  I can not get the stream
>to play.  It says the stream length is nothing.  Can somebody please help.
>Below is the code.

>Thanks,

>Dan

>Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySound" (ByVal
>pszSound() As Byte, ByVal hMod As Int16, ByVal fdwSound As Long) As Boolean

>Public RetValue As Boolean

>Public Enum zzSound

>Async = &H1L

>Memory = &H4L

>Resource = &H40004L

>Sync = &H0L

>End Enum

>Public Sub PlayAudioFromRes(ByVal filename As String)

>Dim oAssembly As Reflection.Assembly = MyClass.GetType.Assembly

>Dim Stream As System.IO.Stream

>Dim buffer() As Byte

>filename = oAssembly.GetName.Name & "." & filename

>Stream = oAssembly.GetManifestResourceStream(filename)

>ReDim buffer(CType(Stream.Length, Integer))

>Stream.Read(buffer, 0, buffer.Length)

>RetValue = PlaySound(buffer, 0, zzSound.Memory + zzSound.Async)

>End Sub